[perl5.git] / t / uni / chr.t

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    require './test.pl';
    skip_all_without_dynamic_extension('Encode');
    skip_all("no encoding pragma in EBCDIC") if $::IS_EBCDIC;
    skip_all_without_perlio();
}

use strict;
plan (tests => 8);
no warnings 'deprecated';
use encoding 'johab';

ok(chr(0x7f) eq "\x7f");
ok(chr(0x80) eq "\x80");
ok(chr(0xff) eq "\xff");

for my $i (127, 128, 255) {
    ok(chr($i) eq pack('C', $i));
}

# [perl #83048]
{
    my $w;
    local $SIG{__WARN__} = sub { $w .= $_[0] };
    my $chr = chr(-1);
    is($chr, "\x{fffd}", "invalid values become REPLACEMENT CHARACTER");
    like($w, qr/^Invalid negative number \(-1\) in chr at /, "with a warning");
}

__END__
Commit	Line	Data
e4206093	1	#!./perl -w
4c5ed6e2 TS	2
4c5ed6e2 TS	3	BEGIN {
b5efbd1f	4	chdir 't' if -d 't';
e4206093	5	require './test.pl';
273be65c	6	skip_all_without_dynamic_extension('Encode');
1b413590	7	skip_all("no encoding pragma in EBCDIC") if $::IS_EBCDIC;
b5b7b9ad	8	skip_all_without_perlio();
4c5ed6e2 TS	9	}
	10
	11	use strict;
61a3fb80	12	plan (tests => 8);
55673181	13	no warnings 'deprecated';
4c5ed6e2 TS	14	use encoding 'johab';
	15
	16	ok(chr(0x7f) eq "\x7f");
	17	ok(chr(0x80) eq "\x80");
	18	ok(chr(0xff) eq "\xff");
	19
	20	for my $i (127, 128, 255) {
	21	ok(chr($i) eq pack('C', $i));
	22	}
	23
61a3fb80 JL	24	# [perl #83048]
	25	{
	26	my $w;
	27	local $SIG{__WARN__} = sub { $w .= $_[0] };
	28	my $chr = chr(-1);
	29	is($chr, "\x{fffd}", "invalid values become REPLACEMENT CHARACTER");
	30	like($w, qr/^Invalid negative number \(-1\) in chr at /, "with a warning");
	31	}
	32
4c5ed6e2	33	__END__