# 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
