diff options
author | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-23 20:28:19 (GMT) |
---|---|---|
committer | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-23 20:28:19 (GMT) |
commit | 1acb0742e2003b2986c75a8f0967b7a7fdd5d661 (patch) | |
tree | 17e6862de7202f1e8aa203b4d9ce71e48c3abd01 /tests/compile.test | |
parent | d8bdd23bc64b9a515924bf2f8c38345a1ee46c0a (diff) | |
parent | 095b587df14e39ec71e1f4a638516f371c8ce861 (diff) | |
download | tcl-1acb0742e2003b2986c75a8f0967b7a7fdd5d661.zip tcl-1acb0742e2003b2986c75a8f0967b7a7fdd5d661.tar.gz tcl-1acb0742e2003b2986c75a8f0967b7a7fdd5d661.tar.bz2 |
merge
Diffstat (limited to 'tests/compile.test')
-rw-r--r-- | tests/compile.test | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/tests/compile.test b/tests/compile.test index e3781f3..3c1eb8a 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -779,6 +779,42 @@ test compile-18.28 {disassembler - basics} -setup { } -cleanup { rename chewonthis {} } -result $bytecodekeys +test compile-18.28.1 {disassembler - tricky bit} -setup { + eval [list proc chewonthis {} {}] +} -body { + dict keys [tcl::unsupported::getbytecode proc chewonthis] +} -cleanup { + rename chewonthis {} +} -result $bytecodekeys +test compile-18.28.2 {disassembler - tricky bit} -setup { + eval {proc chewonthis {} {}} +} -body { + dict keys [tcl::unsupported::getbytecode proc chewonthis] +} -cleanup { + rename chewonthis {} +} -result $bytecodekeys +test compile-18.28.3 {disassembler - tricky bit} -setup { + proc Proc {n a b} { + proc $n $a $b + } + Proc chewonthis {} {} +} -body { + dict keys [tcl::unsupported::getbytecode proc chewonthis] +} -cleanup { + rename Proc {} + rename chewonthis {} +} -result $bytecodekeys +test compile-18.28.4 {disassembler - tricky bit} -setup { + proc Proc {n a b} { + tailcall proc $n $a $b + } + Proc chewonthis {} {} +} -body { + dict keys [tcl::unsupported::getbytecode proc chewonthis] +} -cleanup { + rename Proc {} + rename chewonthis {} +} -result $bytecodekeys test compile-18.29 {disassembler - basics} -returnCodes error -body { tcl::unsupported::getbytecode script } -match glob -result {wrong # args: should be "* script script"} |