File: | t/main.t |
Coverage: | 100.0% |
line | stmt | bran | cond | sub | time | code |
---|---|---|---|---|---|---|
1 | 3 3 3 | 6701 27063 14 | use Test::More; | |||
2 | 3 3 3 | 1169 149684 58 | use PPI; | |||
3 | 3 3 3 | 755 10217 109 | use Data::Dumper; | |||
4 | 3 3 3 | 509 2630433 84 | use Pod::Weaver; | |||
5 | 3 3 3 | 674 1123 9 | use lib qw(t/inc); | |||
6 | ||||||
7 | # Make some 'test' documents.. | |||||
8 | 3 | 374551 | my $doc = new_ok( 'PPI::Document', ['t/inc/Tester.pm']); | |||
9 | 3 | 21776 | my $weaver; | |||
10 | 3 | 24 | ok( $weaver = Pod::Weaver->new_from_config({ root => 't'}) ); | |||
11 | 2 | 3781 | ok( my $document = $weaver->weave_document({ | |||
12 | ppi_document => $doc, | |||||
13 | mopper => { }, | |||||
14 | authors => ['Bob MctestAthor'] | |||||
15 | }), 'Weaving document..'); | |||||
16 | ||||||
17 | 2 | 15050 | my $expected = <<HERE; | |||
18 - 60 | =pod =head1 NAME Tester =head1 ATTRIBUTES =head2 testattr1 Reader: testattr1 Writer: testattr1 Type: Str =head2 testattr2 Reader: testattr2 Type: Num Additional documentation: This is a documentation option test. It is a string. With some L<links> =head1 METHODS =head2 method1 Method originates in Tester. =head2 testattr1 Method originates in Tester. =head2 testattr2 Method originates in Tester. =head1 AUTHOR Bob MctestAthor =cut | |||||
61 | HERE | |||||
62 | ||||||
63 | 2 | 9 | is( $document->as_pod_string, $expected, 'Did it work?'); | |||
64 | ||||||
65 | 2 | 305 | done_testing; |