make sure the framework tests run with the proper environment

This commit is contained in:
Robby Findler 2013-01-26 07:38:53 -06:00
parent 88404f3b1f
commit e43583c444

View File

@ -111,6 +111,7 @@
`(let* ([t (new racket:text%)]
[f (new frame% [label ""] [width 600] [height 600])]
[ec (new editor-canvas% [parent f] [editor t])])
(preferences:set 'framework:fixup-parens #t)
(preferences:set 'framework:automatic-parens ,auto-parens?)
(send f reflow-container)
(send t insert ,initial-text)