Diff of /SOAP-Transport-TCP/trunk/t/099_pod_coverage.t [000000] .. [r389]  Maximize  Restore

Switch to side-by-side view

--- a
+++ b/SOAP-Transport-TCP/trunk/t/099_pod_coverage.t
@@ -0,0 +1,34 @@
+use strict;
+if ( not $ENV{TEST_AUTHOR} ) {
+    my $msg = 'Author test.  Set $ENV{TEST_AUTHOR} to a true value to run.';
+    print "1..0 
+# $msg";
+    exit 0;
+}
+require Test::More;
+Test::More->import();
+
+eval "use Test::Pod::Coverage 1.00";
+plan( skip_all => "Test::Pod::Coverage 1.00 required for testing POD") if $@;
+
+my @dirs = ( 'lib' );
+if (-d '../t/') {       # we are inside t/
+    @dirs = ('../lib');
+} 
+else {                  # we are outside t/
+    # add ./lib to include path if blib/lib is not there (e.g. we're not 
+    # run from Build test or the like) 
+    push @INC, './lib' if not grep { $_ eq 'blib/lib' } @INC; 
+}
+
+my @files = all_modules( @dirs );
+
+plan( tests => scalar @files);
+foreach (@files) {
+    pod_coverage_ok( $_ , 
+	{ 
+	    private => [ 
+	       qr/^_/, 
+	       ]
+	});
+}

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks