urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix test suite after bestlink change

master
Joey Hess 2009-11-30 18:05:47 -05:00
parent 58ce89355f
commit 01c0f533de
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
t/bestlink.t
View File

@ -11,11 +11,11 @@ sub test ($$$) {
my @existing_pages=@{shift()}; my @existing_pages=@{shift()};
%IkiWiki::pagecase=(); %IkiWiki::pagecase=();
%links=(); %pagesources=();
$IkiWiki::config{userdir}="foouserdir"; $IkiWiki::config{userdir}="foouserdir";
foreach my $page (@existing_pages) { foreach my $page (@existing_pages) {
$IkiWiki::pagecase{lc $page}=$page; $IkiWiki::pagecase{lc $page}=$page;
$links{$page}=[]; $pagesources{$page}="$page.mdwn";
} }
return bestlink($page, $link); return bestlink($page, $link);

4
t/pagespec_match.t
View File

@ -49,9 +49,13 @@ $links{"bugs/foo"}=[qw{bugs/done}];
$links{"bugs/done"}=[]; $links{"bugs/done"}=[];
$links{"bugs/bar"}=[qw{done}]; $links{"bugs/bar"}=[qw{done}];
$links{"done"}=[]; $links{"done"}=[];
$links{"done"}=[];
$links{"examples/softwaresite/bugs/fails_to_frobnicate"}=[qw{done}]; $links{"examples/softwaresite/bugs/fails_to_frobnicate"}=[qw{done}];
$links{"examples/softwaresite/bugs/done"}=[]; $links{"examples/softwaresite/bugs/done"}=[];
$links{"ook"}=[qw{/blog/tags/foo}]; $links{"ook"}=[qw{/blog/tags/foo}];
foreach my $p (keys %links) {
$pagesources{$p}="$p.mdwn";
}
ok(pagespec_match("foo", "link(bar)"), "link"); ok(pagespec_match("foo", "link(bar)"), "link");
ok(pagespec_match("foo", "link(ba?)"), "glob link"); ok(pagespec_match("foo", "link(ba?)"), "glob link");