From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 28 Jan 2002 07:25:58 +0000 (+0000)
Subject: Skip new threads::shared test unless -Duseithreads
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f64702c2754f26298640cbbe1e1860bf13c63f2;p=p5sagit%2Fp5-mst-13.2.git

Skip new threads::shared test unless -Duseithreads

p4raw-id: //depot/perlio@14461
---

diff --git a/ext/threads/shared/t/0nothread.t b/ext/threads/shared/t/0nothread.t
index 9b08343..0ce4e6e 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);