1*b8851fccSafresh1#!perl 2*b8851fccSafresh1 3*b8851fccSafresh1use Test::More tests => 4; 4*b8851fccSafresh1use XS::APItest; 5*b8851fccSafresh1use utf8; 6*b8851fccSafresh1 7*b8851fccSafresh1my $e_acute = chr utf8::unicode_to_native(0xe9); 8*b8851fccSafresh1$_ = "καλοκαίρι"; 9*b8851fccSafresh1sv_catpvn($_, " ${e_acute}t$e_acute"); # uses SV_CATBYTES 10*b8851fccSafresh1is $_, "καλοκαίρι été", 'sv_catpvn_flags(utfsv, ... SV_CATBYTES)'; 11*b8851fccSafresh1$_ = "${e_acute}t$e_acute"; 12*b8851fccSafresh1sv_catpvn($_, " καλοκαίρι"); # uses SV_CATUTF8 13*b8851fccSafresh1is $_, "été καλοκαίρι", 'sv_catpvn_flags(bytesv, ... SV_CATUTF8)'; 14*b8851fccSafresh1$_ = "καλοκαίρι"; 15*b8851fccSafresh1sv_catpvn($_, " été"); # uses SV_CATUTF8 16*b8851fccSafresh1is $_, "καλοκαίρι été", 'sv_catpvn_flags(utfsv, ... SV_CATUTF8)'; 17*b8851fccSafresh1$_ = "${e_acute}t$e_acute"; 18*b8851fccSafresh1sv_catpvn($_, " ${e_acute}t$e_acute"); # uses SV_CATBYTES 19*b8851fccSafresh1is $_, "été été", 'sv_catpvn_flags(bytesv, ... SV_CATBYTES)'; 20