1 namespace eval ::ten::test:: {
8 puts stdout "ok $test_count $reason"
14 puts stdout "not ok $test_count $reason"
17 proc is {left right reason} {
19 $right { pass $reason } \
20 default { fail "$reason: expected $left, got $right" }
23 proc done_testing {} {
25 puts stdout "1..$test_count"
28 namespace export pass fail is done_testing
31 package provide ten::test 0.0.1