1N/A# Copyright 2001 by Russ Allbery <rra@stanford.edu> 1N/A# This program is free software; you may redistribute it and/or modify it 1N/A# under the same terms as Perl itself. 1N/A chdir 't' if -d 't'; 1N/A# Hard-code a few values to try to get reproducible results. 1N/A# Set default options to match those of pod2man and pod2text. 1N/A# Capture warnings for inspection. 1N/A# Run a single test, given some POD to parse and the warning messages that are 1N/A# expected. Any formatted output is ignored; only warning messages are 1N/A# checked. Writes the POD to a temporary file since that's the easiest way to 1N/A# interact with Pod::Parser. 1N/A [ "=head1 a E<0x2028> b\n" 1N/A [ "=head1 a Y<0x2028> b\n" 1N/A => "tmp.pod:1: Unknown formatting code: Y<0x2028>\n" ], 1N/A [ "=head1 TEST\n\n=command args\n" 1N/A => "tmp.pod:3: Unknown command paragraph: =command args\n" ], 1N/A [ "=head1 TEST\n\n Foo bar\n\n=back\n"