blob: 0490a8018b648dfa781bb6223d122b99de3b4ff8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
BEGIN { use_ok 'TUWF::XML', qw/:html xml_string/ };
is xml_string(pretty => 1, sub {
body t => '</a&>', sub {
br;
p;
b '<html &text>';
end;
};
}), '
<body t="</a&>">
<br />
<p>
<b><html &text></b>
</p>
</body>';
|