[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