diff options
author | Steve Bennett <steveb@workware.net.au> | 2020-04-17 16:23:37 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2020-04-17 17:36:50 +1000 |
commit | b081ba9fe23cb52fbd17a7f4635244c9ce3ff1fa (patch) | |
tree | 3f32b3f3d0fac917ef15817e726617f86d1fce6c /tests/array.test | |
parent | 35b0acdccfe58043717b026fa2d86ecd76711c85 (diff) | |
download | jimtcl-b081ba9fe23cb52fbd17a7f4635244c9ce3ff1fa.zip jimtcl-b081ba9fe23cb52fbd17a7f4635244c9ce3ff1fa.tar.gz jimtcl-b081ba9fe23cb52fbd17a7f4635244c9ce3ff1fa.tar.bz2 |
tests: improve code coverage
- clock
- array
- file tempfile
- lreverse
- string byterange
- aio tty
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/array.test')
-rw-r--r-- | tests/array.test | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/array.test b/tests/array.test index 423276b..38494de 100644 --- a/tests/array.test +++ b/tests/array.test @@ -131,4 +131,24 @@ test array-1.23 "array exists non-array" -body { array exists x } -result {0} +test array-2.1 {array -help} -constraints jim -body { + array -help +} -match glob -result {Usage: "array command ... ", where command is one of: *} + +test array-2.2 {array -help get} -constraints jim -body { + array -help get +} -result {Usage: array get arrayName ?pattern?} + +test array-2.3 {array -help ambiguous} -constraints jim -body { + array -help s +} -match glob -result {Usage: "array command ... ", where command is one of: *} + +test array-2.3 {array -help nomatch} -constraints jim -body { + array -help unknown +} -match glob -result {Usage: "array command ... ", where command is one of: *} + +test array-2.4 {array ambiguous} -constraints jim -body { + array s +} -returnCodes error -match glob -result {array, ambiguous command "s": should be *} + testreport |