aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/00-load.t10
-rw-r--r--t/kwalitee.t20
-rw-r--r--t/pod.t12
3 files changed, 42 insertions, 0 deletions
diff --git a/t/00-load.t b/t/00-load.t
new file mode 100644
index 0000000..966e934
--- /dev/null
+++ b/t/00-load.t
@@ -0,0 +1,10 @@
+#!perl -T
+
+use 5.014;
+use Test::More tests => 1;
+
+BEGIN {
+ use_ok( 'WWW::YoutubeViewer' ) || print "Bail out!\n";
+}
+
+diag( "Testing WWW::YoutubeViewer $WWW::YoutubeViewer::VERSION, Perl $], $^X" );
diff --git a/t/kwalitee.t b/t/kwalitee.t
new file mode 100644
index 0000000..7172422
--- /dev/null
+++ b/t/kwalitee.t
@@ -0,0 +1,20 @@
+#!perl
+
+use 5.006;
+use strict;
+use warnings FATAL => 'all';
+use Test::More;
+
+BEGIN {
+ plan( skip_all => 'these tests are for release candidate testing' )
+ unless $ENV{RELEASE_TESTING};
+}
+
+eval {
+ require Test::Kwalitee;
+ Test::Kwalitee->import('kwalitee_ok');
+ kwalitee_ok();
+ done_testing();
+ };
+
+plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@;
diff --git a/t/pod.t b/t/pod.t
new file mode 100644
index 0000000..ee8b18a
--- /dev/null
+++ b/t/pod.t
@@ -0,0 +1,12 @@
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod
+my $min_tp = 1.22;
+eval "use Test::Pod $min_tp";
+plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
+
+all_pod_files_ok();