summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-07-06 21:08:36 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-07-06 21:08:36 (GMT)
commit20d4b34f6477d15f854d40540e12bb756e48d90e (patch)
tree51a329e37b8b741eac047447f44baaf03c6e9475 /tests
parentb7a17dd6698402d0a310eea11b8969e79d2f3680 (diff)
downloadtcl-20d4b34f6477d15f854d40540e12bb756e48d90e.zip
tcl-20d4b34f6477d15f854d40540e12bb756e48d90e.tar.gz
tcl-20d4b34f6477d15f854d40540e12bb756e48d90e.tar.bz2
* tests/cmdMZ.test (cmdMZ-return-2.17): Added a test that a word
containing backslash-quoted value is treated correctly. * generic/tclCompile.c (TclWordKnownAtCompileTime): [Bug 986196] Corrected flaw above and the flaw that caused TCL_TOKEN_SIMPLE_WORDs to have their original word value copied ( "{a b}" ) rather than the actual value ( "a b" ). Thanks to Kevin Kenny for report and tests.
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdMZ.test12
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test
index 827c77b..2eff71f 100644
--- a/tests/cmdMZ.test
+++ b/tests/cmdMZ.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: cmdMZ.test,v 1.23 2004/07/06 20:17:11 kennykb Exp $
+# RCS: @(#) $Id: cmdMZ.test,v 1.24 2004/07/06 21:08:37 dgp Exp $
if {[catch {package require tcltest 2.1}]} {
puts stderr "Skipping tests in [info script]. tcltest 2.1 required."
@@ -171,6 +171,16 @@ test cmdMZ-return-2.16 {return opton handling} -setup {
rename p {}
} -result {1 c {a b}}
+test cmdMZ-return-2.17 {return opton handling} -setup {
+ proc p {} {
+ return -code error -errorcode a\ b c
+ }
+ } -body {
+ list [catch p result] $result $::errorCode
+ } -cleanup {
+ rename p {}
+ } -result {1 c {a b}}
+
# Check that the result of a [return -options $opts $result] is
# indistinguishable from that of the originally caught script, no