diff options
author | Steve Bennett <steveb@workware.net.au> | 2020-04-18 09:34:25 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2020-05-04 21:57:34 +1000 |
commit | da82368c816c8d06f425aa3f25a2a918fdba1df1 (patch) | |
tree | e1dc05358910d168edc982ed05523d0b30ad24d5 /tests/exists.test | |
parent | 8a5861eb51c32e41d638181188c256c1dbb93c96 (diff) | |
download | jimtcl-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/exists.test')
-rw-r--r-- | tests/exists.test | 40 |
1 files changed, 24 insertions, 16 deletions
diff --git a/tests/exists.test b/tests/exists.test index 11e8781..79f9da0 100644 --- a/tests/exists.test +++ b/tests/exists.test @@ -1,79 +1,87 @@ source [file dirname [info script]]/testing.tcl needs cmd exists -testConstraint lambda [expr {[info commands lambda] ne {}}] +testCmdConstraints lambda test exists-1.1 "Exists var" { set a 1 exists a } 1 -test exists-1.1 "Exists var" { +test exists-1.2 "Exists var" { unset -nocomplain b exists b } 0 -test exists-1.1 "Exists -var" { +test exists-1.3 "Exists -var" { exists -var a } 1 -test exists-1.1 "Exists -var" { +test exists-1.4 "Exists -var" { exists -var b } 0 -test exists-1.1 "Exists in proc" { +test exists-1.5 "Exists in proc" { proc a {name} { exists $name } a ::a } 1 -test exists-1.1 "Exists in proc" { +test exists-1.6 "Exists in proc" { a ::b } 0 -test exists-1.1 "Exists in proc" { +test exists-1.7 "Exists in proc" { a name } 1 -test exists-1.1 "Exists in proc" { +test exists-1.8 "Exists in proc" { a none } 0 -test exists-1.1 "Exists -proc" { +test exists-1.9 "Exists -proc" { exists -proc a } 1 -test exists-1.1 "Exists -proc" { +test exists-1.10 "Exists -proc" { exists -proc bogus } 0 -test exists-1.1 "Exists -proc" { +test exists-1.11 "Exists -proc" { exists -proc info } 0 -test exists-1.1 "Exists -command" { +test exists-1.12 "Exists -command" { exists -command a } 1 -test exists-1.1 "Exists -command" { +test exists-1.13 "Exists -command" { exists -command info } 1 -test exists-1.1 "Exists -command" { +test exists-1.14 "Exists -command" { exists -command bogus } 0 -test exists-1.1 "Exists local lambda after exit" lambda { +test exists-1.15 "Exists local lambda after exit" lambda { proc a {} { local lambda {} {dummy} } exists -proc [a] } 0 -test exists-1.1 "Exists local lambda" lambda { +test exists-1.16 "Exists local lambda" lambda { proc a {} { exists -proc [local lambda {} {dummy}] } a } 1 +test exists-1.17 {exists usage} -body { + exists -dummy blah +} -returnCodes error -result {bad option "-dummy": must be -alias, -command, -proc, or -var} + +test exists-1.18 {exists usage} -body { + exists abc def ghi +} -returnCodes error -result {wrong # args: should be "exists ?option? name"} + testreport |