Skip to content

Commit

Permalink
add test for regression fixed in previous commit
Browse files Browse the repository at this point in the history
  • Loading branch information
rjbs committed Dec 27, 2014
1 parent c77331e commit e86b0ee
Showing 1 changed file with 26 additions and 0 deletions.
26 changes: 26 additions & 0 deletions t/pod5/nonpod.t
@@ -0,0 +1,26 @@
#!perl
use strict;
use warnings;

use Test::More;

use Pod::Elemental;
use Pod::Elemental::Transformer::Pod5;
use Pod::Elemental::Element::Pod5::Region;
use Pod::Elemental::Element::Pod5::Ordinary;

my $for_pl_pod = <<'END_POD';
This is not a Pod paragraph.
=cut
END_POD

### parse a podlike =for
my $for_pl = Pod::Elemental->read_string($for_pl_pod);
Pod::Elemental::Transformer::Pod5->new->transform_node($for_pl);

my $para = $for_pl->children->[0];
isa_ok($para, 'Pod::Elemental::Element::Pod5::Nonpod');

done_testing;

0 comments on commit e86b0ee

Please sign in to comment.