diff options
Diffstat (limited to 'cpan/List-Util/t/dualvar.t')
| -rw-r--r-- | cpan/List-Util/t/dualvar.t | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/cpan/List-Util/t/dualvar.t b/cpan/List-Util/t/dualvar.t index fab3691a32..5c0fe2140b 100644 --- a/cpan/List-Util/t/dualvar.t +++ b/cpan/List-Util/t/dualvar.t @@ -16,7 +16,7 @@ BEGIN { use Scalar::Util (); use Test::More (grep { /dualvar/ } @Scalar::Util::EXPORT_FAIL) ? (skip_all => 'dualvar requires XS version') - : (tests => 11); + : (tests => 13); Scalar::Util->import('dualvar'); @@ -49,13 +49,22 @@ SKIP: { ok( $var > 0, 'UV 2'); } + +{ + package Tied; + + sub TIESCALAR { bless {} } + sub FETCH { 7.5 } +} + tie my $tied, 'Tied'; $var = dualvar($tied, "ok"); ok($var == 7.5, 'Tied num'); ok($var eq 'ok', 'Tied str'); -package Tied; - -sub TIESCALAR { bless {} } -sub FETCH { 7.5 } +SKIP: { + skip("need utf8::is_utf8",2) unless defined &utf8::is_utf8; + ok(!!utf8::is_utf8(dualvar(1,chr(400))), 'utf8'); + ok( !utf8::is_utf8(dualvar(1,"abc")), 'not utf8'); +} |