6 use Test
::More tests
=> 49;
12 like
(DPeek
($/), qr'^PVMG\("\\(n|12)"\\0\)', '$/');
13 is (DPeek ($\), 'PVMG
()', '$\\');
14 is (DPeek ($.), 'PVMG
()', '$.');
15 like (DPeek ($,), qr'^PVMG\
((""\\0)?\
)', '$,');
16 is (DPeek ($;), 'PV
("\34"\
0)', '$;');
17 is (DPeek ($"), 'PV
(" "\
0)', '$"');
18 like (DPeek ($:), qr'^PVMG\(" \\(n
|12)-"\\0\)', '$:');
19 is (DPeek ($~), 'PVMG()', '$~');
20 is (DPeek ($^), 'PVMG()', '$^');
21 is (DPeek ($=), 'PVMG()', '$=');
22 is (DPeek ($-), 'PVMG()', '$-');
23 is (DPeek ($|), 'PVMG(1)', '$|');
24 like (DPeek ($?), qr'^PV(MG|LV)\(\)', '$?');
25 like (DPeek ($!), qr'^PVMG\("', '$!');
27 "abc" =~ m/(b)/; # Don't know why these magic vars have this content
28 like
(DPeek
($1), qr
'^PVMG\("', ' $1');
29 is
(DPeek
($`), 'PVMG()', ' $`');
30 is (DPeek ($&), 'PVMG
()', ' $&');
31 is (DPeek ($'), 'PVMG()', " \$'");
33 is
(DPeek
(undef), 'SV_UNDEF', 'undef');
34 is
(DPeek
(1), 'IV(1)', 'constant 1');
35 is
(DPeek
(""), 'PV(""\0)', 'constant ""');
36 is
(DPeek
(1.), 'NV(1)', 'constant 1.');
37 is
(DPeek
(\
1), '\IV(1)', 'constant \1');
38 is
(DPeek
(\\1), '\\\IV(1)', 'constant \\\1');
40 is
(DPeek
(\
@ARGV), '\AV()', '\@ARGV');
41 is
(DPeek
(\
@INC), '\AV()', '\@INC');
42 is
(DPeek
(\
%INC), '\HV()', '\%INC');
43 is
(DPeek
(*STDOUT
), 'GV()', '*STDOUT');
44 is
(DPeek
(sub {}), '\CV(__ANON__)', 'sub {}');
46 { our ($VAR, @VAR, %VAR);
51 END { unlink "VAR.txt" };
53 is
(DPeek
( $VAR), 'UNDEF', ' $VAR undef');
54 is
(DPeek
(\
$VAR), '\UNDEF', '\$VAR undef');
56 is
(DPeek
($VAR), 'IV(1)', ' $VAR 1');
57 is
(DPeek
(\
$VAR), '\IV(1)', '\$VAR 1');
59 is
(DPeek
($VAR), 'PVIV(""\0)', ' $VAR ""');
60 is
(DPeek
(\
$VAR), '\PVIV(""\0)', '\$VAR ""');
62 is
(DPeek
($VAR), 'PVIV("\250"\0)', ' $VAR "\xa8"');
63 is
(DPeek
(\
$VAR), '\PVIV("\250"\0)', '\$VAR "\xa8"');
65 $] <= 5.008001 and skip
"UTF8 tests useless in this ancient perl version", 1;
66 $VAR = "a\x0a\x{20ac}";
67 like
(DPeek
($VAR), qr
'^PVIV\("a\\(n|12)\\342\\202\\254"\\0\) \[UTF8 "a\\?n\\x{20ac}"\]',
68 ' $VAR "a\x0a\x{20ac}"');
71 is
(DPeek
($VAR), '\CV(__ANON__)', ' $VAR sub { "VAR" }');
72 is
(DPeek
(\
$VAR), '\\\CV(__ANON__)', '\$VAR sub { "VAR" }');
75 is
(DPeek
(\
&VAR
), '\CV(VAR)', '\&VAR');
76 is
(DPeek
( *VAR
), 'GV()', ' *VAR');
78 is
(DPeek
(*VAR
{GLOB
}), '\GV()', ' *VAR{GLOB}');
79 like
(DPeek
(*VAR
{SCALAR
}), qr
'\\PV(IV|MG)\(0\)',' *VAR{SCALAR}');
80 is
(DPeek
(*VAR
{ARRAY
}), '\AV()', ' *VAR{ARRAY}');
81 is
(DPeek
(*VAR
{HASH
}), '\HV()', ' *VAR{HASH}');
82 is
(DPeek
(*VAR
{CODE
}), '\CV(VAR)', ' *VAR{CODE}');
83 is
(DPeek
(*VAR
{IO
}), '\IO()', ' *VAR{IO}');
84 is
(DPeek
(*VAR
{FORMAT
}),$]<5.008?
'SV_UNDEF':'\FM()',' *VAR{FORMAT}');