diff options
author | sebres <sebres@users.sourceforge.net> | 2018-09-07 12:02:25 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2018-09-07 12:02:25 (GMT) |
commit | e94df653503422912da11308867c163c0382c50c (patch) | |
tree | e2b7d7ba7122d6e1dbbe4e6ae034253d7f2e1668 /tests/proc.test | |
parent | 5c9968a001208bb4fc6d06ad040c28bd84b7831f (diff) | |
parent | e80eaec4d3430e0db5f54dde5059821f35e77637 (diff) | |
download | tcl-e94df653503422912da11308867c163c0382c50c.zip tcl-e94df653503422912da11308867c163c0382c50c.tar.gz tcl-e94df653503422912da11308867c163c0382c50c.tar.bz2 |
merge 8.6 (segfault fix)
Diffstat (limited to 'tests/proc.test')
-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 bae5e15..6377c0c 100644 --- a/tests/proc.test +++ b/tests/proc.test @@ -110,6 +110,14 @@ test proc-1.8 {Tcl_ProcObjCmd, check that formal parameter names are simple name proc p {b:a b::a} { } } -returnCodes error -result {formal parameter "b::a" is not a simple name} +test proc-1.9 {Tcl_ProcObjCmd, arguments via canonical list (string-representation bug [631b4c45df])} -body { + set v 2 + binary scan AB cc a b + proc p [list [list a $a] [list b $b] [list v [expr {$v + 2}]]] {expr {$a + $b + $v}} + p +} -result [expr {65+66+4}] -cleanup { + rename p {} +} test proc-2.1 {TclFindProc, simple proc name and proc not in namespace} -setup { catch {namespace delete {*}[namespace children :: test_ns_*]} |