diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-10 11:56:23 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-03-10 11:56:23 (GMT) |
commit | 13347d984e68e94063bee8fe1b5c8cc77ef5b250 (patch) | |
tree | 556090915c1e4fb7420fa462964788c31d0852d9 /tests/proc.test | |
parent | 5137357e74c887368ad68c3cb09998b154e68d4f (diff) | |
download | tcl-13347d984e68e94063bee8fe1b5c8cc77ef5b250.zip tcl-13347d984e68e94063bee8fe1b5c8cc77ef5b250.tar.gz tcl-13347d984e68e94063bee8fe1b5c8cc77ef5b250.tar.bz2 |
Eliminate exess spacings in many test-cases
Diffstat (limited to 'tests/proc.test')
-rw-r--r-- | tests/proc.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/proc.test b/tests/proc.test index e06720e..bae5e15 100644 --- a/tests/proc.test +++ b/tests/proc.test @@ -99,7 +99,7 @@ test proc-1.6 {Tcl_ProcObjCmd, namespace code ignores single ":"s in middle or e test proc-1.7 {Tcl_ProcObjCmd, check that formal parameter names are not array elements} -setup { catch {rename p ""} } -returnCodes error -body { - proc p {a(1) a(2)} { + proc p {a(1) a(2)} { set z [expr $a(1)+$a(2)] puts "$z=z, $a(1)=$a(1)" } @@ -107,7 +107,7 @@ test proc-1.7 {Tcl_ProcObjCmd, check that formal parameter names are not array e test proc-1.8 {Tcl_ProcObjCmd, check that formal parameter names are simple names} -setup { catch {rename p ""} } -body { - proc p {b:a b::a} { + proc p {b:a b::a} { } } -returnCodes error -result {formal parameter "b::a" is not a simple name} @@ -329,7 +329,7 @@ test proc-5.1 {Bytecompiling noop; test for correct argument substitution} -body } -cleanup { catch {rename p ""} catch {rename t ""} -} -result {aba} +} -result {aba} test proc-6.1 {ProcessProcResultCode: Bug 647307 (negative return code)} -body { proc a {} {return -code -5} |