diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-08-26 17:38:54 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-08-26 17:38:54 (GMT) |
| commit | 7f4c44f7f9c94d6872c360fa78a5ca8774cb5125 (patch) | |
| tree | e3d1c70b751e94eaf4884f0f58810a5e50087e23 /tests | |
| parent | 283f4b6204dfa73280a57969b67b4151175142b0 (diff) | |
| download | tcl-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.test | 13 |
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} |