[tcljava-dev] Jacl IO status

[Johnson, B. <bru...@me...>]

Almost done!!

Listed below are the current results from running the Tcl 8.3.2 io.test
script with Jacl.   

io.test:	Total	435	Passed	303	Skipped	72	Failed	60
Number of tests skipped for each constraint:
	1	emptyTest
	1	macOnly
	1	nonPortable
	2	pcOnly
	58	stdio
	7	unixOnly
	2	unixOrPc

I'm not sure what the tests that are being skipped (especially stdio) are.
I haven't given any thought to them at all.  Of the 60 failures, 56 of them
are because one or more of the socket, fcopy, fileevent and testchannelevent
commands are not yet implemented.  The four other tests which fail are
listed below.

==== io-3.4 WriteChars: loop over stage buffer FAILED
==== io-3.5 WriteChars: saved != 0 FAILED
==== io-3.7 WriteChars: (bufPtr->nextAdded > bufPtr->length) FAILED
==== io-11.1 ReadBytes: want to read a lot FAILED

  Tests 3.4,3.5, and 3.7 fail not because of the error they are designed to
test for, but rather something to do with jis0208 encoding.  I haven't had a
chance to figure out what the problem is.

Test 11.1 appears to give the correct result, but fails anyway:

==== io-11.1 ReadBytes: want to read a lot FAILED
==== Contents of test case:

    # ((unsigned) toRead > (unsigned) srcLen)

    set f [open "test1" w]
    puts -nonewline $f abcdefghijkl
    close $f
    set f [open "test1"]
    fconfigure $f -encoding binary
    # here
    set x [read $f 1000]
    close $f
    set x
 
---- Result was:
abcdefghijkl
---- Result should have been:
abcdefghijkl
==== io-11.1 FAILED


I need to do some housekeeping with the code (renaming some variables,
getting rid of some debugging junk, etc.) and then I'll post it so Mo can
bless it (or not).

Bruce