cgiurl(): return a locally-valid path by default

[git.ikiwiki.info.git] / t / beautify_urlpath.t

diff --git a/t/beautify_urlpath.t b/t/beautify_urlpath.t
index b9d3493a284af417d83f18a69839ec22959f7a4f..94b923d3bd2fc9ad1dbc81588249272c0f509ff3 100755 (executable)
--- a/t/beautify_urlpath.t
+++ b/t/beautify_urlpath.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use warnings;
 use strict;
 #!/usr/bin/perl
 use warnings;
 use strict;

-use Test::More tests => 7;
+use Test::More tests => 8;

 
 BEGIN { use_ok("IkiWiki"); }
 
 
 BEGIN { use_ok("IkiWiki"); }
 


@@ -12,5 +12,6 @@ is(IkiWiki::beautify_urlpath("../badger"), "../badger");
 is(IkiWiki::beautify_urlpath("./bleh"), "./bleh");
 is(IkiWiki::beautify_urlpath("foo/index.HTML"), "./foo/");
 is(IkiWiki::beautify_urlpath("index.HTML"), "./");
 is(IkiWiki::beautify_urlpath("./bleh"), "./bleh");
 is(IkiWiki::beautify_urlpath("foo/index.HTML"), "./foo/");
 is(IkiWiki::beautify_urlpath("index.HTML"), "./");

+is(IkiWiki::beautify_urlpath("../index.HTML"), "../");

 $IkiWiki::config{usedirs} = 0;
 is(IkiWiki::beautify_urlpath("foo/index.HTML"), "./foo/index.HTML");
 $IkiWiki::config{usedirs} = 0;
 is(IkiWiki::beautify_urlpath("foo/index.HTML"), "./foo/index.HTML");