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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
#============================================================= -*-perl-*-
#
# t/html.t
#
# Tests the 'HTML' plugin.
#
# Written by Andy Wardley <abw@kfs.org>
#
# Copyright (C) 2001 Andy Wardley. All Rights Reserved.
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# $Id$
#
#========================================================================
use strict;
use warnings;
use lib qw( ./lib ../lib );
use Template;
use Template::Test;
use Template::Plugin::HTML;
my $DEBUG = grep(/-d/, @ARGV);
$Template::Test::DEBUG = $DEBUG;
$Template::Test::PRESERVE = $DEBUG;
#------------------------------------------------------------------------
# behaviour of html filter depends on these being available
#------------------------------------------------------------------------
use constant HAS_HTML_Entities => eval {
require HTML::Entities;
1;
};
use constant HAS_Apache_Util => eval {
require Apache::Util;
Apache::Utils::escape_html('');
1;
};
#print "Has HTML::Entities: ", HAS_HTML_Entities ? 'yes' : 'no', "\n";
#print "Has Apache::Util: ", HAS_Apache_Util ? 'yes' : 'no', "\n";
my $h = Template::Plugin::HTML->new('foo');
ok( $h, 'created HTML plugin' );
my $cfg = { };
my $vars = {
entities => HAS_HTML_Entities || HAS_Apache_Util || 0,
};
test_expect(\*DATA, $cfg, $vars);
__DATA__
-- test --
-- name html plugin --
[% USE HTML -%]
OK
-- expect --
OK
-- test --
-- name html filter --
[% FILTER html -%]
< & >
[%- END %]
-- expect --
< &amp; >
-- test --
-- name html entity --
[% TRY;
text = "Lon Brocard" | html_entity;
IF text == "Léon Brocard";
'passed';
ELSIF text == "Léon Brocard";
'passed';
ELSE;
"failed: $text";
END;
CATCH;
error;
END;
%]
-- expect --
-- process --
[% IF entities -%]
passed
[%- ELSE -%]
html_entity error - cannot locate Apache::Util or HTML::Entities
[%- END %]
-- test --
[% USE html; html.url('my file.html') -%]
-- expect --
my%20file.html
-- test --
-- name escape --
[% USE HTML -%]
[% HTML.escape("if (a < b && c > d) ...") %]
-- expect --
if (a < b && c > d) ...
-- test --
-- name sorted --
[% USE HTML(sorted=1) -%]
[% HTML.element(table => { border => 1, cellpadding => 2 }) %]
-- expect --
<table border="1" cellpadding="2">
-- test --
-- name attributes --
[% USE HTML -%]
[% HTML.attributes(border => 1, cellpadding => 2).split.sort.join %]
-- expect --
border="1" cellpadding="2"
|
