7 main = sequence_ (map do_test tests)
9 base = fromJust (parseURI "http://a/b/c/d;p?q")
11 do_test test = case parseURI test of
12 Nothing -> error ("no parse: " ++ test)
13 Just uri -> putStr (show (fromJust (uri `relativeTo` base)) ++ "\n")
38 -- "../../../g" -- should fail
39 -- "../../../../g" -- should fail