summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2017-06-26 17:30:15 (GMT)
committerdgp <dgp@users.sourceforge.net>2017-06-26 17:30:15 (GMT)
commitc4c7df6e176c32ac510fc6e454147a478ffc4cf1 (patch)
tree9b149a1301b176155d2244da7d5f4a435b8f4f71
parent4bcc67eec81872423901389198828d4679d7777d (diff)
downloadtcl-c4c7df6e176c32ac510fc6e454147a478ffc4cf1.zip
tcl-c4c7df6e176c32ac510fc6e454147a478ffc4cf1.tar.gz
tcl-c4c7df6e176c32ac510fc6e454147a478ffc4cf1.tar.bz2
Test demonstrating autoloader fragility.
-rw-r--r--tests/init.test10
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 {} {