file: 'rwtest' mode: 'r' readSync: '' writeSync: '' bufferType: 'none' bufSize: '20'

set AAA [string repeat ABCDEFGHIJKLMNOPQRSTUVWXY 4]
set 123 [string repeat 1234567890 10]
set logFilename rwtest-r---none-20.log
set testFilename rwtest-r---none-20.test


set fd [open $testFilename {WRONLY APPEND CREAT TRUNC}]
puts $fd $AAA
puts $fd $123
close $fd

set fd [open rwtest-r---none-20.test r+]
fconfigure $fd -buffering none -buffersize 1024

foreach num {1 2 3 4 5} {
    
    set start [tell $fd]
    puts -nonewline $fd [string repeat $num 11]
    set end [tell $fd]
    
    set repos [tell $fd]
    set char [read $fd 1]
    set final [tell $fd ]
    puts $logFd "$num start = $start end = $end repos = $repos final = $final char = $char"
}
    
close $fd

set fd2 [open rwtest-r---none-20.test r ]
set contents [read $fd2]
close $fd2
puts $logFd \n$contents

1 start = 0 end = 11 repos = 11 final = 12 char = L
2 start = 12 end = 23 repos = 23 final = 24 char = M
3 start = 24 end = 35 repos = 35 final = 36 char = N
4 start = 36 end = 47 repos = 47 final = 48 char = O
5 start = 48 end = 59 repos = 59 final = 60 char = P

11111111111LMNOPQRSTUVWXYABCDEFGHIJKLMNOPQRSTUVWXYABCDEFGHIJKLMNOPQRSTUVWXYABCDEFGHIJKLMNOPQRSTUVWXY
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
22222222222333333333334444444444455555555555