t/21_DDisplay.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 10;
   7 use Test::NoWarnings;
   8
   9 use Data::Peek;
  10
  11 is (DDisplay (undef),           '',                     'undef  has no PV');
  12 is (DDisplay (0),               '',                     '0      has no PV');
  13 is (DDisplay (\undef),          '',                     '\undef has no PV');
  14 is (DDisplay (\0),              '',                     '\0     has no PV');
  15 is (DDisplay (sub {}),          '',                     'code   has no PV');
  16
  17 is (DDisplay (""),              '""',                   'empty string');
  18 is (DDisplay ("a"),             '"a"',                  '"a"');
  19 is (DDisplay ("\n"),            '"\n"',                 '"\n"');
  20 if ($] < 5.008) {
  21     is (DDisplay ("\x{20ac}"),  '"\342\202\254"',       '"\n"');
  22     }
  23 else {
  24     is (DDisplay ("\x{20ac}"),  '"\x{20ac}"',           '"\n"');
  25     }
  26
  27 1;