* tests/timer.test (timer-10.1): Test for Bug 1016167.

        * generic/tclTimer.c:   Workaround for situation when a
        [namespace import] causes the objv[0] value to be something
        other than what Tcl_AfterObjCmd expects.  [Bug 1016167].

1 files changed, 13 insertions, 1 deletions

diff --git a/tests/timer.test b/tests/timer.test
index 2eab350..46b21de 100644
--- a/tests/timer.test
+++ b/tests/timer.test
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: timer.test,v 1.8 2004/05/19 13:03:37 dkf Exp $
+# RCS: @(#) $Id: timer.test,v 1.9 2004/08/25 22:21:34 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -538,6 +538,18 @@ test timer-9.1 {AfterCleanupProc procedure} {
     set x
 } {before after2 after4}
 
+test timer-10.1 {Bug 1016167: [after] overwrites imports} -setup {
+    interp create slave
+    slave eval namespace export after
+    slave eval namespace eval foo namespace import ::after
+} -body {
+    slave eval foo::after 1
+    slave eval namespace origin foo::after
+} -cleanup {
+    # Bug will cause crash here; would cause failure otherwise
+    interp delete slave
+} -result ::after
+
 # cleanup
 ::tcltest::cleanupTests
 return