3 # Copyright (C) 2005-2007, The Perl Foundation.
8 use lib qw(tcl/lib ./lib ../lib ../../lib ../../../lib);
10 use Parrot::Test tests => 7;
13 pir_output_is( <<'CODE', <<'OUTPUT', "test tcl compiler, verify double call works" );
15 load_bytecode "languages/tcl/runtime/tcllib.pbc"
16 .local pmc tcl_compiler,compiled_sub
17 tcl_compiler = compreg "TCL"
18 compiled_sub = tcl_compiler("puts {ok 1}")
20 compiled_sub = tcl_compiler("puts {ok 2}")
28 pir_output_is( <<'CODE', <<'OUTPUT', "test tcl compiler global variable interop" );
29 .HLL 'Tcl', 'tcl_group'
31 load_bytecode 'languages/tcl/runtime/tcllib.pbc'
32 .local pmc tcl_compiler,compiled_sub
35 store_global '$a', $P1
36 tcl_compiler = compreg 'TCL'
37 compiled_sub = tcl_compiler("puts $a")
44 pir_output_is( <<'CODE', <<'OUTPUT', "pass arguments to a tcl proc from PIR" );
45 .HLL 'Tcl', 'tcl_group'
48 load_bytecode 'languages/tcl/runtime/tcllib.pbc'
51 $P1 = $P0('proc _tmp {a} {puts $a}')
54 $P2 = find_global '&_tmp'
64 pir_output_is( <<'CODE', <<'OUTPUT', "invoke argless tcl proc from PIR" );
66 load_bytecode "languages/tcl/runtime/tcllib.pbc"
67 $S1 = 'proc hey {} { puts 11 }; hey; '
76 pir_output_is( <<'CODE', <<'OUTPUT', "Verify HLL autoboxing: Int" );
77 .HLL 'Tcl', 'tcl_group'
90 pir_output_is( <<'CODE', <<'OUTPUT', "Verify HLL autoboxing: String" );
91 .HLL 'Tcl', 'tcl_group'
104 pir_output_is( <<'CODE', <<'OUTPUT', "Verify HLL autoboxing: Float" );
105 .HLL 'Tcl', 'tcl_group'
120 # cperl-indent-level: 4
123 # vim: expandtab shiftwidth=4: