@@ -10,8 +10,8 @@ my $builder = Module::Build->new( dist_author => 'Curtis "Ovid" Poe <ovid@cpan.org>', dist_version_from => 'lib/Test/Aggregate.pm', build_requires => { - 'Test::Simple' => 0.74, # we fail on the common 0.62 - 'Test::Most' => 0.21,, + 'Test::Simple' => 0.94, # we fail on the common 0.62 + 'Test::Most' => 0.21, }, requires => { 'Test::Harness' => 3.09, Build.PL @@ -1,6 +1,13 @@ Revision history for Test-Aggregate -0.35_07 +0.36 18/10/2009 + - Mark for production. + - Removed 'dump.t' files in tests. + - Improve Test::Aggregate::Nested docs. + - Removed some dead code. + - Suppress multiple plans (#48352, Chisel Wright) + +0.35_07 19/08/2009 - Added missing files to MANIFEST. 0.35_06 28/06/2009 Changes @@ -6,18 +6,20 @@ author: abstract: Aggregate C<*.t> tests to make them run faster. license: perl resources: - license: ~ + license: http://dev.perl.org/licenses/ +build_requires: + Test::Most: 0.21 + Test::Simple: 0.94 requires: FindBin: 1.47 Test::Harness: 3.09 Test::NoWarnings: 0 -build_requires: - Test::Most: 0.21 - Test::Simple: 0.74 recommends: Data::Dump::Streamer: 1.11 Perl::Tidy: 20060614 Test::More: 0.89_01 +configure_requires: + Module::Build: 0.35 provides: Test::Aggregate: file: lib/Test/Aggregate.pm @@ -31,7 +33,7 @@ provides: Test::Aggregate::Nested: file: lib/Test/Aggregate/Nested.pm version: 0.35_07 -generated_by: Module::Build version 0.32 +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 META.yml @@ -449,7 +449,7 @@ $findbin #$test_code =~ s/\n__(?:DATA|END)__\n$//s; if ( $test_code =~ /^(__(?:DATA|END)__)/m ) { - Test::More::BAIL_OUT("Test $test not allowed to have $1 token"); + Test::More::BAIL_OUT("Test $test not allowed to have $1 token (Test::Aggregate::Nested supports them)"); } my $package = $self->_get_package($test); @@ -703,6 +703,7 @@ run. =item * C<__END__> and C<__DATA__> tokens. These won't work and the tests will call BAIL_OUT() if these tokens are seen. +However, this limitation does not apply to L<Test::Aggregate::Nested>. =item * C<BEGIN> and C<END> blocks. lib/Test/Aggregate.pm @@ -68,29 +68,18 @@ use Test::Builder; my $tb = Test::Builder->new; $tb->{'Test::Aggregate::Builder'}{ignore_timing_blocks} = 1; my $tests = $tb->current_test; - $DB::single = 1; $tb->expected_tests($tests); if ( $DONE_TESTING ) { $tb->$DONE_TESTING($tests); } else { - $tb->_print("1..$tests\n"); + $tb->_print("1..$tests\n") unless $tb->{Have_Output_Plan}; } } } no warnings 'redefine'; -# Need a tailing plan -END { - - unless ( Test::Builder->can('done_testing') ) { - # This works because it's a singleton - my $builder = Test::Builder->new; - my $tests = $builder->current_test; - } -} - # The following is done to get around the fact that deferred plans are not # supported. Unfortunately, there's no clean way to override this, but this # allows us to minimize the monkey patching. lib/Test/Aggregate/Builder.pm @@ -34,6 +34,9 @@ $VERSION = '0.35_07'; =head1 DESCRIPTION +B<ALPHA WARNING>: this is alpha code. Conceptually it is superior to +C<Test::Aggregate>, but in reality, it might not be. We'll see. + This module is almost identical to C<Test::Aggregate> and will in the future be the preferred way of aggregating tests (until someone comes up with something better :) lib/Test/Aggregate/Nested.pm @@ -6,10 +6,11 @@ use warnings; use lib 'lib', 't/lib'; use Test::Aggregate; -my $dump = 'dump.t'; +my $dump = 'dump.t'; my $tests = Test::Aggregate->new( - { verbose => 2, - dump => $dump, + { + verbose => 2, +# dump => $dump, shuffle => 1, dirs => 'aggtests', set_filenames => 1, @@ -20,5 +21,5 @@ my $tests = Test::Aggregate->new( ); $tests->run; -ok -f $dump, '... and we should have written out a dump file'; +#ok -f $dump, '... and we should have written out a dump file'; #unlink $dump or warn "Cannot unlink ($dump): $!"; t/aggregate.t @@ -27,7 +27,7 @@ my $tests = Test::Aggregate->new( shutdown => sub { $shutdown++ }, setup => sub { $setup++ }, teardown => sub { $teardown++ }, - dump => $dump, +# dump => $dump, } ); $tests->run; @@ -35,5 +35,5 @@ is $startup, 1, 'Startup should be called once'; is $shutdown, 1, '... as should shutdown'; is $setup, 5, 'Setup should be called once for each test program'; is $teardown, 5, '... as should teardown'; -unlink $dump or warn "Cannot unlink ($dump): $!"; +#unlink $dump or warn "Cannot unlink ($dump): $!"; done_testing() if __PACKAGE__->can('done_testing'); t/pre_post.t @@ -12,11 +12,11 @@ my $tests = Test::Aggregate->new( { dirs => 'aggtests', matching => qr/subs/, - dump => $dump, +# dump => $dump, } ); $tests->run; my $tests_run = Test::Builder->new->current_test; is $tests_run, 1, '... and we should only run as many tests as are in the matching tests'; -unlink $dump or warn "Cannot unlink ($dump): $!"; +#unlink $dump or warn "Cannot unlink ($dump): $!"; t/subs.t ed91ffc40e4a359bf055349cf82cfee59471645b Curtis Poe ovid@cpan.org http://github.com/Ovid/test-aggregate/commit/ad3f1c65dec9ea555c566e5dc7823dafba9eb154 ad3f1c65dec9ea555c566e5dc7823dafba9eb154 2009-10-18T04:39:11-07:00 2009-10-18T04:39:11-07:00 Make ready for production release. 0bac48d4d82a0221cf8d730b1dab1a02988282cf Curtis Poe ovid@cpan.org