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