XVFS: main.tcl at [48adf54b98]

File example/main.tcl artifact ff243d60b5 part of check-in 48adf54b98

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"