Skip to content
Snippets Groups Projects
Commit 44e17dfe authored by Martin Nilsson's avatar Martin Nilsson
Browse files

Fixed test that broke with Kevins fix.

parent 2ab91ce9
No related branches found
No related tags found
No related merge requests found
...@@ -263,6 +263,14 @@ void reparse_uri(this_program|string|void base_uri) ...@@ -263,6 +263,14 @@ void reparse_uri(this_program|string|void base_uri)
} }
DEBUG("Found scheme %O", scheme); DEBUG("Found scheme %O", scheme);
// DWIM for "www.cnn.com" style input, when parsed in the context of
// base "http://".
if( !scheme && this_program::base_uri?->scheme &&
!sizeof(this_program::base_uri->authority) )
{
uri = "//"+uri;
}
// Parse authority/login // Parse authority/login
// //
// hier-part = "//" authority path-abempty / path-absolute // hier-part = "//" authority path-abempty / path-absolute
......
...@@ -105,6 +105,7 @@ test_equal(Standards.URI("http://www.com/?")->get_http_path_query(),"/?") ...@@ -105,6 +105,7 @@ test_equal(Standards.URI("http://www.com/?")->get_http_path_query(),"/?")
test_equal(Standards.URI("http://www.com/")->get_http_path_query(),"/") test_equal(Standards.URI("http://www.com/")->get_http_path_query(),"/")
test_eval_error(Standards.URI("www.com")) test_eval_error(Standards.URI("www.com"))
test_eq((string)Standards.URI("www.com","http://"),"http://www.com") test_eq((string)Standards.URI("www.com","http://"),"http://www.com")
test_eq((string)Standards.URI("www.com/x?a=b#y","http://"),"http://www.com/x?a=b#y")
test_eq((string)Standards.URI("ftp://www.com/x?a=b#y","http://"),"ftp://www.com/x?a=b#y") test_eq((string)Standards.URI("ftp://www.com/x?a=b#y","http://"),"ftp://www.com/x?a=b#y")
// Some tests of empty path followed by a query. // Some tests of empty path followed by a query.
test_eq(Standards.URI("http://user:??@host?query")->query, "query") test_eq(Standards.URI("http://user:??@host?query")->query, "query")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment