From c4c7df6e176c32ac510fc6e454147a478ffc4cf1 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 26 Jun 2017 17:30:15 +0000
Subject: Test demonstrating autoloader fragility.

---
 tests/init.test | 10 ++++++++++
 1 file changed, 10 insertions(+)

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 {} {
-- 
cgit v0.12