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
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test::More;
use Parse::Man::DOM;
my $parser = Parse::Man::DOM->new;
my $document = $parser->from_string( <<'EOMAN' );
.TH TITLE 3
.SH NAME
.SH SEE ALSO
EOMAN
my @paras = $document->paras;
is( scalar @paras, 2, '$document->paras yields 2 paras' );
isa_ok( $paras[0], "Parse::Man::DOM::Heading", '$paras[0]' );
is( $paras[0]->level, 1, '$paras[0]->level' );
is( $paras[0]->text, "NAME", '$paras[0]->name' );
done_testing;
|
