File: test_wrapped.t

package info (click to toggle)
libxml-twig-perl 1%3A3.52-3
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 4,952 kB
  • sloc: perl: 21,221; xml: 423; makefile: 9
file content (107 lines) | stat: -rwxr-xr-x 3,190 bytes parent folder | download | duplicates (7)
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
#!/usr/bin/perl -w
use strict;


use strict;
use Carp;
use File::Spec;
use lib File::Spec->catdir(File::Spec->curdir,"t");
use tools;

$|=1;
my $DEBUG=0;

use XML::Twig;


my $TMAX=13;
print "1..$TMAX\n";

unless( XML::Twig::_use( 'Text::Wrap')) { print "1..1\nok 1\n"; warn "skipping: Text::Wrap not available\n"; exit; }

while( my $doc= get_doc())
  { my $result= XML::Twig->nparse( pretty_print => 'wrapped', $doc)->sprint;
    my $expected= get_doc();
    foreach ($result, $expected) { s{ }{.}g; }
    is( $result, $expected, '');
  }

XML::Twig::Elt->set_wrap(0);
is( XML::Twig::Elt->set_wrap(1), 0, "set_wrap - 1");
is( XML::Twig::Elt->set_wrap(1), 1, "set_wrap - 2");
is( XML::Twig::Elt->set_wrap(0), 1, "set_wrap - 3");
is( XML::Twig::Elt->set_wrap(0), 0, "set_wrap - 4");

is( XML::Twig::Elt::set_wrap(1), 0, "set_wrap - 5");
is( XML::Twig::Elt::set_wrap(1), 1, "set_wrap - 6");
is( XML::Twig::Elt::set_wrap(0), 1, "set_wrap - 7");
is( XML::Twig::Elt::set_wrap(0), 0, "set_wrap - 8");

sub get_doc
  { local $/="\n\n";
    my $doc= <DATA>;
    if( $doc)
      { $doc=~ s{\n\n}{\n};
        $doc=~ s/\{([^}]*)\}/$1/eeg;
      }
    return $doc;
  }


__DATA__
<doc><elt>{"foo" x 40}</elt></doc>

<doc>
  <elt>foofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoo
    foofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoo</elt>
</doc>

<doc><elt>{"foo" x 80}</elt></doc>

<doc>
  <elt>foofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoo
    foofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofo
    ofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoof
    oofoofoofoofoofoofoofoofoofoofoo</elt>
</doc>

<doc><section><elt>{"foo" x 40}</elt></section></doc>

<doc>
  <section>
    <elt>foofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoof
      oofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoo</elt>
  </section>
</doc>

<doc>
  <elt att="foo">{"foo " x 40}</elt>
  <elt att="bar">{"bar " x 40}</elt>
</doc>

<doc>
  <elt att="foo">foo foo foo foo foo foo foo foo foo foo foo foo foo foo
    foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo
    foo foo foo foo foo foo foo foo </elt>
  <elt att="bar">bar bar bar bar bar bar bar bar bar bar bar bar bar bar
    bar bar bar bar bar bar bar bar bar bar bar bar bar bar bar bar bar bar
    bar bar bar bar bar bar bar bar </elt>
</doc>

<doc>
  <elt att="foo">{"foo " x 40}{ "aaa" x 60}{ "foo "x20 }</elt>
  <elt att="bar">{"bar " x 40}</elt>
</doc>

<doc>
  <elt att="foo">foo foo foo foo foo foo foo foo foo foo foo foo foo foo
    foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo
    foo foo foo foo foo foo foo foo
    aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaafoo foo foo foo foo foo foo foo
    foo foo foo foo foo foo foo foo foo foo foo foo </elt>
  <elt att="bar">bar bar bar bar bar bar bar bar bar bar bar bar bar bar
    bar bar bar bar bar bar bar bar bar bar bar bar bar bar bar bar bar bar
    bar bar bar bar bar bar bar bar </elt>
</doc>