scripts/assert.tcl

   1 proc tlc::assert {expr msg} {
   2         if {![uplevel [list expr $expr]]} {
   3                 error "Assert failed: \"$msg\"" "" [list assert_failed $expr $msg]
   4         } else {
   5                 return 1
   6         }
   7 }
   8
   9