diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-09-07 12:04:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-09-07 12:04:32 (GMT) |
| commit | 95db69f27b003d548813280a19d1b290332bf2ef (patch) | |
| tree | a0ba50dd76289267859f7736a88db623bdb1f11b /tests | |
| parent | e80eaec4d3430e0db5f54dde5059821f35e77637 (diff) | |
| download | tcl-95db69f27b003d548813280a19d1b290332bf2ef.zip tcl-95db69f27b003d548813280a19d1b290332bf2ef.tar.gz tcl-95db69f27b003d548813280a19d1b290332bf2ef.tar.bz2 | |
Added test for [631b4c45df].
Diffstat (limited to 'tests')
| -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 ""} |