tests/assert.test

   1 # vim: ft=tcl foldmethod=marker foldmarker=<<<,>>> ts=4 shiftwidth=4
   2
   3 if {[lsearch [namespace children] ::tcltest] == -1} {
   4         package require tcltest 2.2.5
   5         namespace import ::tcltest::*
   6 }
   7
   8 package require TLC-base
   9
  10 test assert-1.1 {Passed simple assert} -body { #<<<
  11         tlc::assert {6 * 7 == 42} "Math is sane"
  12 } -result {1}
  13 #>>>
  14 test assert-1.2 {Failed simple assert} -body { #<<<
  15         tlc::assert {6 * 7 == 43} "Coder is sane"
  16 } -returnCodes {
  17         error
  18 } -result {Assert failed: "Coder is sane"}
  19 #>>>
  20 test assert-1.3 {Access to caller's scope variables} -setup { #<<<
  21         set result      42
  22 } -body {
  23         tlc::assert {6 * 7 == $result} "Math is sane"
  24 } -returnCodes {
  25         ok
  26 } -result {1}
  27 #>>>
  28
  29 ::tcltest::cleanupTests
  30 return
  31