diff options
Diffstat (limited to 't')
-rw-r--r-- | t/00-load.t | 10 | ||||
-rw-r--r-- | t/kwalitee.t | 20 | ||||
-rw-r--r-- | t/pod.t | 12 |
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 $@; @@ -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(); |