Permalink
Browse files

Add test for TemplateCJM and pure-POD file

  • Loading branch information...
1 parent 4f9fe64 commit 6d0e309b32904c33a991633d38c7a3b1d8bba3b7 @madsen committed Jan 12, 2013
Showing with 19 additions and 3 deletions.
  1. +1 −0 MANIFEST
  2. +7 −0 corpus/DZT/lib/DZT/Manual.pod
  3. +2 −2 t/arcrel.t
  4. +9 −1 t/template.t
View
@@ -7,6 +7,7 @@ Makefile.PL
README
Template_strict.patch
corpus/DZT/README
+corpus/DZT/lib/DZT/Manual.pod
corpus/DZT/lib/DZT/Sample.pm
corpus/DZT/t/basic.t
corpus/README
@@ -0,0 +1,7 @@
+=head1 NAME
+
+DZT::Manual - documentation
+
+=head1 VERSION
+
+This document ({{$module}}) describes {{$dist}} {{$version}}.
View
@@ -51,7 +51,7 @@ sub new_tzil
is_deeply(
[ sort @files ],
- [ sort(qw(dist.ini README lib/DZT/Sample.pm t/basic.t)),
+ [ sort(qw(dist.ini README lib/DZT/Sample.pm lib/DZT/Manual.pod t/basic.t)),
],
"ArchiveRelease prunes default releases directory",
);
@@ -67,7 +67,7 @@ sub new_tzil
is_deeply(
[ sort @files ],
- [ sort(qw(dist.ini README lib/DZT/Sample.pm t/basic.t)),
+ [ sort(qw(dist.ini README lib/DZT/Sample.pm lib/DZT/Manual.pod t/basic.t)),
],
"ArchiveRelease prunes non-standard releases directory",
);
View
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More 0.88 tests => 6; # done_testing
+use Test::More 0.88 tests => 7; # done_testing
use Test::DZil 'Builder';
@@ -138,6 +138,14 @@ END CHANGES
"L<Foo::Bar> (1.00 or later).\n"),
'POD in module',
);
+
+ my $manual = $tzil->slurp_file('build/lib/DZT/Manual.pod');
+
+ like(
+ $manual,
+ qr{^\QThis document (DZT::Manual) describes DZT-Sample 0.04.\E\n}m,
+ 'VERSION in manual',
+ );
}
done_testing;

0 comments on commit 6d0e309

Please sign in to comment.