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
|
#!/usr/bin/perl -w
use strict;
use HTML::Mason;
use Test;
plan tests => 4;
ok 1; # Loaded
# We use the Interp class as a front-end to the compiler, but we're
# really testing the compiler here. We could change this to eliminate
# the Interp stuff, probably.
my $interp = HTML::Mason::Interp->new;
ok $interp;
# Make sure the compiler can recover properly after a syntax error
eval {$interp->make_component( comp_source => <<'EOF' )};
<&| syntax_error, in => "this" &>
component
</&|>
EOF
ok $@, qr{ending tag};
eval {$interp->make_component( comp_source => <<'EOF' )};
<&| syntax_error, in => "this" &>
component
</&>
EOF
ok $@, '';
|
