sco/pokerth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Testing two test cases in parallel.

Browse Source
This commit is contained in:
lotodore
2007-11-08 21:42:22 +00:00
parent 1ca9b5e18a
commit 172a566c79
3 changed files with 19 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/pkth.scm
+5 -4
View File
@@ -263,10 +263,11 @@
(define pkth-create-random-name
(lambda ()
(let ((name (list 84 101 115 116)) (randstate (seed->random-state (cdr (gettimeofday)))))
(dotimes (n 10)
(append! name (list (+ 48 (random 10 randstate)))))
(bytes->string name))))
(let ((time (gettimeofday)))
(let ((name (list 84 101 115 116)) (randstate (seed->random-state (+ (car time) (cdr time)))))
(dotimes (n 10)
(append! name (list (+ 48 (random 10 randstate)))))
(bytes->string name)))))
(define pkth-create-init-ex
(lambda (version-major version-minor privacy-flags avatar-md5 password player-name)