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

[jifty-commit at lists.jifty.org]

Author: jesse
Date: Mon Jan 15 20:59:25 2007
New Revision: 2501

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

Log:
 r20994 at hualien:  jesse | 2007-01-15 20:57:36 -0500
 * tests for aliasing


Added: Template-Declare/t/aliasing.t
==============================================================================
--- (empty file)
+++ Template-Declare/t/aliasing.t	Mon Jan 15 20:59:25 2007
@@ -0,0 +1,85 @@
+use warnings;
+use strict;
+
+package Wifty::UI::aliased_pkg;
+use base qw/Template::Declare/;
+use Template::Declare::Tags;
+
+template 'aliased' => sub {
+    my $self = shift;
+    div { outs( 'This is aliased from ' . $self ) };
+};
+
+package Wifty::UI::aliased_subclass_pkg;
+use base qw/Wifty::UI::aliased_pkg/;
+use Template::Declare::Tags;
+
+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 {
+    my $self = shift;
+    with( id => 'body' ), div {
+        outs( 'This is my content from' . $self );
+    };
+};
+
+
+alias Wifty::UI::aliased_pkg under '/aliased_pkg';
+alias Wifty::UI::aliased_subclass_pkg under '/aliased_subclass_pkg';
+
+package main;
+use Template::Declare::Tags;
+Template::Declare->init( roots => ['Wifty::UI'] );
+
+use Test::More tests => 11;
+require "t/utils.pl";
+
+ok( Wifty::UI::aliased_pkg->has_template('aliased') );
+ok( !  Wifty::UI->has_template('aliased') );
+ok( Wifty::UI::aliased_subclass_pkg->has_template('aliased') );
+
+ok( Template::Declare->has_template('aliased_pkg/aliased') );
+
+
+ok( Template::Declare->has_template('aliased_subclass_pkg/aliased'), "When you subclass and then alias, the superclass's aliass are there" );
+
+{
+    local $Template::Declare::Tags::BUFFER;
+    local $Template::Declare::Tags::self = 'Wifty::UI';
+    my $simple = ( show('aliased_pkg/aliased') );
+    like( $simple, qr'This is aliased' );
+    like( $simple, qr'Wifty::UI::aliased_pkg',
+        '$self is correct in template block' );
+    ok_lint($simple);
+}
+
+
+{
+    local $Template::Declare::Tags::BUFFER;
+    local $Template::Declare::Tags::self = 'Wifty::UI';
+    my $simple = ( show('aliased_subclass_pkg/aliased') );
+    like(
+        $simple,
+        qr'This is aliased',
+        "We got the aliased version in the subclass"
+    );
+    like(
+        $simple,
+        qr'Wifty::UI::aliased_subclass_pkg',
+        '$self is correct in template block'
+    );
+    ok_lint($simple);
+}
+
+1;