From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 5 May 2000 18:56:10 +0000 (+0000)
Subject: Make the test more portable.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ec58fb7ec19e41fee2f2944750a45a2a85e4a03;p=p5sagit%2Fp5-mst-13.2.git

Make the test more portable.

p4raw-id: //depot/cfgperl@6075
---

diff --git a/t/lib/peek.t b/t/lib/peek.t
index fd6e474..ecba705 100644
--- a/t/lib/peek.t
+++ b/t/lib/peek.t
@@ -1,3 +1,15 @@
+#!./perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    unshift @INC, '../lib';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bPeek\b/) {
+        print "1..0 # Skip: Devel::Peek was not built\n";
+        exit 0;
+    }
+}
+
 use Devel::Peek;
 
 print "1..17\n";
@@ -218,9 +230,9 @@ do_test(14,
     DEPTH = 1
     FLAGS = 0x0
     PADLIST = $ADDR
-      1\\. $ADDR \\("\\$pattern" 49-57\\)
-     12\\. $ADDR \\(FAKE "\\$DEBUG" 0-51\\)
-     13\\. $ADDR \\("\\$dump" 50-51\\)
+      1\\. $ADDR \\("\\$pattern" \\d+-\\d+\\)
+     12\\. $ADDR \\(FAKE "\\$DEBUG" 0-\\d+\\)
+     13\\. $ADDR \\("\\$dump" \\d+-\\d+\\)
     OUTSIDE = $ADDR \\(MAIN\\)');
 
 do_test(15,
@@ -286,7 +298,7 @@ do_test(17,
     CV = 0x0
     CVGEN = 0x0
     GPFLAGS = 0x0
-    LINE = 30
+    LINE = \\d+
     FILE = ".+\\b(?i:peek\\.t)"
     FLAGS = 0x2
     EGV = $ADDR\\t"a"');