diff options
Diffstat (limited to 't/bestlink.t')
| -rwxr-xr-x | t/bestlink.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/bestlink.t b/t/bestlink.t index 825c88ff2..ece900152 100755 --- a/t/bestlink.t +++ b/t/bestlink.t @@ -1,7 +1,7 @@ #!/usr/bin/perl use warnings; use strict; -use Test::More tests => 8; +use Test::More tests => 9; sub test ($$$) { my $page=shift; @@ -9,8 +9,10 @@ sub test ($$$) { my @existing_pages=@{shift()}; %IkiWiki::pagecase=(); + %IkiWiki::links=(); foreach my $page (@existing_pages) { $IkiWiki::pagecase{lc $page}=$page; + $IkiWiki::links{$page}=[]; } return IkiWiki::bestlink($page, $link); @@ -23,5 +25,6 @@ is(test("bar", "foo", ["bar", "foo"]), "foo", "simple link"); is(test("bar", "FoO", ["bar", "foo"]), "foo", "simple link with different input case"); is(test("bar", "foo", ["bar", "fOo"]), "fOo", "simple link with different page case"); is(test("bar", "FoO", ["bar", "fOo"]), "fOo", "simple link with different page and input case"); +is(test("bar", "Foo", ["bar", "fOo", "foo", "fOO", "Foo", "fOo"]), "Foo", "in case of ambiguity, like case wins"); is(test("bar", "foo", ["bar", "foo", "bar/foo"]), "bar/foo", "simple subpage link"); is(test("bar", "foo/subpage", ["bar", "foo", "bar/subpage", "foo/subpage"]), "foo/subpage", "cross subpage link"); |