1 namespace eval ::ten::test:: {
8 puts stdout "ok $test_count $reason"
14 puts stdout "not ok $test_count $reason"
17 proc ok {cond reason} {
21 fail "$reason: $cond false"
25 proc cmp_ok {op left right reason} {
26 if [expr $left $op $right] {
29 fail "$reason: $left $op $right false"
33 proc is {left right reason} {
35 $right { pass $reason } \
36 default { fail "$reason: expected $right, got $left" }
39 proc done_testing {} {
41 puts stdout "1..$test_count"
44 namespace export pass fail is ok cmp_ok done_testing
47 package provide ten::test 0.0.1