5 unshift @INC, '../lib';
6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bPeek\b/) {
8 print "1..0 # Skip: Devel::Peek was not built\n";
21 if (open(OUT,">peek$$")) {
25 if (open(IN, "peek$$")) {
27 $pattern =~ s/\$ADDR/0x[[:xdigit:]]+/g;
28 print $pattern, "\n" if $DEBUG;
30 print $dump, "\n" if $DEBUG;
31 print "not " unless $dump =~ /$pattern/m;
35 die "$0: failed to open peek$$: !\n";
38 die "$0: failed to create peek$$: $!\n";
49 'SV = PV\\($ADDR\\) at $ADDR
51 FLAGS = \\(POK,pPOK\\)
59 'SV = PV\\($ADDR\\) at $ADDR
61 FLAGS = \\(POK,READONLY,pPOK\\)
68 'SV = IV\\($ADDR\\) at $ADDR
70 FLAGS = \\(IOK,pIOK\\)
75 'SV = IV\\($ADDR\\) at $ADDR
77 FLAGS = \\(IOK,READONLY,pIOK\\)
82 'SV = IV\\($ADDR\\) at $ADDR
84 FLAGS = \\(PADBUSY,PADMY,IOK,pIOK\\)
89 'SV = NV\\($ADDR\\) at $ADDR
91 FLAGS = \\(PADTMP,NOK,pNOK\\)
98 'SV = PVNV\\($ADDR\\) at $ADDR
100 FLAGS = \\(NOK,pNOK\\)
109 'SV = IV\\($ADDR\\) at $ADDR
111 FLAGS = \\(IOK,READONLY,pIOK,IsUV\\)
116 'SV = NULL\\(0x0\\) at $ADDR
122 'SV = RV\\($ADDR\\) at $ADDR
126 SV = PV\\($ADDR\\) at $ADDR
128 FLAGS = \\(POK,pPOK\\)
135 'SV = RV\\($ADDR\\) at $ADDR
139 SV = PVAV\\($ADDR\\) at $ADDR
150 SV = IV\\($ADDR\\) at $ADDR
152 FLAGS = \\(IOK,pIOK\\)
155 SV = PVNV\\($ADDR\\) at $ADDR
157 FLAGS = \\(IOK,NOK,pIOK,pNOK\\)
164 'SV = RV\\($ADDR\\) at $ADDR
168 SV = PVHV\\($ADDR\\) at $ADDR
170 FLAGS = \\(SHAREKEYS\\)
173 ARRAY = $ADDR \\(0:7, 1:1\\)
174 hash quality = 150.0%
180 Elt "123" HASH = $ADDR
181 SV = PVNV\\($ADDR\\) at $ADDR
183 FLAGS = \\(IOK,NOK,pIOK,pNOK\\)
190 'SV = RV\\($ADDR\\) at $ADDR
194 SV = PVCV\\($ADDR\\) at $ADDR
196 FLAGS = \\(PADBUSY,PADMY,POK,pPOK,ANON\\)
200 COMP_STASH = $ADDR\\t"main"
201 START = $ADDR ===> \\d+
205 GVGV::GV = $ADDR\\t"main" :: "__ANON__"
206 FILE = ".+\\b(?i:peek\\.t)"
210 OUTSIDE = $ADDR \\(MAIN\\)');
214 'SV = RV\\($ADDR\\) at $ADDR
218 SV = PVCV\\($ADDR\\) at $ADDR
223 COMP_STASH = $ADDR\\t"main"
224 START = $ADDR ===> \\d+
228 GVGV::GV = $ADDR\\t"main" :: "do_test"
229 FILE = ".+\\b(?i:peek\\.t)"
233 1\\. $ADDR \\("\\$pattern" \\d+-\\d+\\)
234 12\\. $ADDR \\(FAKE "\\$DEBUG" 0-\\d+\\)
235 13\\. $ADDR \\("\\$dump" \\d+-\\d+\\)
236 OUTSIDE = $ADDR \\(MAIN\\)');
240 'SV = RV\\($ADDR\\) at $ADDR
244 SV = PVMG\\($ADDR\\) at $ADDR
246 FLAGS = \\(OBJECT,RMG\\)
254 STASH = $ADDR\\t"Regexp"');
258 'SV = RV\\($ADDR\\) at $ADDR
262 SV = PVHV\\($ADDR\\) at $ADDR
264 FLAGS = \\(OBJECT,SHAREKEYS\\)
267 STASH = $ADDR\\t"Tac"
277 'SV = PVGV\\($ADDR\\) at $ADDR
279 FLAGS = \\(GMG,SMG,MULTI\\)
283 MG_VIRTUAL = &PL_vtbl_glob
290 GvSTASH = $ADDR\\t"main"
302 FILE = ".+\\b(?i:peek\\.t)"