diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-03-10 14:22:33 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-11 03:12:01 +0000 |
| commit | 6686786d9838c86b02dc454606aff018ec114f7b (patch) | |
| tree | 614643ed46b62a2cf7580a70c3c22e2fb73cefe5 /lib/Test/Builder.pm | |
| parent | 711cdd39d4f86d37e86e6a8f432123eca2c03898 (diff) | |
| download | perl-6686786d9838c86b02dc454606aff018ec114f7b.tar.gz | |
Test::Simple/More/Builder 0.42
Message-ID: <20020311002233.GE4927@blackrider>
p4raw-id: //depot/perl@15157
Diffstat (limited to 'lib/Test/Builder.pm')
| -rw-r--r-- | lib/Test/Builder.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Test/Builder.pm b/lib/Test/Builder.pm index 2d8edddc60..da63506b0b 100644 --- a/lib/Test/Builder.pm +++ b/lib/Test/Builder.pm @@ -8,7 +8,7 @@ $^C ||= 0; use strict; use vars qw($VERSION $CLASS); -$VERSION = '0.11'; +$VERSION = '0.12'; $CLASS = __PACKAGE__; my $IsVMS = $^O eq 'VMS'; @@ -934,6 +934,11 @@ sub current_test { if( defined $num ) { $Curr_Test = $num; + if( $num > @Test_Results ) { + for ($#Test_Results..$num-1) { + $Test_Results[$_] = 1; + } + } } return $Curr_Test; } |