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
|
#!/usr/bin/perl -w
use strict;
use XML::Twig;
$/="\n\n";
print "1..3\n";
my $twig=XML::Twig->new( keep_spaces_in => [ 'e']);
test( $twig, 1);
$twig=XML::Twig->new( keep_spaces_in => [ 'e', 'sub1']);
test( $twig, 2);
$twig=XML::Twig->new( keep_spaces => 1);
test( $twig, 3);
sub test
{ my( $twig, $test_nb)= @_;
my $doc= <DATA>; chomp $doc;
my $expected_res= <DATA>; chomp $expected_res;
$twig->parse( $doc);
my $res= $twig->sprint;
$res=~ s/\n+$//;
if( $res eq $expected_res)
{ print "ok $test_nb\n"; }
else
{ print "not ok $test_nb\n";
warn " expected: \n$expected_res\n result: \n$res\n";
}
}
exit 0;
__DATA__
<!DOCTYPE e SYSTEM "dummy.dtd">
<e> &c;b</e>
<!DOCTYPE e SYSTEM "dummy.dtd">
<e> &c;b</e>
<!DOCTYPE e SYSTEM "dummy.dtd">
<e><sub1> &c;b</sub1>
<sub1>
&c;
</sub1>
</e>
<!DOCTYPE e SYSTEM "dummy.dtd">
<e><sub1> &c;b</sub1>
<sub1>
&c;
</sub1>
</e>
<!DOCTYPE e SYSTEM "dummy.dtd">
<e><sub1> &c;b</sub1>
<sub1>
&c;
</sub1>
</e>
<!DOCTYPE e SYSTEM "dummy.dtd">
<e><sub1> &c;b</sub1>
<sub1>
&c;
</sub1>
</e>
|