]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - t/bestlink.t
* Add a run_hooks function for the common task of running all hooks of a
[git.ikiwiki.info.git] / t / bestlink.t
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use Test::More tests => 5;
6 sub test ($$$) {
7         my $page=shift;
8         my $link=shift;
9         my @existing_pages=@{shift()};
10         
11         %IkiWiki::links=();
12         foreach my $page (@existing_pages) {
13                 $IkiWiki::links{$page}=[];
14         }
16         return IkiWiki::bestlink($page, $link);
17 }
19 BEGIN { use_ok("IkiWiki"); }
21 is(test("bar", "foo", ["bar"]), "", "broken link");
22 is(test("bar", "foo", ["bar", "foo"]), "foo", "simple link");
23 is(test("bar", "foo", ["bar", "foo", "bar/foo"]), "bar/foo", "simple subpage link");
24 is(test("bar", "foo/subpage", ["bar", "foo", "bar/subpage", "foo/subpage"]), "foo/subpage", "cross subpage link");