perl-compiler/t/issue242.t

#! /usr/bin/env perl
# http://code.google.com/p/perl-compiler/issues/detail?id=242
# 
use strict;
BEGIN {
  unshift @INC, 't';
  require "test.pl";
}
use Test::More tests => 2;
use Config ();
my $ITHREADS  = $Config::Config{useithreads};

my $script = <<'EOF';
$xyz = ucfirst("\x{3C2}"); # no problem without that line
$a = "\x{3c3}foo.bar";
($c = $a) =~ s/(\p{IsWord}+)/ucfirst($1)/ge;
print "ok\n" if $c eq "\x{3a3}foo.Bar";
EOF

my $todo = $ITHREADS ? "TODO " : "";

ctestok(1,'C','ccode242i',$script, '#242 C,-O0 Using s///e to change unicode case');
ctestok(2,'C,-O3','ccode242i',$script, $todo.'#242 -O3');