6 #use Test::More tests => 1;
7 use Test
::More
"no_plan";
11 $DDumper::has_perlio
= $DDumper::has_perlio
= 0;
13 ok
(1, "DDump () NOT using PerlIO");
17 chomp (@tests = <DATA
>);
20 # Determine what newlines this perl generates in sv_peek
21 my @nl = ("\\n", "\\n");
23 my $nl = "\n\x{20ac}";
26 @nl = ($nl =~ m/"([^"]+)".*"([^"]+)"/);
28 ok
(1, "This perl dumps \\n as (@nl)");
33 foreach my $test (@tests) {
34 my ($in, $out) = split m/\n--\n/ => $test;
37 $in =~ m/20ac/ and $] < 5.008 and skip
"No UTF8 in ancient perl", 1;
40 my $dump = DDump
($var);
41 $dump =~ s/\b0x[0-9a-f]+\b/0x****/g;
42 $dump =~ s/\b(REFCNT =) [0-9]{4,}/$1 -1/g;
43 # Catch differences in \n
44 $dump =~ s/"ab\Q$nl[0]\E(.*?)"ab\Q$nl[1]\E/"ab\\n$1"ab\\n/;
46 $dump =~ s/\bLEN = [1-3]\b/LEN = 4/;
48 $dump =~ s/\bPADBUSY\b,?//g if $] < 5.010;
50 $dump =~ s/\bUV = /IV = /g if $] < 5.008;
51 $dump =~ s/,?\bIsUV\b//g if $] < 5.008;
54 is
($dump, $out, "DDump ($in)");
63 SV
= PV
(0x
****) at
0x
****
70 SV
= PVIV
(0x
****) at
0x
****
72 FLAGS
= (PADMY
,IOK
,pIOK
)
78 SV
= PVIV
(0x
****) at
0x
****
80 FLAGS
= (PADMY
,IOK
,pIOK
)
86 SV
= PVIV
(0x
****) at
0x
****
88 FLAGS
= (PADMY
,POK
,pPOK
)