diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-15 22:14:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-15 22:14:24 (GMT) |
| commit | 9b0b59d046f223efca4855691ed4f476fa43b1b8 (patch) | |
| tree | f644a1939a37e76c2b4b39017607b5f597c852f6 /tests/proc.test | |
| parent | 535acd95da296aad6bce5f59b57b5d4d83291b4a (diff) | |
| download | tcl-9b0b59d046f223efca4855691ed4f476fa43b1b8.zip tcl-9b0b59d046f223efca4855691ed4f476fa43b1b8.tar.gz tcl-9b0b59d046f223efca4855691ed4f476fa43b1b8.tar.bz2 | |
new testcase proc-7.6
Diffstat (limited to 'tests/proc.test')
| -rw-r--r-- | tests/proc.test | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/proc.test b/tests/proc.test index f453bea..72cb412 100644 --- a/tests/proc.test +++ b/tests/proc.test @@ -8,7 +8,7 @@ # No output means no errors were found. # # Copyright (c) 1997 Sun Microsystems, Inc. -# Copyright (c) 1998-1999 by Scriptics Corporation. +# Copyright (c) 1998-1999 Scriptics Corporation. # # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -411,6 +411,13 @@ test proc-7.5 {[631b4c45df] Crash in argument processing} { unset -nocomplain val } {} +test proc-7.6 {[51d5f22997] Crash in argument processing} -cleanup { + rename foo {} +} -body { + proc foo {{x {}} {y {}} args} {} + foo +} -result {} + # cleanup catch {rename p ""} |