Origin for each line in example/main.tcl from check-in 38bed7cee0:

38bed7cee0 2019-09-13        rkeene: set fd [open "//xvfs:/example/foo"]
38bed7cee0 2019-09-13        rkeene: seek $fd 0 end
38bed7cee0 2019-09-13        rkeene: seek $fd -1 current
38bed7cee0 2019-09-13        rkeene: set check [read $fd 1]
38bed7cee0 2019-09-13        rkeene: if {$check != "\n"} {
38bed7cee0 2019-09-13        rkeene: 	error "EXPECTED: (new line); GOT: [binary encode hex $check]"
38bed7cee0 2019-09-13        rkeene: }
38bed7cee0 2019-09-13        rkeene: 
38bed7cee0 2019-09-13        rkeene: puts "ALL TESTS PASSED"