summaryrefslogtreecommitdiffstats
path: root/tests/proc.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-09-17 14:01:58 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-09-17 14:01:58 (GMT)
commitaec87aa3e11fed49c9f25ec6b38a63c1d2bf62d5 (patch)
treeb02b463e908aa319df467048c516a157117614bf /tests/proc.test
parent0e0e0f9ad3e5af2190b160407f271d8fc0ae5ad0 (diff)
parentd171543388eb0149647f980eb25c80a9bfdadd1e (diff)
downloadtcl-aec87aa3e11fed49c9f25ec6b38a63c1d2bf62d5.zip
tcl-aec87aa3e11fed49c9f25ec6b38a63c1d2bf62d5.tar.gz
tcl-aec87aa3e11fed49c9f25ec6b38a63c1d2bf62d5.tar.bz2
Merge 8.7
Diffstat (limited to 'tests/proc.test')
-rw-r--r--tests/proc.test7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/proc.test b/tests/proc.test
index b87af57..118dca1 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -412,6 +412,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 ""}