1#!perl 2 3use Test::More tests => 4; 4use XS::APItest; 5use utf8; 6 7my $e_acute = chr utf8::unicode_to_native(0xe9); 8$_ = "�������������������"; 9sv_catpvn($_, " ${e_acute}t$e_acute"); # uses SV_CATBYTES 10is $_, "������������������� ��t��", 'sv_catpvn_flags(utfsv, ... SV_CATBYTES)'; 11$_ = "${e_acute}t$e_acute"; 12sv_catpvn($_, " �������������������"); # uses SV_CATUTF8 13is $_, "��t�� �������������������", 'sv_catpvn_flags(bytesv, ... SV_CATUTF8)'; 14$_ = "�������������������"; 15sv_catpvn($_, " ��t��"); # uses SV_CATUTF8 16is $_, "������������������� ��t��", 'sv_catpvn_flags(utfsv, ... SV_CATUTF8)'; 17$_ = "${e_acute}t$e_acute"; 18sv_catpvn($_, " ${e_acute}t$e_acute"); # uses SV_CATBYTES 19is $_, "��t�� ��t��", 'sv_catpvn_flags(bytesv, ... SV_CATBYTES)'; 20