t/22_DHexDump.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 #use Test::NoWarnings;
   8
   9 use Data::Peek;
  10
  11 is (DHexDump (undef),           undef,                  'undef');
  12 is (DHexDump (""),              "",                     '""');
  13
  14 for (split m/##\n/ => test_data ()) {
  15     my ($desc, $in, $out) = split m/\n-\n/, $_, 3;
  16
  17     if ($in =~ s/\t(\d+)$//) {
  18         is (scalar DHexDump ($in, $1), $out,    "HexDump $desc");
  19         }
  20     else {
  21         is (scalar DHexDump ($in),     $out,    "HexDump $desc");
  22         }
  23     }
  24
  25 done_testing;
  26
  27 sub test_data
  28 {
  29     return <<"EOTD";
  30 Single 0
  31 -
  32 0
  33 -
  34 0000  30                                                0
  35 ##
  36 Documentation example
  37 -
  38 abc\x{0a}de\x{20ac}fg
  39 -
  40 0000  61 62 63 0a 64 65 e2 82  ac 66 67                 abc.de...fg
  41 ##
  42 Documentation example with length
  43 -
  44 abc\x{0a}de\x{20ac}fg   6
  45 -
  46 0000  61 62 63 0a 64 65                                 abc.de
  47 ##
  48 Binary data
  49 -
  50 \x01Great wide open space\x02\x{20ac}\n
  51 -
  52 0000  01 47 72 65 61 74 20 77  69 64 65 20 6f 70 65 6e  .Great wide open
  53 0010  20 73 70 61 63 65 02 e2  82 ac 0a                  space.....
  54 ##
  55 EOTD
  56     } # test_data