diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-05 18:56:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-05 18:56:10 +0000 |
| commit | 9ec58fb7ec19e41fee2f2944750a45a2a85e4a03 (patch) | |
| tree | 843d181935cc3bc008357f5a498a84e06fba964b | |
| parent | 9248c45a4880f91e9c33a7742260130ee03d1186 (diff) | |
| download | perl-9ec58fb7ec19e41fee2f2944750a45a2a85e4a03.tar.gz | |
Make the test more portable.
p4raw-id: //depot/cfgperl@6075
| -rw-r--r-- | t/lib/peek.t | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/t/lib/peek.t b/t/lib/peek.t index fd6e474e09..ecba70516c 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"'); |