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

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