diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-26 17:30:15 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-26 17:30:15 (GMT) |
| commit | c4c7df6e176c32ac510fc6e454147a478ffc4cf1 (patch) | |
| tree | 9b149a1301b176155d2244da7d5f4a435b8f4f71 | |
| parent | 4bcc67eec81872423901389198828d4679d7777d (diff) | |
| download | tcl-c4c7df6e176c32ac510fc6e454147a478ffc4cf1.zip tcl-c4c7df6e176c32ac510fc6e454147a478ffc4cf1.tar.gz tcl-c4c7df6e176c32ac510fc6e454147a478ffc4cf1.tar.bz2 | |
Test demonstrating autoloader fragility.
| -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..3a5197a 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 {} +} -match glob -result * + test init-5.0 {return options passed through ::unknown} -setup { catch {rename xxx {}} set ::auto_index(::xxx) {proc ::xxx {} { |