suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added a little more information

Browse Source 
svn: r17899
This commit is contained in:
Robby Findler 2010-01-30 21:02:26 +00:00
parent 32faba2964
commit aa67a279ab
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/drscheme/randomly-click.ss
View File

@ -3,6 +3,8 @@
(provide go) (provide go)
(define numButtonsToPush 200) (define numButtonsToPush 200)
(define the-seed (+ 1 (modulo (current-seconds) (- (expt 2 31) 1))))
(random-seed the-seed)
;;find-all-actions: area -> (listof (-> void)) ;;find-all-actions: area -> (listof (-> void))
(define (find-all-actions area) (define (find-all-actions area)
@ -109,14 +111,17 @@
[action [action
(with-handlers ((exn:fail? (λ (x) (with-handlers ((exn:fail? (λ (x)
(fprintf (current-error-port) (fprintf (current-error-port)
"\nExecution fail: transcript of ~a clicking follows\n" "\nExecution fail: transcript of ~a clicking follows with seed ~s\n"
(send window get-label)) (send window get-label)
the-seed)
(apply show-log (cons action actions)) (apply show-log (cons action actions))
(raise x)))) (raise x))))
(action)) (action))
(loop (- n 1) (cons action actions))] (loop (- n 1) (cons action actions))]
[else [else
(fprintf (current-error-port) "\nExists/Meets window with no button: Bug?\n") (fprintf (current-error-port)
"\nExists/Meets window with no button: Bug? seed ~s\n"
the-seed)
(apply show-log (cons action actions)) (apply show-log (cons action actions))
(error 'randomly-click.ss "giving up")]))]))])))))) (error 'randomly-click.ss "giving up")]))]))]))))))