sourcer 549 B

123456789101112
  1. // source all the tests - interesting but fraught with peril
  2. // because tests can collide and stomp on each others variables.
  3. // Regular testing should prefer the testall.sh script herein for
  4. // this reason. It will run each test in its own zygo process.
  5. (def tests (nsplit (system `ls -1 tests/*.zy`)))
  6. (for [(def irunner 0) (< irunner (len tests)) (def irunner (+ irunner 1))]
  7. (def cur (aget tests irunner))
  8. (printf "starting %d '%s'\n" irunner cur)
  9. (new-scope
  10. (source cur))
  11. (printf "done with %d '%s'\n" irunner cur))