[perl5.git] / cpan / Pod-Usage / t / pod / pod2usage2.t

#!/usr/bin/perl -w

use Test::More;
use strict;

BEGIN {
  if ($^O eq 'MSWin32' || $^O eq 'VMS') {
    plan skip_all => "Not portable on Win32 or VMS\n";
  }
  else {
    plan tests => 34;
  }
  use_ok ("Pod::Usage");
}

sub getoutput
{
  my ($code) = @_;
  my $pid = open(TEST_IN, "-|");
  unless(defined $pid) {
    die "Cannot fork: $!";
  }
  if($pid) {
    # parent
    my @out = <TEST_IN>;
    close(TEST_IN);
    my $exit = $?>>8;
    s/^/#/ for @out;
    local $" = "";
    print "#EXIT=$exit OUTPUT=+++#@out#+++\n";
    return($exit, join("",@out));
  }
  # child
  open(STDERR, ">&STDOUT");
  Test::More->builder->no_ending(1);
  &$code;
  print "--NORMAL-RETURN--\n";
  exit 0;
}

sub compare
{
  my ($left,$right) = @_;
  $left  =~ s/^#\s+/#/gm;
  $right =~ s/^#\s+/#/gm;
  $left  =~ s/\s+/ /gm;
  $right =~ s/\s+/ /gm;
  $left eq $right;
}

SKIP: {
if('Pod::Usage'->isa('Pod::Text') && $Pod::Text::VERSION < 2.18) {
  skip("Formatting with Pod::Text $Pod::Text::VERSION not reliable", 33);
}

my ($exit, $text) = getoutput( sub { pod2usage() } );
is ($exit, 2,                 "Exit status pod2usage ()");
ok (compare ($text, <<'EOT'), "Output test pod2usage ()");
#Usage:
#    frobnicate [ -r | --recursive ] [ -f | --force ] file ...
#
EOT

($exit, $text) = getoutput( sub { pod2usage(
  -message => 'You naughty person, what did you say?',
  -verbose => 1 ) });
is ($exit, 1,                 "Exit status pod2usage (-message => '...', -verbose => 1)");
ok (compare ($text, <<'EOT'), "Output test pod2usage (-message => '...', -verbose => 1)") or diag("Got:\n$text\n");
#You naughty person, what did you say?
# Usage:
#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...
# 
# Options:
#     -r | --recursive
#         Run recursively.
# 
#     -f | --force
#         Just do it!
# 
#     -n number
#         Specify number of frobs, default is 42.
# 
EOT

($exit, $text) = getoutput( sub { pod2usage(
  -verbose => 2, -exit => 42 ) } );
is ($exit, 42,                "Exit status pod2usage (-verbose => 2, -exit => 42)");
ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -exit => 42)");
#NAME
#     frobnicate - do what I mean
#
# SYNOPSIS
#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...
#
# DESCRIPTION
#     frobnicate does foo and bar and what not.
#
# OPTIONS
#     -r | --recursive
#         Run recursively.
#
#     -f | --force
#         Just do it!
#
#     -n number
#         Specify number of frobs, default is 42.
#
EOT

($exit, $text) = getoutput( sub { pod2usage(0) } );
is ($exit, 0,                 "Exit status pod2usage (0)");
ok (compare ($text, <<'EOT'), "Output test pod2usage (0)");
#Usage:
#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...
#
# Options:
#     -r | --recursive
#         Run recursively.
#
#     -f | --force
#         Just do it!
#
#     -n number
#         Specify number of frobs, default is 42.
#
EOT

($exit, $text) = getoutput( sub { pod2usage(42) } );
is ($exit, 42,                "Exit status pod2usage (42)");
ok (compare ($text, <<'EOT'), "Output test pod2usage (42)");
#Usage:
#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...
#
EOT

($exit, $text) = getoutput( sub { pod2usage(-verbose => 0, -exit => 'NOEXIT') } );
is ($exit, 0,                 "Exit status pod2usage (-verbose => 0, -exit => 'NOEXIT')");
ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 0, -exit => 'NOEXIT')");
#Usage:
#     frobnicate [ -r | --recursive ] [ -f | --force ] file ...
#
# --NORMAL-RETURN--
EOT

($exit, $text) = getoutput( sub { pod2usage(-verbose => 99, -sections => 'DESCRIPTION') } );
is ($exit, 1,                 "Exit status pod2usage (-verbose => 99, -sections => 'DESCRIPTION')");
ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 99, -sections => 'DESCRIPTION')");
#Description:
#     frobnicate does foo and bar and what not.
#
EOT

# does the __DATA__ work ok as input
my (@blib, $test_script, $pod_file1, , $pod_file2);
if (!$ENV{PERL_CORE}) {
  @blib = '-Mblib';
}
$test_script = File::Spec->catfile(qw(t pod p2u_data.pl));
$pod_file1 = File::Spec->catfile(qw(t pod usage.pod));
$pod_file2 = File::Spec->catfile(qw(t pod usage2.pod));


($exit, $text) = getoutput( sub { system($^X, @blib, $test_script); exit($?  >> 8); } );
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 17,                 "Exit status pod2usage (-verbose => 2, -input => \*DATA)");
ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -input => \*DATA)") or diag "Got:\n$text\n";
#NAME
#    Test
#
#SYNOPSIS
#    perl podusagetest.pl
#
#DESCRIPTION
#    This is a test.
#
EOT

# test that SYNOPSIS and USAGE are printed
($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,
                                            -exitval => 0, -verbose => 0); });
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 0,                 "Exit status pod2usage with USAGE");
ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE") or diag "Got:\n$text\n";
#Usage:
#    This is a test for CPAN#33020
#
#Usage:
#    And this will be also printed.
#
EOT

# test that SYNOPSIS and USAGE are printed with options
($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,
                                            -exitval => 0, -verbose => 1); });
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 0,                 "Exit status pod2usage with USAGE and verbose=1");
ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE and verbose=1") or diag "Got:\n$text\n";
#Usage:
#    This is a test for CPAN#33020
#
#Usage:
#    And this will be also printed.
#
#Options:
#    And this with verbose == 1
#
EOT

# test that only USAGE is printed when requested
($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,
                                            -exitval => 0, -verbose => 99, -sections => 'USAGE'); });
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 0,                 "Exit status pod2usage with USAGE and verbose=99");
ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE and verbose=99") or diag "Got:\n$text\n";
#Usage:
#    This is a test for CPAN#33020
# 
EOT

# test with pod_where
use_ok('Pod::Find', qw(pod_where));

($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1}, 'Pod::Usage'),
                                             -exitval => 0, -verbose => 0) } );
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 0,                 "Exit status pod2usage with Pod::Find");
ok (compare ($text, <<'EOT'), "Output test pod2usage with Pod::Find") or diag "Got:\n$text\n";
#Usage:
#      use Pod::Usage
#
#      my $message_text  = "This text precedes the usage message.";
#      my $exit_status   = 2;          ## The exit status to use
#      my $verbose_level = 0;          ## The verbose level to use
#      my $filehandle    = \*STDERR;   ## The filehandle to write to
#
#      pod2usage($message_text);
#
#      pod2usage($exit_status);
#
#      pod2usage( { -message => $message_text ,
#                   -exitval => $exit_status  ,  
#                   -verbose => $verbose_level,  
#                   -output  => $filehandle } );
#
#      pod2usage(   -msg     => $message_text ,
#                   -exitval => $exit_status  ,  
#                   -verbose => $verbose_level,  
#                   -output  => $filehandle   );
#
#      pod2usage(   -verbose => 2,
#                   -noperldoc => 1  );
#
#      pod2usage(   -verbose => 2,
#                   -perlcmd => $path_to_perl,
#                   -perldoc => $path_to_perldoc,
#                   -perldocopt => $perldoc_options );
#
EOT

# verify that sections are correctly found after nested headings
($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file2,
                                            -exitval => 0, -verbose => 99,
                                            -sections => [qw(BugHeader BugHeader/.*')]) });
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 0,                 "Exit status pod2usage with nested headings");
ok (compare ($text, <<'EOT'), "Output test pod2usage with nested headings") or diag "Got:\n$text\n";
#BugHeader:
#    Some text
#
#  BugHeader2:
#    More
#    Still More
#
EOT

# Verify that =over =back work OK
($exit, $text) = getoutput( sub {
  pod2usage(-input => $pod_file2,
            -exitval => 0, -verbose => 99, -sections => 'BugHeader/BugHeader2') } );
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 0,                 "Exit status pod2usage with over/back");
ok (compare ($text, <<'EOT'), "Output test pod2usage with over/back") or diag "Got:\n$text\n";
#  BugHeader2:
#    More
#    Still More
#
EOT

# new array API for -sections
($exit, $text) = getoutput( sub {
  pod2usage(-input => $pod_file2,
            -exitval => 0, -verbose => 99, -sections => [qw(Heading-1/!.+ Heading-2/.+)]) } );
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 0,                 "Exit status pod2usage with -sections => []");
ok (compare ($text, <<'EOT'), "Output test pod2usage with -sections => []") or diag "Got:\n$text\n";
#Heading-1:
#    One
#    Two
#
#  Heading-2.2:
#    More text.
#
EOT

# allow subheadings in OPTIONS and ARGUMENTS
($exit, $text) = getoutput( sub {
  pod2usage(-input => $pod_file2,
            -exitval => 0, -verbose => 1) } );
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
$text =~ s{[*](destination|files)[*]}{$1}g; # strip * chars
is ($exit, 0,                 "Exit status pod2usage with subheadings in OPTIONS");
ok (compare ($text, <<'EOT'), "Output test pod2usage with subheadings in OPTIONS") or diag "Got:\n$text\n";
#Options and Arguments:
#  Arguments:
#    The required arguments (which typically follow any options on the
#    command line) are:
#
#    destination
#    files
#
#  Options:
#    Options may be abbreviated. Options which take values may be separated
#    from the values by whitespace or the "=" character.
#
EOT
} # end SKIP

__END__

=head1 NAME

frobnicate - do what I mean

=head1 SYNOPSIS

B<frobnicate> S<[ B<-r> | B<--recursive> ]> S<[ B<-f> | B<--force> ]>
  file ...

=head1 DESCRIPTION

B<frobnicate> does foo and bar and what not.

=head1 OPTIONS

=over 4

=item B<-r> | B<--recursive>

Run recursively.

=item B<-f> | B<--force>

Just do it!

=item B<-n> number

Specify number of frobs, default is 42.

=back

=cut
Commit	Line	Data
969c6694 CBW	1	#!/usr/bin/perl -w
	2
	3	use Test::More;
	4	use strict;
	5
	6	BEGIN {
	7	if ($^O eq 'MSWin32' \|\| $^O eq 'VMS') {
	8	plan skip_all => "Not portable on Win32 or VMS\n";
	9	}
	10	else {
	11	plan tests => 34;
	12	}
	13	use_ok ("Pod::Usage");
	14	}
	15
	16	sub getoutput
	17	{
	18	my ($code) = @_;
	19	my $pid = open(TEST_IN, "-\|");
	20	unless(defined $pid) {
	21	die "Cannot fork: $!";
	22	}
	23	if($pid) {
	24	# parent
	25	my @out = <TEST_IN>;
	26	close(TEST_IN);
	27	my $exit = $?>>8;
	28	s/^/#/ for @out;
	29	local $" = "";
	30	print "#EXIT=$exit OUTPUT=+++#@out#+++\n";
	31	return($exit, join("",@out));
	32	}
	33	# child
	34	open(STDERR, ">&STDOUT");
	35	Test::More->builder->no_ending(1);
	36	&$code;
	37	print "--NORMAL-RETURN--\n";
	38	exit 0;
	39	}
	40
	41	sub compare
	42	{
	43	my ($left,$right) = @_;
	44	$left =~ s/^#\s+/#/gm;
	45	$right =~ s/^#\s+/#/gm;
	46	$left =~ s/\s+/ /gm;
	47	$right =~ s/\s+/ /gm;
	48	$left eq $right;
	49	}
	50
	51	SKIP: {
	52	if('Pod::Usage'->isa('Pod::Text') && $Pod::Text::VERSION < 2.18) {
	53	skip("Formatting with Pod::Text $Pod::Text::VERSION not reliable", 33);
	54	}
	55
	56	my ($exit, $text) = getoutput( sub { pod2usage() } );
	57	is ($exit, 2, "Exit status pod2usage ()");
	58	ok (compare ($text, <<'EOT'), "Output test pod2usage ()");
	59	#Usage:
	60	# frobnicate [ -r \| --recursive ] [ -f \| --force ] file ...
	61	#
	62	EOT
	63
	64	($exit, $text) = getoutput( sub { pod2usage(
65	-message => 'You naughty person, what did you say?',
66	-verbose => 1 ) });
67	is ($exit, 1, "Exit status pod2usage (-message => '...', -verbose => 1)");
68	ok (compare ($text, <<'EOT'), "Output test pod2usage (-message => '...', -verbose => 1)") or diag("Got:\n$text\n");
69	#You naughty person, what did you say?
70	# Usage:
71	# frobnicate [ -r \| --recursive ] [ -f \| --force ] file ...
72	#
73	# Options:
74	# -r \| --recursive
75	# Run recursively.
76	#
77	# -f \| --force
78	# Just do it!
79	#
80	# -n number
81	# Specify number of frobs, default is 42.
82	#
83	EOT
84
85	($exit, $text) = getoutput( sub { pod2usage(
86	-verbose => 2, -exit => 42 ) } );
87	is ($exit, 42, "Exit status pod2usage (-verbose => 2, -exit => 42)");
88	ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -exit => 42)");
89	#NAME
90	# frobnicate - do what I mean
91	#
92	# SYNOPSIS
93	# frobnicate [ -r \| --recursive ] [ -f \| --force ] file ...
94	#
95	# DESCRIPTION
96	# frobnicate does foo and bar and what not.
97	#
98	# OPTIONS
99	# -r \| --recursive
100	# Run recursively.
101	#
102	# -f \| --force
103	# Just do it!
104	#
105	# -n number
106	# Specify number of frobs, default is 42.
107	#
108	EOT
109
110	($exit, $text) = getoutput( sub { pod2usage(0) } );
111	is ($exit, 0, "Exit status pod2usage (0)");
112	ok (compare ($text, <<'EOT'), "Output test pod2usage (0)");
113	#Usage:
114	# frobnicate [ -r \| --recursive ] [ -f \| --force ] file ...
115	#
116	# Options:
117	# -r \| --recursive
118	# Run recursively.
119	#
120	# -f \| --force
121	# Just do it!
122	#
123	# -n number
124	# Specify number of frobs, default is 42.
125	#
126	EOT
127
128	($exit, $text) = getoutput( sub { pod2usage(42) } );
129	is ($exit, 42, "Exit status pod2usage (42)");
130	ok (compare ($text, <<'EOT'), "Output test pod2usage (42)");
131	#Usage:
132	# frobnicate [ -r \| --recursive ] [ -f \| --force ] file ...
133	#
134	EOT
135
136	($exit, $text) = getoutput( sub { pod2usage(-verbose => 0, -exit => 'NOEXIT') } );
137	is ($exit, 0, "Exit status pod2usage (-verbose => 0, -exit => 'NOEXIT')");
138	ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 0, -exit => 'NOEXIT')");
139	#Usage:
140	# frobnicate [ -r \| --recursive ] [ -f \| --force ] file ...
141	#
142	# --NORMAL-RETURN--
143	EOT
144
145	($exit, $text) = getoutput( sub { pod2usage(-verbose => 99, -sections => 'DESCRIPTION') } );
146	is ($exit, 1, "Exit status pod2usage (-verbose => 99, -sections => 'DESCRIPTION')");
147	ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 99, -sections => 'DESCRIPTION')");
148	#Description:
149	# frobnicate does foo and bar and what not.
150	#
151	EOT
152
153	# does the __DATA__ work ok as input
154	my (@blib, $test_script, $pod_file1, , $pod_file2);
155	if (!$ENV{PERL_CORE}) {
156	@blib = '-Mblib';
157	}
158	$test_script = File::Spec->catfile(qw(t pod p2u_data.pl));
159	$pod_file1 = File::Spec->catfile(qw(t pod usage.pod));
160	$pod_file2 = File::Spec->catfile(qw(t pod usage2.pod));
161
162
163	($exit, $text) = getoutput( sub { system($^X, @blib, $test_script); exit($? >> 8); } );
164	$text =~ s{#Using./blib.\n}{}; # older blib's emit something to STDERR
165	is ($exit, 17, "Exit status pod2usage (-verbose => 2, -input => \*DATA)");
166	ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -input => \*DATA)") or diag "Got:\n$text\n";
167	#NAME
168	# Test
169	#
170	#SYNOPSIS
171	# perl podusagetest.pl
172	#
173	#DESCRIPTION
174	# This is a test.
175	#
176	EOT
177
178	# test that SYNOPSIS and USAGE are printed
179	($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,
180	-exitval => 0, -verbose => 0); });
181	$text =~ s{#Using./blib.\n}{}; # older blib's emit something to STDERR
182	is ($exit, 0, "Exit status pod2usage with USAGE");
183	ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE") or diag "Got:\n$text\n";
184	#Usage:
185	# This is a test for CPAN#33020
186	#
187	#Usage:
188	# And this will be also printed.
189	#
190	EOT
191
192	# test that SYNOPSIS and USAGE are printed with options
193	($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,
194	-exitval => 0, -verbose => 1); });
195	$text =~ s{#Using./blib.\n}{}; # older blib's emit something to STDERR
196	is ($exit, 0, "Exit status pod2usage with USAGE and verbose=1");
197	ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE and verbose=1") or diag "Got:\n$text\n";
198	#Usage:
199	# This is a test for CPAN#33020
200	#
201	#Usage:
202	# And this will be also printed.
203	#
204	#Options:
205	# And this with verbose == 1
206	#
207	EOT
208
209	# test that only USAGE is printed when requested
210	($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file1,
211	-exitval => 0, -verbose => 99, -sections => 'USAGE'); });
212	$text =~ s{#Using./blib.\n}{}; # older blib's emit something to STDERR
213	is ($exit, 0, "Exit status pod2usage with USAGE and verbose=99");
214	ok (compare ($text, <<'EOT'), "Output test pod2usage with USAGE and verbose=99") or diag "Got:\n$text\n";
215	#Usage:
216	# This is a test for CPAN#33020
217	#
218	EOT
219
220	# test with pod_where
221	use_ok('Pod::Find', qw(pod_where));
222
223	($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1}, 'Pod::Usage'),
224	-exitval => 0, -verbose => 0) } );
225	$text =~ s{#Using./blib.\n}{}; # older blib's emit something to STDERR
226	is ($exit, 0, "Exit status pod2usage with Pod::Find");
227	ok (compare ($text, <<'EOT'), "Output test pod2usage with Pod::Find") or diag "Got:\n$text\n";
228	#Usage:
229	# use Pod::Usage
230	#
231	# my $message_text = "This text precedes the usage message.";
232	# my $exit_status = 2; ## The exit status to use
233	# my $verbose_level = 0; ## The verbose level to use
234	# my $filehandle = \*STDERR; ## The filehandle to write to
235	#
236	# pod2usage($message_text);
237	#
238	# pod2usage($exit_status);
239	#
240	# pod2usage( { -message => $message_text ,
241	# -exitval => $exit_status ,
242	# -verbose => $verbose_level,
243	# -output => $filehandle } );
244	#
245	# pod2usage( -msg => $message_text ,
246	# -exitval => $exit_status ,
247	# -verbose => $verbose_level,
248	# -output => $filehandle );
249	#
250	# pod2usage( -verbose => 2,
251	# -noperldoc => 1 );
252	#
253	# pod2usage( -verbose => 2,
254	# -perlcmd => $path_to_perl,
1a938e7c SH	255	# -perldoc => $path_to_perldoc,
1a938e7c SH	256	# -perldocopt => $perldoc_options );
969c6694 CBW	257	#
	258	EOT
	259
	260	# verify that sections are correctly found after nested headings
	261	($exit, $text) = getoutput( sub { pod2usage(-input => $pod_file2,
	262	-exitval => 0, -verbose => 99,
	263	-sections => [qw(BugHeader BugHeader/.*')]) });
	264	$text =~ s{#Using./blib.\n}{}; # older blib's emit something to STDERR
	265	is ($exit, 0, "Exit status pod2usage with nested headings");
	266	ok (compare ($text, <<'EOT'), "Output test pod2usage with nested headings") or diag "Got:\n$text\n";
	267	#BugHeader:
	268	# Some text
	269	#
	270	# BugHeader2:
	271	# More
	272	# Still More
	273	#
	274	EOT
	275
	276	# Verify that =over =back work OK
	277	($exit, $text) = getoutput( sub {
	278	pod2usage(-input => $pod_file2,
	279	-exitval => 0, -verbose => 99, -sections => 'BugHeader/BugHeader2') } );
	280	$text =~ s{#Using./blib.\n}{}; # older blib's emit something to STDERR
	281	is ($exit, 0, "Exit status pod2usage with over/back");
	282	ok (compare ($text, <<'EOT'), "Output test pod2usage with over/back") or diag "Got:\n$text\n";
	283	# BugHeader2:
	284	# More
	285	# Still More
	286	#
	287	EOT
	288
	289	# new array API for -sections
	290	($exit, $text) = getoutput( sub {
	291	pod2usage(-input => $pod_file2,
	292	-exitval => 0, -verbose => 99, -sections => [qw(Heading-1/!.+ Heading-2/.+)]) } );
	293	$text =~ s{#Using./blib.\n}{}; # older blib's emit something to STDERR
	294	is ($exit, 0, "Exit status pod2usage with -sections => []");
	295	ok (compare ($text, <<'EOT'), "Output test pod2usage with -sections => []") or diag "Got:\n$text\n";
	296	#Heading-1:
	297	# One
	298	# Two
	299	#
	300	# Heading-2.2:
	301	# More text.
	302	#
	303	EOT
	304
	305	# allow subheadings in OPTIONS and ARGUMENTS
	306	($exit, $text) = getoutput( sub {
	307	pod2usage(-input => $pod_file2,
	308	-exitval => 0, -verbose => 1) } );
	309	$text =~ s{#Using./blib.\n}{}; # older blib's emit something to STDERR
	310	$text =~ s{[](destination\|files)[]}{$1}g; # strip * chars
	311	is ($exit, 0, "Exit status pod2usage with subheadings in OPTIONS");
	312	ok (compare ($text, <<'EOT'), "Output test pod2usage with subheadings in OPTIONS") or diag "Got:\n$text\n";
	313	#Options and Arguments:
	314	# Arguments:
	315	# The required arguments (which typically follow any options on the
	316	# command line) are:
	317	#
	318	# destination
	319	# files
	320	#
321	# Options:
322	# Options may be abbreviated. Options which take values may be separated
323	# from the values by whitespace or the "=" character.
324	#
325	EOT
326	} # end SKIP
327
328	__END__
329
330	=head1 NAME
331
332	frobnicate - do what I mean
333
334	=head1 SYNOPSIS
335
336	B<frobnicate> S<[ B<-r> \| B<--recursive> ]> S<[ B<-f> \| B<--force> ]>
337	file ...
338
339	=head1 DESCRIPTION
340
341	B<frobnicate> does foo and bar and what not.
342
343	=head1 OPTIONS
344
345	=over 4
346
347	=item B<-r> \| B<--recursive>
348
349	Run recursively.
350
351	=item B<-f> \| B<--force>
352
353	Just do it!
354
355	=item B<-n> number
356
357	Specify number of frobs, default is 42.
358
359	=back
360
361	=cut
362