ccb33d817827e91e17c6991e308bf3142838ccda
[ikiwiki.git] / t / renamepage.t
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use Test::More tests => 15;
5 use Encode;
6
7 BEGIN { use_ok("IkiWiki"); }
8 BEGIN { use_ok("IkiWiki::Plugin::link"); }
9
10 %config=IkiWiki::defaultconfig();
11 $config{srcdir}=$config{destdir}="/dev/null";
12 IkiWiki::checkconfig();
13
14 # tests of the link plugin's renamepage function
15 sub try {
16         my ($page, $oldpage, $newpage, $content)=@_;
17
18         %IkiWiki::pagecase=();
19         %links=();
20         $IkiWiki::config{userdir}="foouserdir";
21         foreach my $page ($page, $oldpage, $newpage) {
22                 $IkiWiki::pagecase{lc $page}=$page;
23                 $links{$page}=[];
24         }
25
26         IkiWiki::Plugin::link::renamepage(
27                         page => $page, 
28                         oldpage => $oldpage,
29                         newpage => $newpage,
30                         content => $content,
31         );
32 }
33 is(try("z", "foo" => "bar", "[[xxx]]"), "[[xxx]]"); # unrelated link
34 is(try("z", "foo" => "bar", "[[bar]]"), "[[bar]]"); # link already to new page
35 is(try("z", "foo" => "bar", "[[foo]]"), "[[bar]]"); # basic conversion to new page name
36 is(try("z", "foo" => "bar", "[[/foo]]"), "[[/bar]]"); # absolute link
37 is(try("z", "foo" => "bar", "[[Foo]]"), "[[Bar]]"); # preserve case
38 is(try("z", "x/foo" => "x/bar", "[[x/Foo]]"), "[[x/Bar]]"); # preserve case of subpage
39 is(try("z", "foo" => "bar", "[[/Foo]]"), "[[/Bar]]"); # preserve case w/absolute
40 is(try("z", "foo" => "bar", "[[foo]] [[xxx]]"), "[[bar]] [[xxx]]"); # 2 links, 1 converted
41 is(try("z", "foo" => "bar", "[[xxx|foo]]"), "[[xxx|bar]]"); # conversion w/text
42 is(try("z", "foo" => "bar", "[[foo#anchor]]"), "[[bar#anchor]]"); # with anchor
43 is(try("z", "foo" => "bar", "[[xxx|foo#anchor]]"), "[[xxx|bar#anchor]]"); # with anchor
44 is(try("z", "foo" => "bar", "[[!moo ]]"), "[[!moo ]]"); # preprocessor directive unchanged
45 is(try("bugs", "bugs/foo" => "wishlist/bar", "[[foo]]"), "[[wishlist/bar]]"); # subpage link