t/xml.t


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="&lt;/a&amp;>">
 <br />
 <p>
  <b>&lt;html &amp;text></b>
 </p>
</body>';