-
-
Notifications
You must be signed in to change notification settings - Fork 23
/
issue68.t
51 lines (45 loc) · 1.12 KB
/
issue68.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#! /usr/bin/env perl
# http://code.google.com/p/perl-compiler/issues/detail?id=68
# newPMOP assertion >=5.10 threaded
use strict;
my $name = "ccode68i";
use Test::More tests => 1;
use Config;
my $source = <<'EOF';
package A;
sub test {
use Data::Dumper ();
$_ =~ /^(.*?)\d+$/;
"Some::Package"->new();
}
print q(ok);
EOF
open F, ">", "$name.pl";
print F $source;
close F;
my $expected = "ok";
my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
my $Mblib = "-Iblib/arch -Iblib/lib";
if ($] < 5.008) {
system "$runperl -MO=Bytecode,-o$name.plc $name.pl";
} else {
system "$runperl $Mblib -MO=-qq,Bytecode,-H,-o$name.plc $name.pl";
}
unless (-e "$name.plc") {
print "not ok 1 #B::Bytecode failed.\n";
exit;
}
my $runexe = $] < 5.008
? "$runperl -MByteLoader $name.plc"
: "$runperl $Mblib $name.plc";
my $result = `$runexe`;
$result =~ s/\n$//;
TODO: {
use B::Bytecode;
local $TODO = "threaded >= 5.010" if $] >= 5.010 and $Config{useithreads}; # and $B::Bytecode::VERSION lt "1.14";
ok($result eq $expected, "issue68 - newPMOP assert");
}
END {
unlink($name, "$name.plc", "$name.pl")
if $result eq $expected;
}