aboutsummaryrefslogtreecommitdiff
path: root/tests/proc.test
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2020-04-18 09:34:25 +1000
committerSteve Bennett <steveb@workware.net.au>2020-05-04 21:57:34 +1000
commitda82368c816c8d06f425aa3f25a2a918fdba1df1 (patch)
treee1dc05358910d168edc982ed05523d0b30ad24d5 /tests/proc.test
parent8a5861eb51c32e41d638181188c256c1dbb93c96 (diff)
downloadjimtcl-da82368c816c8d06f425aa3f25a2a918fdba1df1.zip
jimtcl-da82368c816c8d06f425aa3f25a2a918fdba1df1.tar.gz
jimtcl-da82368c816c8d06f425aa3f25a2a918fdba1df1.tar.bz2
tests: Add many new additional tests for code coverage
readdir, tty, utf8, signal, alarm, kill, file, jimsh, posix, aio, history, interp, pack, unpack, eventloop, exec, load, package, regexp, regsub Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/proc.test')
-rw-r--r--tests/proc.test4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/proc.test b/tests/proc.test
index 50c9674..462b713 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -246,7 +246,9 @@ test proc-old-5.3 {error conditions} {
list [catch {proc tproc b c d e} msg]
} {1}
-
+test proc-5.4 {proc double args} -body {
+ proc a {args args} {}
+} -returnCodes error -result {'args' specified more than once}
test proc-old-5.6 {error conditions} {
list [catch {proc tproc {{} y} {return foo}} msg] $msg