RosettaCodeData/Task/Assertions/Tcl/assertions.tcl

package require control

set x 5
control::assert {$x == 42}