-
Notifications
You must be signed in to change notification settings - Fork 4
/
subtemplates.t
81 lines (59 loc) · 1.31 KB
/
subtemplates.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
use warnings;
use strict;
package Wifty::UI;
use base qw/Template::Declare/;
use Template::Declare::Tags;
use Test::More tests => 9;
require "t/utils.pl";
template simple => sub {
html {
head { };
body { show 'my/content' }
}
};
template toplevel => sub {
html { head {};
body { show 'content' }
};
};
template 'my/content' => sub {
div { attr { id => 'body' };
p {'This is my content'}
}
};
template 'my/wrapper' => sub {
show './content';
};
template 'content' => sub {
p { 'TOPLEVEL CONTENT'};
};
Template::Declare->init(dispatch_to => ['Wifty::UI']);
{
Template::Declare->buffer->clear;
my $simple =(show('my/content'));
ok($simple =~ 'This is my content');
#diag ($simple);
ok_lint($simple);
}
{
Template::Declare->buffer->clear;
my $simple =(show('simple'));
ok($simple =~ 'This is my content');
#diag ($simple);
ok_lint($simple);
}
{
Template::Declare->buffer->clear;
my $simple = (show('toplevel'));
#diag $simple;
ok ($simple =~ /TOPLEVEL/, "CAlling /toplevel does call /content");
ok_lint($simple);
}
{
Template::Declare->buffer->clear;
my $simple = (show('my/wrapper'));
ok ($simple !~ /TOPLEVEL/, " Calling my/wrapper doesn't call /content" );
ok ($simple =~/my content/, "calling my/wrapper does call my/content");
ok_lint($simple);
}
1;