t/op/fresh_perl_utf8.t

   1 #!./perl
   2
   3 #This file is intentionally written in UTF-8
   4
   5 BEGIN {
   6     chdir 't' if -d 't';
   7     @INC = '../lib';
   8     require './test.pl';
   9 }
  10
  11 plan 1;
  12
  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 }