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