aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/color.t49
1 files changed, 49 insertions, 0 deletions
diff --git a/t/color.t b/t/color.t
new file mode 100755
index 000000000..c5c14f6aa
--- /dev/null
+++ b/t/color.t
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use Test::More;
+use Encode;
+
+BEGIN { use_ok("IkiWiki"); }
+BEGIN { use_ok("IkiWiki::Render"); }
+
+%config=IkiWiki::defaultconfig();
+$config{srcdir}=$config{destdir}="/dev/null";
+
+sub render {
+ my $content = shift;
+ $IkiWiki::pagesources{foo} = "foo.mdwn";
+ $IkiWiki::pagemtime{foo} = 42;
+ $IkiWiki::pagectime{foo} = 42;
+ $content = IkiWiki::filter("foo", "foo", $content);
+ $content = IkiWiki::preprocess("foo", "foo", $content);
+ $content = IkiWiki::linkify("foo", "foo", $content);
+ $content = IkiWiki::htmlize("foo", "foo", "mdwn", $content);
+ $content = IkiWiki::genpage("foo", $content);
+ return $content;
+}
+
+foreach my $scrub (0, 1) {
+ if ($scrub) {
+ $config{add_plugins}=[qw(color htmlscrubber)];
+ }
+ else {
+ $config{add_plugins}=[qw(color)];
+ }
+
+ IkiWiki::loadplugins();
+ IkiWiki::checkconfig();
+
+ like(render('[[!color foreground="fuchsia" background="lime" text="Alert"]]'),
+ qr{(?s)<span class="color" style="color: fuchsia; background-color: lime">Alert</span>});
+ like(render('[[!color foreground="#336699" text="Hello"]]'),
+ qr{(?s)<span class="color" style="color: \#336699">Hello</span>});
+ like(render('[[!color background="#123" text="[Over there](http://localhost/)"]]'),
+ qr{(?s)<span class="color" style="background-color: \#123"><a href="http://localhost/">Over there</a></span>});
+ like(render('[[!color background="censored()" text="Hi"]]'),
+ qr{(?s)<span class="color" style="">Hi</span>});
+ like(render('[[!color foreground="x; pwned: exploit" text="Hi"]]'),
+ qr{(?s)<span class="color" style="">Hi</span>});
+}
+
+done_testing();