t/30_DDump-s.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 # I would like more tests, but contents change over every perl version
   7 use Test::More tests => 5;
   8
   9 use Data::Peek;
  10
  11 $Data::Peek::has_perlio = $Data::Peek::has_perlio = 0;
  12
  13 ok (1, "DDump () NOT using PerlIO");
  14
  15 my @tests;
  16 {   local $/ = "==\n";
  17     chomp (@tests = <DATA>);
  18     }
  19
  20 # Determine what newlines this perl generates in sv_peek
  21 my @nl = ("\\n") x 2;
  22
  23 my $var = "";
  24
  25 foreach my $test (@tests) {
  26     my ($in, $out) = split m/\n--\n/ => $test;
  27     $in eq "" and next;
  28     SKIP: {
  29         s/[\r\n]+/\n/g for $in, $out;   # MSwin--
  30
  31         eval "\$var = $in;";
  32         my $dump = DDump ($var);
  33
  34         if ($in =~ m/20ac/) {
  35             if ($] < 5.008) {
  36                 skip "No UTF8 in ancient perl", 1;
  37                 }
  38             else {
  39                 @nl = ($dump =~ m/PV = 0x\w+ "([^"]+)".*"([^"]+)"/);
  40                 diag "# This perl dumps \\n as (@nl)";
  41                 # Catch differences in \n
  42                 $dump =~ s/"ab\Q$nl[0]\E(.*?)"ab\Q$nl[1]\E/"ab\\n$1"ab\\n/;
  43                 }
  44             }
  45
  46         $dump =~ s/\b0x[0-9a-f]+\b/0x****/g;
  47         $dump =~ s/\b(REFCNT =) [0-9]{4,}/$1 -1/g;
  48
  49         $dump =~ s/\bLEN = [1-7]\b/LEN = 8/;    # aligned at long long?
  50
  51         $dump =~ s/\bPADBUSY\b,?//g     if $] < 5.010;
  52
  53         $dump =~ s/\bUV = /IV = /g      if $] < 5.008;
  54         $dump =~ s/,?\bIsUV\b//g        if $] < 5.008;
  55
  56         $in =~ s/[\s\n]+/ /g;
  57         is ($dump, $out, "DDump ($in)");
  58         }
  59     }
  60
  61 1;
  62
  63 __END__
  64 undef
  65 --
  66 SV = PV(0x****) at 0x****
  67   REFCNT = 1
  68   FLAGS = (PADMY)
  69   PV = 0
  70 ==
  71 0
  72 --
  73 SV = PVIV(0x****) at 0x****
  74   REFCNT = 1
  75   FLAGS = (PADMY,IOK,pIOK)
  76   IV = 0
  77   PV = 0
  78 ==
  79 1
  80 --
  81 SV = PVIV(0x****) at 0x****
  82   REFCNT = 1
  83   FLAGS = (PADMY,IOK,pIOK)
  84   IV = 1
  85   PV = 0
  86 ==
  87 ""
  88 --
  89 SV = PVIV(0x****) at 0x****
  90   REFCNT = 1
  91   FLAGS = (PADMY,POK,pPOK)
  92   IV = 1
  93   PV = 0x**** ""\0
  94   CUR = 0
  95   LEN = 8