1use Test::More; 2use strict; 3use Pod::POM; 4use Pod::POM::View::HTML::Filter; 5 6plan skip_all => "Don't know perl" 7 unless Pod::POM::View::HTML::Filter->know( 'perl' ); 8 9$Pod::POM::DEFAULT_VIEW = Pod::POM::View::HTML::Filter->new; 10 11plan tests => 2; 12 13# a test for Perl::Tidy in conjuction with Get::Long::Configure 14# the bug was corrected in perltidy-20060614 15use Getopt::Long; 16Getopt::Long::Configure("bundling"); 17 18my $str; 19my $parser = Pod::POM->new(); 20my $pom = $parser->parse_text("=begin filter perl\n\n \$A++\n\n=end filter") 21 || diag $parser->error; 22eval { $str = "$pom" }; 23 24is( $str, <<'EOH', "Correct output" ); 25<html><body bgcolor="#ffffff"> 26<pre> <span class="i">$A</span>++</pre> 27</body></html> 28EOH 29 30is($@, '', "No error when Getopt::Long::Configure called"); 31 32