Differences From Artifact [1b460b4b52]:
- File testzmq/mockupclient.scm — part of check-in [5258070648] at 2012-11-17 16:20:20 on branch interleaved-queries — Increased the number of clients to 520, added random wait and run times for clients (user: matt, size: 963) [annotate] [blame] [check-ins using]
To Artifact [3f321e6f75]:
- File testzmq/mockupclient.scm — part of check-in [b85732a36a] at 2012-11-18 23:30:29 on branch interleaved-queries — Initial coding for interleaved queries done and compiles (user: matt, size: 965) [annotate] [blame] [check-ins using] [more...]
︙ | |||
24 25 26 27 28 29 30 | 24 25 26 27 28 29 30 31 32 33 34 35 | - + | (let ((x (random 15)) (varname (list-ref (list "hello" "goodbye" "saluton" "kiaorana")(random 4)))) (case x ;; ((1)(dbaccess cname 'sync "nodat" #f)) ((2 3 4 5)(dbaccess cname 'set varname (random 999))) ((6 7 8 9 10)(print cname ": Get \"" varname "\" " (dbaccess cname 'get varname #f))) (else |