typo

[git.ikiwiki.info.git] / t / bestlink.t

diff --git a/t/bestlink.t b/t/bestlink.t
index ece900152e0b0648ba686895baa2036e18f1945f..9358bf3764b8b70afebab980b3316904f5602a62 100755 (executable)
--- a/t/bestlink.t
+++ b/t/bestlink.t
@@ -3,23 +3,23 @@ use warnings;
 use strict;
 use Test::More tests => 9;
 
 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=();
 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;
        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");
 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");