r18382 - in /branches/upstream/libtest-class-perl/current: ./ lib/Test/ lib/Test/Class/ t/ t/developer/ t/test-libs/lib3/ t/test-libs/lib3/Tests/ t/test-libs/lib3/Tests/Subdir/
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Mon Apr 7 16:52:52 UTC 2008
Author: gregoa-guest
Date: Mon Apr 7 16:52:51 2008
New Revision: 18382
URL: http://svn.debian.org/wsvn/?sc=1&rev=18382
Log:
[svn-upgrade] Integrating new upstream version, libtest-class-perl (0.30)
Added:
branches/upstream/libtest-class-perl/current/t/21-load-subclassed.t
branches/upstream/libtest-class-perl/current/t/TestClassLoadSubclass.pm
branches/upstream/libtest-class-perl/current/t/runtests_with_wrong_class.t
branches/upstream/libtest-class-perl/current/t/show_plan_in_shutdown.t
branches/upstream/libtest-class-perl/current/t/test-libs/lib3/
branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/
branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Bad1.pm
branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good1.pm
branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good2.pm
branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/
branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Bad2.pm
branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Good3.pm
Modified:
branches/upstream/libtest-class-perl/current/Build.PL
branches/upstream/libtest-class-perl/current/Changes
branches/upstream/libtest-class-perl/current/MANIFEST
branches/upstream/libtest-class-perl/current/META.yml
branches/upstream/libtest-class-perl/current/Makefile.PL
branches/upstream/libtest-class-perl/current/README
branches/upstream/libtest-class-perl/current/lib/Test/Class.pm
branches/upstream/libtest-class-perl/current/lib/Test/Class/Load.pm
branches/upstream/libtest-class-perl/current/t/developer/spelling.t
Modified: branches/upstream/libtest-class-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/Build.PL?rev=18382&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/Build.PL (original)
+++ branches/upstream/libtest-class-perl/current/Build.PL Mon Apr 7 16:52:51 2008
@@ -4,16 +4,16 @@
module_name => 'Test::Class',
license => 'perl',
requires => {
- 'perl' => '5.6.1',
+ 'perl' => '5.006001',
'Attribute::Handlers' => '0.77',
'Class::ISA' => '0.32',
'Devel::Symdump' => '2.03',
'IO::File' => '1.13',
'Storable' => '2.04',
- 'Test::Simple' => '0.62',
- 'Test::Builder' => '0.32',
+ 'Test::Simple' => '0.78',
+ 'Test::Builder' => '0.78',
'Test::Builder::Tester' => '1.02',
- 'Test::More' => '0.62',
+ 'Test::More' => '0.78',
'Test::Exception' => '0.25',
},
create_makefile_pl => 'traditional',
Modified: branches/upstream/libtest-class-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/Changes?rev=18382&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/Changes (original)
+++ branches/upstream/libtest-class-perl/current/Changes Mon Apr 7 16:52:51 2008
@@ -1,3 +1,15 @@
+0.30 - or the "Oslo QA 2008 #2" release
+ - Move up to depend on Test::Simple 0.78 to stomp on RT##33809
+
+0.29 - or the "Oslo QA 2008" release
+ - Fixed some broken edge cases where you didn't get a plan when you had
+ tests in a shutdown method, and no tests in the rest of your class
+ - Test::Class::Load can now be subclassed so you can add your own filters
+ for what is considered a test class (patch from Cosimo Streppone)
+ - Described minimum perl as '5.006001' rather than '5.6.1' so old perls
+ understand what we're talking about.
+ - Fixed typo in docs (thanks Tony Edwardson)
+
0.28 - or the "just for the debian folk" release
- Downgraded some dependencies to avoid some bogus warnings on Debian
(thanks Gunnar Wolf & Hynek)
Modified: branches/upstream/libtest-class-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/MANIFEST?rev=18382&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/MANIFEST (original)
+++ branches/upstream/libtest-class-perl/current/MANIFEST Mon Apr 7 16:52:51 2008
@@ -9,6 +9,7 @@
README
t/00-load.t
t/20-load-classes.t
+t/21-load-subclassed.t
t/_new.t
t/bad-autoloads.t
t/bailout.t
@@ -44,6 +45,8 @@
t/runtests_result.t
t/runtests_return.t
t/runtests_trailing.t
+t/runtests_with_wrong_class.t
+t/show_plan_in_shutdown.t
t/skip1.t
t/skip2.t
t/skip_class_reason.t
@@ -54,9 +57,15 @@
t/test-libs/lib1/Tests/Foo.pm
t/test-libs/lib1/Tests/Foo/Bar.pm
t/test-libs/lib2/MyTest/Baz.pm
+t/test-libs/lib3/Tests/Bad1.pm
+t/test-libs/lib3/Tests/Good1.pm
+t/test-libs/lib3/Tests/Good2.pm
+t/test-libs/lib3/Tests/Subdir/Bad2.pm
+t/test-libs/lib3/Tests/Subdir/Good3.pm
t/test_classes.t
t/test_deep.t
t/test_method.t
t/test_verbose.t
+t/TestClassLoadSubclass.pm
t/Tests.t
t/todo.t
Modified: branches/upstream/libtest-class-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/META.yml?rev=18382&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/META.yml (original)
+++ branches/upstream/libtest-class-perl/current/META.yml Mon Apr 7 16:52:51 2008
@@ -1,6 +1,6 @@
---
name: Test-Class
-version: 0.28
+version: 0.30
author:
- 'Adrian Howard <adrianh at quietstars.com>'
abstract: Easily create test classes in an xUnit/JUnit style
@@ -13,19 +13,19 @@
Devel::Symdump: 2.03
IO::File: 1.13
Storable: 2.04
- Test::Builder: 0.32
+ Test::Builder: 0.78
Test::Builder::Tester: 1.02
Test::Exception: 0.25
- Test::More: 0.62
- Test::Simple: 0.62
- perl: 5.6.1
+ Test::More: 0.78
+ Test::Simple: 0.78
+ perl: 5.006001
provides:
Test::Class:
file: lib/Test/Class.pm
- version: 0.28
+ version: 0.30
Test::Class::Load:
file: lib/Test/Class/Load.pm
- version: 0.02
+ version: 0.03
Test::Class::MethodInfo:
file: lib/Test/Class/MethodInfo.pm
version: 0.02
Modified: branches/upstream/libtest-class-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/Makefile.PL?rev=18382&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/Makefile.PL (original)
+++ branches/upstream/libtest-class-perl/current/Makefile.PL Mon Apr 7 16:52:51 2008
@@ -1,5 +1,5 @@
# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
-require 5.6.1;
+require 5.006001;
use ExtUtils::MakeMaker;
WriteMakefile
(
@@ -11,11 +11,11 @@
'Devel::Symdump' => '2.03',
'IO::File' => '1.13',
'Storable' => '2.04',
- 'Test::Builder' => '0.32',
+ 'Test::Builder' => '0.78',
'Test::Builder::Tester' => '1.02',
'Test::Exception' => '0.25',
- 'Test::More' => '0.62',
- 'Test::Simple' => '0.62'
+ 'Test::More' => '0.78',
+ 'Test::Simple' => '0.78'
},
'INSTALLDIRS' => 'site',
'EXE_FILES' => [],
Modified: branches/upstream/libtest-class-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/README?rev=18382&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/README (original)
+++ branches/upstream/libtest-class-perl/current/README Mon Apr 7 16:52:51 2008
@@ -1201,17 +1201,17 @@
Framework paper <http://www.xprogramming.com/testfram.htm>.
Thanks to Adam Kennedy, agianni, Apocalypse, Ask Bjorn Hansen, Chris
- Dolan, Chris Williams, Corion, Daniel Berger, Dave O'Neill, David
- Cantrell, David Wheeler, Emil Jansson, Gunnar Wolf, Hai Pham, Hynek,
- imacat, Jeff Deifik, Jim Brandt, Jochen Stenzel, Johan Lindstrom, John
- West, Jonathan R. Warden, Joshua ben Jore, Jost Krieger, Kenichi
- Ishigaki Lee Goddard, Mark Reynolds, Mark Stosberg, Martin Ferrari,
- Mathieu Sauve-Frankel, Matt Trout, Matt Williamson, Michael G Schwern,
- Murat Uenalan, Nicholas Clark, Ovid, Piers Cawley, Rob Kinyon, Scott
- Lanning, Sebastien Aperghis-Tramoni, Steve Kirkup, Stray Toaster, Ted
- Carnahan, Terrence Brannon, Tom Metro, Tony Bowden, William McKee,
- various anonymous folk and all the fine people on perl-qa for their
- feedback, patches, suggestions and nagging.
+ Dolan, Chris Williams, Corion, Cosimo Streppone, Daniel Berger, Dave
+ O'Neill, David Cantrell, David Wheeler, Emil Jansson, Gunnar Wolf, Hai
+ Pham, Hynek, imacat, Jeff Deifik, Jim Brandt, Jochen Stenzel, Johan
+ Lindstrom, John West, Jonathan R. Warden, Joshua ben Jore, Jost Krieger,
+ Kenichi Ishigaki Lee Goddard, Mark Reynolds, Mark Stosberg, Martin
+ Ferrari, Mathieu Sauve-Frankel, Matt Trout, Matt Williamson, Michael G
+ Schwern, Murat Uenalan, Nicholas Clark, Ovid, Piers Cawley, Rob Kinyon,
+ Scott Lanning, Sebastien Aperghis-Tramoni, Steve Kirkup, Stray Toaster,
+ Ted Carnahan, Terrence Brannon, Tom Metro, Tony Bowden, Tony Edwardson,
+ William McKee, various anonymous folk and all the fine people on perl-qa
+ for their feedback, patches, suggestions and nagging.
This module wouldn't be possible without the excellent Test::Builder.
Thanks to chromatic and Michael G Schwern for creating such a useful
Modified: branches/upstream/libtest-class-perl/current/lib/Test/Class.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/lib/Test/Class.pm?rev=18382&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/lib/Test/Class.pm (original)
+++ branches/upstream/libtest-class-perl/current/lib/Test/Class.pm Mon Apr 7 16:52:51 2008
@@ -12,7 +12,7 @@
use Test::Builder;
use Test::Class::MethodInfo;
-our $VERSION = '0.28';
+our $VERSION = '0.30';
my $Check_block_has_run;
{
@@ -321,7 +321,7 @@
TEST_OBJECT: foreach my $t (@tests) {
# SHOULD ALSO ALLOW NO_PLAN
next if $t =~ m/^\d+$/;
- croak "$t not Test::Class or integer"
+ croak "$t is not Test::Class or integer"
unless _isa_class( __PACKAGE__, $t );
if (my $reason = $t->SKIP_CLASS) {
_show_header($t, @tests);
@@ -335,7 +335,7 @@
next TEST_OBJECT unless $method_passed;
};
my $class = ref($t);
- my @setup = _get_methods($t, SETUP);
+ my @setup = _get_methods($t, SETUP);
my @teardown = _get_methods($t, TEARDOWN);
foreach my $test (_get_methods($t, TEST)) {
local $Current_method = $test;
@@ -1529,6 +1529,7 @@
Chris Dolan,
Chris Williams,
Corion,
+Cosimo Streppone,
Daniel Berger,
Dave O'Neill,
David Cantrell,
@@ -1568,6 +1569,7 @@
Terrence Brannon,
Tom Metro,
Tony Bowden,
+Tony Edwardson,
William McKee,
various anonymous folk and all the fine people on perl-qa for their feedback, patches, suggestions and nagging.
Modified: branches/upstream/libtest-class-perl/current/lib/Test/Class/Load.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/lib/Test/Class/Load.pm?rev=18382&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/lib/Test/Class/Load.pm (original)
+++ branches/upstream/libtest-class-perl/current/lib/Test/Class/Load.pm Mon Apr 7 16:52:51 2008
@@ -7,21 +7,30 @@
use File::Find;
use File::Spec;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
+
+# Override to get your own filter
+sub is_test_class {
+ my ( $class, $file, $dir ) = @_;
+ # By default, we only care about .pm files
+ if ($file =~ /\.pm$/) {
+ return 1;
+ }
+ return;
+}
my %Added_to_INC;
-
sub _load {
- my ( $file, $dir ) = @_;
- $file =~ s/\.pm$// || return; # we only care about .pm files
+ my ( $class, $file, $dir ) = @_;
+ $file =~ s{\.pm$}{}; # remove .pm extension
$file =~ s{\\}{/}g; # to make win32 happy
$dir =~ s{\\}{/}g; # to make win32 happy
$file =~ s/^$dir//;
- my $_package = join '::' => grep $_ => File::Spec->splitdir($file);
+ my $_package = join '::' => grep $_ => File::Spec->splitdir( $file );
# untaint that puppy!
- my ($package) = $_package =~ /^([[:word:]]+(?:::[[:word:]]+)*)$/;
-
+ my ( $package ) = $_package =~ /^([[:word:]]+(?:::[[:word:]]+)*)$/;
+
unshift @INC => $dir unless $Added_to_INC{ $dir }++;
eval "require $package"; ## no critic
die $@ if $@;
@@ -29,11 +38,18 @@
sub import {
my ( $class, @directories ) = @_;
+ my @test_classes;
+
foreach my $dir ( @directories ) {
$dir = File::Spec->catdir( split '/', $dir );
find(
{ no_chdir => 1,
- wanted => sub { _load( $File::Find::name, $dir ) },
+ wanted => sub {
+ my @args = ($File::Find::name, $dir);
+ if ($class->is_test_class(@args)) {
+ $class->_load(@args);
+ }
+ },
},
$dir
);
@@ -43,6 +59,7 @@
1;
__END__
+
=head1 NAME
Test::Class::Load - Load C<Test::Class> classes automatically.
@@ -83,7 +100,7 @@
=head1 BASIC USAGE
-Using C<Test::More::Load> is as simple as this:
+Using C<Test::Load::Load> is as simple as this:
#!/usr/bin/perl -T
@@ -94,7 +111,7 @@
Test::Class->runtests;
-That will search through all files in the C<t/tests> directory and automatically load anything which ends in C<.pm>. You should only put test classes in those directories.
+That will search through all files in the C<t/tests> directory and automatically load anything which ends in C<.pm>. You should only put test classes in those directories.
If you have test classes in more than one directory, that's OK. Just list all of them in the import list.
@@ -107,6 +124,50 @@
=head1 ADVANCED USAGE
+Here's some examples of advanced usage of C<Test::Class::Load>.
+
+=head2 FILTER LOADED CLASSES
+
+You can redefine the filtering criteria, that is, decide what classes are picked
+up and what others are not. You do this simply by subclassing
+C<Test::Class::Load> overriding the C<is_test_class()> method. You might want to
+do this to only load modules which inherit from C<Test::Class>, or anything else
+for that matter.
+
+=over 4
+
+=item B<is_test_class>
+
+ $is_test_class = $class->is_test_class( $file, $directory )
+
+Returns true if C<$file> in C<$directory> should be considered a test class and be loaded by L<Test::Class::Load>. The default filter simply returns true if C<$file> ends with C<.pm>
+
+=back
+
+For example:
+
+ use strict;
+ use warnings;
+
+ package My::Loader;
+ use base qw( Test::Class::Load );
+
+ # Overriding this selects what test classes
+ # are considered by T::C::Load
+ sub is_test_class {
+ my ( $class, $file, $dir ) = @_;
+
+ # return unless it's a .pm (the default)
+ return unless $class->SUPER:is_test_class( $file, $dir );
+
+ # and only allow .pm files with "Good" in their filename
+ return $file =~ m{Good};
+ }
+
+ 1;
+
+=head2 CUSTOMIZING TEST RUNS
+
One problem with this style of testing is that you run I<all> of the tests every time you need to test something. If you want to run only one test class, it's problematic. The easy way to do this is to change your helper script by deleting the C<runtests> call:
#!/usr/bin/perl -T
@@ -143,7 +204,6 @@
If you do that, you'll have to make sure that the C<-I> switches point to your test class directories.
-
=head1 SECURITY
C<Test::Class::Load> is taint safe. Because we're reading the class names from the directory structure, they're marked as tainted when running under taint mode. We use the following ultra-paranoid bit of code to untaint them. Please file a bug report if this is too restrictive.
Added: branches/upstream/libtest-class-perl/current/t/21-load-subclassed.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/21-load-subclassed.t?rev=18382&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/21-load-subclassed.t (added)
+++ branches/upstream/libtest-class-perl/current/t/21-load-subclassed.t Mon Apr 7 16:52:51 2008
@@ -1,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 7;
+use lib './t';
+use TestClassLoadSubclass 't/test-libs/lib3';
+
+ok exists $INC{'Tests/Good1.pm'},
+ 'Classes in top level directories should be loaded';
+
+ok exists $INC{'Tests/Subdir/Good3.pm'},
+ '... as should classes in subdirectories';
+
+ok !exists $INC{'Tests/Bad1.pm'},
+ 'Filtered out classes in top level directories should *not* be loaded';
+
+ok !exists $INC{'Tests/Subdir/Bad2.pm'},
+ 'Filtered out classes in subdirectories should *not* be loaded';
+
+for my $class (qw(Tests::Good1 Tests::Good2 Tests::Subdir::Good3)) {
+ is $class->ok(), $class, 'Class ' . $class . ' method work as expected'
+}
+
Added: branches/upstream/libtest-class-perl/current/t/TestClassLoadSubclass.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/TestClassLoadSubclass.pm?rev=18382&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/TestClassLoadSubclass.pm (added)
+++ branches/upstream/libtest-class-perl/current/t/TestClassLoadSubclass.pm Mon Apr 7 16:52:51 2008
@@ -1,0 +1,18 @@
+package TestClassLoadSubclass;
+
+use strict;
+use warnings;
+use base qw(Test::Class::Load);
+
+# Overriding this selects what test classes
+# are considered by T::C::Load
+sub is_test_class {
+ my ($class, $file, $dir) = @_;
+ # Get only "good" classes
+ if ($file =~ m{Good}) {
+ return 1;
+ }
+ return;
+}
+
+1;
Modified: branches/upstream/libtest-class-perl/current/t/developer/spelling.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/developer/spelling.t?rev=18382&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/developer/spelling.t (original)
+++ branches/upstream/libtest-class-perl/current/t/developer/spelling.t Mon Apr 7 16:52:51 2008
@@ -102,3 +102,6 @@
Dolan
Brandt
Hynek
+Edwardson
+Cosimo
+Streppone
Added: branches/upstream/libtest-class-perl/current/t/runtests_with_wrong_class.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/runtests_with_wrong_class.t?rev=18382&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/runtests_with_wrong_class.t (added)
+++ branches/upstream/libtest-class-perl/current/t/runtests_with_wrong_class.t Mon Apr 7 16:52:51 2008
@@ -1,0 +1,11 @@
+#! /usr/bin/perl -T
+
+use strict;
+use warnings FATAL => 'all';
+use Test::Exception;
+use Test::More tests => 2;
+
+BEGIN { use_ok 'Test::Class' };
+
+dies_ok { Test::Class->runtests( 'Not::A::Test::Class' ) }
+ 'runtests dies if we are given something that is not a test class';
Added: branches/upstream/libtest-class-perl/current/t/show_plan_in_shutdown.t
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/show_plan_in_shutdown.t?rev=18382&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/show_plan_in_shutdown.t (added)
+++ branches/upstream/libtest-class-perl/current/t/show_plan_in_shutdown.t Mon Apr 7 16:52:51 2008
@@ -1,0 +1,20 @@
+#! /usr/bin/perl -T
+
+use strict;
+use warnings FATAL => 'all';
+use Test::More tests => 1;
+
+my $shutdown_has_run;
+
+{ package My::Test;
+ use base qw( Test::Class );
+ use Test::More;
+
+ sub shutdown :Test( shutdown ) {
+ $shutdown_has_run = 1;
+ }
+
+}
+
+My::Test->runtests( +1 );
+ok $shutdown_has_run, "shutdown method has run";
Added: branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Bad1.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Bad1.pm?rev=18382&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Bad1.pm (added)
+++ branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Bad1.pm Mon Apr 7 16:52:51 2008
@@ -1,0 +1,8 @@
+package Tests::Bad1;
+
+use strict;
+use warnings;
+
+sub ok { __PACKAGE__ }
+
+1;
Added: branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good1.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good1.pm?rev=18382&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good1.pm (added)
+++ branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good1.pm Mon Apr 7 16:52:51 2008
@@ -1,0 +1,9 @@
+package Tests::Good1;
+
+use strict;
+use warnings;
+
+sub ok { __PACKAGE__ }
+
+1;
+
Added: branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good2.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good2.pm?rev=18382&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good2.pm (added)
+++ branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Good2.pm Mon Apr 7 16:52:51 2008
@@ -1,0 +1,8 @@
+package Tests::Good2;
+
+use strict;
+use warnings;
+
+sub ok { __PACKAGE__ }
+
+1;
Added: branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Bad2.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Bad2.pm?rev=18382&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Bad2.pm (added)
+++ branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Bad2.pm Mon Apr 7 16:52:51 2008
@@ -1,0 +1,8 @@
+package Tests::Subdir::Bad2;
+
+use strict;
+use warnings;
+
+sub ok { __PACKAGE__ }
+
+1;
Added: branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Good3.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Good3.pm?rev=18382&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Good3.pm (added)
+++ branches/upstream/libtest-class-perl/current/t/test-libs/lib3/Tests/Subdir/Good3.pm Mon Apr 7 16:52:51 2008
@@ -1,0 +1,9 @@
+package Tests::Subdir::Good3;
+
+use strict;
+use warnings;
+
+sub ok { __PACKAGE__ }
+
+1;
+
More information about the Pkg-perl-cvs-commits
mailing list