diff options
author | dgp <dgp@users.sourceforge.net> | 2017-06-26 19:18:42 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-06-26 19:18:42 (GMT) |
commit | 40560f53a7756617375dab14d8499406ba3a92b4 (patch) | |
tree | a917ef89016b085236f854e85787ff9e08be5b6a /tests | |
parent | 4bcc67eec81872423901389198828d4679d7777d (diff) | |
parent | 45b7c8a7643c1ccb4268653e962709300c237d85 (diff) | |
download | tcl-40560f53a7756617375dab14d8499406ba3a92b4.zip tcl-40560f53a7756617375dab14d8499406ba3a92b4.tar.gz tcl-40560f53a7756617375dab14d8499406ba3a92b4.tar.bz2 |
[46f801ea5a] Make autoloader less fragile when it cannot manufacture a
known consistent stack trace. Value inconsistency over failure.
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 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 {} { |