diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-07-13 17:53:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-07-13 17:53:58 (GMT) |
| commit | 965e4bbab2201076c8c2bc6ae5baca705ab889b0 (patch) | |
| tree | f1620db0ed8edabd97357b78ee3e6acb96377b72 /tests/proc.test | |
| parent | 15d2827a35e23f3221491e1cfc89efa5545e9e9f (diff) | |
| download | tcl-965e4bbab2201076c8c2bc6ae5baca705ab889b0.zip tcl-965e4bbab2201076c8c2bc6ae5baca705ab889b0.tar.gz tcl-965e4bbab2201076c8c2bc6ae5baca705ab889b0.tar.bz2 | |
3366265 Buffer allocated one byte too small caused overrun.
Diffstat (limited to 'tests/proc.test')
| -rw-r--r-- | tests/proc.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/proc.test b/tests/proc.test index 4e28554..8974663 100644 --- a/tests/proc.test +++ b/tests/proc.test @@ -171,6 +171,11 @@ test proc-3.6 {TclObjInterpProc, proper quoting of proc name, Bug 942757} { list [catch {{a b c}} msg] $msg } {1 {wrong # args: should be "{a b c} x"}} +test proc-3.7 {TclObjInterpProc, wrong num args, Bug 3366265} { + proc {} {x} {} + list [catch {{}} msg] $msg +} {1 {wrong # args: should be "{} x"}} + catch {eval namespace delete [namespace children :: test_ns_*]} catch {rename p ""} catch {rename {} ""} |