Posted to tcl by miguel at Thu Nov 05 14:56:57 GMT 2015view pretty

==== chan-io-49.1 testing crlf reading, leftover cr disgorgment FAILED
==== Contents of test case:

    set f [open $path(test1) w]
    chan configure $f -translation lf
    chan puts -nonewline $f "a\rb\rc\r\n"
    chan close $f
    set f [open $path(test1) r]
    lappend l [file size $path(test1)]
    chan configure $f -translation crlf
    lappend l [chan read $f 1]
    lappend l [chan tell $f]
    lappend l [chan read $f 1]
    lappend l [chan tell $f]
    lappend l [chan read $f 1]
    lappend l [chan tell $f]
    lappend l [chan read $f 1]
    lappend l [chan tell $f]
    lappend l [chan read $f 1]
    lappend l [chan tell $f]
    lappend l [chan read $f 1]
    lappend l [chan tell $f]
    lappend l [chan eof $f]
    lappend l [chan read $f 1]
    lappend l [chan eof $f]

---- Result was:
7 a 1 {
} 2 b 3 {
} 4 c 5 {
} 7 0 {} 1
---- Result should have been (exact matching):
7 a 1 {
} 2 b 3 
    set f1 [open $path(test1) w+]
    lappend l [chan configure $f1 -eofchar]
    chan configure $f1 -eofchar {ON GO}
    lappend l [chan configure $f1 -eofchar]
    chan configure $f1 -eofchar D
    lappend l [chan configure $f1 -eofchar]
 4 c 5 {
} 7 0 {} 1
==== chan-io-49.1 FAILED

Comments

Posted by mig at Thu Nov 05 15:14:37 GMT 2015 [text] [code]

The "result was" is perfectly correct, the "should have been" is corrupted. Those wrong lines in the "should have been" are actually the constraints in test chan-io.39.21