[Jifty-commit] r2365 - in Template-Declare: t

[jifty-commit at lists.jifty.org]

Author: jesse
Date: Sun Dec 10 21:15:46 2006
New Revision: 2365

Added:
   Template-Declare/t/private.t
Modified:
   Template-Declare/   (props changed)

Log:
 r46081 at pinglin:  jesse | 2006-12-11 02:14:42 +0000
 * _tests_ for private templates.
 


Added: Template-Declare/t/private.t
==============================================================================
--- (empty file)
+++ Template-Declare/t/private.t	Sun Dec 10 21:15:46 2006
@@ -0,0 +1,64 @@
+use warnings;
+use strict;
+
+package Wifty::UI;
+use base qw/Template::Declare/;
+use Template::Declare::Tags;
+
+template simple => sub {
+
+    html {
+        head {};
+        body { show 'private-content'; };
+        }
+
+};
+
+private template 'private-content' => sub {
+    with( id => 'body' ), div {
+        outs('This is my content');
+    };
+
+};
+
+package Template::Declare::Tags;
+
+use Test::More qw/no_plan/;
+use HTML::Lint;
+
+our $self;
+local $self = {};
+bless $self, 'Wifty::UI';
+{
+    local $Template::Declare::Tags::BUFFER;
+    my $simple = ( show('simple') );
+   like( $simple,  qr'This is my content' );
+    ok_lint($simple);
+}
+{
+    local $Template::Declare::Tags::BUFFER;
+    my $simple = ( show('does_not_exist') );
+    unlike( $simple , qr'This is my content' );
+    ok_lint($simple);
+}
+{
+    local $Template::Declare::Tags::BUFFER;
+    my $simple = ( show('private-content') );
+    unlike( $simple , qr'This is my content', "Can't call private templates" );
+    ok_lint($simple);
+}
+
+sub ok_lint {
+    my $html = shift;
+
+    my $lint = HTML::Lint->new;
+
+    $lint->parse($html);
+    is( $lint->errors, 0, "Lint checked clean" );
+    foreach my $error ( $lint->errors ) {
+        diag( $error->as_string );
+    }
+
+}
+
+1;