diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-19 13:02:58 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-19 13:02:58 +0000 |
commit | b65bc45e2f8fe9dba536bb38273bd36be8d77c1f (patch) | |
tree | 7f66eb938ffdc13e11605291e1a2d9551b53980b /ext | |
parent | f9444071407f93e06171089880a2f7cc3f125275 (diff) | |
download | perl-b65bc45e2f8fe9dba536bb38273bd36be8d77c1f.tar.gz |
Correct numbering of the tests is useful.
p4raw-id: //depot/perl@12086
Diffstat (limited to 'ext')
-rwxr-xr-x | ext/threads/t/basic.t | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ext/threads/t/basic.t b/ext/threads/t/basic.t index 6c079e46e9..0608b5e4ba 100755 --- a/ext/threads/t/basic.t +++ b/ext/threads/t/basic.t @@ -25,7 +25,7 @@ BEGIN { use ExtUtils::testlib; use strict; -BEGIN { print "1..14\n" }; +BEGIN { print "1..15\n" }; use threads; @@ -96,24 +96,24 @@ threads->create('test5')->join(); sub test7 { my $self = threads->self(); - ok(9, $self->tid == 7, "Wanted 7, got ".$self->tid); - ok(10, threads->tid() == 7, "Wanted 7, got ".threads->tid()); + ok(10, $self->tid == 7, "Wanted 7, got ".$self->tid); + ok(11, threads->tid() == 7, "Wanted 7, got ".threads->tid()); } threads->create('test7')->join; sub test8 { my $self = threads->self(); - ok(11, $self->tid == 8, "Wanted 8, got ".$self->tid); - ok(12, threads->tid() == 8, "Wanted 8, got ".threads->tid()); + ok(12, $self->tid == 8, "Wanted 8, got ".$self->tid); + ok(13, threads->tid() == 8, "Wanted 8, got ".threads->tid()); } threads->create('test8')->join; #check support for threads->self() in main thread -ok(13, 0 == threads->self->tid(),"Check so that tid for threads work for main thread"); -ok(14, 0 == threads->tid(),"Check so that tid for threads work for main thread"); +ok(14, 0 == threads->self->tid(),"Check so that tid for threads work for main thread"); +ok(15, 0 == threads->tid(),"Check so that tid for threads work for main thread"); 1; |