-
Notifications
You must be signed in to change notification settings - Fork 2
/
tree.t
49 lines (36 loc) · 1.01 KB
/
tree.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
#============================================================= -*-perl-*-
#
# t/type/tree.t
#
# Test the Template::TT3::Type::Tree module.
#
# Written by Andy Wardley <abw@wardley.org>
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
#========================================================================
use Badger
lib => '../../lib';
use Template::TT3::Test
debug => 'Template::TT3::Type::Tree',
args => \@ARGV,
tests => 5;
use Template::TT3::Type::Tree qw(TREE Tree);
ok( 1, 'loaded tree' );
is( TREE, 'Template::TT3::Type::Tree', 'got TREE' );
my $tree = Tree( root => 'hello' );
ok( $tree, 'created Tree' );
use Template::TT3::Scanner;
my $tokens = Template::TT3::Scanner->new->scan("Hello [% name %]");
ok( $tokens, "got scanned tokens: $tokens" );
$tree = $tokens->tree;
ok( $tree, "got tree: $tree" );
__END__
# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4: