summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-01-14 15:27:53 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-01-14 15:27:53 (GMT)
commit1d3510566009494c47be45cb4bb5b731cd200154 (patch)
tree74fde72962776e24b9e0d11e622de5ee779b705e
parentf60a01925834c65e0c800deb5b9e33b2a9c56ebd (diff)
downloadtcl-1d3510566009494c47be45cb4bb5b731cd200154.zip
tcl-1d3510566009494c47be45cb4bb5b731cd200154.tar.gz
tcl-1d3510566009494c47be45cb4bb5b731cd200154.tar.bz2
Add another test demonstrating what *should* happen, and xref to FRQ
that triggered this discussion
-rw-r--r--tests/compile.test19
1 files changed, 17 insertions, 2 deletions
diff --git a/tests/compile.test b/tests/compile.test
index 9deb680..6a2f16e 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: compile.test,v 1.35 2005/01/14 15:18:16 dkf Exp $
+# RCS: @(#) $Id: compile.test,v 1.36 2005/01/14 15:27:53 dkf Exp $
package require tcltest 2
namespace import -force ::tcltest::*
@@ -587,7 +587,8 @@ test compile-16.23.$noComp {
} ;# End of noComp loop
-# This test is messy because it wrecks the interpreter it runs in!
+# These tests are messy because it wrecks the interpreter it runs in!
+# They demonstrate issues arising from [FRQ 1101710]
test compile-17.1 {Command interpretation binding for compiled code} -constraints knownBug -setup {
set i [interp create]
} -body {
@@ -602,6 +603,20 @@ test compile-17.1 {Command interpretation binding for compiled code} -constraint
} -cleanup {
interp delete $i
} -result substituted
+test compile-17.2 {Command interpretation binding for non-compiled code} -setup {
+ set i [interp create]
+} -body {
+ $i eval {
+ if 1 {
+ [subst expr] [
+ proc expr args {return substituted}
+ format {[subst compiled]}
+ ]
+ }
+ }
+} -cleanup {
+ interp delete $i
+} -result substituted
# cleanup
catch {rename p ""}