cvsuser 04/10/07 02:28:20
Modified: t/pmc threads.t
Log:
threads.t works on cygwin, tests enabled
added a test to look for broken cygwin version
Revision Changes Path
1.11 +10 -1 parrot/t/pmc/threads.t
Index: threads.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/threads.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -r1.10 -r1.11
--- threads.t 1 Oct 2004 21:16:52 -0000 1.10
+++ threads.t 7 Oct 2004 09:28:20 -0000 1.11
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: threads.t,v 1.10 2004/10/01 21:16:52 jrieks Exp $
+# $Id: threads.t,v 1.11 2004/10/07 09:28:20 jrieks Exp $
=head1 NAME
@@ -22,6 +22,7 @@
my %platforms = map {$_=>1} qw/
aix
+ cygwin
darwin
dec_osf
freebsd
@@ -31,6 +32,14 @@
openbsd
/;
+if ($^O eq "cygwin" ) {
+ my @uname = split / /, qx'uname -v';
+
+ if ($uname[0] eq "2004-09-04" ) {
+ plan skip_all => "This cygwin version is known to fail the thread tests";
+ exit;
+ }
+}
if ($platforms{$^O}) {
plan tests => 11;
}
