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/filecopy.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/filecopy.test')
| -rw-r--r-- | tests/filecopy.test | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/filecopy.test b/tests/filecopy.test index fea3d33..0c0231e 100644 --- a/tests/filecopy.test +++ b/tests/filecopy.test @@ -68,6 +68,28 @@ test filecopy-2.6 "Source and target identical (-force)" { file size tempfile } 16 +test file-tempfile-1.1 {file tempfile - simple} { + set f [file tempfile] + set ret [file exists $f] + file delete $f + set ret +} {1} + +test file-tempfile-1.2 {file tempfile with pattern} { + set f [file tempfile /tmp/file-tempfile.XXXXXX] + set ret [file exists $f] + file delete $f + set ret +} {1} + +test file-tempfile-1.3 {file tempfile with invalid path} -body { + set f [file tempfile /doesnotexist/file-tempfile.XXXXXX] + puts $f + set ret [file exists $f] + file delete $f + set ret +} -returnCodes error -match glob -result {/doesnotexist/file-tempfile.*} + file delete tempfile file delete --force tempdir |