r12292 - in /branches/upstream/libtest-manifest-perl/1.22: ./ examples/ lib/ t/
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Wed Jan 9 13:00:18 UTC 2008
Author: dmn
Date: Wed Jan 9 13:00:17 2008
New Revision: 12292
URL: http://svn.debian.org/wsvn/?sc=1&rev=12292
Log:
Import upstream relaase 1.22
Added:
branches/upstream/libtest-manifest-perl/1.22/
branches/upstream/libtest-manifest-perl/1.22/Changes
branches/upstream/libtest-manifest-perl/1.22/LICENSE
branches/upstream/libtest-manifest-perl/1.22/MANIFEST
branches/upstream/libtest-manifest-perl/1.22/META.yml
branches/upstream/libtest-manifest-perl/1.22/Makefile.PL
branches/upstream/libtest-manifest-perl/1.22/README
branches/upstream/libtest-manifest-perl/1.22/examples/
branches/upstream/libtest-manifest-perl/1.22/examples/README
branches/upstream/libtest-manifest-perl/1.22/lib/
branches/upstream/libtest-manifest-perl/1.22/lib/Manifest.pm (with props)
branches/upstream/libtest-manifest-perl/1.22/t/
branches/upstream/libtest-manifest-perl/1.22/t/0.load.t
branches/upstream/libtest-manifest-perl/1.22/t/1.get_test_files.t
branches/upstream/libtest-manifest-perl/1.22/t/1.make_test_manifest.t
branches/upstream/libtest-manifest-perl/1.22/t/99.pod.t
branches/upstream/libtest-manifest-perl/1.22/t/include.t
branches/upstream/libtest-manifest-perl/1.22/t/include_in_manifest.txt
branches/upstream/libtest-manifest-perl/1.22/t/leading_space.t
branches/upstream/libtest-manifest-perl/1.22/t/pod_coverage.t
branches/upstream/libtest-manifest-perl/1.22/t/trailing_space.t
branches/upstream/libtest-manifest-perl/1.22/test_manifest
branches/upstream/libtest-manifest-perl/1.22/test_manifest_levels
branches/upstream/libtest-manifest-perl/1.22/test_manifest_with_include
Added: branches/upstream/libtest-manifest-perl/1.22/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/Changes?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/Changes (added)
+++ branches/upstream/libtest-manifest-perl/1.22/Changes Wed Jan 9 13:00:17 2008
@@ -1,0 +1,66 @@
+$Id: Changes 2350 2007-10-28 02:24:12Z comdog $
+
+1.22 - Sat Oct 27 21:24:10 2007
+ * distro cleanups after moving from CVS to SVN
+
+1.21 - Wed Sep 19 19:45:27 2007
+ * [BUGFIX] getting rid of Test::More
+
+1.17 - Thu Feb 22 13:20:23 2007
+ * Updated to Sourceforge's SVN repository
+ * Dist conforms to META 1.2 spec
+ * No feature changes, so no big hurry to upgrade
+
+1.16 - Tue Aug 29 17:43:16 2006
+ * Added an experimental feature to grab file names from additional
+ files. Just specify which other files to grab file names from:
+
+ ;include names_in_this_file.txt
+
+ See the docs for get_t_files().
+
+ * This is an experimental feature. This feature is experimental.
+
+1.14 - Sat Mar 26 20:55:45 2005
+ * put paths together with File::Spec (so this should work on
+ Windows
+ * You can now define levels of testing with TEST_LEVEL (e.g.
+ make test TEST_LEVEL=2)
+
+1.13 - Sat Mar 19 12:36:04 2005
+ * Added POD Coverage tests
+ * No more fooling with ExtUtils::* ---> put things in MY::* to
+ change behavior.
+ * If you are using Test::Manifest, you should upgrade and adjust
+ your Makefile.PL: the magic happens when Test::Manifest loads, so
+ you only need to load it. Ensure you require the right version:
+ eval "use Test::Manifest 1.13";
+
+1.11 - Sat Sep 25 18:43:38 2004
+ * This is a release version. It's the same code as 0.95
+ * Some doc updates
+
+0.95 - Thu Sep 2 15:59:26 2004
+* Test::Manifest is now more tolerant of sloppiness. It strips leading
+and trailing whitespace as it reads lines from test_manifest, and it
+skips comment lines.
+* If you already have Test::Manifest, you don't need to rush to get this
+new version unless you have a problem with whitespace issues.
+
+0.93 - Fri Feb 20 15:18:23 2004
+ * some minor tweaks for warnings, clarity
+ * docs show way to make Test::Manifest optional (should have thought
+ of it sooner)
+
+0.92 - Wed Jul 30 14:10:00 2003
+ * Made tests run clean under warnings.
+ * Closed a file that failed when trying to delete it under
+ Windows. (Thanks Mike O'Regan)
+ * Added POD tests.
+
+0.91 - Wed Dec 11 00:48:55 2002
+ * require ExtUtils::MakeMaker 6.x so the right run_tests is
+ available
+
+0.9 - Thu Oct 10 00:27:13 EDT 2002
+ + removed as many dependencies as possible
Added: branches/upstream/libtest-manifest-perl/1.22/LICENSE
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/LICENSE?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/LICENSE (added)
+++ branches/upstream/libtest-manifest-perl/1.22/LICENSE Wed Jan 9 13:00:17 2008
@@ -1,0 +1,1 @@
+You can use Test::Manifest under the same terms as Perl itself.
Added: branches/upstream/libtest-manifest-perl/1.22/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/MANIFEST?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/MANIFEST (added)
+++ branches/upstream/libtest-manifest-perl/1.22/MANIFEST Wed Jan 9 13:00:17 2008
@@ -1,0 +1,20 @@
+Changes
+examples/README
+lib/Manifest.pm
+LICENSE
+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/include.t
+t/include_in_manifest.txt
+t/leading_space.t
+t/pod_coverage.t
+t/trailing_space.t
+test_manifest
+test_manifest_levels
+test_manifest_with_include
+META.yml Module meta-data (added by MakeMaker)
Added: branches/upstream/libtest-manifest-perl/1.22/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/META.yml?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/META.yml (added)
+++ branches/upstream/libtest-manifest-perl/1.22/META.yml Wed Jan 9 13:00:17 2008
@@ -1,0 +1,15 @@
+--- #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
+author:
+ - brian d foy <bdfoy at cpan.org>
Added: branches/upstream/libtest-manifest-perl/1.22/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/Makefile.PL?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/Makefile.PL (added)
+++ branches/upstream/libtest-manifest-perl/1.22/Makefile.PL Wed Jan 9 13:00:17 2008
@@ -1,0 +1,30 @@
+# $Id: Makefile.PL 2349 2007-10-28 02:23:24Z comdog $
+use ExtUtils::MakeMaker;
+
+require 5.006;
+
+WriteMakefile
+ (
+ 'NAME' => 'Test::Manifest',
+ 'ABSTRACT' => 'interact with a t/test_manifest file',
+ 'VERSION_FROM' => 'lib/Manifest.pm',
+ 'LICENSE' => 'perl',
+ 'AUTHOR' => 'brian d foy <bdfoy at cpan.org>',
+
+ 'PREREQ_PM' => {
+ 'Test::More' => '0',
+ 'ExtUtils::MakeMaker' => '6.03',
+ },
+
+ 'PM' =>
+ {
+ 'lib/Manifest.pm' => '$(INST_LIBDIR)/Manifest.pm',
+ },
+
+ 'MAN3PODS' =>
+ {
+ 'lib/Manifest.pm' => '$(INST_MAN3DIR)/Test::Manifest.3',
+ },
+
+ clean => { FILES => 'Test-Manifest-* t/test_manifest' },
+ );
Added: branches/upstream/libtest-manifest-perl/1.22/README
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/README?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/README (added)
+++ branches/upstream/libtest-manifest-perl/1.22/README Wed Jan 9 13:00:17 2008
@@ -1,0 +1,27 @@
+$Id: README 1373 2004-09-02 20:43:32Z comdog $
+
+You can install this using in the usual Perl fashion
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+The documentation is in the module file. Once you install
+the file, you can read it with perldoc.
+
+ perldoc Test::Manifest
+
+If you want to read it before you install it, you can use
+perldoc directly on the module file.
+
+ perldoc lib/Manifest.pm
+
+This module is also in CVS on SourceForge
+
+ http://sourceforge.net/projects/brian-d-foy/
+
+
+Enjoy,
+
+brian d foy, bdfoy at cpan.org
Added: branches/upstream/libtest-manifest-perl/1.22/examples/README
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/examples/README?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/examples/README (added)
+++ branches/upstream/libtest-manifest-perl/1.22/examples/README Wed Jan 9 13:00:17 2008
@@ -1,0 +1,1 @@
+See the tests in the t/ directory for examples until I add some more.
Added: branches/upstream/libtest-manifest-perl/1.22/lib/Manifest.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/lib/Manifest.pm?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/lib/Manifest.pm (added)
+++ branches/upstream/libtest-manifest-perl/1.22/lib/Manifest.pm Wed Jan 9 13:00:17 2008
@@ -1,0 +1,323 @@
+# $Id$
+package Test::Manifest;
+use strict;
+
+use base qw(Exporter);
+use vars qw(@EXPORT_OK @EXPORT $VERSION);
+
+use Carp qw(carp);
+use File::Spec::Functions qw(catfile);
+
+ at EXPORT = qw(run_t_manifest);
+ at EXPORT_OK = qw(get_t_files make_test_manifest manifest_name);
+
+$VERSION = 1.22;
+
+my $Manifest = catfile( "t", "test_manifest" );
+my %SeenInclude = ();
+my %SeenTest = ();
+
+require 5.006;
+
+sub MY::test_via_harness
+ {
+ my($self, $perl, $tests) = @_;
+
+ return qq|\t$perl "-MTest::Manifest" | .
+ qq|"-e" "run_t_manifest(\$(TEST_VERBOSE), '\$(INST_LIB)', | .
+ qq|'\$(INST_ARCHLIB)', \$(TEST_LEVEL) )"\n|;
+ };
+
+=head1 NAME
+
+Test::Manifest - interact with a t/test_manifest file
+
+=head1 SYNOPSIS
+
+ # in Makefile.PL
+ eval "use Test::Manifest";
+
+ # in the file t/test_manifest, list the tests you want
+ # to run
+
+=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
+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
+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
+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
+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
+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.
+
+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.
+
+=head2 Functions
+
+=over 4
+
+=item run_t_manifest( TEST_VERBOSE, INST_LIB, INST_ARCHLIB, TEST_LEVEL )
+
+Run all of the files in t/test_manifest through Test::Harness:runtests
+in the order they appear in the file.
+
+ eval "use Test::Manifest";
+
+=cut
+
+sub run_t_manifest
+ {
+ require Test::Harness;
+ require File::Spec;
+
+ $Test::Harness::verbose = shift;
+
+ local @INC = @INC;
+ unshift @INC, map { File::Spec->rel2abs($_) } @_[0,1];
+
+ my( $level ) = $_[2] || ();
+
+ print STDERR "Level is $level\n";
+
+ my @files = get_t_files( $level );
+ print STDERR "Test::Manifest::test_harness found [@files]\n";
+
+ Test::Harness::runtests( @files );
+ }
+
+=item get_t_files( [LEVEL] )
+
+In scalar context it returns a single string that you can use directly
+in WriteMakefile(). In list context it returns a list of the files it
+found in t/test_manifest.
+
+If a t/test_manifest file does not exist, get_t_files() returns
+nothing.
+
+get_t_files() warns you if it can't find t/test_manifest, or if
+entries start with "t/". It skips blank lines, and strips Perl
+style comments from the file.
+
+Each line in t/test_manifest can have three parts: the test name,
+the test level (a floating point number), and a comment. By default,
+the test level is 1.
+
+ test_name.t 2 #Run this only for level 2 testing
+
+Without an argument, get_t_files() returns all the test files it
+finds. With an argument that is true (so you can't use 0 as a level)
+and is a number, it skips tests with a level greater than that
+argument. You can then define sets of tests and choose a set to
+run. For instance, you might create a set for end users, but also
+add on a set for deeper testing for developers.
+
+Experimentally, you can include a command to grab test names from
+another file. The command starts with a C<;> to distinguish it
+from a true filename. The filename (currently) is relative to the
+current working directory, unlike the filenames, which are relative
+to C<t/>. The filenames in the included are still relative to C<t/>.
+
+ ;include t/file_with_other_test_names.txt
+
+Also experimentally, you can stop Test::Manifest from reading filenames
+with the C<;skip> directive. Test::Harness will skip the filenames up to
+the C<;unskip> directive (or end of file)
+
+ run_this1
+ ;skip
+ skip_this
+ ;unskip
+ run_this2
+
+To select sets of tests, specify the level in the variable TEST_LEVEL
+during `make test`.
+
+ make test # run all tests no matter the level
+ make test TEST_LEVEL=2 # run all tests level 2 and below
+
+=cut
+
+sub get_t_files
+ {
+ my $upper_bound = shift;
+ print STDERR ( "# Test level is $upper_bound\n" ) if $Test::Harness::verbose;
+
+ %SeenInclude = ();
+ %SeenTest = ();
+
+ carp( "$Manifest does not exist!" ) unless -e $Manifest;
+ my $result = _load_test_manifest($Manifest, $upper_bound);
+ return unless defined $result;
+ my @tests = @{$result};
+
+ return wantarray ? @tests : join " ", @tests;
+ }
+
+# Wrapper for loading test manifest files to support including other files
+sub _load_test_manifest
+ {
+ my $manifest = shift;
+ return unless open my( $fh ), $manifest;
+
+ my $upper_bound = shift || 0;
+ my @tests = ();
+
+ LINE: while( <$fh> )
+ {
+ s/#.*//; s/^\s+//; s/\s+$//;
+
+ next unless $_;
+
+ my( $command, $arg ) = split/\s+/, $_, 2;
+ if( ';' eq substr( $command, 0, 1 ) )
+ {
+ if( $command eq ';include' )
+ {
+ my $result = _include_file( $arg, $., $upper_bound );
+ push @tests, @$result if defined $result;
+ next;
+ }
+ elsif( $command eq ';skip' )
+ {
+ while( <$fh> ) { last if m/^;unskip/ }
+ next LINE;
+ }
+ else
+ {
+ croak( "Unknown directive: $command" );
+ }
+ }
+
+ my( $test, $level ) = ( $command, $arg );
+ $level = 1 unless defined $level;
+
+ next if( $upper_bound and $level > $upper_bound );
+
+ carp( "Bad value for test [$test] level [$level]\n".
+ "Level should be a floating-point number\n" )
+ unless $level =~ m/^\d+(?:.\d+)?$/;
+ carp( "test file begins with t/ [$test]" ) if m|^t/|;
+
+ $test = catfile( "t", $test ) if -e catfile( "t", $test );
+ # Make sure we don't include a test we've already seen
+ next if exists $SeenTest{$test};
+
+ $SeenTest{$test} = 1;
+ push @tests, $test;
+ }
+
+ close $fh;
+ return \@tests;
+ }
+
+sub _include_file
+ {
+ my( $file, $line, $upper_bound ) = @_;
+ print STDERR ( "# Including file $file at line $line\n" ) if $Test::Harness::verbose;
+
+ unless( -e $file )
+ {
+ carp( "$file does not exist" ) ;
+ return;
+ }
+
+ if( exists $SeenInclude{$file} )
+ {
+ carp( "$file already loaded - skipping" ) ;
+ return;
+ }
+
+ $SeenInclude{$file} = $line;
+
+ my $result = _load_test_manifest( $file, $upper_bound );
+ return unless defined $result;
+
+ $result;
+ }
+
+
+=item make_test_manifest()
+
+Creates the test_manifest file in the t directory by reading
+the contents of the t directory.
+
+TO DO: specify tests in argument lists.
+
+TO DO: specify files to skip.
+
+=cut
+
+sub make_test_manifest()
+ {
+ carp( "t/ directory does not exist!" ) unless -d "t";
+ return unless open my( $fh ), "> $Manifest";
+
+ my $count = 0;
+ while( my $file = glob("t/*.t") )
+ {
+ $file =~ s|^t/||;
+ print $fh "$file\n";
+ $count++;
+ }
+ close $fh;
+
+ return $count;
+ }
+
+=item manifest_name()
+
+Returns the name of the test manifest file, relative to t/
+
+=cut
+
+sub manifest_name
+ {
+ return $Manifest;
+ }
+
+=back
+
+=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.
+
+=head1 CREDITS
+
+Matt Vanderpol suggested and supplied a patch for the ;include
+feature.
+
+=head1 AUTHOR
+
+brian d foy, C<< <bdfoy at cpan.org> >>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2002-2007 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.
+
+=cut
+
+
+1;
Propchange: branches/upstream/libtest-manifest-perl/1.22/lib/Manifest.pm
------------------------------------------------------------------------------
svn:keywords = Id
Added: branches/upstream/libtest-manifest-perl/1.22/t/0.load.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/t/0.load.t?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/t/0.load.t (added)
+++ branches/upstream/libtest-manifest-perl/1.22/t/0.load.t Wed Jan 9 13:00:17 2008
@@ -1,0 +1,6 @@
+# $Id: 0.load.t 1376 2004-09-02 20:56:40Z comdog $
+
+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/1.22/t/1.get_test_files.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/t/1.get_test_files.t?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/t/1.get_test_files.t (added)
+++ branches/upstream/libtest-manifest-perl/1.22/t/1.get_test_files.t Wed Jan 9 13:00:17 2008
@@ -1,0 +1,83 @@
+# $Id: 1.get_test_files.t 1635 2005-03-27 02:30:24Z comdog $
+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(
+ 0.load.t 1.get_test_files.t 1.make_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 };
+
+( unlink manifest_name() ) ?
+ pass( "test_manifest unlinked") :
+ fail( "test_manifest still around after unlink!");
+
+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( 0.load.t 1.get_test_files.t pod_coverage.t) ];
+$expected[2] = [ qw( 0.load.t 1.get_test_files.t 1.make_test_manifest.t
+ pod_coverage.t ) ];
+$expected[3] = [ qw( 0.load.t 1.get_test_files.t 1.make_test_manifest.t
+ leading_space.t pod_coverage.t trailing_space.t ) ];
+$expected[0] = [ qw( 0.load.t 1.get_test_files.t 1.make_test_manifest.t
+ leading_space.t pod_coverage.t trailing_space.t 99.pod.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" );
+ }
+
+}
+
+__END__
+# this is a comment, then a blank line
+
+0.load.t
+1.get_test_files.t 1
+1.make_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
Added: branches/upstream/libtest-manifest-perl/1.22/t/1.make_test_manifest.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/t/1.make_test_manifest.t?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/t/1.make_test_manifest.t (added)
+++ branches/upstream/libtest-manifest-perl/1.22/t/1.make_test_manifest.t Wed Jan 9 13:00:17 2008
@@ -1,0 +1,14 @@
+# $Id: 1.make_test_manifest.t 484 2002-10-10 04:19:16Z comdog $
+
+use Test::More tests => 2;
+
+use Test::Manifest qw(make_test_manifest);
+
+my $test_manifest = 't/test_manifest';
+
+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/1.22/t/99.pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/t/99.pod.t?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/t/99.pod.t (added)
+++ branches/upstream/libtest-manifest-perl/1.22/t/99.pod.t Wed Jan 9 13:00:17 2008
@@ -1,0 +1,5 @@
+# $Id: 99.pod.t 1376 2004-09-02 20:56:40Z comdog $
+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();
Added: branches/upstream/libtest-manifest-perl/1.22/t/include.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/t/include.t?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/t/include.t (added)
+++ branches/upstream/libtest-manifest-perl/1.22/t/include.t Wed Jan 9 13:00:17 2008
@@ -1,0 +1,36 @@
+# $Id: include.t 1891 2006-08-29 22:28:08Z comdog $
+use strict;
+
+use Test::More tests => 4;
+
+use File::Copy qw(copy);
+use File::Spec;
+
+use Test::Manifest qw(get_t_files manifest_name);
+
+ok( -e File::Spec->catfile( "t", "include_in_manifest.txt" ),
+ "Found file I'll include in test_manifest" );
+ok( -e 'test_manifest_with_include',
+ "Found file that I'll copy to test_manifest" );
+
+copy( 'test_manifest_with_include', manifest_name() );
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+my @expected_tests = map { File::Spec->catfile( "t", $_ ) } qw(
+ 0.load.t
+ 99.pod.t
+ 1.get_test_files.t
+ );
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+my $expected = join " ", @expected_tests;
+
+my $string = get_t_files();
+
+is( $string, $expected, "Single string version of tests is right" );
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+
+my @files = get_t_files();
+
+is_deeply( \@files, \@expected_tests, "Array version of tests is right" );
Added: branches/upstream/libtest-manifest-perl/1.22/t/include_in_manifest.txt
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/t/include_in_manifest.txt?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/t/include_in_manifest.txt (added)
+++ branches/upstream/libtest-manifest-perl/1.22/t/include_in_manifest.txt Wed Jan 9 13:00:17 2008
@@ -1,0 +1,2 @@
+99.pod.t
+1.get_test_files.t
Added: branches/upstream/libtest-manifest-perl/1.22/t/leading_space.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/t/leading_space.t?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/t/leading_space.t (added)
+++ branches/upstream/libtest-manifest-perl/1.22/t/leading_space.t Wed Jan 9 13:00:17 2008
@@ -1,0 +1,2 @@
+use Test::More tests => 1;
+pass( 'this file must exist for tests' );
Added: branches/upstream/libtest-manifest-perl/1.22/t/pod_coverage.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/t/pod_coverage.t?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/t/pod_coverage.t (added)
+++ branches/upstream/libtest-manifest-perl/1.22/t/pod_coverage.t Wed Jan 9 13:00:17 2008
@@ -1,0 +1,15 @@
+# $Id: pod_coverage.t 1633 2005-03-19 18:35:04Z comdog $
+
+use Test::More;
+eval "use Test::Pod::Coverage";
+
+if( $@ )
+ {
+ plan skip_all => "Test::Pod::Coverage required for testing POD";
+ }
+else
+ {
+ plan tests => 1;
+
+ pod_coverage_ok( "Test::Manifest" );
+ }
Added: branches/upstream/libtest-manifest-perl/1.22/t/trailing_space.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/t/trailing_space.t?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/t/trailing_space.t (added)
+++ branches/upstream/libtest-manifest-perl/1.22/t/trailing_space.t Wed Jan 9 13:00:17 2008
@@ -1,0 +1,2 @@
+use Test::More tests => 1;
+pass( 'this file must exist for tests' );
Added: branches/upstream/libtest-manifest-perl/1.22/test_manifest
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/test_manifest?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/test_manifest (added)
+++ branches/upstream/libtest-manifest-perl/1.22/test_manifest Wed Jan 9 13:00:17 2008
@@ -1,0 +1,7 @@
+# this is a comment, then a blank line
+
+0.load.t
+1.get_test_files.t
+1.make_test_manifest.t
+ leading_space.t
+trailing_space.t # comment at end of line
Added: branches/upstream/libtest-manifest-perl/1.22/test_manifest_levels
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/test_manifest_levels?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/test_manifest_levels (added)
+++ branches/upstream/libtest-manifest-perl/1.22/test_manifest_levels Wed Jan 9 13:00:17 2008
@@ -1,0 +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
+leading_space.t 2.9
+pod_coverage.t 1 # with a comment
+trailing_space.t 3 # with a comment
+99.pod.t 3.1
Added: branches/upstream/libtest-manifest-perl/1.22/test_manifest_with_include
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-manifest-perl/1.22/test_manifest_with_include?rev=12292&op=file
==============================================================================
--- branches/upstream/libtest-manifest-perl/1.22/test_manifest_with_include (added)
+++ branches/upstream/libtest-manifest-perl/1.22/test_manifest_with_include Wed Jan 9 13:00:17 2008
@@ -1,0 +1,2 @@
+0.load.t
+;include t/include_in_manifest.txt
More information about the Pkg-perl-cvs-commits
mailing list