use strict;
use warnings;
use Test::More;
use Pod::Elemental;
use Pod::Elemental::Transformer::Pod5;
use Pod::Elemental::Transformer::WikiDoc;
my $str = do { local $/; <DATA> };
my $doc = Pod::Elemental->read_string($str);
Pod::Elemental::Transformer::Pod5->new->transform_node($doc);
Pod::Elemental::Transformer::WikiDoc->new->transform_node($doc);
isa_ok(
$doc->children->[0],
'Pod::Elemental::Element::Pod5::Command',
'0th elem',
);
isa_ok(
$doc->children->[1],
'Pod::Elemental::Element::Pod5::Command',
'1th elem',
);
is($doc->children->[1]->command, 'over', '=for para became =over etc');
isa_ok(
$doc->children->[9],
'Pod::Elemental::Element::Pod5::Ordinary',
'9th elem (after =for)',
);
isa_ok(
$doc->children->[10],
'Pod::Elemental::Element::Pod5::Command',
'10th elem (== Reasons)',
);
is($doc->children->[10]->command, 'head2', 'wikidoc == becomes head2');
done_testing;
__DATA__
=pod
=head1 Welcome to Pod!
=for wikidoc
* this
* is
* awesome
Right??
=begin wikidoc
== Reasons to use WikiDoc:
* lists
* more lists
* seriously, they're easy
Also...
0 well, mostly lists
0 yeah, I know, it's silly
0 but they're great
=end wikidoc
The end!