Megatest

launch-many.scm at [b93c0e396c]
Login

File loadwatch/launch-many.scm artifact 141ac70432 part of check-in b93c0e396c


(use posix)

(let loop ((count 0))
  (if (> count 500000)
      (print "DONE")
      (let ((cmd (conc "./queuefeeder xena:22022 bsub ./testopenlava.sh " count " " (random 30))))
	(print "Running: " cmd)
	(system cmd)
	(loop (+ count 1)))))