[perl #56958] HLL map of ResizablePMCArray

[via RT]

# New Ticket Created by  Will Coleda 
# Please include the string:  [perl #56958]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=56958 >


Tcl used to rely on this particular HLL mapping working, but it seems
to have vanished at some point. (Forces a workaround in
languages/tcl/runtime/builtin/list.pir)

When creating a new PMC to be used with :slurpy, we should be
respecting HLL mapping here.

Here's a simple failing test case that I think should work, but
currently fails the second test.

# (Test could stand to be converted to use parrot's Test::More)
.sub 'q' :anon :load
  $P1 = subclass 'ResizablePMCArray', 'Foo'
.end

.HLL_map 'ResizablePMCArray', 'Foo'

.sub main :main
  say '1..2'
  elm('a','b','c')
.end

.sub elm
  .param pmc args :slurpy

  $I1 = elements args
  if $I1 == 3 goto ok_1
  print 'not '
ok_1:
  say 'ok 1'

  $S0 = typeof args
  if $S0 == 'Foo' goto ok_2
  print 'not '
ok_2:
  say 'ok 2'
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:



-- 
Will "Coke" Coleda