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

update

master
joey 2006-08-13 02:08:42 +00:00
parent 4b36dee35a
commit fcf3894e80
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
t/bestlink.t
View File

@ -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");

2
t/linkify.t
View File

@ -13,8 +13,10 @@ sub linkify ($$$$) {
# This is what linkify and htmllink need set right now to work.
# This could change, if so, update it..
%IkiWiki::pagecase=();
%IkiWiki::links=();
foreach my $page (@existing_pages) {
$IkiWiki::pagecase{lc $page}=$page;
$IkiWiki::links{$page}=[];
$IkiWiki::renderedfiles{"$page.mdwn"}=$page;
}
%IkiWiki::config=IkiWiki::defaultconfig();