r53962 - in /branches/upstream/libtest-class-perl/current: Build.PL Changes MANIFEST META.yml Makefile.PL README lib/Test/Class.pm lib/Test/Class/Load.pm lib/Test/Class/MethodInfo.pm t/97_meta.t t/98_pod.t t/99_pmv.t xt/ xt/meta.t xt/pmv.t xt/pod.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Mar 8 18:04:04 UTC 2010
Author: jawnsy-guest
Date: Mon Mar 8 18:03:48 2010
New Revision: 53962
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53962
Log:
[svn-upgrade] Integrating new upstream version, libtest-class-perl (0.34)
Added:
branches/upstream/libtest-class-perl/current/xt/
branches/upstream/libtest-class-perl/current/xt/meta.t
branches/upstream/libtest-class-perl/current/xt/pmv.t
branches/upstream/libtest-class-perl/current/xt/pod.t
Removed:
branches/upstream/libtest-class-perl/current/t/97_meta.t
branches/upstream/libtest-class-perl/current/t/98_pod.t
branches/upstream/libtest-class-perl/current/t/99_pmv.t
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/lib/Test/Class/MethodInfo.pm
Modified: branches/upstream/libtest-class-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/Build.PL?rev=53962&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/Build.PL (original)
+++ branches/upstream/libtest-class-perl/current/Build.PL Mon Mar 8 18:03:48 2010
@@ -6,15 +6,16 @@
requires => {
'perl' => '5.006001',
'Attribute::Handlers' => '0.77',
- 'Class::ISA' => '0.32',
- 'Devel::Symdump' => '2.03',
- 'IO::File' => '1.09',
+ 'MRO::Compat' => '0.11',
'Storable' => '2.04',
'Test::Simple' => '0.78',
'Test::Builder' => '0.78',
'Test::Builder::Tester' => '1.02',
'Test::More' => '0.78',
+ },
+ build_requires => {
'Test::Exception' => '0.25',
+ 'IO::File' => '1.09',
},
create_makefile_pl => 'traditional',
create_readme => 1,
Modified: branches/upstream/libtest-class-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/Changes?rev=53962&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/Changes (original)
+++ branches/upstream/libtest-class-perl/current/Changes Mon Mar 8 18:03:48 2010
@@ -1,4 +1,10 @@
Changes for Perl extension Test-Class
+
+0.34 - or the "Abandon ship!" release
+ - Harmonised $VERSION to the same value (Adam Kennedy)
+ - Devel::Symdump has a bug which is really a bug in core and won't be fixed.
+ Dumped it and switched to MRO::Compat instead (tokuhirom)
+ - Add "build_requires" (Alexandr Ciornii)
0.33 - or the "ZOMGIBROKECPAN" release
- Make the test scripts adaptive to Test::More diagnostic changes in
Modified: branches/upstream/libtest-class-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/MANIFEST?rev=53962&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/MANIFEST (original)
+++ branches/upstream/libtest-class-perl/current/MANIFEST Mon Mar 8 18:03:48 2010
@@ -9,9 +9,6 @@
t/00-load.t
t/20-load-classes.t
t/21-load-subclassed.t
-t/97_meta.t
-t/98_pod.t
-t/99_pmv.t
t/_new.t
t/bad-autoloads.t
t/bailout.t
@@ -71,5 +68,8 @@
t/TestClassLoadSubclass.pm
t/Tests.t
t/todo.t
+xt/meta.t
+xt/pmv.t
+xt/pod.t
Makefile.PL
META.yml
Modified: branches/upstream/libtest-class-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/META.yml?rev=53962&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/META.yml (original)
+++ branches/upstream/libtest-class-perl/current/META.yml Mon Mar 8 18:03:48 2010
@@ -1,35 +1,37 @@
---
name: Test-Class
-version: 0.33
+version: 0.34
author:
- 'Adrian Howard <adrianh at quietstars.com>'
abstract: Easily create test classes in an xUnit/JUnit style
license: perl
resources:
license: http://dev.perl.org/licenses/
+build_requires:
+ IO::File: 1.09
+ Test::Exception: 0.25
requires:
Attribute::Handlers: 0.77
- Class::ISA: 0.32
- Devel::Symdump: 2.03
- IO::File: 1.09
+ MRO::Compat: 0.11
Storable: 2.04
Test::Builder: 0.78
Test::Builder::Tester: 1.02
- Test::Exception: 0.25
Test::More: 0.78
Test::Simple: 0.78
perl: 5.006001
+configure_requires:
+ Module::Build: 0.35
provides:
Test::Class:
file: lib/Test/Class.pm
- version: 0.33
+ version: 0.34
Test::Class::Load:
file: lib/Test/Class/Load.pm
- version: 0.04
+ version: 0.34
Test::Class::MethodInfo:
file: lib/Test/Class/MethodInfo.pm
- version: 0.03
-generated_by: Module::Build version 0.280801
+ version: 0.34
+generated_by: Module::Build version 0.35
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libtest-class-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/Makefile.PL?rev=53962&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/Makefile.PL (original)
+++ branches/upstream/libtest-class-perl/current/Makefile.PL Mon Mar 8 18:03:48 2010
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
+# Note: this file was auto-generated by Module::Build::Compat version 0.35
require 5.006001;
use ExtUtils::MakeMaker;
WriteMakefile
@@ -7,9 +7,8 @@
'VERSION_FROM' => 'lib/Test/Class.pm',
'PREREQ_PM' => {
'Attribute::Handlers' => '0.77',
- 'Class::ISA' => '0.32',
- 'Devel::Symdump' => '2.03',
'IO::File' => '1.09',
+ 'MRO::Compat' => '0.11',
'Storable' => '2.04',
'Test::Builder' => '0.78',
'Test::Builder::Tester' => '1.02',
Modified: branches/upstream/libtest-class-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/README?rev=53962&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/README (original)
+++ branches/upstream/libtest-class-perl/current/README Mon Mar 8 18:03:48 2010
@@ -38,8 +38,8 @@
#! /usr/bin/perl
use Example::Test;
-
- # run all the test methods in Example::Test
+
+ # run all the test methods in Example::Test
Test::Class->runtests;
Outputs:
@@ -57,11 +57,11 @@
Test::Class provides a simple way of creating classes and objects to
test your code in an xUnit style.
- Built using Test::Builder it is designing to work with other
+ Built using Test::Builder, it was designed to work with other
Test::Builder based modules (Test::More, Test::Differences,
- Test::Exception, etc.)
-
- *Note:* This module will make more sense if you are already familiar
+ Test::Exception, etc.).
+
+ *Note:* This module will make more sense, if you are already familiar
with the "standard" mechanisms for testing perl code. Those unfamiliar
with Test::Harness, Test::Simple, Test::More and friends should go take
a look at them now. Test::Tutorial is a good starting point.
@@ -82,7 +82,7 @@
they are also useful in the creation of functional/acceptance tests.
Test::Class is (yet another) implementation of xUnit style testing in
- perl.
+ Perl.
Why you should use Test::Class
Test::Class attempts to provide simple xUnit testing that integrates
@@ -242,8 +242,8 @@
sub db_connect : Test(startup) {
shift->{dbi} = DBI->connect;
};
-
- sub db_disconnect : Test(shutdown) {
+
+ sub db_disconnect : Test(shutdown) {
shift->{dbi}->disconnect;
};
@@ -1300,7 +1300,7 @@
A very simple unit testing framework.
LICENCE
- Copyright 2002-2009 Adrian Howard, All Rights Reserved.
+ Copyright 2002-2010 Adrian Howard, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: branches/upstream/libtest-class-perl/current/lib/Test/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/lib/Test/Class.pm?rev=53962&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/lib/Test/Class.pm (original)
+++ branches/upstream/libtest-class-perl/current/lib/Test/Class.pm Mon Mar 8 18:03:48 2010
@@ -6,13 +6,12 @@
use Attribute::Handlers;
use Carp;
-use Class::ISA;
-use Devel::Symdump;
+use MRO::Compat;
use Storable qw(dclone);
use Test::Builder;
use Test::Class::MethodInfo;
-our $VERSION = '0.33';
+our $VERSION = '0.34';
my $Check_block_has_run;
{
@@ -83,7 +82,9 @@
sub _is_public_method {
my ($class, $name) = @_;
- foreach my $parent_class ( Class::ISA::super_path( $class ) ) {
+ my @parents = @{mro::get_linear_isa($class)};
+ shift @parents;
+ foreach my $parent_class ( @parents ) {
return unless $parent_class->can( $name );
return if _method_info( $class, $parent_class, $name );
}
@@ -141,7 +142,7 @@
die "TEST_METHOD ($test_method_regexp) is not a valid regexp: $@" if $@;
my %methods = ();
- foreach my $class ( Class::ISA::self_and_super_path( $test_class ) ) {
+ foreach my $class ( @{mro::get_linear_isa( $test_class )} ) {
foreach my $info ( _methods_of_class( $self, $class ) ) {
my $name = $info->name;
foreach my $type ( @types ) {
@@ -197,7 +198,7 @@
my $class = _class_of( $self );
my $total_num_tests = 0;
foreach my $method (@methods) {
- foreach my $class (Class::ISA::self_and_super_path($class)) {
+ foreach my $class (@{mro::get_linear_isa($class)}) {
my $info = _method_info($self, $class, $method);
next unless $info;
my $num_tests = $info->num_tests;
@@ -309,7 +310,7 @@
sub _test_classes {
my $class = shift;
- return grep { _isa_class( $class, $_ ) } Devel::Symdump->rnew->packages;
+ return( @{mro::get_isarev($class)}, $class );
};
sub runtests {
@@ -451,12 +452,12 @@
my $array = shift->{test_array};
diag("array = (@$array) after test(s)");
};
-
+
later in a nearby .t file
#! /usr/bin/perl
use Example::Test;
-
+
# run all the test methods in Example::Test
Test::Class->runtests;
@@ -476,9 +477,9 @@
Test::Class provides a simple way of creating classes and objects to test your code in an xUnit style.
-Built using L<Test::Builder> it is designing to work with other Test::Builder based modules (L<Test::More>, L<Test::Differences>, L<Test::Exception>, etc.)
-
-I<Note:> This module will make more sense if you are already familiar with the "standard" mechanisms for testing perl code. Those unfamiliar with L<Test::Harness>, L<Test::Simple>, L<Test::More> and friends should go take a look at them now. L<Test::Tutorial> is a good starting point.
+Built using L<Test::Builder>, it was designed to work with other Test::Builder based modules (L<Test::More>, L<Test::Differences>, L<Test::Exception>, etc.).
+
+I<Note:> This module will make more sense, if you are already familiar with the "standard" mechanisms for testing perl code. Those unfamiliar with L<Test::Harness>, L<Test::Simple>, L<Test::More> and friends should go take a look at them now. L<Test::Tutorial> is a good starting point.
=head1 INTRODUCTION
@@ -493,7 +494,7 @@
While xUnit frameworks are traditionally associated with unit testing they are also useful in the creation of functional/acceptance tests.
-Test::Class is (yet another) implementation of xUnit style testing in perl.
+Test::Class is (yet another) implementation of xUnit style testing in Perl.
=head2 Why you should use Test::Class
@@ -605,7 +606,7 @@
my $objects = shift->{objects};
isa_ok($_, "Object") foreach @$objects;
};
-
+
or use the :Tests attribute, which acts just like C<:Test> but defaults to C<no_plan> if no number is given:
sub check_class : Tests {
@@ -657,7 +658,7 @@
sub db_connect : Test(startup) {
shift->{dbi} = DBI->connect;
};
-
+
sub db_disconnect : Test(shutdown) {
shift->{dbi}->disconnect;
};
@@ -667,7 +668,7 @@
sub example : Test(startup => 1) {
ok(1, 'a startup method with one test');
};
-
+
If a startup method has a failing test or throws an exception then all other tests for the current test object are ignored.
=head1 RUNNING TESTS
@@ -1678,6 +1679,6 @@
=head1 LICENCE
-Copyright 2002-2009 Adrian Howard, All Rights Reserved.
+Copyright 2002-2010 Adrian Howard, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Modified: branches/upstream/libtest-class-perl/current/lib/Test/Class/Load.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/lib/Test/Class/Load.pm?rev=53962&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 Mar 8 18:03:48 2010
@@ -7,7 +7,7 @@
use File::Find;
use File::Spec;
-our $VERSION = '0.04';
+our $VERSION = '0.34';
# Override to get your own filter
sub is_test_class {
Modified: branches/upstream/libtest-class-perl/current/lib/Test/Class/MethodInfo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/lib/Test/Class/MethodInfo.pm?rev=53962&op=diff
==============================================================================
--- branches/upstream/libtest-class-perl/current/lib/Test/Class/MethodInfo.pm (original)
+++ branches/upstream/libtest-class-perl/current/lib/Test/Class/MethodInfo.pm Mon Mar 8 18:03:48 2010
@@ -4,7 +4,7 @@
package Test::Class::MethodInfo;
use Carp;
-our $VERSION = '0.03';
+our $VERSION = '0.34';
sub new {
my ( $class, %param ) = @_;
Added: branches/upstream/libtest-class-perl/current/xt/meta.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/xt/meta.t?rev=53962&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/xt/meta.t (added)
+++ branches/upstream/libtest-class-perl/current/xt/meta.t Mon Mar 8 18:03:48 2010
@@ -1,0 +1,27 @@
+#!/usr/bin/perl
+
+# Test that our META.yml file matches the current specification.
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my $MODULE = 'Test::CPAN::Meta 0.12';
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing module
+eval "use $MODULE";
+if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+}
+
+meta_yaml_ok();
Added: branches/upstream/libtest-class-perl/current/xt/pmv.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/xt/pmv.t?rev=53962&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/xt/pmv.t (added)
+++ branches/upstream/libtest-class-perl/current/xt/pmv.t Mon Mar 8 18:03:48 2010
@@ -1,0 +1,32 @@
+#!/usr/bin/perl
+
+# Test that our declared minimum Perl version matches our syntax
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Perl::MinimumVersion 1.20',
+ 'Test::MinimumVersion 0.008',
+);
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+ }
+}
+
+all_minimum_version_from_metayml_ok();
Added: branches/upstream/libtest-class-perl/current/xt/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-class-perl/current/xt/pod.t?rev=53962&op=file
==============================================================================
--- branches/upstream/libtest-class-perl/current/xt/pod.t (added)
+++ branches/upstream/libtest-class-perl/current/xt/pod.t Mon Mar 8 18:03:48 2010
@@ -1,0 +1,32 @@
+#!/usr/bin/perl
+
+# Test that the syntax of our POD documentation is valid
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Pod::Simple 3.07',
+ 'Test::Pod 1.26',
+);
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+ }
+}
+
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list