Pod-WSDL-0.063/t/03Writer01basic.t

10 my $wr = new Pod::WSDL::Writer(pretty => 1, withDocumentation => 1);
12 ok($wr->{_pretty} == 1, 'Constructor: Read argument pretty correctly.');
13 ok($wr->{_withDocumentation} == 1, 'Constructor: Read argument withDocumentation correctly.');
14 ok($wr->{_indent} == 1, 'Constructor: Initialized indentation correctly.');
15 ok($wr->{_lastTag} eq '', 'Constructor: Initialized last tag correctly.');
16 ok((ref $wr->{_faultMessageWritten} eq 'HASH'), 'Constructor: Initialized "faultMessageWritten" cor…
17 ok($wr->output eq '<?xml version="1.0" encoding="UTF-8"?>' . "\n", 'Constructor: Initialized XML::W…
21 $wr->startTag('bla');
22 $wr->wrNewLine();
23 $wr->endTag('bla');
29 ok($wr->output . "\n" eq $expectedOutput, 'wrNewLine works.');
33 $wr = new Pod::WSDL::Writer();
34 $wr->wrElem('empty', 'foo', bar => 1, bloerch => 'ggg');
39 ok($wr->output . "\n" eq $expectedOutput, 'Writing empty elements works.');
41 $wr = new Pod::WSDL::Writer();
42 $wr->wrElem('start', 'foo', bar => 1, bloerch => 'ggg');
43 $wr->wrElem('end', 'foo', bar => 1, bloerch => 'ggg');
48 ok($wr->output . "\n" eq $expectedOutput, 'Writing non empty elements works.');
52 $wr = new Pod::WSDL::Writer(withDocumentation => 1);
53 $wr->wrElem('start', 'foo', bar => 1, bloerch => 'ggg');
54 $wr->wrDoc('This is my documentation.');
55 $wr->wrElem('end', 'foo', bar => 1, bloerch => 'ggg');
60 ok($wr->output . "\n" eq $expectedOutput, 'wrDoc works.');
62 $wr = new Pod::WSDL::Writer(withDocumentation => 0);
63 $wr->wrElem('start', 'foo', bar => 1, bloerch => 'ggg');
64 $wr->wrDoc('This is my documentation.');
65 $wr->wrElem('end', 'foo', bar => 1, bloerch => 'ggg');
70 ok($wr->output . "\n" eq $expectedOutput, 'wrDoc writes no documentation when object not initialize…
74 $wr = new Pod::WSDL::Writer(withDocumentation => 1);
75 $wr->withDocumentation(0);
76 $wr->wrElem('start', 'foo', bar => 1, bloerch => 'ggg');
77 $wr->wrDoc('This is my documentation.');
78 $wr->wrElem('end', 'foo', bar => 1, bloerch => 'ggg');
83 ok($wr->output . "\n" eq $expectedOutput, 'wrDoc works.');
85 $wr = new Pod::WSDL::Writer(withDocumentation => 0);
86 $wr->withDocumentation(1);
87 $wr->wrElem('start', 'foo', bar => 1, bloerch => 'ggg');
88 $wr->wrDoc('This is my documentation.');
89 $wr->wrElem('end', 'foo', bar => 1, bloerch => 'ggg');
94 ok($wr->output . "\n" eq $expectedOutput, 'wrDoc writes no documentation when object not initialize…
98 $wr->registerWrittenFaultMessage('bar');
99 ok($wr->faultMessageWritten('bar'), 'Registering written fault messages seems to work.');
103 eval {$wr->bla;};