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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#!/usr/bin/perl -w
# vim: filetype=perl
# Tests basic template features.
use strict;
use lib qw(./mylib);
use Test::More tests => 18;
BEGIN { use_ok("Filter::Template") };
# Define some inline templates.
template numeric_max (<one>, <two>) {
(((<one>) > (<two>)) ? (<one>) : (<two>))
}
template numeric_min (<one>, <two>) {
(((<one>) < (<two>)) ? (<one>) : (<two>))
}
template lexical_max (<one>, <two>) {
(((<one>) gt (<two>)) ? (<one>) : (<two>))
}
template lexical_min (<one>, <two>) {
(((<one>) lt (<two>)) ? (<one>) : (<two>))
}
# Define some constants.
const LEX_ONE 'one'
const LEX_TWO 'two'
enum NUM_ZERO NUM_ONE NUM_TWO
enum 10 NUM_TEN
enum + NUM_ELEVEN
# Test the enumerations and constants first.
ok(NUM_ZERO == 0, "NUM\_ZERO == 0");
ok(NUM_ONE == 1, "NUM\_ONE == 1");
ok(NUM_TWO == 2, "NUM\_TWO == 2");
ok(NUM_TEN == 10, "NUM\_TEN == 10");
ok(NUM_ELEVEN == 11, "NUM\_ELEVEN == 11");
ok(LEX_ONE eq 'one', "LEX\_ONE eq one");
ok(LEX_TWO eq 'two', "LEX\_TWO eq two");
# Test the templates.
ok( {% numeric_max NUM_ONE, NUM_TWO %} == 2, "numeric_max" );
ok( {% numeric_min NUM_TEN, NUM_ELEVEN %} == 10, "numeric_min" );
ok( {% lexical_max LEX_ONE, LEX_TWO %} eq 'two', "lexical_max" );
ok( {% lexical_min LEX_ONE, LEX_TWO %} eq 'one', "lexical_min" );
# Test conditional code.
my $test = "conditional unless";
unless (1) { # include
fail($test);
} else { # include
pass($test);
} # include
$test = "conditional if/elsif";
if (0) { # include
fail($test);
} elsif (1) { # include
pass($test);
} else { # include
fail($test);
} # include
if (0) { # include
fail("outer if, before unless");
unless (1) { # include
fail("inner unless");
} else { # include
fail("inner unless");
} # include
fail("outer if, after unless");
} else { # include
pass("outer if, before unless");
unless (1) { # include
fail("inner unless");
} else { # include
pass("inner unless");
} # include
pass("outer if, after unless");
} # include
pass("end of tests");
exit;
|
