diff options
author | dgp <dgp@users.sourceforge.net> | 2017-06-26 19:22:29 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-06-26 19:22:29 (GMT) |
commit | c9a0c6154c53dac75feb2af5e5cacce15bf25b11 (patch) | |
tree | 0a89b0c488355cfedec38b203299ba311e5fee65 /tests/init.test | |
parent | 6e375012383167dfecb749feba6af252ebcf3692 (diff) | |
parent | 40560f53a7756617375dab14d8499406ba3a92b4 (diff) | |
download | tcl-c9a0c6154c53dac75feb2af5e5cacce15bf25b11.zip tcl-c9a0c6154c53dac75feb2af5e5cacce15bf25b11.tar.gz tcl-c9a0c6154c53dac75feb2af5e5cacce15bf25b11.tar.bz2 |
merge 8.6
Diffstat (limited to 'tests/init.test')
-rw-r--r-- | tests/init.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/init.test b/tests/init.test index 41b8624..639389f 100644 --- a/tests/init.test +++ b/tests/init.test @@ -168,6 +168,16 @@ foreach arg [subst -nocommands -novariables { incr count } +test init-4.$count {[Bug 46f801ed5a]} -setup { + auto_reset + array set auto_index {demo {proc demo {} {tailcall error foo}}} +} -body { + demo +} -cleanup { + array unset auto_index demo + rename demo {} +} -returnCodes error -result foo + test init-5.0 {return options passed through ::unknown} -setup { catch {rename xxx {}} set ::auto_index(::xxx) {proc ::xxx {} { |