# 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