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
|
use strict;
use warnings;
use Test::More tests => 10;
use XML::Writer;
my $normal = XML::Writer->new( OUTPUT => \my $normal_output );
my $contained = XML::Writer->new( OUTPUT => 'self' );
$normal->dataElement( normal => 'good old classic way' );
$contained->dataElement( selfcontained => 'new and shiny' );
is $normal_output => '<normal>good old classic way</normal>',
'classic OUTPUT behaves the same way';
my $contained_result = "<selfcontained>new and shiny</selfcontained>\n";
is $contained->end => $contained_result, "end()";
is $contained->to_string => $contained_result, 'to_string() on self-contained';
eval { $normal->to_string };
like $@ => qr/'to_string' can only be used with self-contained output/,
"to_string on normal OUTPUT";
is "$contained" => $contained_result,
'auto-stringification on self-contained';
like "$normal" => qr/^XML::Writer=HASH/,
'auto-stringification on normal';
is ref($normal->_overload_string) => '',
'auto-stringification returns a string directly';
$contained = XML::Writer->new( OUTPUT => 'self' );
$contained->emptyTag('empty');
$contained->end;
is "$contained" => "<empty />\n", 'Calling end in a void context.';
SKIP: {
eval { require IO::Scalar; };
skip "IO::Scalar is not installed", 2 if $@;
my $text = '';
my $writer_ioscalar = XML::Writer->new( OUTPUT => IO::Scalar->new(\$text) );
my $ioscalar_out = "<ioscalar>the IO::Scalar way</ioscalar>\n";
$writer_ioscalar->dataElement( ioscalar => 'the IO::Scalar way' );
$writer_ioscalar->end;
is $text => $ioscalar_out,
'IO::Scalar OUTPUT behaves the same way';
eval { $writer_ioscalar->to_string };
like $@ => qr/'to_string' can only be used with self-contained output/,
"to_string on IO::Scalar OUTPUT";
}
|
