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

#!./perl

#This file is intentionally written in UTF-8

BEGIN {
    chdir 't' if -d 't';
    require './test.pl';
    set_up_inc('../lib');
}

plan 1;

use utf8;
use strict;
use open qw( :utf8 :std );

{
    local $@;
    eval 'sub testme { my $ᨕ = "test"; { local $ᨕ = "new test"; print $ᨕ } }';
    like( $@, qr/Can't localize lexical variable \$ᨕ at /u, q!"Can't localize lexical" error is in UTF-8! );
}
Commit	Line	Data
5ede95a0 BF	1	#!./perl
	2
	3	#This file is intentionally written in UTF-8
	4
	5	BEGIN {
	6	chdir 't' if -d 't';
5ede95a0	7	require './test.pl';
624c42e2	8	set_up_inc('../lib');
5ede95a0 BF	9	}
5ede95a0 BF	10
88e0b65b FC	11	plan 1;
88e0b65b FC	12
5ede95a0 BF	13	use utf8;
	14	use strict;
	15	use open qw( :utf8 :std );
	16
	17	{
	18	local $@;
	19	eval 'sub testme { my $ᨕ = "test"; { local $ᨕ = "new test"; print $ᨕ } }';
	20	like( $@, qr/Can't localize lexical variable \$ᨕ at /u, q!"Can't localize lexical" error is in UTF-8! );
	21	}