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"