newscope 635 B

12345678910111213141516
  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 7) (< irunner (len tests)) (def irunner (+ irunner 1))]
  7. (def cur (aget tests irunner))
  8. (cond (!= cur "new-scope")
  9. (begin
  10. (printf "starting %d '%s'\n" irunner cur)
  11. (new-scope (source cur))
  12. (printf "done with %d '%s'\n" irunner cur))
  13. ()))