perl-compiler/t/issue31.t

#! /usr/bin/env perl
# http://code.google.com/p/perl-compiler/issues/detail?id=31
# B:CC Regex in pkg var fails on 5.6 and 5.10
use Test::More tests => 2;
use strict;
BEGIN {
  unshift @INC, 't';
  require "test.pl";
}

my $pm = "Ccode31i.pm";
open FH, ">", $pm;
print FH <<'EOF';
package Ccode31i;
my $regex = qr/\w+/;
sub test {
   #print "$regex\n";
   print ("word" =~ m/^$regex$/o ? "ok\n" : "not ok\n");
}
1
EOF
close FH;

my $script = <<'EOF';
use lib '.';
use Ccode31i;
&Ccode31i::test();
EOF

use B::C ();
# $]<5.007: same as test 33
my $todo = ($] >= 5.010 and $] < 5.011) ? "TODO #31 5.10 " : "";
ctestok(1, "CC", "ccode31i", $script,
      ($B::C::VERSION lt '1.42_55')
      ? "TODO B:CC Regex in pkg var fails with 5.6 and >5.10 since 1.35 until 1.42_54"
      : $todo."B:CC Regex in pkg var");
ctestok(2, "C,-O3", "ccode31i", $script, $todo."B:C Regex in pkg var");

END { unlink $pm; }