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
@@ -20,10 +20,11 @@ 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])
@@ -32,6 +33,8 @@ m4_popdef([MU_TEST_GROUP])
 
 dnl ------------------------------------------------------------
 
+m4_define([URL_PARSE_OPTIONS],[default dslash_optional])
+
 TESTURL([],[],
 [scheme:],
 [scheme <scheme>
@@ -76,6 +79,10 @@ 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>
@@ -198,7 +205,7 @@ path </a/path>
 ])
 
 TESTURL([],[],
-[ftp:/a/path],
+[ftp:///a/path],
 [scheme <ftp>
 user <>
 passwd <>
@@ -716,6 +723,7 @@ 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>
@@ -729,6 +737,7 @@ 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],
@@ -823,3 +832,4 @@ query[1] <list@dom>
 ]])
 
 m4_popdef([TESTURL])
+m4_popdef([URL_PARSE_OPTIONS])