Differences From Artifact [c2846bcc7a]:

• File example/main.tcl — part of check-in [7d74392642] at 2019-09-13 21:46:07 on branch trunk — Watch proc and more tests (user: rkeene, size: 929) [annotate] [blame] [check-ins using]

To Artifact [6323624de5]:

• File example/main.tcl — part of check-in [aa08a4a749] at 2019-09-14 00:54:24 on branch trunk — Updated to keep track of whether or not there were events queued before closing and freeing a structure (user: rkeene, size: 951) [annotate] [blame] [check-ins using]

41
42
43
44
45
46
47


48
49

vwait done
if {$calls != ($size + 1)} {
	error "EXPECTED [expr {$size + 1}], got $calls"
}
if {[lsort -integer $output] != $output} {
	error "EXPECTED [lsort -integer $output], GOT $output"
}



puts "ALL TESTS PASSED"

>
>

41
42
43
44
45
46
47
48
49
50
51

vwait done
if {$calls != ($size + 1)} {
	error "EXPECTED [expr {$size + 1}], got $calls"
}
if {[lsort -integer $output] != $output} {
	error "EXPECTED [lsort -integer $output], GOT $output"
}
close $fd
update idle

puts "ALL TESTS PASSED"