Add author tests

diff --git a/MANIFEST b/MANIFEST
index 09fa5cef45e3a1ead9d3fbfca32ff9d8023871df..b8e59cba714dc4b979774c3e3a40eb4f525917d7 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -11,6 +11,10 @@ sub_op.h
 samples/try.pl
 t/10-base.t
 t/11-existing.t
+t/91-pod.t
+t/92-pod-coverage.t
+t/95-portability-files.t
+t/99-kwalitee.t
 t/Sub-Op-Test/Makefile.PL
 t/Sub-Op-Test/Test.xs
 t/Sub-Op-Test/lib/Sub/Op/Test.pm

diff --git a/t/91-pod.t b/t/91-pod.t
new file mode 100644 (file)
index 0000000..f1e1d3e
--- /dev/null
+++ b/t/91-pod.t
@@ -0,0 +1,10 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();

diff --git a/t/92-pod-coverage.t b/t/92-pod-coverage.t
new file mode 100644 (file)
index 0000000..81c83e3
--- /dev/null
+++ b/t/92-pod-coverage.t
@@ -0,0 +1,16 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+all_pod_coverage_ok({
+ also_private => [
+  qr/^_/,
+  qr/^CLONE(_SKIP)?$/,
+  'dl_load_flags',
+ ],
+});

diff --git a/t/95-portability-files.t b/t/95-portability-files.t
new file mode 100644 (file)
index 0000000..ab541f3
--- /dev/null
+++ b/t/95-portability-files.t
@@ -0,0 +1,10 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Portability::Files";
+plan skip_all => "Test::Portability::Files required for testing filenames portability" if $@;
+run_tests();

diff --git a/t/99-kwalitee.t b/t/99-kwalitee.t
new file mode 100644 (file)
index 0000000..24d716b
--- /dev/null
+++ b/t/99-kwalitee.t
@@ -0,0 +1,21 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Kwalitee 1.01 ()";
+plan(skip_all => 'Test::Kwalitee 1.01 not installed') if $@;
+
+SKIP: {
+ eval { Test::Kwalitee->import(tests => [ '-use_strict' ]); };
+ if (my $err = $@) {
+  1 while chomp $err;
+  require Test::Builder;
+  my $Test = Test::Builder->new;
+  my $plan = $Test->has_plan;
+  $Test->skip_all($err) if not defined $plan or $plan eq 'no_plan';
+  skip $err => $plan - $Test->current_test;
+ }
+}