File: test_spaces.t

package info (click to toggle)
libxml-twig-perl 1%3A3.52-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 4,952 kB
  • sloc: perl: 21,221; xml: 423; makefile: 2
file content (72 lines) | stat: -rwxr-xr-x 1,140 bytes parent folder | download | duplicates (8)
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>