Posted to tcl by Stu at Thu Jun 08 12:27:09 GMT 2023view raw

  1. test g1-begin {} -setup {testConstraint g1 [openTheFile]}
  2.  
  3. test g1-test1 {} -body {} -result {} -constraints {g1}
  4.  
  5. test g1a-begin {} -setup {testconstraint g1a [expr {[testConstraint g1] && [otherThingGo]}]}
  6.  
  7. test g1a-1 {} -body -result -constraints {g1a}
  8.  
  9. test g1a-end {} -cleanup {otherThingStop} -constraints {g1a}
  10.  
  11. test g1-end {} -cleanup {closeTheFile} -constraints {g1}