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
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use lib ".";
require "examples/parse-pod.pl";
my $parser = PodParser->new;
sub test
{
my ( $str, $expect, $name ) = @_;
is( $parser->from_string( $str ), $expect, $name );
}
test "Plain text",
[ "Plain text" ],
"plain";
test "B<bold>",
[ { B => [ "bold" ] } ],
"B<>";
test "Text with I<italic> text",
[ "Text with ", { I => [ "italic" ] }, " text" ],
"I<> surrounded";
test "Nested B<I<tags>>",
[ "Nested ", { B => [ { I => [ "tags" ] } ] } ],
"Nested";
test "Double C<< Class->method >> tags",
[ "Double ", { C => [ " Class->method " ] }, " tags" ],
"Double tags";
done_testing;
|
