diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-07 05:08:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-07 05:08:40 +0000 |
| commit | 7766e6860946c0b410312024149e997981ca596c (patch) | |
| tree | 1dd235528f2f17534a99f319f1a39050ef1fc84b /t | |
| parent | 975b416b180be97609ac91b30fb830712236ce93 (diff) | |
| download | perl-7766e6860946c0b410312024149e997981ca596c.tar.gz | |
peek.t non-portable to ithreads
p4raw-id: //depot/perl@6082
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/peek.t | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/t/lib/peek.t b/t/lib/peek.t index ecba70516c..0b62802da9 100644 --- a/t/lib/peek.t +++ b/t/lib/peek.t @@ -18,17 +18,16 @@ our $DEBUG = 0; sub do_test { my $pattern = pop; - if (open(OUT,">peek$$")) { - open(STDERR,">&OUT"); + if (open(STDERR,">peek$$")) { Dump($_[1]); - close(OUT); + close(STDERR); if (open(IN, "peek$$")) { local $/; $pattern =~ s/\$ADDR/0x[[:xdigit:]]+/g; print $pattern, "\n" if $DEBUG; my $dump = <IN>; print $dump, "\n" if $DEBUG; - print "not " unless $dump =~ /$pattern/m; + print "[$dump] vs [$pattern]\nnot " unless $dump =~ /$pattern/m; print "ok $_[0]\n"; close(IN); } else { @@ -58,7 +57,7 @@ do_test( 2, "bar", 'SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(POK,READONLY,pPOK\\) + FLAGS = \\(.*POK,READONLY,pPOK\\) PV = $ADDR "bar"\\\0 CUR = 3 LEN = 4'); @@ -74,7 +73,7 @@ do_test( 4, 456, 'SV = IV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(IOK,READONLY,pIOK\\) + FLAGS = \\(.*IOK,READONLY,pIOK\\) IV = 456'); do_test( 5, @@ -108,7 +107,7 @@ do_test( 8, 0xabcd, 'SV = IV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(IOK,READONLY,pIOK,IsUV\\) + FLAGS = \\(.*IOK,READONLY,pIOK,IsUV\\) UV = 43981'); do_test( 9, @@ -230,9 +229,9 @@ do_test(14, DEPTH = 1 FLAGS = 0x0 PADLIST = $ADDR - 1\\. $ADDR \\("\\$pattern" \\d+-\\d+\\) - 12\\. $ADDR \\(FAKE "\\$DEBUG" 0-\\d+\\) - 13\\. $ADDR \\("\\$dump" \\d+-\\d+\\) + \\d+\\. $ADDR \\("\\$pattern" \\d+-\\d+\\) + \\d+\\. $ADDR \\(FAKE "\\$DEBUG" 0-\\d+\\) + \\d+\\. $ADDR \\("\\$dump" \\d+-\\d+\\) OUTSIDE = $ADDR \\(MAIN\\)'); do_test(15, @@ -300,7 +299,7 @@ do_test(17, GPFLAGS = 0x0 LINE = \\d+ FILE = ".+\\b(?i:peek\\.t)" - FLAGS = 0x2 + FLAGS = $ADDR EGV = $ADDR\\t"a"'); END { |