[Webfetch-commits] SF.net SVN: webfetch:[54] branches/v0.13

[<ik...@us...>]

Revision: 54
          http://webfetch.svn.sourceforge.net/webfetch/?rev=54&view=rev
Author:   ikluft
Date:     2009-09-07 01:56:55 +0000 (Mon, 07 Sep 2009)

Log Message:
-----------
fix tests - oops they were missing from the MANIFEST!

Modified Paths:
--------------
    branches/v0.13/MANIFEST
    branches/v0.13/t/00-load.t
    branches/v0.13/t/pod-coverage.t

Modified: branches/v0.13/MANIFEST
===================================================================
--- branches/v0.13/MANIFEST	2009-09-07 01:55:58 UTC (rev 53)
+++ branches/v0.13/MANIFEST	2009-09-07 01:56:55 UTC (rev 54)
@@ -11,3 +11,8 @@
 lib/WebFetch/Input/SiteNews.pm
 lib/WebFetch/Output/Dump.pm
 lib/WebFetch/Output/TT.pm
+lib/WebFetch/Output/TWiki.pm
+t/00-load.t
+t/boilerplate.t
+t/pod-coverage.t
+t/pod.t

Modified: branches/v0.13/t/00-load.t
===================================================================
--- branches/v0.13/t/00-load.t	2009-09-07 01:55:58 UTC (rev 53)
+++ branches/v0.13/t/00-load.t	2009-09-07 01:56:55 UTC (rev 54)
@@ -1,6 +1,6 @@
 #!perl -T
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 
 BEGIN {
 	use_ok( 'WebFetch' );
@@ -10,6 +10,7 @@
 	use_ok( 'WebFetch::Input::SiteNews' );
 	use_ok( 'WebFetch::Output::Dump' );
 	use_ok( 'WebFetch::Output::TT' );
+	use_ok( 'WebFetch::Output::TWiki' );
 }
 
 diag( "Testing WebFetch $WebFetch::VERSION, Perl $], $^X" );

Modified: branches/v0.13/t/pod-coverage.t
===================================================================
--- branches/v0.13/t/pod-coverage.t	2009-09-07 01:55:58 UTC (rev 53)
+++ branches/v0.13/t/pod-coverage.t	2009-09-07 01:56:55 UTC (rev 54)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More skip_all => "to-do";
+use Test::More;
 
 # Ensure a recent version of Test::Pod::Coverage
 my $min_tpc = 1.08;
@@ -15,4 +15,27 @@
 plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
     if $@;
 
-all_pod_coverage_ok();
+# test plan
+# list in each class the functions considered private
+# test Pod coverage on everything else
+my %test_plan = (
+	"WebFetch" => [ qw( new debug fetch_main2 module_select
+		singular_handler init_fname2fnum init_wk2fnum ) ],
+	"WebFetch::Output::TT" => [ qw( new fetch ) ],
+	"WebFetch::Output::Dump" => [ qw( new fetch ) ],
+	"WebFetch::Output::TWiki" => [ qw( new fetch ) ],
+	"WebFetch::Input::RSS" => [ qw( new fetch extract_value parse_input
+		parse_rss printstamp ) ],
+	"WebFetch::Input::Atom" => [ qw( new fetch extract_value
+		parse_input ) ],
+	"WebFetch::Input::PerlStruct" => [ qw( new fetch ) ],
+	"WebFetch::Input::SiteNews" => [ qw( new fetch attr_state expired
+		parse_input printstamp priority text_state initial_state ) ],
+);
+plan tests => scalar keys %test_plan;
+
+my $mod;
+foreach $mod ( sort keys %test_plan ) {
+	my $regex = '^('.join( '|', @{$test_plan{$mod}} ).')$';
+	pod_coverage_ok( $mod, { also_private => [qr/$regex/]});
+}


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