Posted to tcl by Stu at Thu Jun 08 12:27:09 GMT 2023view pretty
test g1-begin {} -setup {testConstraint g1 [openTheFile]} test g1-test1 {} -body {} -result {} -constraints {g1} test g1a-begin {} -setup {testconstraint g1a [expr {[testConstraint g1] && [otherThingGo]}]} test g1a-1 {} -body -result -constraints {g1a} test g1a-end {} -cleanup {otherThingStop} -constraints {g1a} test g1-end {} -cleanup {closeTheFile} -constraints {g1}