hack to support media:content

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

diff --git a/t/trail.t b/t/trail.t
index cac64c36628c3bd75147e0e1ccb8d9aa74a5d3fc..125749f450178e6414d3bfef3f4ada893b4bcf94 100755 (executable)
--- a/t/trail.t
+++ b/t/trail.t
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 use warnings;
 use strict;
 #!/usr/bin/perl
 use warnings;
 use strict;

+use Cwd qw(getcwd);

 use Test::More;
 use IkiWiki;
 
 use Test::More;
 use IkiWiki;
 


@@ -35,10 +36,10 @@ if ($installed) {
 }
 else {
        ok(! system("make -s ikiwiki.out"));
 }
 else {
        ok(! system("make -s ikiwiki.out"));

-       @command = qw(perl -I. ./ikiwiki.out
+       @command = ("perl", "-I".getcwd, qw(./ikiwiki.out

                --underlaydir=underlays/basewiki
                --set underlaydirbase=underlays
                --underlaydir=underlays/basewiki
                --set underlaydirbase=underlays

-               --templatedir=templates);
+               --templatedir=templates));

 }
 
 push @command, qw(--set usedirs=0 --plugin trail --plugin inline
 }
 
 push @command, qw(--set usedirs=0 --plugin trail --plugin inline


@@ -101,6 +102,12 @@ write_old_file("sorting/end.mdwn", "end");
 write_old_file("sorting/new.mdwn", "new");
 write_old_file("sorting/old.mdwn", "old");
 write_old_file("sorting/ancient.mdwn", "ancient");
 write_old_file("sorting/new.mdwn", "new");
 write_old_file("sorting/old.mdwn", "old");
 write_old_file("sorting/ancient.mdwn", "ancient");

+write_old_file("unicode.mdwn", "[[!trailitems pagenames=\"unicode/\xAC unicode/\x{04D2} unicode/\x{2260} unicode/\x{0001F4A9}\"]]");
+write_old_file("unicode2.mdwn", "[[!trailitems pagenames=\"unicode/__172__ unicode/\x{04D2} unicode/__8800__ unicode/__128169__\"]]");
+write_old_file("unicode/__172__.mdwn", "trail item '\xAC'");
+write_old_file("unicode/\x{04D2}.mdwn", "trail item '\x{04D2}'");
+write_old_file("unicode/__8800__.mdwn", "trail item '\x{2260}'");
+write_old_file("unicode/__128169__.mdwn", "trail item '\x{0001F4A9}'");

 # These three need to be in the appropriate age order
 ok(utime(333333333, 333333333, "t/tmp/in/sorting/new.mdwn"));
 ok(utime(222222222, 222222222, "t/tmp/in/sorting/old.mdwn"));
 # These three need to be in the appropriate age order
 ok(utime(333333333, 333333333, "t/tmp/in/sorting/new.mdwn"));
 ok(utime(222222222, 222222222, "t/tmp/in/sorting/old.mdwn"));


@@ -179,6 +186,16 @@ check_no_trail("snake.html", "wind_in_the_willows");
 
 check_trail("self_referential.html", "n= p=", "self_referential");
 
 
 check_trail("self_referential.html", "n= p=", "self_referential");
 

+check_trail("unicode/__172__.html", "n=unicode/\x{04D2} p=", "unicode");
+check_trail("unicode/\x{04D2}.html", "n=unicode/__8800__ p=unicode/__172__", "unicode");
+check_trail("unicode/__8800__.html", "n=unicode/__128169__ p=unicode/\x{04D2}", "unicode");
+check_trail("unicode/__128169__.html", "n= p=unicode/__8800__", "unicode");
+
+check_trail("unicode/__172__.html", "n=unicode/\x{04D2} p=", "unicode2");
+check_trail("unicode/\x{04D2}.html", "n=unicode/__8800__ p=unicode/__172__", "unicode2");
+check_trail("unicode/__8800__.html", "n=unicode/__128169__ p=unicode/\x{04D2}", "unicode2");
+check_trail("unicode/__128169__.html", "n= p=unicode/__8800__", "unicode2");
+

 check_trail("add/b.html", "n=add/d p=", "add");
 check_trail("add/d.html", "n= p=add/b", "add");
 ok(! -f "t/tmp/out/add/a.html");
 check_trail("add/b.html", "n=add/d p=", "add");
 check_trail("add/d.html", "n= p=add/b", "add");
 ok(! -f "t/tmp/out/add/a.html");


@@ -302,6 +319,4 @@ ok($blob =~ /\^ the new title \^/m);
 check_no_trail("untrail/a.html");
 check_no_trail("untrail/b.html");
 
 check_no_trail("untrail/a.html");
 check_no_trail("untrail/b.html");
 

-ok(! system("rm -rf t/tmp"));
-

 done_testing();
 done_testing();