From: Vincent Pit <vince@profvince.com>
Date: Sat, 2 Jan 2010 14:43:23 +0000 (+0100)
Subject: Add author tests
X-Git-Tag: v0.01~8
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=b68368566800a97b75ce4138da358ce3cc14b8b2;p=perl%2Fmodules%2FSub-Op.git

Add author tests
---

diff --git a/MANIFEST b/MANIFEST
index 09fa5ce..b8e59cb 100644
--- 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
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
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
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
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;
+ }
+}