diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-09-07 12:11:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-09-07 12:11:01 (GMT) |
| commit | 4b7caf2e4a373d2616cc7d4f3d05566bd1588b6d (patch) | |
| tree | 5118e33dec7d6fb1fa63c4741e58ed80ec32be8c /tests | |
| parent | e94df653503422912da11308867c163c0382c50c (diff) | |
| parent | 95db69f27b003d548813280a19d1b290332bf2ef (diff) | |
| download | tcl-4b7caf2e4a373d2616cc7d4f3d05566bd1588b6d.zip tcl-4b7caf2e4a373d2616cc7d4f3d05566bd1588b6d.tar.gz tcl-4b7caf2e4a373d2616cc7d4f3d05566bd1588b6d.tar.bz2 | |
merge 8.6
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 6377c0c..1893d0f 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 ""} |