Posted to tcl by bch at Mon Oct 09 18:49:52 GMT 2023view raw

  1.  
  2. Driver
  3. ------
  4. #!/usr/bin/env tclsh
  5.  
  6. package require tcltest
  7. namespace import tcltest::*
  8.  
  9. verbose [ list body error skip ]
  10. testConstraint agent true
  11. limitConstraints true
  12.  
  13. runAllTests
  14. cleanupTests
  15.  
  16. Relevant test
  17. -------------
  18. package require tcltest
  19. namespace import tcltest::*
  20.  
  21. test agent-1.1 { agent support } -constraints [ list agent ] -setup {
  22. elided
  23. } -cleanup {
  24. } -body {
  25. set x hi
  26. } -result hi
  27.  
  28. cleanupTests
  29.