add tests to satify cpants
authorTony Cook <tony@develop=help.com>
Wed, 9 Apr 2008 12:47:28 +0000 (12:47 +0000)
committerTony Cook <tony@develop=help.com>
Wed, 9 Apr 2008 12:47:28 +0000 (12:47 +0000)
MANIFEST
t/90_pod.t [new file with mode: 0644]
t/91_pod_cover.t [new file with mode: 0644]

index e17da4c..4c67629 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -12,4 +12,6 @@ queue.c         Moved the implementation code here
 queue.h
 t/01_array.t
 t/02_release.t
+t/90_pod.t
+t/91_pod_cover.t
 typemap
diff --git a/t/90_pod.t b/t/90_pod.t
new file mode 100644 (file)
index 0000000..1040e94
--- /dev/null
@@ -0,0 +1,6 @@
+#!perl -w
+use strict;
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
diff --git a/t/91_pod_cover.t b/t/91_pod_cover.t
new file mode 100644 (file)
index 0000000..6749d0f
--- /dev/null
@@ -0,0 +1,13 @@
+#!perl -w
+use strict;
+use Test::More;
+eval "use Test::Pod::Coverage";
+plan skip_all => "Test::Pod::Coverage required for testing pod coverage" if $@;
+
+plan tests => 1;
+my %cover_opts =
+  (
+   coverage_class => 'Pod::Coverage::CountParents',
+   also_private => [ qr/^ITEM_(ID|PAYLOAD|PRIORITY)$/ ],
+  );
+pod_coverage_ok( "POE::XS::Queue::Array", \%cover_opts);