view release on metacpan or  search on metacpan

t/issue240.t  view on Meta::CPAN

#! /usr/bin/env perl
# http://code.google.com/p/perl-compiler/issues/detail?id=240
# not repro. fails only as file
use strict;
BEGIN {
  unshift @INC, 't';
  require TestBC;
}
use Test::More;
#plan skip_all => "no 5.26 support yet" if $] > 5.025003;
plan tests => 1;

ctestok(1,'C,-O3','ccode240i',<<'EOF','#240 not repro unicode race condition with \U');
my $a = "\x{100}\x{101}Aa";
print "ok\n" if "\U$a" eq "\x{100}\x{100}AA";
my $b = "\U\x{149}cD"; # no pb without that line
__END__
EOF