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