On Jul 30, 2006, at 3:55 PM, Bob Rogers wrote:
From: Will Coleda <[EMAIL PROTECTED]>
Date: Sun, 30 Jul 2006 15:02:29 -0400
languages/tcl/t/tcl_misc.t#27 has a test for this behavior.
What's the generated PIR for this?
To get the pir generated by tcl (at least at the top level -
there's
a lot of compiling going on throughout the runtime), do:
../../parrot tcl.pbc --pir -e 'set a [list a b]; set a b'
This doesn't work for me, even in a freshly-built (though somewhat
hacked) r13655:
[EMAIL PROTECTED]> ../../parrot tcl.pbc --pir -e 'set a [list a b]; set
a b'
too many arguments passed (3) - 2 params expected
current instr.: 'compile' pc 19796 (languages/tcl/src/compiler.pir:
29)
called from Sub '_main' pc 474 (src/tclsh.pir:185)
[EMAIL PROTECTED]>
Fixed in r13696. This now generates a 94-line PIR sub.
But I also notice that I can't run "make test" on Tcl because
"prove" is
not on my path. I am using Perl 5.8.1, which is rather old, but not
that old, so maybe this is some quirk of the stock SuSE 9.0
configuration?
We're in the middle of converting tcl's test suite over from using
perl to being self-hosting in tcl, and the combination of a parrot
shebang and the parrot-style harness was blowing up. prove doesn't
have this problem. (try perl t/harness t/*.t - you'll see lots of
failures that don't happen with prove at the moment.)
In the meantime, just run an individual test - e.g. "perl t/
cmd_append.t" - perl will automatically handle the shebang (even if
your OS doesn't), and you can run either style test in this fashion.
--
Will "Coke" Coleda
[EMAIL PROTECTED]
