diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-28 07:25:58 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-28 07:25:58 +0000 |
commit | 5f64702c2754f26298640cbbe1e1860bf13c63f2 (patch) | |
tree | 186efb7c033e0d48d16fb70b86d46ef973584765 /ext/threads/shared/t/0nothread.t | |
parent | 6643fc8cdb7aebe9d196d6332476546a9a35daec (diff) | |
download | perl-5f64702c2754f26298640cbbe1e1860bf13c63f2.tar.gz |
Skip new threads::shared test unless -Duseithreads
p4raw-id: //depot/perlio@14461
Diffstat (limited to 'ext/threads/shared/t/0nothread.t')
-rw-r--r-- | ext/threads/shared/t/0nothread.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ext/threads/shared/t/0nothread.t b/ext/threads/shared/t/0nothread.t index 9b08343130..0ce4e6eed1 100644 --- a/ext/threads/shared/t/0nothread.t +++ b/ext/threads/shared/t/0nothread.t @@ -1,5 +1,13 @@ -use Test::More tests => 53; use strict; +use Test::More (); +use Config; +if ($Config{'useithreads'}) { + Test::More->import( tests => 53 ); +} +else { + Test::More->import(skip_all => "no useithreads"); +} + my @array; my %hash; @@ -58,6 +66,7 @@ ok((require threads::shared),"Require module"); array(24,[],'Thing'); hash(24,[],'Thing'); + import threads::shared; share(\@array); |