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

reformat

Browse Source 
svn: r9737
This commit is contained in:
Eli Barzilay 2008-05-08 13:13:02 +00:00
parent 68a266599d
commit fc3115d6bc
1 changed files with 171 additions and 170 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/framework/mem.ss
View File

@ -1,4 +1,4 @@
(module mem mzscheme
#lang mzscheme
(require "test-suite-utils.ss")
; mem-boxes : (list-of (list string (list-of (weak-box TST))))
@ -114,7 +114,8 @@
(let ([name (format "~s" %)])
(send-sexp-to-mred '(preferences:set 'framework:exit-when-no-frames #f))
(test-allocate name
`(lambda () (let ([f (make-object ,% ,name)])
`(lambda ()
(let ([f (make-object ,% ,name)])
(send f show #t)
(yield) (yield)
f))
@ -127,12 +128,12 @@
(send-sexp-to-mred '(preferences:set 'framework:exit-when-no-frames #t))))
(test-allocate "frame%"
'(lambda () (let ([f (make-object frame% "test frame")])
'(lambda ()
(let ([f (make-object frame% "test frame")])
(send f show #t)
f))
'(lambda (f) (send f show #f)))
(define (test-editor-allocate object-name)
(test-allocate (symbol->string object-name)
`(lambda () (make-object ,object-name))
@ -170,4 +171,4 @@
(test-frame-allocate 'frame:searchable%)
(test-frame-allocate 'frame:pasteboard%)
(done))
(done)