diff options
| -rw-r--r-- | tests/proc.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/proc.test b/tests/proc.test index f70fcbd..8b25b0a 100644 --- a/tests/proc.test +++ b/tests/proc.test @@ -391,6 +391,14 @@ test proc-7.4 {Proc struct outlives its interp: Bug 3532959} { interp delete slave unset lambda } {} + +test proc-7.5 {[631b4c45df] Crash in argument processing} { + binary scan A c val + proc foo [list [list from $val]] {} + rename foo {} + unset -nocomplain val +} {} + # cleanup catch {rename p ""} |