t/pmc/sub fails with runcore PBC

[dmajnemer]

perl t/harness --gc-debug --running-make-test -r t/pmc/sub.t

t/pmc/sub....NOK 63/64                                                       
#   Failed test ':outer with identical sub names'
#   at t/pmc/sub.t line 1462.
# Exited with error code: 1
# Received:
# ABC::outer
# ABC::inner
# Null PMC in say
# current instr.: 'parrot;ABC;inner' pc 47 (/local/scratch/dmajnem2/parrot/t/pmc/sub_63.pir:20)
# called from Sub 'parrot;ABC;outer' pc 37 (/local/scratch/dmajnem2/parrot/t/pmc/sub_63.pir:14)
# called from Sub 'main' pc 9 (/local/scratch/dmajnem2/parrot/t/pmc/sub_63.pir:3)
# 
# Expected:
# ABC::outer
# ABC::inner
# ABC lex
# DEF::outer
# DEF::inner
# DEF lex
# 
# Looks like you failed 1 test of 64.
t/pmc/sub....dubious                                                         
        Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 63
        Failed 1/64 tests, 98.44% okay
Failed Test Stat Wstat Total Fail  List of Failed
-------------------------------------------------------------------------------
t/pmc/sub.t    1   256    64    1  63
Failed 1/1 test scripts. 1/64 subtests failed.
Files=1, Tests=64,  2 wallclock secs ( 1.54 cusr +  0.46 csys =  2.00 CPU)
Failed 1/1 test programs. 1/64 subtests failed.

icc --version

icc (ICC) 10.1 20080801
Copyright (C) 1985-2008 Intel Corporation.  All rights reserved.

svn info

Path: .
URL: https://svn.perl.org/parrot/trunk
Repository Root: https://svn.perl.org/parrot
Repository UUID: d31e2699-5ff4-0310-a27c-f18f2fbe73fe
Revision: 36011
Node Kind: directory
Schedule: normal
Last Changed Author: Whiteknight
Last Changed Rev: 36011
Last Changed Date: 2009-01-25 17:09:07 -0600 (Sun, 25 Jan 2009)

[jkeenan]

Also subsequently reported in TT # 428 (Linux/AMD64),
TT # 419 (Darwin/Intel) and on Darwin/PPC.

[jkeenan]

Replying to dmajnemer:

> perl t/harness --gc-debug --running-make-test -r t/pmc/sub.t     
> 
> {{{
> t/pmc/sub....NOK 63/64                                                       
> #   Failed test ':outer with identical sub names'
> #   at t/pmc/sub.t line 1462.

This test appears to have been TODO-ed out -- but with a message pointing to TT #1171!

1440 $ENV{TEST_PROG_ARGS} ||= '';
1441 @todo = $ENV{TEST_PROG_ARGS} =~ /--run-pbc/
1442     ? ( todo => 'lexicals not thawed properly from PBC, TT #1171' )
1443     : ();
1444 pir_output_is( <<'CODE', <<'OUTPUT', ':outer with identical sub names', @to     do );
1445 .sub 'main' :main
1446     $P0 = get_hll_global ['ABC'], 'outer'
1447     $P0('ABC lex')
1448 
1449     $P0 = get_hll_global ['DEF'], 'outer'
1450     $P0('DEF lex')
1451 .end