Differences From Artifact [20bdf959be]:

• File example/main.tcl — part of check-in [0a9369ff13] at 2019-05-02 14:21:25 on branch trunk — Added bare example (user: rkeene, size: 19) [annotate] [blame] [check-ins using]

To Artifact [ff243d60b5]:

• File example/main.tcl — part of check-in [38bed7cee0] at 2019-09-13 18:43:08 on branch trunk — First implementation of nearly complete channel driver, marked more TODO and cleaned up whitespace (user: rkeene, size: 206) [annotate] [blame] [check-ins using]

1

1
2
3
4
5
6
7

8
9

+
+
+
+
+
+
+
-
+
+

set fd [open "//xvfs:/example/foo"]
seek $fd 0 end
seek $fd -1 current
set check [read $fd 1]
if {$check != "\n"} {
	error "EXPECTED: (new line); GOT: [binary encode hex $check]"
}
puts "Hello World"

puts "ALL TESTS PASSED"