t/20_DPeek.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 #use Test::More tests => 1;
   7  use Test::More "no_plan";
   8
   9 BEGIN {
  10     use_ok "DDumper";
  11     plan skip_all => "Cannot load DDumper" if $@;
  12     }
  13
  14 $| = 1;
  15
  16 is (DPeek ($/),         'PVMG("\n"\0)',         '$/');
  17 is (DPeek ($\),         'PVMG()',               '$\\');
  18 is (DPeek ($.),         'PVMG()',               '$.');
  19 is (DPeek ($,),         'PVMG()',               '$,');
  20 is (DPeek ($;),         'PV("\34"\0)',          '$;');
  21 is (DPeek ($"),         'PV(" "\0)',            '$"');
  22 is (DPeek ($:),         'PVMG(" \n-"\0)',       '$:');
  23 is (DPeek ($~),         'PVMG()',               '$~');
  24 is (DPeek ($^),         'PVMG()',               '$^');
  25 is (DPeek ($=),         'PVMG()',               '$=');
  26 is (DPeek ($-),         'PVMG()',               '$-');
  27 is (DPeek ($!),         'PVMG(""\0)',           '$!');
  28 is (DPeek ($?),         'PVMG()',               '$?');
  29 is (DPeek ($|),         'PVMG(1)',              '$|');
  30
  31 "abc" =~ m/(b)/;        # Don't know why these magic vars have this content
  32 is (DPeek ($1),         'PVMG("$"\0)',          ' $1');
  33 is (DPeek ($`),         'PVMG()',               ' $`');
  34 is (DPeek ($&),         'PVMG()',               ' $&');
  35 is (DPeek ($'),         'PVMG()',               " \$'");
  36
  37 is (DPeek (undef),      'SV_UNDEF',             'undef');
  38 is (DPeek (1),          'IV(1)',                'constant 1');
  39 is (DPeek (""),         'PV(""\0)',             'constant ""');
  40 is (DPeek (1.),         'NV(1)',                'constant 1.');
  41 is (DPeek (\1),         '\IV(1)',               'constant \1');
  42 is (DPeek (\\1),        '\\\IV(1)',             'constant \\\1');
  43
  44 is (DPeek (\@ARGV),     '\AV()',                '\@ARGV');
  45 is (DPeek (\@INC),      '\AV()',                '\@INC');
  46 is (DPeek (\%INC),      '\HV()',                '\%INC');
  47 is (DPeek (*STDOUT),    'GV()',                 '*STDOUT');
  48 is (DPeek (sub {}),     '\CV(__ANON__)',        'sub {}');
  49
  50 { our ($VAR, @VAR, %VAR);
  51   open VAR, ">VAR.txt";
  52   sub VAR {}
  53   format VAR =
  54 .
  55   END { unlink "VAR.txt" };
  56
  57   is (DPeek ( $VAR),    'UNDEF',                ' $VAR undef');
  58   is (DPeek (\$VAR),    '\UNDEF',               '\$VAR undef');
  59   $VAR = 1;
  60   is (DPeek ($VAR),     'IV(1)',                ' $VAR 1');
  61   is (DPeek (\$VAR),    '\IV(1)',               '\$VAR 1');
  62   $VAR = "";
  63   is (DPeek ($VAR),     'PVIV(""\0)',           ' $VAR ""');
  64   is (DPeek (\$VAR),    '\PVIV(""\0)',          '\$VAR ""');
  65   $VAR = "\xa8";
  66   is (DPeek ($VAR),     'PVIV("\250"\0)',       ' $VAR "\xa8"');
  67   is (DPeek (\$VAR),    '\PVIV("\250"\0)',      '\$VAR "\xa8"');
  68   SKIP: {
  69       $] <= 5.008001 and skip "UTF8 tests useless in this ancient perl version", 1;
  70       $VAR = "a\x0a\x{20ac}";
  71       is (DPeek ($VAR), 'PVIV("a\n\342\202\254"\0) [UTF8 "an\x{20ac}"]',
  72                                                   ' $VAR "a\x0a\x{20ac}"');
  73       }
  74   $VAR = sub { "VAR" };
  75   is (DPeek ($VAR),     '\CV(__ANON__)',        ' $VAR sub { "VAR" }');
  76   is (DPeek (\$VAR),    '\\\CV(__ANON__)',      '\$VAR sub { "VAR" }');
  77   $VAR = 0;
  78
  79   is (DPeek (\&VAR),    '\CV(VAR)',             '\&VAR');
  80   is (DPeek ( *VAR),    'GV()',                 ' *VAR');
  81
  82   is (DPeek (*VAR{SCALAR}),     '\PVIV(0)',     ' *VAR{SCALAR}');
  83   is (DPeek (*VAR{ARRAY}),      '\AV()',        ' *VAR{ARRAY}');
  84   is (DPeek (*VAR{HASH}),       '\HV()',        ' *VAR{HASH}');
  85   is (DPeek (*VAR{CODE}),       '\CV(VAR)',     ' *VAR{CODE}');
  86   is (DPeek (*VAR{IO}),         '\IO()',        ' *VAR{IO}');
  87   is (DPeek (*VAR{FORMAT}),     '\FM()',        ' *VAR{FORMAT}');
  88   is (DPeek (*VAR{GLOB}),       '\GV()',        ' *VAR{GLOB}');
  89   }
  90
  91 1;