From 09519347e2672c3afe4ea7c61a07e4d310a3d352 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 25 Jun 2016 21:27:25 -0500 Subject: [PATCH] use a hash for the preferences (instead of the real file) --- gui-test/framework/tests/frame.rkt | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) diff --git a/gui-test/framework/tests/frame.rkt b/gui-test/framework/tests/frame.rkt index f2d0c383..0e8da429 100644 --- a/gui-test/framework/tests/frame.rkt +++ b/gui-test/framework/tests/frame.rkt @@ -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))) +