r67125 - in /branches/upstream/libtest-file-contents-perl: ./ current/ current/examples/ current/lib/ current/lib/Test/ current/lib/Test/File/ current/t/
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Fri Jan 7 11:28:04 UTC 2011
Author: ghedo-guest
Date: Fri Jan 7 11:27:54 2011
New Revision: 67125
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67125
Log:
[svn-inject] Installing original source of libtest-file-contents-perl (0.05)
Added:
branches/upstream/libtest-file-contents-perl/
branches/upstream/libtest-file-contents-perl/current/
branches/upstream/libtest-file-contents-perl/current/Build.PL
branches/upstream/libtest-file-contents-perl/current/Changes
branches/upstream/libtest-file-contents-perl/current/MANIFEST
branches/upstream/libtest-file-contents-perl/current/META.yml
branches/upstream/libtest-file-contents-perl/current/README
branches/upstream/libtest-file-contents-perl/current/examples/
branches/upstream/libtest-file-contents-perl/current/examples/simple.pl
branches/upstream/libtest-file-contents-perl/current/lib/
branches/upstream/libtest-file-contents-perl/current/lib/Test/
branches/upstream/libtest-file-contents-perl/current/lib/Test/File/
branches/upstream/libtest-file-contents-perl/current/lib/Test/File/Contents.pm
branches/upstream/libtest-file-contents-perl/current/t/
branches/upstream/libtest-file-contents-perl/current/t/00.load.t
branches/upstream/libtest-file-contents-perl/current/t/10.basic.t
branches/upstream/libtest-file-contents-perl/current/t/aaa.txt
branches/upstream/libtest-file-contents-perl/current/t/aaa2.txt
branches/upstream/libtest-file-contents-perl/current/t/bbb.txt
branches/upstream/libtest-file-contents-perl/current/t/pod-coverage.t
branches/upstream/libtest-file-contents-perl/current/t/pod.t
Added: branches/upstream/libtest-file-contents-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/Build.PL?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/Build.PL (added)
+++ branches/upstream/libtest-file-contents-perl/current/Build.PL Fri Jan 7 11:27:54 2011
@@ -1,0 +1,16 @@
+use strict;
+use warnings;
+use Module::Build;
+
+my $builder = Module::Build->new(
+ module_name => 'Test::File::Contents',
+ license => 'perl',
+ dist_author => 'Kirrily Robert <skud at cpan.org>',
+ dist_version_from => 'lib/Test/File/Contents.pm',
+ requires => {
+ 'Test::More' => 0,
+ },
+ add_to_cleanup => [ 'Test-File-Contents-*' ],
+);
+
+$builder->create_build_script();
Added: branches/upstream/libtest-file-contents-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/Changes?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/Changes (added)
+++ branches/upstream/libtest-file-contents-perl/current/Changes Fri Jan 7 11:27:54 2011
@@ -1,0 +1,19 @@
+Revision history for Test-File-Contents
+
+0.05 2007-03-20
+ Packaging fixes. No functional changes.
+
+0.04 2005-10-26
+ Small tweaks to the packaging, mostly for CPANTS. No functional
+ changes.
+
+0.03 2006-01-20
+ Added file_contents_isnt and file_contents_unlike and made file
+ access OS-neutral (contributed by David Wheeler).
+
+0.02 2004-08-25
+ Minor packaging fixes.
+
+0.01 2004-08-25
+ First version, released on an unsuspecting world.
+
Added: branches/upstream/libtest-file-contents-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/MANIFEST?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/MANIFEST (added)
+++ branches/upstream/libtest-file-contents-perl/current/MANIFEST Fri Jan 7 11:27:54 2011
@@ -1,0 +1,14 @@
+Build.PL
+Changes
+MANIFEST
+META.yml # Will be created by "make dist"
+README
+lib/Test/File/Contents.pm
+t/00.load.t
+t/10.basic.t
+t/pod-coverage.t
+t/pod.t
+t/aaa.txt
+t/aaa2.txt
+t/bbb.txt
+examples/simple.pl
Added: branches/upstream/libtest-file-contents-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/META.yml?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/META.yml (added)
+++ branches/upstream/libtest-file-contents-perl/current/META.yml Fri Jan 7 11:27:54 2011
@@ -1,0 +1,14 @@
+---
+name: Test-File-Contents
+version: 0.05
+author:
+ - 'Kirrily Robert <skud at cpan.org>'
+abstract: Test routines for examining the contents of files
+license: perl
+requires:
+ Test::More: 0
+provides:
+ Test::File::Contents:
+ file: lib/Test/File/Contents.pm
+ version: 0.05
+generated_by: Module::Build version 0.26
Added: branches/upstream/libtest-file-contents-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/README?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/README (added)
+++ branches/upstream/libtest-file-contents-perl/current/README Fri Jan 7 11:27:54 2011
@@ -1,0 +1,31 @@
+Test-File-Contents
+
+The README is used to introduce the module and provide instructions on
+how to install the module, any machine dependencies it may have (for
+example C compilers and installed libraries) and any other information
+that should be provided before the module is installed.
+
+A README file is required for CPAN modules since CPAN extracts the README
+file from a module distribution so that people browsing the archive
+can use it get an idea of the modules uses. It is usually a good idea
+to provide version information here so that people can decide whether
+fixes for the module are worth downloading.
+
+INSTALLATION
+
+To install this module, run the following commands:
+
+ perl Build.PL
+ ./Build
+ ./Build test
+ ./Build install
+
+
+COPYRIGHT AND LICENCE
+
+Put the correct copyright and licence information here.
+
+Copyright (C) 2004 Kirrily Robert
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
Added: branches/upstream/libtest-file-contents-perl/current/examples/simple.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/examples/simple.pl?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/examples/simple.pl (added)
+++ branches/upstream/libtest-file-contents-perl/current/examples/simple.pl Fri Jan 7 11:27:54 2011
@@ -1,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More qw(no_plan);
+use Test::File::Contents;
+
+# The following code won't actually run; it's just an example of the
+# sorts of things you might use this module for.
+
+my $logfile = "t/log/myapp.log";
+use MyApp;
+my $x = MyApp->new( logfile => $logfile );
+MyApp->create( name => "new thing", options => \%options );
+file_contents_like($logfile, qr/created new thing/, "logged object creation");
+
+# Another example that won't run.
+
+use MyTemplate;
+my $template = MyTemplate->new("t/template.txt");
+$template->parse();
+my $outfile = "t/template_output.txt";
+$template->output_to_file($outfile);
+file_contents_unlike($outfile, qr/error/i, "No errors");
+file_contents_like($outfile, qr/2 + 2 = 4/, "Simple expressions");
+
Added: branches/upstream/libtest-file-contents-perl/current/lib/Test/File/Contents.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/lib/Test/File/Contents.pm?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/lib/Test/File/Contents.pm (added)
+++ branches/upstream/libtest-file-contents-perl/current/lib/Test/File/Contents.pm Fri Jan 7 11:27:54 2011
@@ -1,0 +1,251 @@
+package Test::File::Contents;
+
+use warnings;
+use strict;
+
+=head1 NAME
+
+Test::File::Contents - Test routines for examining the contents of files
+
+=head1 VERSION
+
+Version 0.05
+
+=cut
+
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+$VERSION = '0.05';
+
+use Exporter; # load the class
+ at ISA = qw(Exporter); # set it as the base class
+ at EXPORT = qw(file_contents_is file_contents_isnt file_contents_like file_contents_unlike file_md5sum file_contents_identical);
+ at EXPORT_OK = qw(); # no other optional functions
+%EXPORT_TAGS = qw(); # no groups of functions
+
+use Test::Builder;
+use Digest::MD5;
+use File::Spec;
+my $Test = Test::Builder->new();
+
+=head1 SYNOPSIS
+
+ use Test::File::Contents;
+
+ file_contents_is ($file, $string, $test_description);
+ file_contents_like ($file, qr/foo/, $test_description);
+ file_md5sum ($file, $md5sum, $test_description);
+ file_contents_identical($file1, $file2, $test_description);
+
+
+=head1 FUNCTIONS
+
+=head2 file_contents_is
+
+Checks for an exact match on the file's contents. Pass in a Unix-style file
+name and it will be converted for the local file system.
+
+Note: performs a dumb "eq" comparison, sucking the whole file into memory.
+
+Also note: I am aware of the grammatical confusion in the function name
+- got a better suggestion?
+
+=cut
+
+sub file_contents_is {
+ my ($file, $string, $desc) = @_;
+ return _compare(
+ $file,
+ sub { shift eq $string },
+ $desc || 'file contents match string',
+ "File $file does not match '$string'",
+ );
+}
+
+=head2 file_contents_isnt
+
+Checks that the file's contents do not match a string. Pass in a Unix-style file
+name and it will be converted for the local file system.
+
+Note: performs a dumb "ne" comparison, sucking the whole file into memory.
+
+Also note: I am aware of the grammatical confusion in the function name
+- got a better suggestion?
+
+=cut
+
+sub file_contents_isnt {
+ my ($file, $string, $desc) = @_;
+ return _compare(
+ $file,
+ sub { shift ne $string },
+ $desc || 'file contents do not match string',
+ "File $file matches '$string'",
+ );
+}
+
+=head2 file_contents_like
+
+Checks for a regexp match against the file's contents. You must provide it
+with a qr// style regexp. Pass in a Unix-style file name and it will be
+converted for the local file system.
+
+
+=cut
+
+sub file_contents_like {
+ my ($file, $regexp, $desc) = @_;
+ return _compare(
+ $file,
+ sub { shift =~ /$regexp/ },
+ $desc || 'file contents match regexp',
+ "File $file does not match '$regexp'",
+ );
+}
+
+=head2 file_contents_unlike
+
+Checks for a regexp failed match against the file's contents. You must provide
+it with a qr// style regexp. Pass in a Unix-style file name and it will be
+converted for the local file system.
+
+=cut
+
+sub file_contents_unlike {
+ my ($file, $regexp, $desc) = @_;
+ return _compare(
+ $file,
+ sub { shift !~ /$regexp/ },
+ $desc || 'file contents do not match regexp',
+ "File $file matches '$regexp'",
+ );
+}
+
+=head2 file_md5sum
+
+Checks whether a file matches a given md5sum. The md5sum should be provided as
+a hex string, eg. "6df23dc03f9b54cc38a0fc1483df6e21". Pass in a Unix-style
+file name and it will be converted for the local file system.
+
+=cut
+
+sub file_md5sum {
+ my $file = $_[0] =~ m{/}
+ ? File::Spec->catfile(split m{/}, shift)
+ : shift;
+ my ($md5sum, $desc) = @_;
+ $desc ||= "file matches md5sum";
+ local *IN;
+ if (open IN, $file) {
+ my $ctx = undef;
+ $ctx = Digest::MD5->new;
+ $ctx->addfile(*IN);
+ my $result = $ctx->hexdigest;
+ if ($result eq $md5sum) {
+ $Test->ok(1, $desc);
+ return 1;
+ } else {
+ $Test->diag("File $file has md5sum " . $result . " not $md5sum");
+ $Test->ok(0, $desc);
+ return 0;
+ }
+ close IN;
+ } else {
+ $Test->diag("Could not open file $file: $!");
+ $Test->ok(0, $desc);
+ return 0;
+ }
+}
+
+=head2 file_contents_identical
+
+Tests that the contents of two files are identical. Pass in a Unix-style file
+name and it will be converted for the local file system.
+
+=cut
+
+sub file_contents_identical {
+ my $file1 = $_[0] =~ m{/}
+ ? File::Spec->catfile(split m{/}, shift)
+ : shift;
+ my $file2 = $_[0] =~ m{/}
+ ? File::Spec->catfile(split m{/}, shift)
+ : shift;
+ my $desc = shift || 'file contents identical';
+
+ my $ok;
+ local(*IN1, *IN2);
+ if (open IN1, $file1) {
+ local $/ = undef;
+ my $content1 = <IN1>;
+ if (open IN2, $file2) {
+ my $content2 = <IN2>;
+ if ($content1 eq $content2) {
+ $Test->ok(1, $desc);
+ return 1;
+ } else {
+ $Test->diag("Files $file1 and $file2 are not identical.");
+ $Test->ok(0, $desc);
+ return 0;
+ }
+ } else {
+ $Test->diag("Could not open file $file1: $!");
+ $Test->ok(0, $desc);
+ return 0;
+ }
+ } else {
+ $Test->diag("Could not open file $file2: $!");
+ $Test->ok(0, $desc);
+ return 0;
+ }
+}
+
+sub _compare {
+ my $file = $_[0] =~ m{/}
+ ? File::Spec->catfile(split m{/}, shift)
+ : shift;
+ my ($code, $desc, $err) = @_;
+ my $ok;
+ local $Test::Builder::Level = 2;
+ local *IN;
+ if (open IN, $file) {
+ local $/ = undef;
+ if ($code->(<IN>)) {
+ $Test->ok(1, $desc);
+ return 1;
+ } else {
+ $Test->diag($err);
+ $Test->ok(0, $desc);
+ return 0;
+ }
+ } else {
+ $Test->diag("Could not open file $file: $!");
+ $Test->ok(0, $desc);
+ return 0;
+ }
+}
+
+=head1 AUTHOR
+
+Kirrily Robert, C<< <skud at cpan.org> >>
+
+Contributors:
+
+David Wheeler, C<< <dwheeler at cpan.org> >>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-test-file-contents at rt.cpan.org>, or through the web interface at
+L<http://rt.cpan.org>. I will be notified, and then you'll automatically
+be notified of progress on your bug as I make changes.
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2004-2005 Kirrily Robert.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
+
+1; # End of Test::File::Contents
Added: branches/upstream/libtest-file-contents-perl/current/t/00.load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/t/00.load.t?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/t/00.load.t (added)
+++ branches/upstream/libtest-file-contents-perl/current/t/00.load.t Fri Jan 7 11:27:54 2011
@@ -1,0 +1,7 @@
+use Test::More tests => 1;
+
+BEGIN {
+use_ok( 'Test::File::Contents' );
+}
+
+diag( "Testing Test::File::Contents $Test::File::Contents::VERSION" );
Added: branches/upstream/libtest-file-contents-perl/current/t/10.basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/t/10.basic.t?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/t/10.basic.t (added)
+++ branches/upstream/libtest-file-contents-perl/current/t/10.basic.t Fri Jan 7 11:27:54 2011
@@ -1,0 +1,137 @@
+#!/usr/bin/perl
+
+use Test::More tests => 25;
+use Test::Builder::Tester;
+
+# turn on coloured diagnostic mode if you have a colour terminal.
+# This is really useful as it lets you see even things you wouldn't
+# normally see like extra spaces on the end of things.
+use Test::Builder::Tester::Color;
+
+# see if we can load the module okay
+BEGIN { use_ok "Test::File::Contents" }
+
+# ===============================================================
+# Tests for file_contents_is
+# ===============================================================
+
+ok(defined(&file_contents_is), "function 'file_contents_is' exported");
+
+test_out("ok 1 - aaa test");
+file_contents_is("t/aaa.txt", "aaa\n", "aaa test");
+test_test("file_contents_is works when correct");
+
+test_out("ok 1 - file contents match string");
+file_contents_is("t/aaa.txt", "aaa\n");
+test_test("works when correct with default text");
+
+test_out("not ok 1 - file contents match string");
+test_diag("File t/aaa.txt does not match 'bbb'");
+test_fail(+1);
+file_contents_is("t/aaa.txt", "bbb");
+test_test("file_contents_is works when incorrect");
+
+
+# ===============================================================
+# Tests for file_contents_isnt
+# ===============================================================
+
+ok(defined(&file_contents_isnt), "function 'file_contents_isnt' exported");
+
+test_out("ok 1 - bbb test");
+file_contents_isnt("t/aaa.txt", "bbb\n", "bbb test");
+test_test("file_contents_isnt works when incorrect"); # XXX Ugh.
+
+test_out("ok 1 - file contents do not match string");
+file_contents_isnt("t/aaa.txt", "bbb\n");
+test_test("works when incorrect with default text");
+
+test_out("not ok 1 - file contents do not match string");
+test_diag("File t/aaa.txt matches 'aaa\n# '");
+test_fail(+1);
+file_contents_isnt("t/aaa.txt", "aaa\n");
+test_test("file_contents_isnt works when correct");
+
+
+# ===============================================================
+# Tests for file_contents_like
+# ===============================================================
+
+ok(defined(&file_contents_like), "function 'file_contents_like' exported");
+test_out("ok 1 - aaa regexp test");
+file_contents_like("t/aaa.txt", qr/[abc]/, "aaa regexp test");
+test_test("works when correct");
+
+test_out("ok 1 - file contents match regexp");
+file_contents_like("t/aaa.txt", qr/[abc]/);
+test_test("works when correct with default text");
+
+test_out("not ok 1 - file contents match regexp");
+my $regexp = qr/[xyz]/;
+test_diag("File t/aaa.txt does not match '$regexp'");
+test_fail(+1);
+file_contents_like("t/aaa.txt", $regexp);
+test_test("works when incorrect");
+
+# ===============================================================
+# Tests for file_contents_unlike
+# ===============================================================
+
+ok(defined(&file_contents_unlike), "function 'file_contents_unlike' exported");
+test_out("ok 1 - xyz regexp test");
+file_contents_unlike("t/aaa.txt", qr/[xyz]/, "xyz regexp test");
+test_test("works when incorrect");
+
+test_out("ok 1 - file contents do not match regexp");
+file_contents_unlike("t/aaa.txt", qr/[xyz]/);
+test_test("works when incorrect with default text");
+
+test_out("not ok 1 - file contents do not match regexp");
+$regexp = qr/[abc]/;
+test_diag("File t/aaa.txt matches '$regexp'");
+test_fail(+1);
+file_contents_unlike("t/aaa.txt", $regexp);
+test_test("works when correct");
+
+# ===============================================================
+# Tests for file_md5sum
+# ===============================================================
+
+# md5sum for t/aaa.txt is 5c9597f3c8245907ea71a89d9d39d08e
+
+ok(defined(&file_md5sum),"function 'file_md5sum' exported");
+
+test_out("ok 1 - aaa md5sum test");
+file_md5sum("t/aaa.txt", "5c9597f3c8245907ea71a89d9d39d08e", "aaa md5sum test");
+test_test("file_md5sum works when correct");
+
+test_out("ok 1 - file matches md5sum");
+file_md5sum("t/aaa.txt", "5c9597f3c8245907ea71a89d9d39d08e");
+test_test("file_md5sum works when correct with default text");
+
+test_out("not ok 1 - file matches md5sum");
+test_diag("File t/aaa.txt has md5sum 5c9597f3c8245907ea71a89d9d39d08e not 0123456789abcdef0123456789abcdef");
+test_fail(+1);
+file_md5sum("t/aaa.txt", "0123456789abcdef0123456789abcdef");
+test_test("file_md5sum works when incorrect");
+
+# ===============================================================
+# Tests for file_contents_identical
+# ===============================================================
+
+ok(defined(&file_contents_identical),"function 'file_contents_identical' exported");
+
+test_out("ok 1 - aaa identical test");
+file_contents_identical("t/aaa.txt", "t/aaa2.txt", "aaa identical test");
+test_test("file_contents_identical works when correct");
+
+test_out("ok 1 - file contents identical");
+file_contents_identical("t/aaa.txt", "t/aaa2.txt");
+test_test("file_contents_identical works when correct with default text");
+
+test_out("not ok 1 - file contents identical");
+test_diag("Files t/aaa.txt and t/bbb.txt are not identical.");
+test_fail(+1);
+file_contents_identical("t/aaa.txt", "t/bbb.txt");
+test_test("file_contents_identical works when incorrect");
+
Added: branches/upstream/libtest-file-contents-perl/current/t/aaa.txt
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/t/aaa.txt?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/t/aaa.txt (added)
+++ branches/upstream/libtest-file-contents-perl/current/t/aaa.txt Fri Jan 7 11:27:54 2011
@@ -1,0 +1,1 @@
+aaa
Added: branches/upstream/libtest-file-contents-perl/current/t/aaa2.txt
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/t/aaa2.txt?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/t/aaa2.txt (added)
+++ branches/upstream/libtest-file-contents-perl/current/t/aaa2.txt Fri Jan 7 11:27:54 2011
@@ -1,0 +1,1 @@
+aaa
Added: branches/upstream/libtest-file-contents-perl/current/t/bbb.txt
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/t/bbb.txt?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/t/bbb.txt (added)
+++ branches/upstream/libtest-file-contents-perl/current/t/bbb.txt Fri Jan 7 11:27:54 2011
@@ -1,0 +1,1 @@
+bbb
Added: branches/upstream/libtest-file-contents-perl/current/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/t/pod-coverage.t?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/t/pod-coverage.t (added)
+++ branches/upstream/libtest-file-contents-perl/current/t/pod-coverage.t Fri Jan 7 11:27:54 2011
@@ -1,0 +1,4 @@
+use Test::More;
+eval "use Test::Pod::Coverage 0.08";
+plan skip_all => "Test::Pod::Coverage 0.08 required for testing POD coverage" if $@;
+all_pod_coverage_ok();
Added: branches/upstream/libtest-file-contents-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-file-contents-perl/current/t/pod.t?rev=67125&op=file
==============================================================================
--- branches/upstream/libtest-file-contents-perl/current/t/pod.t (added)
+++ branches/upstream/libtest-file-contents-perl/current/t/pod.t Fri Jan 7 11:27:54 2011
@@ -1,0 +1,4 @@
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list