[Jifty-commit] r3856 - in Template-Declare: t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Sun Aug 12 00:03:32 EDT 2007
Author: sartak
Date: Sun Aug 12 00:03:31 2007
New Revision: 3856
Added:
Template-Declare/t/postprocessor.t
Modified:
Template-Declare/ (props changed)
Log:
r37275 at gorgoroth: sartak | 2007-08-12 00:00:20 -0400
Add tests for postprocessing
Added: Template-Declare/t/postprocessor.t
==============================================================================
--- (empty file)
+++ Template-Declare/t/postprocessor.t Sun Aug 12 00:03:31 2007
@@ -0,0 +1,43 @@
+use warnings;
+use strict;
+
+package Marked::Down;
+use base qw/Template::Declare/;
+use Template::Declare::Tags;
+
+template simple => sub {
+ html
+ {
+ head { }
+ body
+ {
+ h1 { "*content* negative *zero*" };
+ p { outs "should *also* uppercase" };
+ p { outs_raw "should *never* uppercase" };
+ }
+ }
+};
+
+package main;
+use Template::Declare;
+use Test::More tests => 6;
+
+Template::Declare->init(roots => ['Marked::Down']);
+my $simple = Template::Declare->show('simple');
+like($simple, qr/\*content\* negative \*zero\*/, "no postprocessing yet");
+like($simple, qr/should \*also\* uppercase/, "no postprocessing yet");
+like($simple, qr/should \*never\* uppercase/, "no postprocessing yet");
+
+Template::Declare->init(roots => ['Marked::Down'], postprocessor => \&postprocessor);
+$simple = Template::Declare->show('simple');
+like($simple, qr/(?<!\*)CONTENT negative ZERO(?!\*)/, "postprocessor transformed h1 { ... }");
+like($simple, qr/should ALSO uppercase/, "postprocessor transformed outs");
+like($simple, qr/should \*never\* uppercase/, "postprocessor did NOT transform outs_raw");
+
+sub postprocessor
+{
+ my $input = shift;
+ $input =~ s/\*(.*?)\*/\U$1\E/g;
+ return $input;
+}
+
More information about the Jifty-commit
mailing list