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

puts "Hello World"

>
>
>
>
>
>
>
|
>

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 "ALL TESTS PASSED"