[scpubgit/TenDotTcl.git] / ten / test.tcl

namespace eval ::ten::test:: {

  variable test_count 0

  proc pass {reason} {
    variable test_count
    incr test_count
    puts stdout "ok $test_count $reason"
  }

  proc fail {reason} {
    variable test_count
    incr test_count
    puts stdout "not ok $test_count $reason"
  }

  proc is {left right reason} {
    switch $left \
      $right { pass $reason } \
      default { fail "$reason: expected $left, got $right" }
  }

  proc done_testing {} {
    variable test_count
    puts stdout "1..$test_count"
  }

  namespace export pass fail is done_testing
}

package provide ten::test 0.0.1
Commit	Line	Data
3c6a0ce7	1	namespace eval ::ten::test:: {
	2
	3	variable test_count 0
	4
	5	proc pass {reason} {
	6	variable test_count
	7	incr test_count
	8	puts stdout "ok $test_count $reason"
	9	}
	10
	11	proc fail {reason} {
	12	variable test_count
	13	incr test_count
	14	puts stdout "not ok $test_count $reason"
	15	}
	16
	17	proc is {left right reason} {
	18	switch $left \
	19	$right { pass $reason } \
	20	default { fail "$reason: expected $left, got $right" }
	21	}
	22
	23	proc done_testing {} {
	24	variable test_count
	25	puts stdout "1..$test_count"
	26	}
	27
	28	namespace export pass fail is done_testing
	29	}
	30
	31	package provide ten::test 0.0.1