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

#!perl

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

plan tests => 4;

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)";
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
	9	plan tests => 4;
	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)";