This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/XS-APItest/t/svpv_magic.t: Generalize for non-ASCII platforms
authorKarl Williamson <public@khwilliamson.com>
Sat, 13 Apr 2013 22:14:35 +0000 (16:14 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 6 Mar 2015 04:48:26 +0000 (21:48 -0700)
ext/XS-APItest/t/svpv_magic.t

index c57257e..9cb52fc 100644 (file)
@@ -3,7 +3,8 @@
 use Test::More tests => 10;
 
 BEGIN {
-    use_ok('XS::APItest')
+    use_ok('XS::APItest');
+    require 'charset_tools.pl';
 };
 
 $b = "\303\244"; # or encode_utf8("\x{e4}");
@@ -32,7 +33,7 @@ is(eval { XS::APItest::first_byte($1) } || $@, 0303,
 sub TIESCALAR { bless [], shift }
 sub FETCH { ++$f; *{chr 255} }
 tie $t, "main";
-is SvPVutf8($t), "*main::\xc3\xbf",
+is SvPVutf8($t), "*main::" . byte_utf8a_to_utf8n("\xc3\xbf"),
   'SvPVutf8 works with get-magic changing the SV type';
 is $f, 1, 'SvPVutf8 calls get-magic once';
 
@@ -43,7 +44,7 @@ package t {
 }
 tie $t, "t";
 undef $f;
-is SvPVutf8($t), "\xc3\xbf",
+is SvPVutf8($t), byte_utf8a_to_utf8n("\xc3\xbf"),
   'SvPVutf8 works with get-magic downgrading the SV';
 is $f, 1, 'SvPVutf8 calls get-magic once';
 ()="$t";