8 #use Pod::Simple::Debug (2);
12 BEGIN { plan tests => 11 };
17 use Pod::Simple::DumpAsXML;
18 use Pod::Simple::XMLOutStream;
19 print "# Pod::Simple version $Pod::Simple::VERSION\n";
20 sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
22 ok( Pod::Simple::XMLOutStream->_out("=head1 =head1"),
23 '<Document><head1>=head1</head1></Document>'
26 ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1"),
27 '<Document><head1>=head1</head1></Document>'
30 ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n"),
31 '<Document><head1>=head1</head1></Document>'
34 ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n\n"),
35 '<Document><head1>=head1</head1></Document>'
38 &ok(e "\n=head1 =head1\n\n" , "\n=head1 =head1\n\n");
40 &ok(e "\n=head1\n=head1\n\n", "\n=head1 =head1\n\n");
42 &ok(e "\n=pod\n\nCha cha cha\n\n" , "\n=pod\n\nCha cha cha\n\n");
43 &ok(e "\n=pod\n\nCha\tcha cha\n\n" , "\n=pod\n\nCha cha cha\n\n");
44 &ok(e "\n=pod\n\nCha\ncha cha\n\n" , "\n=pod\n\nCha cha cha\n\n");
46 print "# Wrapping up... one for the road...\n";
48 print "# --- Done with ", __FILE__, " --- \n";