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
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 24;
use_ok 'Text::MicroMason';
ok my $m = Text::MicroMason->new( -HTMLTemplate, template_root => 'samples', 'debug' => 0 );
######################################################################
# test a simple template
ok my $template = $m->new(filename => 'simple.tmpl');
ok $template->param( 'ADJECTIVE', 'very' );
ok my $output = $template->output();
unlike $output, qr/ADJECTIVE/;
is $template->param('ADJECTIVE'), 'very';
######################################################################
# test a simple loop template
ok $template = $m->new( filename => 'loop-simple.tmpl' );
ok $template->param('ADJECTIVE_LOOP', [ { ADJECTIVE => 'really' }, { ADJECTIVE => 'very' } ] );
ok $output = $template->output();
unlike $output, qr/ADJECTIVE_LOOP/;
like $output, qr/really.*very/s;
######################################################################
# test a loop template with context
ok $template = $m->new( filename => 'loop-context.tmpl', loop_context_vars => 1 );
ok $template->param('ADJECTIVE_LOOP', [ { ADJECTIVE => 'really' }, { ADJECTIVE => 'very' } ] );
ok $output = $template->output();
unlike $output, qr/ADJECTIVE_LOOP/;
like $output, qr/really.*very/s;
######################################################################
# test a simple if template
ok $template = $m->new( filename => 'if.tmpl' );
ok $output = $template->output();
unlike $output, qr/INSIDE/;
# test a simple if template
ok $template = $m->new( filename => 'if.tmpl' );
ok $template->param(BOOL => 1);
ok $output = $template->output();
like $output, qr/INSIDE/;
######################################################################
|
