Lines Matching full:pod
5 #use Pod::Simple::Debug (6);
7 require Pod::Simple::BlackBox;
10 require Pod::Simple; ok 1;
12 Pod::Simple->VERSION(.90); ok 1;
14 #print "# Pod::Simple version $Pod::Simple::VERSION\n";
16 require Pod::Simple::DumpAsXML; ok 1;
18 require Pod::Simple::XMLOutStream; ok 1;
36 &is( e "=pod\n\nFoo\n", "=pod\n\nFoo\n" );
37 &is( e "=pod\n\n\n\nFoo\n\n\n", "=pod\n\n\n\nFoo\n\n\n" );
38 &is( e "=pod\n\n\n\nFoo\n\n\n", "=pod\n\nFoo\n" );
41 &is( e "\n\n=pod\n\nFoo\n", "\n\n=pod\n\nFoo\n" );
42 &is( e "=pod\n\n\n\nFoo\n\n\n", "=pod\n\n\n\nFoo\n\n\n" );
43 &is( e "=pod\n\n\n\nFoo\n\n\n", "\n\n=pod\n\nFoo\n" );
58 is( Pod::Simple::XMLOutStream->_out("\n\n\nprint \$^T;\n\n\n"),
62 is( Pod::Simple::XMLOutStream->_out("\n\n"),
66 is( Pod::Simple::XMLOutStream->_out("\n"),
70 is( Pod::Simple::XMLOutStream->_out(""),
75 ok( Pod::Simple::XMLOutStream->_out('', '<Document></Document>' ) );
77 is( Pod::Simple::XMLOutStream->_out("=pod\n\nFoo\n"),
81 is( Pod::Simple::XMLOutStream->_out("=head1 Chacha\n\nFoo\n"),
85 # Make sure an obviously invalid Pod tag is invalid.
86 is( Pod::Simple::XMLOutStream->_out("=F\0blah\n\nwhatever\n"),