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