summaryrefslogtreecommitdiff
path: root/ext
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-09-19 13:02:58 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-09-19 13:02:58 +0000
commitb65bc45e2f8fe9dba536bb38273bd36be8d77c1f (patch)
tree7f66eb938ffdc13e11605291e1a2d9551b53980b /ext
parentf9444071407f93e06171089880a2f7cc3f125275 (diff)
downloadperl-b65bc45e2f8fe9dba536bb38273bd36be8d77c1f.tar.gz
Correct numbering of the tests is useful.
p4raw-id: //depot/perl@12086
Diffstat (limited to 'ext')
-rwxr-xr-xext/threads/t/basic.t14
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;