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

use a hash for the preferences (instead of the real file)

Browse Source
This commit is contained in:
Robby Findler 2016-06-25 21:27:25 -05:00
parent f629545c2d
commit 09519347e2
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gui-test/framework/tests/frame.rkt
View File

@ -128,8 +128,6 @@
(queue-callback
(λ ()
(send (test:get-active-top-level-window) close)))
(preferences:set 'framework:file-dialogs 'std) ;; this is not gooD!!!!
(error 'ack "need to figure out how to use the hash-based prefs...?")
editor-contents))
test-file-contents
name))
@ -138,9 +136,19 @@
(test-open "frame:searchable open" frame:searchable%)
(test-open "frame:text open" frame:text%))
(parameterize ([test:use-focus-table #t])
(define dummy (make-object frame:basic% "dummy to keep from quitting"))
(send dummy show #t)
(creation-tests)
(open-tests)
(send dummy show #f))
(let ([pref-ht (make-hash)])
(parameterize ([test:use-focus-table #t]
[preferences:low-level-get-preference
(λ (sym [fail (λ () #f)])
(hash-ref pref-ht sym fail))]
[preferences:low-level-put-preferences
(λ (syms vals)
(for ([sym (in-list syms)]
[val (in-list vals)])
(hash-set! pref-ht sym val)))])
(define dummy (make-object frame:basic% "dummy to keep from quitting"))
(send dummy show #t)
(creation-tests)
(open-tests)
(send dummy show #f)))