5 lines
60 B
Tcl
5 lines
60 B
Tcl
|
package require control
|
||
|
|
|
||
|
|
set x 5
|
||
|
|
control::assert {$x == 42}
|