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"