Annotation For example/main.tcl

Lines of example/main.tcl from check-in 38bed7cee0 that are changed by the sequence of edits moving toward check-in 7d74392642:

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