Artifact ff243d60b58ad29e564fc9d5606d536b12c5895bac15fb369bf780f0243af9f4:

• File example/main.tcl — part of check-in [38bed7cee0] at 2019-09-13 18:43:08 on branch trunk — First implementation of nearly complete channel driver, marked more TODO and cleaned up whitespace (user: rkeene, size: 206) [annotate] [blame] [check-ins using]

set fd [open "//xvfs:/example/foo"]
seek $fd 0 end
seek $fd -1 current
set check [read $fd 1]
if {$check != "\n"} {
	error "EXPECTED: (new line); GOT: [binary encode hex $check]"
}

puts "ALL TESTS PASSED"