add another test

master
Joey Hess 2008-12-21 12:59:11 -05:00
parent 9bee6db8c6
commit 5b67c54b22
1 changed files with 2 additions and 1 deletions

View File

@ -1,7 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
use warnings; use warnings;
use strict; 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("./bleh"), "./bleh");
is(IkiWiki::beautify_urlpath("foo/index.HTML"), "./foo/"); is(IkiWiki::beautify_urlpath("foo/index.HTML"), "./foo/");
is(IkiWiki::beautify_urlpath("index.HTML"), "./"); is(IkiWiki::beautify_urlpath("index.HTML"), "./");
is(IkiWiki::beautify_urlpath("../index.HTML"), "../");
$IkiWiki::config{usedirs} = 0; $IkiWiki::config{usedirs} = 0;
is(IkiWiki::beautify_urlpath("foo/index.HTML"), "./foo/index.HTML"); is(IkiWiki::beautify_urlpath("foo/index.HTML"), "./foo/index.HTML");