r40079 - in /branches/upstream/libtest-manifest-perl/current: ./ lib/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Jul 17 17:54:32 UTC 2009
Author: jawnsy-guest
Date: Fri Jul 17 17:54:26 2009
New Revision: 40079
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40079
Log:
[svn-upgrade] Integrating new upstream version, libtest-manifest-perl (1.23)
Added:
branches/upstream/libtest-manifest-perl/current/t/00load.t
branches/upstream/libtest-manifest-perl/current/t/01get_test_files.t
branches/upstream/libtest-manifest-perl/current/t/01make_test_manifest.t
branches/upstream/libtest-manifest-perl/current/t/99pod.t
Removed:
branches/upstream/libtest-manifest-perl/current/t/0.load.t
branches/upstream/libtest-manifest-perl/current/t/1.get_test_files.t
branches/upstream/libtest-manifest-perl/current/t/1.make_test_manifest.t
branches/upstream/libtest-manifest-perl/current/t/99.pod.t
Modified:
branches/upstream/libtest-manifest-perl/current/Changes
branches/upstream/libtest-manifest-perl/current/MANIFEST
branches/upstream/libtest-manifest-perl/current/META.yml
branches/upstream/libtest-manifest-perl/current/Makefile.PL
branches/upstream/libtest-manifest-perl/current/README
branches/upstream/libtest-manifest-perl/current/lib/Manifest.pm
branches/upstream/libtest-manifest-perl/current/t/include.t
branches/upstream/libtest-manifest-perl/current/t/include_in_manifest.txt
branches/upstream/libtest-manifest-perl/current/t/pod_coverage.t
branches/upstream/libtest-manifest-perl/current/test_manifest
branches/upstream/libtest-manifest-perl/current/test_manifest_levels
branches/upstream/libtest-manifest-perl/current/test_manifest_with_include
Modified: branches/upstream/libtest-manifest-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/Changes?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/Changes (original)
+++ branches/upstream/libtest-manifest-perl/current/Changes Fri Jul 17 17:54:26 2009
@@ -1,4 +1,19 @@
-$Id: Changes 2350 2007-10-28 02:24:12Z comdog $
+1.22_03 - Tue Jul 29 21:14:49 2008
+ * Fixed bug for missing file: previously the missing file
+ name was passed through to run_t_files, although without
+ the t/ added to its path. Test::Manifest should only
+ warn about and skip missing files.
+
+1.23 - Fri Jul 17 03:04:38 2009
+ * Move everything to git and finally make a release
+
+1.22_02 - Thu Jan 24 06:13:13 2008
+ * File path and unlink fixes for VMS (RT #32061). Let's see if this works.
+
+1.22_01 - Sun Jan 6 14:18:46 2008
+ * Changed test file names to only have one dot in them so they
+ work on VMS and ODS-2 file systems: RT #32061
+ * This is a test release.
1.22 - Sat Oct 27 21:24:10 2007
* distro cleanups after moving from CVS to SVN
Modified: branches/upstream/libtest-manifest-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/MANIFEST?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/MANIFEST (original)
+++ branches/upstream/libtest-manifest-perl/current/MANIFEST Fri Jul 17 17:54:26 2009
@@ -5,10 +5,10 @@
Makefile.PL
MANIFEST This list of files
README
-t/0.load.t
-t/1.get_test_files.t
-t/1.make_test_manifest.t
-t/99.pod.t
+t/00load.t
+t/01get_test_files.t
+t/01make_test_manifest.t
+t/99pod.t
t/include.t
t/include_in_manifest.txt
t/leading_space.t
Modified: branches/upstream/libtest-manifest-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/META.yml?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/META.yml (original)
+++ branches/upstream/libtest-manifest-perl/current/META.yml Fri Jul 17 17:54:26 2009
@@ -1,15 +1,23 @@
--- #YAML:1.0
-name: Test-Manifest
-version: 1.22
-abstract: interact with a t/test_manifest file
-license: perl
-generated_by: ExtUtils::MakeMaker version 6.36
-distribution_type: module
-requires:
- ExtUtils::MakeMaker: 6.03
- Test::More: 0
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+name: Test-Manifest
+version: 1.23
+abstract: interact with a t/test_manifest file
author:
- brian d foy <bdfoy at cpan.org>
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ ExtUtils::MakeMaker: 6.03
+ Test::More: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.50
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libtest-manifest-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/Makefile.PL?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/Makefile.PL (original)
+++ branches/upstream/libtest-manifest-perl/current/Makefile.PL Fri Jul 17 17:54:26 2009
@@ -1,4 +1,3 @@
-# $Id: Makefile.PL 2349 2007-10-28 02:23:24Z comdog $
use ExtUtils::MakeMaker;
require 5.006;
@@ -21,10 +20,7 @@
'lib/Manifest.pm' => '$(INST_LIBDIR)/Manifest.pm',
},
- 'MAN3PODS' =>
- {
- 'lib/Manifest.pm' => '$(INST_MAN3DIR)/Test::Manifest.3',
- },
+ 'MAN3PODS' => {},
clean => { FILES => 'Test-Manifest-* t/test_manifest' },
);
Modified: branches/upstream/libtest-manifest-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/README?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/README (original)
+++ branches/upstream/libtest-manifest-perl/current/README Fri Jul 17 17:54:26 2009
@@ -1,6 +1,4 @@
-$Id: README 1373 2004-09-02 20:43:32Z comdog $
-
-You can install this using in the usual Perl fashion
+You can install this using in the usual Perl fashion:
perl Makefile.PL
make
@@ -17,11 +15,11 @@
perldoc lib/Manifest.pm
-This module is also in CVS on SourceForge
+This module is also in Github
- http://sourceforge.net/projects/brian-d-foy/
+ http://github.com/briandfoy/Test-Manifest/tree/master
Enjoy,
-brian d foy, bdfoy at cpan.org
+brian d foy, bdfoy at cpan.org
Modified: branches/upstream/libtest-manifest-perl/current/lib/Manifest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/lib/Manifest.pm?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/lib/Manifest.pm (original)
+++ branches/upstream/libtest-manifest-perl/current/lib/Manifest.pm Fri Jul 17 17:54:26 2009
@@ -1,7 +1,9 @@
-# $Id: Manifest.pm 2349 2007-10-28 02:23:24Z comdog $
package Test::Manifest;
use strict;
+use warnings;
+no warnings;
+
use base qw(Exporter);
use vars qw(@EXPORT_OK @EXPORT $VERSION);
@@ -11,7 +13,7 @@
@EXPORT = qw(run_t_manifest);
@EXPORT_OK = qw(get_t_files make_test_manifest manifest_name);
-$VERSION = 1.22;
+$VERSION = '1.23';
my $Manifest = catfile( "t", "test_manifest" );
my %SeenInclude = ();
@@ -42,29 +44,30 @@
=head1 DESCRIPTION
-Test::Harness assumes that you want to run all of the .t files in the
-t/ directory in ascii-betical order during C<make test> unless you say
+C<Test::Harness> assumes that you want to run all of the F<.t> files in the
+F<t/> directory in ascii-betical order during C<make test> unless you say
otherwise. This leads to some interesting naming schemes for test
files to get them in the desired order. This interesting names ossify
when they get into source control, and get even more interesting as
more tests show up.
-Test::Manifest overrides the default behaviour by replacing the
+C<Test::Manifest> overrides the default behaviour by replacing the
test_via_harness target in the Makefile. Instead of running at the
-t/*.t files in ascii-betical order, it looks in the t/test_manifest
+F<t/*.t> files in ascii-betical order, it looks in the F<t/test_manifest>
file to find out which tests you want to run and the order in which
you want to run them. It constructs the right value for MakeMaker to
do the right thing.
-In t/test_manifest, simply list the tests that you want to run. Their
+In F<t/test_manifest>, simply list the tests that you want to run. Their
order in the file is the order in which they run. You can comment
-lines with a #, just like in Perl, and Test::Manifest will strip
+lines with a C<#>, just like in Perl, and C<Test::Manifest> will strip
leading and trailing whitespace from each line. It also checks that
-the specified file is actually in the t/ directory. If the file does
-not exist, it does not put its name in the list of test files to run.
+the specified file is actually in the F<t/> directory. If the file does
+not exist, it does not put its name in the list of test files to run and
+it will issue a warning.
Optionally, you can add a number after the test name in test_manifest
-to define sets of tests. See get_t_files() for more information.
+to define sets of tests. See C<get_t_files> for more information.
=head2 Functions
@@ -89,12 +92,17 @@
local @INC = @INC;
unshift @INC, map { File::Spec->rel2abs($_) } @_[0,1];
- my( $level ) = $_[2] || ();
-
- print STDERR "Level is $level\n";
+ my( $level ) = $_[2] || 0;
+
+ print STDERR "Test::Manifest $VERSION\n"
+ if $Test::Harness::verbose;
+
+ print STDERR "Level is $level\n"
+ if $Test::Harness::verbose;
my @files = get_t_files( $level );
- print STDERR "Test::Manifest::test_harness found [@files]\n";
+ print STDERR "Test::Manifest::test_harness found [@files]\n"
+ if $Test::Harness::verbose;
Test::Harness::runtests( @files );
}
@@ -154,7 +162,8 @@
sub get_t_files
{
my $upper_bound = shift;
- print STDERR ( "# Test level is $upper_bound\n" ) if $Test::Harness::verbose;
+ print STDERR "# Test level is $upper_bound\n"
+ if $Test::Harness::verbose;
%SeenInclude = ();
%SeenTest = ();
@@ -213,6 +222,13 @@
carp( "test file begins with t/ [$test]" ) if m|^t/|;
$test = catfile( "t", $test ) if -e catfile( "t", $test );
+
+ unless( -e $test )
+ {
+ carp( "test file [$test] does not exist! Skipping!" );
+ next;
+ }
+
# Make sure we don't include a test we've already seen
next if exists $SeenTest{$test};
@@ -227,7 +243,8 @@
sub _include_file
{
my( $file, $line, $upper_bound ) = @_;
- print STDERR ( "# Including file $file at line $line\n" ) if $Test::Harness::verbose;
+ print STDERR "# Including file $file at line $line\n"
+ if $Test::Harness::verbose;
unless( -e $file )
{
@@ -293,13 +310,9 @@
=head1 SOURCE AVAILABILITY
-This source is part of a SourceForge project which always has the
-latest sources in CVS, as well as all of the previous releases.
-
- http://sourceforge.net/projects/brian-d-foy/
-
-If, for some reason, I disappear from the world, one of the other
-members of the project can shepherd this module appropriately.
+This source is in Github:
+
+ http://github.com/briandfoy/Test-Manifest/tree/master
=head1 CREDITS
@@ -312,7 +325,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2002-2007 brian d foy. All rights reserved.
+Copyright (c) 2002-2009 brian d foy. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Added: branches/upstream/libtest-manifest-perl/current/t/00load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/t/00load.t?rev=40079&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/t/00load.t (added)
+++ branches/upstream/libtest-manifest-perl/current/t/00load.t Fri Jul 17 17:54:26 2009
@@ -1,0 +1,4 @@
+use Test::More tests => 1;
+
+print "bail out! Test::Manifest could not compile.\n"
+ unless use_ok( "Test::Manifest" );
Added: branches/upstream/libtest-manifest-perl/current/t/01get_test_files.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/t/01get_test_files.t?rev=40079&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/t/01get_test_files.t (added)
+++ branches/upstream/libtest-manifest-perl/current/t/01get_test_files.t Fri Jul 17 17:54:26 2009
@@ -1,0 +1,80 @@
+use strict;
+
+use Test::More tests => 13;
+
+use File::Copy qw(copy);
+use File::Spec;
+
+use Test::Manifest qw(get_t_files manifest_name);
+
+copy( 'test_manifest', manifest_name() );
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+my $expected = join " ", map { File::Spec->catfile( "t", $_ ) } qw(
+ 00load.t 01get_test_files.t 01make_test_manifest.t
+ leading_space.t trailing_space.t
+ );
+
+my @tests = split /\s+/, $expected;
+
+my $string = get_t_files();
+
+is( $string, $expected, "Single string version of tests is right" );
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+my @array = get_t_files();
+
+foreach my $i ( 0 .. $#array )
+ {
+ is( $array[$i], $tests[$i], "Test file $i has expected name" );
+ }
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+{
+local $SIG{__WARN__} = sub { 1 };
+
+if( $^O eq 'VMS' ) # http://perldoc.perl.org/perlvms.html#unlink-LIST
+ {
+ 1 while ( unlink manifest_name() );
+ }
+else
+ {
+ unlink manifest_name();
+ }
+
+-e manifest_name() ?
+ fail( "test_manifest still around after unlink!") :
+ pass( "test_manifest unlinked") ;
+
+my $string = get_t_files();
+
+ok( ! $string, "Nothing returned when test_manifest does not exist (scalar)" );
+
+my @array = get_t_files();
+
+ok( ! $string, "Nothing returned when test_manifest does not exist (list)" );
+}
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+{
+local $Test::Harness::verbose = 1;
+copy( 'test_manifest_levels', manifest_name() );
+
+my @expected = ( [] );
+$expected[1] = [ qw( 00load.t 01get_test_files.t pod_coverage.t) ];
+$expected[2] = [ qw( 00load.t 01get_test_files.t 01make_test_manifest.t
+ pod_coverage.t ) ];
+$expected[3] = [ qw( 00load.t 01get_test_files.t 01make_test_manifest.t
+ leading_space.t pod_coverage.t trailing_space.t ) ];
+$expected[0] = [ qw( 00load.t 01get_test_files.t 01make_test_manifest.t
+ leading_space.t pod_coverage.t trailing_space.t 99pod.t ) ];
+
+foreach my $level ( 0 .. 3 )
+ {
+ my $string = get_t_files( $level );
+ my $expected = join ' ', map { File::Spec->catfile( 't', $_ ) }
+ @{ $expected[$level] };
+ is( $string, $expected, "Level $level version of tests is right" );
+ }
+
+}
Added: branches/upstream/libtest-manifest-perl/current/t/01make_test_manifest.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/t/01make_test_manifest.t?rev=40079&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/t/01make_test_manifest.t (added)
+++ branches/upstream/libtest-manifest-perl/current/t/01make_test_manifest.t Fri Jul 17 17:54:26 2009
@@ -1,0 +1,20 @@
+use Test::More tests => 2;
+
+use Test::Manifest qw(make_test_manifest);
+
+my $test_manifest = File::Spec->catfile( qw(t test_manifest) );
+
+if($^O eq 'VMS') # http://perldoc.perl.org/perlvms.html#unlink-LIST
+ {
+ 1 while ( unlink $test_manifest );
+ }
+else
+ {
+ unlink $test_manifest;
+ }
+
+ok( ! -e $test_manifest, 'test_manifest does not exit' );
+
+make_test_manifest();
+
+ok( -e $test_manifest, 'test_manifest exists' );
Added: branches/upstream/libtest-manifest-perl/current/t/99pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/t/99pod.t?rev=40079&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/t/99pod.t (added)
+++ branches/upstream/libtest-manifest-perl/current/t/99pod.t Fri Jul 17 17:54:26 2009
@@ -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();
Modified: branches/upstream/libtest-manifest-perl/current/t/include.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/t/include.t?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/t/include.t (original)
+++ branches/upstream/libtest-manifest-perl/current/t/include.t Fri Jul 17 17:54:26 2009
@@ -1,4 +1,3 @@
-# $Id: include.t 1891 2006-08-29 22:28:08Z comdog $
use strict;
use Test::More tests => 4;
@@ -17,9 +16,9 @@
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
my @expected_tests = map { File::Spec->catfile( "t", $_ ) } qw(
- 0.load.t
- 99.pod.t
- 1.get_test_files.t
+ 00load.t
+ 99pod.t
+ 01get_test_files.t
);
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Modified: branches/upstream/libtest-manifest-perl/current/t/include_in_manifest.txt
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/t/include_in_manifest.txt?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/t/include_in_manifest.txt (original)
+++ branches/upstream/libtest-manifest-perl/current/t/include_in_manifest.txt Fri Jul 17 17:54:26 2009
@@ -1,2 +1,2 @@
-99.pod.t
-1.get_test_files.t
+99pod.t
+01get_test_files.t
Modified: branches/upstream/libtest-manifest-perl/current/t/pod_coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/t/pod_coverage.t?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/t/pod_coverage.t (original)
+++ branches/upstream/libtest-manifest-perl/current/t/pod_coverage.t Fri Jul 17 17:54:26 2009
@@ -1,5 +1,3 @@
-# $Id: pod_coverage.t 1633 2005-03-19 18:35:04Z comdog $
-
use Test::More;
eval "use Test::Pod::Coverage";
Modified: branches/upstream/libtest-manifest-perl/current/test_manifest
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/test_manifest?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/test_manifest (original)
+++ branches/upstream/libtest-manifest-perl/current/test_manifest Fri Jul 17 17:54:26 2009
@@ -1,7 +1,7 @@
# this is a comment, then a blank line
-0.load.t
-1.get_test_files.t
-1.make_test_manifest.t
+00load.t
+01get_test_files.t
+01make_test_manifest.t
leading_space.t
trailing_space.t # comment at end of line
Modified: branches/upstream/libtest-manifest-perl/current/test_manifest_levels
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/test_manifest_levels?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/test_manifest_levels (original)
+++ branches/upstream/libtest-manifest-perl/current/test_manifest_levels Fri Jul 17 17:54:26 2009
@@ -1,9 +1,9 @@
# this is a comment, then a blank line
-0.load.t
-1.get_test_files.t 1
-1.make_test_manifest.t 2
+00load.t
+01get_test_files.t 1
+01make_test_manifest.t 2
leading_space.t 2.9
pod_coverage.t 1 # with a comment
trailing_space.t 3 # with a comment
-99.pod.t 3.1
+99pod.t 3.1
Modified: branches/upstream/libtest-manifest-perl/current/test_manifest_with_include
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-manifest-perl/current/test_manifest_with_include?rev=40079&op=diff
==============================================================================
--- branches/upstream/libtest-manifest-perl/current/test_manifest_with_include (original)
+++ branches/upstream/libtest-manifest-perl/current/test_manifest_with_include Fri Jul 17 17:54:26 2009
@@ -1,2 +1,2 @@
-0.load.t
+00load.t
;include t/include_in_manifest.txt
More information about the Pkg-perl-cvs-commits
mailing list