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
|
package Mason::t::CompCalls;
$Mason::t::CompCalls::VERSION = '2.24';
use Test::Class::Most parent => 'Mason::Test::Class';
sub test_ampersand : Tests {
my $self = shift;
$self->add_comp(
path => '/support/amper_test.mi',
src => <<'EOF',
amper_test.<p>
% if (%{$self->args}) {
Arguments:<p>
% foreach my $key (sort keys %{$self->args}) {
<b><% $key %></b>: <% $self->args->{$key} %><br>
% }
% }
EOF
);
$self->test_comp(
path => '/support/amper_call.mc',
src => <<'EOF',
<&/support/amper_test.mi&>
<& amper_test.mi &>
<& amper_test.mi, &>
<& /support/amper_test.mi
&>
<&
amper_test.mi &>
<&
/support/amper_test.mi
&>
EOF
expect => <<'EOF',
amper_test.<p>
amper_test.<p>
amper_test.<p>
amper_test.<p>
amper_test.<p>
amper_test.<p>
EOF
);
$self->test_comp(
src => <<'EOF',
<& /support/amper_test.mi, message=>'Hello World!' &>
<& support/amper_test.mi, message=>'Hello World!',
to=>'Joe' &>
<& "support/amper_test.mi" &>
% my $dir = "support";
% my %args = (a=>17, b=>32);
<& $dir . "/amper_test.mi", %args &>
EOF
expect => <<'EOF',
amper_test.<p>
Arguments:<p>
<b>message</b>: Hello World!<br>
amper_test.<p>
Arguments:<p>
<b>message</b>: Hello World!<br>
<b>to</b>: Joe<br>
amper_test.<p>
amper_test.<p>
Arguments:<p>
<b>a</b>: 17<br>
<b>b</b>: 32<br>
EOF
);
}
1;
|
