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