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}