From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 31 Oct 2004 11:20:27 +0000 (+0000)
Subject: Skip tests if Devel::Peek not built
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4946def643f4b02cbfd9fb0ba60fc8d67c013a19;p=p5sagit%2Fp5-mst-13.2.git

Skip tests if Devel::Peek not built

p4raw-id: //depot/perl@23444
---

diff --git a/ext/threads/shared/t/sv_refs.t b/ext/threads/shared/t/sv_refs.t
index ae4d237..fd37f0f 100644
--- a/ext/threads/shared/t/sv_refs.t
+++ b/ext/threads/shared/t/sv_refs.t
@@ -8,6 +8,10 @@ BEGIN {
         print "1..0 # Skip: no useithreads\n";
         exit 0;
     }
+    if ($Config{'extensions'} !~ /\bDevel\/Peek\b/) {
+	print "1..0 # Skip: Devel::Peek was not built\n";
+	exit 0;
+    }
 }
 
 
diff --git a/ext/threads/t/end.t b/ext/threads/t/end.t
index 19cd704..351a989 100644
--- a/ext/threads/t/end.t
+++ b/ext/threads/t/end.t
@@ -10,6 +10,10 @@ BEGIN {
         print "1..0 # Skip: no useithreads\n";
         exit 0;
     }
+    if ($Config{'extensions'} !~ /\bDevel\/Peek\b/) {
+	print "1..0 # Skip: Devel::Peek was not built\n";
+	exit 0;
+    }
 }
 
 use ExtUtils::testlib;
diff --git a/ext/threads/t/join.t b/ext/threads/t/join.t
index cef059f..472d1d2 100644
--- a/ext/threads/t/join.t
+++ b/ext/threads/t/join.t
@@ -6,6 +6,10 @@ BEGIN {
         print "1..0 # Skip: no useithreads\n";
         exit 0;
     }
+    if ($Config{'extensions'} !~ /\bDevel\/Peek\b/) {
+	print "1..0 # Skip: Devel::Peek was not built\n";
+	exit 0;
+    }
 }
 
 use ExtUtils::testlib;
diff --git a/lib/base/t/fields-base.t b/lib/base/t/fields-base.t
index 04661c5..da4b5c7 100644
--- a/lib/base/t/fields-base.t
+++ b/lib/base/t/fields-base.t
@@ -235,7 +235,11 @@ package main;
 	my X $self = shift;
 	$self = fields::new($self) unless ref $self;
 	$self->{X1} = "x1";
-	use Devel::Peek; Dump($self);
+	# FIXME. This code is dead on blead becase the test is skipped.
+	# The test states that it's being skipped becaues restricted hashes
+	# don't support a feature. Presumably we need to make that feature
+	# supported. Bah.
+	# use Devel::Peek; Dump($self);
 	$self->{_X2} = "_x2";
 	return $self;
     }