blob: fdc018324bee9002f6264ac2ffd87b63ed6f66e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
use warnings;
use strict;
our $has_is_utf8;
BEGIN { $has_is_utf8 = exists($utf8::{"is_utf8"}); }
our $has_downgrade;
BEGIN { $has_downgrade = exists($utf8::{"downgrade"}); }
use Test::More tests => 3;
BEGIN { use_ok "Carp"; }
ok(!(exists($utf8::{"is_utf8"}) xor $has_is_utf8));
ok(!(exists($utf8::{"downgrade"}) xor $has_downgrade));
1;
|
