Differences From Artifact [72e97c4511]:
- 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]
To Artifact [141ac70432]:
- File loadwatch/launch-many.scm — part of check-in [0ee351862a] at 2015-06-19 21:17:03 on branch v1.60 — Missing changes (user: matt, size: 240) [annotate] [blame] [check-ins using] [more...]
1 2 3 4 5 6 7 |
(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)))))
| > > | 1 2 3 4 5 6 7 8 9 |
(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)))))
|