git.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/dumper.t

   1 use Test::Base;
   2
   3 plan tests => 3 * blocks;
   4
   5 run_is perl => 'dumper';
   6 run_is dumper => 'perl';
   7 run_is dumper => 'dumper';
   8
   9 __DATA__
  10 === Dumper Test
  11 --- perl eval dumper
  12 [ 1..5, { 'a' .. 'p' }]
  13 --- dumper
  14 [
  15   1,
  16   2,
  17   3,
  18   4,
  19   5,
  20   {
  21     'a' => 'b',
  22     'c' => 'd',
  23     'e' => 'f',
  24     'g' => 'h',
  25     'i' => 'j',
  26     'k' => 'l',
  27     'm' => 'n',
  28     'o' => 'p'
  29   }
  30 ]
  31 === Another Dumper Test
  32 --- perl eval dumper
  33 "i like ike"
  34 --- dumper
  35 'i like ike'