[Ftnpl-cvs] SF.net SVN: ftnpl:[610] trunk/scripts/BBBS/mrtgbbbs

[<ja...@us...>]

Revision: 610
          http://ftnpl.svn.sourceforge.net/ftnpl/?rev=610&view=rev
Author:   jame
Date:     2011-07-13 19:57:09 +0000 (Wed, 13 Jul 2011)

Log Message:
-----------
Add test directory (t/) to project.

Added Paths:
-----------
    trunk/scripts/BBBS/mrtgbbbs/t/
    trunk/scripts/BBBS/mrtgbbbs/t/00-load.t
    trunk/scripts/BBBS/mrtgbbbs/t/manifest.t
    trunk/scripts/BBBS/mrtgbbbs/t/pod-coverage.t
    trunk/scripts/BBBS/mrtgbbbs/t/pod.t

Added: trunk/scripts/BBBS/mrtgbbbs/t/00-load.t
===================================================================
--- trunk/scripts/BBBS/mrtgbbbs/t/00-load.t	                        (rev 0)
+++ trunk/scripts/BBBS/mrtgbbbs/t/00-load.t	2011-07-13 19:57:09 UTC (rev 610)
@@ -0,0 +1,10 @@
+#!perl -T
+
+use Test::More tests => 1;
+
+BEGIN {
+    use_ok( 'BBBS::MRTG' ) || print "Bail out!
+";
+}
+
+diag( "Testing mrtgbbbs $mrtgbbbs::VERSION, Perl $], $^X" );

Added: trunk/scripts/BBBS/mrtgbbbs/t/manifest.t
===================================================================
--- trunk/scripts/BBBS/mrtgbbbs/t/manifest.t	                        (rev 0)
+++ trunk/scripts/BBBS/mrtgbbbs/t/manifest.t	2011-07-13 19:57:09 UTC (rev 610)
@@ -0,0 +1,13 @@
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+unless ( $ENV{RELEASE_TESTING} ) {
+    plan( skip_all => "Author tests not required for installation" );
+}
+
+eval "use Test::CheckManifest 0.9";
+plan skip_all => "Test::CheckManifest 0.9 required" if $@;
+ok_manifest();

Added: trunk/scripts/BBBS/mrtgbbbs/t/pod-coverage.t
===================================================================
--- trunk/scripts/BBBS/mrtgbbbs/t/pod-coverage.t	                        (rev 0)
+++ trunk/scripts/BBBS/mrtgbbbs/t/pod-coverage.t	2011-07-13 19:57:09 UTC (rev 610)
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod::Coverage
+my $min_tpc = 1.08;
+eval "use Test::Pod::Coverage $min_tpc";
+plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
+    if $@;
+
+# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
+# but older versions don't recognize some common documentation styles
+my $min_pc = 0.18;
+eval "use Pod::Coverage $min_pc";
+plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
+    if $@;
+
+all_pod_coverage_ok();

Added: trunk/scripts/BBBS/mrtgbbbs/t/pod.t
===================================================================
--- trunk/scripts/BBBS/mrtgbbbs/t/pod.t	                        (rev 0)
+++ trunk/scripts/BBBS/mrtgbbbs/t/pod.t	2011-07-13 19:57:09 UTC (rev 610)
@@ -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();


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.