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.
|
