X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/fcf3894e807958a40cd50aa350dbec21fb7410e2..9f60b7f6cd5bf66babd216db186880ce346bc0ad:/t/bestlink.t diff --git a/t/bestlink.t b/t/bestlink.t index ece900152..9358bf376 100755 --- a/t/bestlink.t +++ b/t/bestlink.t @@ -3,23 +3,23 @@ use warnings; use strict; use Test::More tests => 9; +BEGIN { use_ok("IkiWiki"); } + sub test ($$$) { my $page=shift; my $link=shift; my @existing_pages=@{shift()}; %IkiWiki::pagecase=(); - %IkiWiki::links=(); + %links=(); foreach my $page (@existing_pages) { $IkiWiki::pagecase{lc $page}=$page; - $IkiWiki::links{$page}=[]; + $links{$page}=[]; } - return IkiWiki::bestlink($page, $link); + return bestlink($page, $link); } -BEGIN { use_ok("IkiWiki"); } - is(test("bar", "foo", ["bar"]), "", "broken link"); is(test("bar", "foo", ["bar", "foo"]), "foo", "simple link"); is(test("bar", "FoO", ["bar", "foo"]), "foo", "simple link with different input case");