diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2019-10-28 13:14:36 +0000 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2019-10-28 13:14:36 +0000 |
| commit | bec9d907fa4dc8f7d22a1d056ab1fe14af409949 (patch) | |
| tree | 6b5869aba8ffdf1ee0198dde2edbc5e63778670e /cpan/Scalar-List-Utils/t | |
| parent | 92a915ab903e675cbe7ed2f7508ff3a2cde71186 (diff) | |
| download | perl-bec9d907fa4dc8f7d22a1d056ab1fe14af409949.tar.gz | |
Upgrade Scalar-List-Utils from version 1.52 to 1.53
Diffstat (limited to 'cpan/Scalar-List-Utils/t')
| -rw-r--r-- | cpan/Scalar-List-Utils/t/blessed.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/cpan/Scalar-List-Utils/t/blessed.t b/cpan/Scalar-List-Utils/t/blessed.t index 21d3a9ade4..2ae3679196 100644 --- a/cpan/Scalar-List-Utils/t/blessed.t +++ b/cpan/Scalar-List-Utils/t/blessed.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 11; +use Test::More tests => 12; use Scalar::Util qw(blessed); my $t; @@ -46,3 +46,11 @@ cmp_ok(blessed($x), "eq", "0", 'blessed HASH-ref'); ::is( ::blessed($obj), __PACKAGE__, "blessed on broken isa() and can()" ); } +SKIP: { + # Unicode package names only supported in perl 5.16 onwards + skip "Unicode package names are not supported", 1 if $] < 5.016; + + my $utf8_pack= "X\x{100}"; + my $obj= bless {}, $utf8_pack; + ::is( ::blessed($obj), $utf8_pack, "blessed preserves utf8ness for utf8 class names" ); +} |