diff options
Diffstat (limited to 'libmailutils/tests/url.at')
-rw-r--r-- | libmailutils/tests/url.at | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/libmailutils/tests/url.at b/libmailutils/tests/url.at index 8c392ea0e..c0669e2aa 100644 --- a/libmailutils/tests/url.at +++ b/libmailutils/tests/url.at @@ -17,24 +17,27 @@ dnl ------------------------------------------------------------ dnl TESTURL([NAME], [KW = `'], [INPUT], [STDOUT = `'], dnl [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS]) dnl +m4_pushdef([URL_PARSE_OPTIONS]) m4_pushdef([TESTURL],[ m4_pushdef([MU_TEST_GROUP],[Url]) m4_pushdef([MU_TEST_KEYWORDS],[url]) -m4_pushdef([MU_TEST_COMMAND],[url-parse]) +m4_pushdef([MU_TEST_COMMAND],[url-parse URL_PARSE_OPTIONS]) MU_GENERIC_TEST([$1],[$2 url-m4_translit($3,[ ],[_])],[$3],[],[$4],[$5]) m4_popdef([MU_TEST_COMMAND]) m4_popdef([MU_TEST_KEYWORDS]) m4_popdef([MU_TEST_GROUP]) ]) dnl ------------------------------------------------------------ +m4_define([URL_PARSE_OPTIONS],[default dslash_optional]) + TESTURL([],[], [scheme:], [scheme <scheme> user <> passwd <> auth <> @@ -73,12 +76,16 @@ passwd <> auth <> host <> port 0 path </absolute/path> ]) +dnl ------------------------------------------------------------ + +m4_define([URL_PARSE_OPTIONS],[default]) + TESTURL([],[], [scheme://%75%73%65%72:%70%61%73%73@%68%6f%73%74], [scheme <scheme> user <user> passwd <pass> auth <> @@ -195,13 +202,13 @@ auth <> host <> port 0 path </a/path> ]) TESTURL([],[], -[ftp:/a/path], +[ftp:///a/path], [scheme <ftp> user <> passwd <> auth <> host <> port 0 @@ -713,12 +720,13 @@ auth <> host <ftp.example.org> port 111 path <mbox/user@host> param[0] <type=pass> ]]) +m4_pushdef([URL_PARSE_OPTIONS],[default dslash_optional]) TESTURL([],[], [mbox:/var/spool/mail;type=index;param=2;user=gray], [[scheme <mbox> user <> passwd <> auth <> @@ -726,12 +734,13 @@ host <> port 0 path </var/spool/mail> param[0] <type=index> param[1] <param=2> param[2] <user=gray> ]]) +m4_popdef([URL_PARSE_OPTIONS]) TESTURL([],[], [mbox:///var/spool/mail;type=index;param=2;user=gray], [[scheme <mbox> user <> passwd <> @@ -820,6 +829,7 @@ port 0 path </bin/mailman> query[0] <request> query[1] <list@dom> ]]) m4_popdef([TESTURL]) +m4_popdef([URL_PARSE_OPTIONS]) |