Codebase list libtest-pod-perl / 3398de4
write test for L<text|scheme:...> first Paul Miller 14 years ago
3 changed file(s) with 34 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
+3
-0
MANIFEST less more
2222 t/spaced-directives.t
2323 t/unknown-directive.pod
2424 t/unknown-directive.t
25 t/a-href-L.pod
26 t/a-href-L.t
27
2528 META.yml Module meta-data (added by MakeMaker)
+12
-0
t/a-href-L.pod less more
0 =head1 COPYRIGHT
1
2 Copyright 2009, Paul Miller C<< <jettero@cpan.org> >>
3
4 =head1 SEE ALSO
5
6 Invalid according to L<perlpod/Formatting Codes>:
7
8 L<Paul's Perl Modules|http://voltar.org/perl>
9
10 =cut
11
+19
-0
t/a-href-L.t less more
0 #!perl -T
1
2 use strict;
3
4 use Test::Builder::Tester tests => 2;
5 use Test::More;
6
7 BEGIN {
8 use_ok( 'Test::Pod' );
9 }
10
11 my $file = 't/a-href-L.pod';
12 test_out( "not ok 1 - POD test for $file" );
13 pod_file_ok( $file );
14 test_fail(-1);
15 test_diag(
16 "$file (9): L<text|scheme:...> is invalid according to perlpod",
17 );
18 test_test( "$file is bad" );