1BEGIN {
2    if ("$]" >= 5.025) {
3      print "1..0 # Skip: encoding::warnings not supported on perl 5.26\n";
4      exit 0;
5    }
6}
7
8use Test;
9BEGIN { plan tests => 2 }
10
11use strict;
12use encoding::warnings 'FATAL';
13ok(encoding::warnings->VERSION);
14
15if ($] < 5.008) {
16    ok(1);
17    exit;
18}
19
20my ($a, $b, $c, $ok);
21$ok = 1;
22
23$SIG{__DIE__} = sub { $ok = 0 };
24$SIG{__WARN__} = sub { $ok = 0 };
25
26$a = chr(20000);
27$b = chr(20000);
28$c = $a . $b;
29
30ok($ok);
31