xref: /openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/svcat.t (revision b8851fcc53cbe24fd20b090f26dd149e353f6174) 
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