lib/encoding/warnings/t/3-normal.t

   1 use Test;
   2 BEGIN { plan tests => 2 }
   3
   4 use strict;
   5 use encoding::warnings 'FATAL';
   6 ok(encoding::warnings->VERSION);
   7
   8 if ($] < 5.008) {
   9     ok(1);
  10     exit;
  11 }
  12
  13 my ($a, $b, $c, $ok);
  14 $ok = 1;
  15
  16 $SIG{__DIE__} = sub { $ok = 0 };
  17 $SIG{__WARN__} = sub { $ok = 0 };
  18
  19 $a = chr(20000);
  20 $b = chr(20000);
  21 $c = $a . $b;
  22
  23 ok($ok);