1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
use strict;
use warnings;
use Test::More tests => 1;
use Test::Deep;
use Pod::Eventual::Simple;
use Pod::Elemental::Objectifier;
my $events = Pod::Eventual::Simple->read_file('t/eg/Simple.pm');
my $elements = Pod::Elemental::Objectifier->objectify_events($events);
my @want = (
{ type => 'Nonpod', content => ignore() },
{ type => 'Command', command => 'head1', content => "DESCRIPTION\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Text', content => re(qr{^This is .+ that\?}) },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'synopsis', content => "\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Text', content => re(qr{^ use Test.+;$}) },
{ type => 'Blank', content => "\n" },
{ type => 'Text', content => re(qr{^ .*uisp.*$}) },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'head2', content => "Free Radical\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'head3', content => "Subsumed Radical\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'over', content => "4\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'item', content => re(qr{^\* nom.+st$}) },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'back', content => "\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'method', content => "none\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Text', content => "Nope, there are no methods.\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'attr', content => "also_none\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Text', content => "None of these, either.\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'method', content => "i_lied\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Text', content => "Ha! Gotcha!\n" },
{ type => 'Blank', content => "\n" },
{ type => 'Command', command => 'cut', content => "\n" },
{ type => 'Nonpod', content => ignore() },
);
my @got;
for my $elem (@$elements) {
my $class = ref $elem;
$class =~ s/^.+:://g;
push @got, {
type => $class,
content => $elem->content,
($elem->can('command') ? (command => $elem->command) : ()),
};
}
use Data::Dumper;
cmp_deeply(
\@got,
\@want,
"we get the right chunky content we wanted",
);
|
