Megatest

Artifact 72e97c451114dab666252e27843c1a9fedb56414:

• File loadwatch/launch-many.scm — part of check-in [a095ada3d1] at 2015-06-18 23:12:18 on branch v1.60 — Added queuefeeder (user: matt, size: 227) [annotate] [blame] [check-ins using]

(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)))))