aboutsummaryrefslogtreecommitdiff
path: root/t/urlto.t
diff options
context:
space:
mode:
authorSimon McVittie <smcv@debian.org>2010-12-25 22:12:56 +0000
committerSimon McVittie <smcv@debian.org>2010-12-25 22:54:54 +0000
commitfbb354d70e292cbf6e99e86bb4dd4416b02b67e4 (patch)
tree5f1fd0cdd1ad08b5cb0426b818a977e2f1d038ca /t/urlto.t
parentd4704d8bbb35f150b4cd354c196822da738d9519 (diff)
downloadikiwiki-fbb354d70e292cbf6e99e86bb4dd4416b02b67e4.tar
ikiwiki-fbb354d70e292cbf6e99e86bb4dd4416b02b67e4.tar.gz
urlto.t: test urlto('', undef, ?)
Diffstat (limited to 't/urlto.t')
-rwxr-xr-xt/urlto.t8
1 files changed, 3 insertions, 5 deletions
diff --git a/t/urlto.t b/t/urlto.t
index db0bc6ace..338632e94 100755
--- a/t/urlto.t
+++ b/t/urlto.t
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use warnings;
use strict;
-use Test::More tests => 24;
+use Test::More tests => 26;
BEGIN { use_ok("IkiWiki"); }
@@ -19,8 +19,7 @@ is(IkiWiki::cgiurl(cgiurl => $config{cgiurl}), "http://smcv.example.co.uk/cgi-bi
is(IkiWiki::cgiurl(cgiurl => $config{cgiurl}, do => 'badger'), "http://smcv.example.co.uk/cgi-bin/ikiwiki.cgi?do=badger");
is(IkiWiki::urlto('index', undef, 1), "http://smcv.example.co.uk/");
is(IkiWiki::urlto('stoats', undef, 1), "http://smcv.example.co.uk/stoats/");
-# FIXME: this actually produces / not the desired absolute URL
-#is(IkiWiki::urlto('', undef, 1), "http://smcv.example.co.uk/");
+is(IkiWiki::urlto('', undef, 1), "http://smcv.example.co.uk/");
# "local" (absolute path within site) version (default for cgiurl)
is(IkiWiki::cgiurl(), "/cgi-bin/ikiwiki.cgi");
@@ -49,5 +48,4 @@ is(IkiWiki::checkconfig(), 1);
is(IkiWiki::cgiurl(), "http://dynamic.example.co.uk/~smcv/ikiwiki.cgi");
is(IkiWiki::baseurl(undef), "http://example.co.uk/~smcv/");
is(IkiWiki::urlto('stoats', undef), "http://example.co.uk/~smcv/stoats/");
-# FIXME: this actually produces ./http://example.co.uk/~smcv/
-#is(IkiWiki::urlto('', undef), "http://example.co.uk/~smcv/");
+is(IkiWiki::urlto('', undef), "http://example.co.uk/~smcv/");