X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/4b36dee35a55b08d6d6f3bb3840220a4956f2540..9d0902a7503feb775e6b7a032641f0a970cd5ad1:/t/bestlink.t?ds=inline 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");