use v6-alpha;
use Test;
use File::Spec;
plan 5;
use Pod::Event::Parser; pass "(dummy instead of broken use_ok)";
use Pod::Event::Handler::POD; pass "(dummy instead of broken use_ok)";
try { chdir "ext/Pod-Event-Parser" }; # Hack if we're run from make smoke
my $test_output = "";
parse(catfile('t', 'sample.pod'), pod2pod($test_output));
is($test_output,
'=pod
=head1 This is B<header> 1
=over 4
=item This is an I<item>
This is the B<items> body
=back
=head2 This is header 2
This is regular text which
wraps I<up B<to>> two lines
This is verbatim text
which contains some code in it
for () {
this is the stuff
}
This is regular text again
=cut',
'... POD round-tripping worked');
# now try it using the filehandle
my $fh = open('test.pod', :w);
parse(catfile('t', 'sample.pod'), pod2pod($fh));
$fh.close();
my $file_contents = slurp('test.pod');
is($file_contents,
'=pod
=head1 This is B<header> 1
=over 4
=item This is an I<item>
This is the B<items> body
=back
=head2 This is header 2
This is regular text which
wraps I<up B<to>> two lines
This is verbatim text
which contains some code in it
for () {
this is the stuff
}
This is regular text again
=cut',
'... POD round-tripping worked (with file-handle)');
ok((unlink('test.pod') and not -e 'test.pod'), '... removing the temp POD file, and making sure it is really gone');