diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-26 20:00:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-26 20:00:35 (GMT) |
| commit | cd8fa05e72bb9e525feb1e1a3409e18da78da5c5 (patch) | |
| tree | 499bc23992e77c2b4e9237a4b37df842dd2358e0 /tests | |
| parent | 66abf13830abd7dba19fa8275307fcabbc7b71f3 (diff) | |
| parent | 2223757a3583e4541ae5814fc6e7059e6048e480 (diff) | |
| download | tcl-cd8fa05e72bb9e525feb1e1a3409e18da78da5c5.zip tcl-cd8fa05e72bb9e525feb1e1a3409e18da78da5c5.tar.gz tcl-cd8fa05e72bb9e525feb1e1a3409e18da78da5c5.tar.bz2 | |
Merge 8.6; Bump to TclOO 1.2.0.
Diffstat (limited to 'tests')
| -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 0241283..2a81b52 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 {} { |