summaryrefslogtreecommitdiff
path: root/libmailutils/tests/url.at
diff options
context:
space:
mode:
Diffstat (limited to 'libmailutils/tests/url.at')
-rw-r--r--libmailutils/tests/url.at14
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])

Return to:

Send suggestions and report system problems to the System administrator.