10 BEGIN { plan tests => 4 };
12 #use Pod::Simple::Debug (5);
16 use Pod::Simple::DumpAsXML;
17 use Pod::Simple::XMLOutStream;
18 print "# Pod::Simple version $Pod::Simple::VERSION\n";
21 my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{
27 Bippitty Boppity Boo -- Yormp
34 if(grep m/Unknown directive/i, @output_lines ) {
36 print "# I saw an Unknown directive warning here! :\n",
37 map("#==> $_\n", @output_lines), "#\n#\n";
44 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
45 print "# Now a control group, to make sure that =fishbladder DOES\n",
46 "# cause an 'unknown directive' error...\n";
49 my @output_lines = split m/[\cm\cj]+/, Pod::Simple::XMLOutStream->_out( q{
55 Fet's "When you were reading"
62 if(grep m/Unknown directive/i, @output_lines ) {
66 print "# But I didn't see an Unknows directive warning here! :\n",
67 map("#==> $_\n", @output_lines), "#\n#\n";
74 print "#\n# And one for the road...\n";