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

remove accidentally added file

Browse Source
This commit is contained in:
Matthew Flatt 2011-11-12 05:31:42 -07:00
parent 723a54a4d9
commit 13605b55db
1 changed files with 0 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
collects/tests/drracket/random.rkt
View File

@ -1,59 +0,0 @@
#lang racket
(require "private/drracket-test-util.rkt"
tests/utils/gui
mred
framework
(prefix-in fw: framework))
(define (run-test)
(define dr (wait-for-drscheme-frame))
(clear-definitions dr)
(insert-in-definitions dr (file->string "/home/mflatt/svn/mflatt/text/expmodel/mm-defs.rkt"))
(let loop ()
(define n (random 100))
(cond
[(n . < . 10)
(test:keystroke #\A)
(test:keystroke #\backspace)]
[(n . < . 50)
(test:keystroke 'left)]
[(n . < . 60)
(test:keystroke 'up)]
[(n . < . 70)
(test:keystroke 'down)]
[(n . < . 80)
(test:keystroke 'right)]
[(n . < . 82)
(sleep 10)]
[(n . < . 83)
(test:keystroke 'f5)
(test:keystroke #\x '(control))
(test:keystroke #\o)]
[else
(test:keystroke 'left)
(test:keystroke 'right)
(test:keystroke #\backspace)
(test:keystroke #\z '(meta))])
(sleep 0.25)
(loop)))
(dynamic-require 'drscheme #f)
(fw:test:use-focus-table #t)
(thread (λ ()
(let ([orig-display-handler (error-display-handler)])
(uncaught-exception-handler
(λ (x)
(if (exn? x)
(orig-display-handler (exn-message x) x)
(fprintf (current-error-port) "uncaught exception ~s\n" x))
(exit 1))))
(run-test)
(exit)))
(yield (make-semaphore 0))