summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2002-08-26 17:38:54 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2002-08-26 17:38:54 (GMT)
commit7f4c44f7f9c94d6872c360fa78a5ca8774cb5125 (patch)
treee3d1c70b751e94eaf4884f0f58810a5e50087e23 /tests
parent283f4b6204dfa73280a57969b67b4151175142b0 (diff)
downloadtcl-7f4c44f7f9c94d6872c360fa78a5ca8774cb5125.zip
tcl-7f4c44f7f9c94d6872c360fa78a5ca8774cb5125.tar.gz
tcl-7f4c44f7f9c94d6872c360fa78a5ca8774cb5125.tar.bz2
2002-08-26 Miguel Sofer <msofer@users.sourceforge.net>
* generic/tclCompCmds.c: fix for [Bug 599788] (error in element name causing segfault), reported by Tom Wilkason. Fixed by copying the tokens instead of the source string.
Diffstat (limited to 'tests')
-rw-r--r--tests/compile.test13
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/compile.test b/tests/compile.test
index a5abce7..f3c1a08 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.22 2002/07/10 11:56:44 dgp Exp $
+# RCS: @(#) $Id: compile.test,v 1.23 2002/08/26 17:38:54 msofer Exp $
package require tcltest 2
namespace import -force ::tcltest::*
@@ -323,6 +323,17 @@ test compile-13.1 {testing underestimate of maxStackSize in list cmd} {exec} {
list [catch {exec [interpreter] << $script} msg] $msg
} {0 OK}
+# Special test for compiling tokens from a copy of the source
+# string [Bug #599788]
+test compile-14.1 {testing errors in element name; segfault?} {} {
+ catch {set a([error])} msg1
+ catch {set bubba([join $abba $jubba]) $vol} msg2
+ list $msg1 $msg2
+} {{wrong # args: should be "error message ?errorInfo? ?errorCode?"} {can't read "abba": no such variable}}
+
+
+
+
# cleanup
catch {rename p ""}
catch {namespace delete test_ns_compile}