# New Ticket Created by James Keenan
# Please include the string: [perl #60622]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=60622 >
The following test is failing on Darwin/PPC at r32784. It passed on
Linux at the same revision number.
not ok 3 - PMC type check
# Failed test 'PMC type check'
# at t/pmc/pmc.t line 75.
# Exited with error code: [SIGNAL 11]
# Received:
# All names ok.
#
# Expected:
# /All names ok/
#
The relevant code in t/pmc/pmc.t appears to be this:
my $checkTypes;
my %types_we_cant_test
= map { $_ => 1; } ( # These require initializers.
qw(Null Iterator Enumerate Ref STMRef SharedRef
ParrotObject ParrotThread
deleg_pmc BigInt LexInfo LexPad Slice Object),
# Instances of these appear to have other types.
qw(PMCProxy Class) );
while ( my ( $type, $id ) = each %pmc_types ) {
next
if $types_we_cant_test{$type};
my $set_ro = ( $type =~ /^Const\w+/ ) ? <<EOPASM : '';
new P10, 'Integer'
set P10, 1
setprop P0, "_ro", P10
EOPASM
$checkTypes .= <<"CHECK";
new P0, '$type'
$set_ro
set S1, "$type"
typeof S0, P0
ne S0, S1, L_BadName
CHECK
}
pasm_output_like( <<"CODE", <<OUTPUT, "PMC type check" );
new P10, 'Hash'
new P11, 'Hash'
$checkTypes
print "All names ok.\\n"
end
L_BadName:
print S1
print " PMCs have incorrect name \\""
print S0
print "\\"\\n"
end
CODE
/All names ok/
OUTPUT
