56 lines
813 B
Text
56 lines
813 B
Text
|
Index: t/unbalanced.t
|
||
|
|
--- t/unbalanced.t.orig
|
||
|
|
+++ t/unbalanced.t
|
||
|
|
@@ -0,0 +1,51 @@
|
||
|
|
+#!/usr/bin/perl
|
||
|
|
+use strict;
|
||
|
|
+use warnings;
|
||
|
|
+
|
||
|
|
+use Pod::PlainText;
|
||
|
|
+use Test::More;
|
||
|
|
+
|
||
|
|
+my $invalid = q{
|
||
|
|
+=head1 One
|
||
|
|
+
|
||
|
|
+=begin foo
|
||
|
|
+
|
||
|
|
+Foo
|
||
|
|
+};
|
||
|
|
+
|
||
|
|
+my $valid = q{
|
||
|
|
+=head1 Two
|
||
|
|
+
|
||
|
|
+=begin bar
|
||
|
|
+
|
||
|
|
+Bar
|
||
|
|
+
|
||
|
|
+=end bar
|
||
|
|
+
|
||
|
|
+=head1 Three
|
||
|
|
+};
|
||
|
|
+
|
||
|
|
+
|
||
|
|
+my $parser = Pod::PlainText->new;
|
||
|
|
+
|
||
|
|
+my $out = '';
|
||
|
|
+open my $out_fh, '>', \$out or die "Couldn't open out: $!";
|
||
|
|
+
|
||
|
|
+{
|
||
|
|
+ open my $fh, '<', \$invalid or die "Couldn't open invalid: $!";
|
||
|
|
+ $parser->parse_from_filehandle($fh, $out_fh);
|
||
|
|
+ close $fh;
|
||
|
|
+}
|
||
|
|
+
|
||
|
|
+{
|
||
|
|
+ open my $fh, '<', \$valid or die "Couldn't open valid: $!";
|
||
|
|
+ $parser->parse_from_filehandle($fh, $out_fh);
|
||
|
|
+ close $fh;
|
||
|
|
+}
|
||
|
|
+
|
||
|
|
+close $out_fh;
|
||
|
|
+
|
||
|
|
+
|
||
|
|
+is $out, "One\nTwo\nThree\n", "Correctly parsed valid document";
|
||
|
|
+
|
||
|
|
+done_testing;
|