diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 11:32:03 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:41 +1000 |
| commit | c5bf0eb2d41b437999394486dc4d7eace5dc0c27 (patch) | |
| tree | 25a42d2f8a8e2419be8503c2fece94ff917e7a9d /tests/misc.test | |
| parent | b0950211281e786a633692eee2a4096e8457ed82 (diff) | |
| download | jimtcl-c5bf0eb2d41b437999394486dc4d7eace5dc0c27.zip jimtcl-c5bf0eb2d41b437999394486dc4d7eace5dc0c27.tar.gz jimtcl-c5bf0eb2d41b437999394486dc4d7eace5dc0c27.tar.bz2 | |
Bug fixes, documentation updates
jimsh - retry on EINTR from fgets()
Fix 0 -> NULL for 64 bit systems
Fix overlapping memcpy
Fix jim array dereferencing bug
*: Counting of parentheses was incorrect with nested array references
*: The result for array dereference wasn't being used properly
Add os.uptime command
Documentation: autogenerated command index
Fix gets when last line has no newline
Diffstat (limited to 'tests/misc.test')
| -rw-r--r-- | tests/misc.test | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/misc.test b/tests/misc.test new file mode 100644 index 0000000..fec7feb --- /dev/null +++ b/tests/misc.test @@ -0,0 +1,24 @@ +source testing.tcl + +section "Regression Testing" + +test regr-1.1 "Double dereference arrays" { + array set a {one ONE two TWO three THREE} + array set b {ONE 1 TWO 2 THREE 3} + set chan two + set b($a($chan)) +} {2} + +section "I/O Testing" + +test io-1.1 "Read last line with no newline" { + set lines 0 + set f [open testio.in] + while {[gets $f buf] >= 0} { + incr lines + } + close $f + list $lines +} {2} + +testreport |