[perl5.git] / t / op / utf8magic.t

#!perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

plan tests => 6;

use strict;

my $str = "\x{99f1}\x{99dd}"; # "camel" in Japanese kanji
$str =~ /(.)/;

ok utf8::is_utf8($1), "is_utf8(unistr)";
scalar "$1"; # invoke SvGETMAGIC
ok utf8::is_utf8($1), "is_utf8(unistr)";

utf8::encode($str); # off the utf8 flag
$str =~ /(.)/;

ok !utf8::is_utf8($1), "is_utf8(bytes)";
scalar "$1"; # invoke SvGETMAGIC
ok !utf8::is_utf8($1), "is_utf8(bytes)";

sub TIESCALAR { bless [pop] }
sub FETCH     { $_[0][0] }
sub STORE     { $::stored = pop }

tie my $str2, "", "a";
$str2 = "b";
utf8::encode $str2;
is $::stored, "a", 'utf8::encode respects get-magic on POK scalars';

tie $str2, "", "\xc4\x80";
utf8::decode $str2;
is $::stored, "\x{100}", 'utf8::decode respects set-magic';
Commit	Line	Data
b1f58cbd RGS	1	#!perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
	7	}
	8
77fc86ef	9	plan tests => 6;
b1f58cbd	10
76f73021	11	use strict;
76f73021 GF	12
	13	my $str = "\x{99f1}\x{99dd}"; # "camel" in Japanese kanji
	14	$str =~ /(.)/;
	15
	16	ok utf8::is_utf8($1), "is_utf8(unistr)";
	17	scalar "$1"; # invoke SvGETMAGIC
	18	ok utf8::is_utf8($1), "is_utf8(unistr)";
	19
	20	utf8::encode($str); # off the utf8 flag
	21	$str =~ /(.)/;
	22
	23	ok !utf8::is_utf8($1), "is_utf8(bytes)";
	24	scalar "$1"; # invoke SvGETMAGIC
	25	ok !utf8::is_utf8($1), "is_utf8(bytes)";
892f9127 FC	26
	27	sub TIESCALAR { bless [pop] }
	28	sub FETCH { $_[0][0] }
	29	sub STORE { $::stored = pop }
	30
	31	tie my $str2, "", "a";
	32	$str2 = "b";
	33	utf8::encode $str2;
	34	is $::stored, "a", 'utf8::encode respects get-magic on POK scalars';
77fc86ef FC	35
	36	tie $str2, "", "\xc4\x80";
	37	utf8::decode $str2;
	38	is $::stored, "\x{100}", 'utf8::decode respects set-magic';