On Mon 18 Oct 2004 16:34, "H.Merijn Brand" <[EMAIL PROTECTED]> wrote: > On Fri 15 Oct 2004 05:20, Michael G Schwern <[EMAIL PROTECTED]> wrote: > > Its about freakin' time. Has it really been two years since the last > > stable release? Yes it has. > > > > This is 0.48_02 plus a minor test and MANIFEST fix. > > > > INCOMPATIBILITIES WITH PREVIOUS VERSIONS > > * Threading is no longer automatically turned on. You must turn it on > > before you use > > Test::More if you want it. See BUGS and CAVEATS for info. > > Please consider 0.50 very soon, in which you fix 'err' calls that are an > obvious mistake given defined-or functionality in blead and 5.8.x-dor:
That would be too easy to call. here's a patch ...
All tests successful, 2 tests and 7 subtests skipped.
Files=46, Tests=290, 11 wallclock secs ( 8.79 cusr + 0.97 csys = 9.76 CPU)
--8<--- TS49_01.diff
diff -r -pu Test-Simple-0.49/t/fail-more.t Test-Simple-0.49_01/t/fail-more.t
--- Test-Simple-0.49/t/fail-more.t 2004-10-15 05:07:33 +0200
+++ Test-Simple-0.49_01/t/fail-more.t 2004-10-18 16:37:22 +0200
@@ -38,7 +38,7 @@ sub ok ($;$) {
}
-sub main::err ($) {
+sub main::Err ($) {
my($expect) = @_;
my $got = $err->read;
@@ -65,7 +65,7 @@ $tb->use_numbers(0);
# Preserve the line numbers.
#line 38
ok( 0, 'failing' );
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 38)
ERR
@@ -74,7 +74,7 @@ is( "foo", "bar", 'foo is bar?');
is( undef, '', 'undef is empty string?');
is( undef, 0, 'undef is 0?');
is( '', 0, 'empty string is 0?' );
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 40)
# got: 'foo'
# expected: 'bar'
@@ -93,7 +93,7 @@ ERR
isnt("foo", "foo", 'foo isnt foo?' );
isn't("foo", "foo",'foo isn\'t foo?' );
isnt(undef, undef, 'undef isnt undef?');
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 45)
# 'foo'
# ne
@@ -111,7 +111,7 @@ ERR
#line 48
like( "foo", '/that/', 'is foo like that' );
unlike( "foo", '/foo/', 'is foo unlike foo' );
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 48)
# 'foo'
# doesn't match '/that/'
@@ -122,21 +122,21 @@ ERR
# Nick Clark found this was a bug. Fixed in 0.40.
like( "bug", '/(%)/', 'regex with % in it' );
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 60)
# 'bug'
# doesn't match '/(%)/'
ERR
fail('fail()');
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 67)
ERR
#line 52
can_ok('Mooble::Hooble::Yooble', qw(this that));
can_ok('Mooble::Hooble::Yooble', ());
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 52)
# Mooble::Hooble::Yooble->can('this') failed
# Mooble::Hooble::Yooble->can('that') failed
@@ -149,7 +149,7 @@ isa_ok(bless([], "Foo"), "Wibble");
isa_ok(42, "Wibble", "My Wibble");
isa_ok(undef, "Wibble", "Another Wibble");
isa_ok([], "HASH");
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 55)
# The object isn't a 'Wibble' it's a 'Foo'
# Failed test ($0 at line 56)
@@ -168,7 +168,7 @@ cmp_ok( 1, '&&', 0 , ' &&'
cmp_ok( 42, '==', "foo", ' == with strings' );
cmp_ok( 42, 'eq', "foo", ' eq with numbers' );
cmp_ok( undef, 'eq', 'foo', ' eq with undef' );
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 68)
# got: 'foo'
# expected: 'bar'
@@ -201,7 +201,7 @@ my $Errno_String = $!.'';
#line 80
cmp_ok( $!, 'eq', '', ' eq with stringified errno' );
cmp_ok( $!, '==', -1, ' eq with numerified errno' );
-err( <<ERR );
+Err( <<ERR );
# Failed test ($0 at line 80)
# got: '$Errno_String'
# expected: ''
diff -r -pu Test-Simple-0.49/t/harness_active.t Test-Simple-0.49_01/t/harness_active.t
--- Test-Simple-0.49/t/harness_active.t 2004-10-15 05:07:33 +0200
+++ Test-Simple-0.49_01/t/harness_active.t 2004-10-18 16:37:48 +0200
@@ -37,7 +37,7 @@ sub ok ($;$) {
}
-sub main::err ($) {
+sub main::Err ($) {
my($expect) = @_;
my $got = $err->read;
@@ -63,13 +63,13 @@ Test::More->builder->no_ending(1);
#line 62
fail( "this fails" );
- err( <<ERR );
+ Err( <<ERR );
# Failed test ($0 at line 62)
ERR
#line 72
is( 1, 0 );
- err( <<ERR );
+ Err( <<ERR );
# Failed test ($0 at line 72)
# got: '1'
# expected: '0'
@@ -81,7 +81,7 @@ ERR
#line 71
fail( "this fails" );
- err( <<ERR );
+ Err( <<ERR );
# Failed test ($0 at line 71)
ERR
@@ -89,7 +89,7 @@ ERR
#line 84
is( 1, 0 );
- err( <<ERR );
+ Err( <<ERR );
# Failed test ($0 at line 84)
# got: '1'
-->8---
--
H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.3, & 5.9.x, and 809 on HP-UX 10.20 & 11.00, 11i,
AIX 4.3, SuSE 9.0, and Win2k. http://www.cmve.net/~merijn/
http://archives.develooper.com/[EMAIL PROTECTED]/ [EMAIL PROTECTED]
send smoke reports to: [EMAIL PROTECTED], QA: http://qa.perl.org
TS.diff
Description: Binary data
