From ed9851ab3479b13b4a7256f600dd208383795d65 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 28 Dec 2023 21:34:52 -0600 Subject: [PATCH] when `t` is collected, the callbacks don't happen, which causes tests to fail Thanks to @mflatt for idenitfying the fix --- gui-test/tests/gracket/wxme.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gui-test/tests/gracket/wxme.rkt b/gui-test/tests/gracket/wxme.rkt index d365b10ca..c9f5cdd2e 100644 --- a/gui-test/tests/gracket/wxme.rkt +++ b/gui-test/tests/gracket/wxme.rkt @@ -19,7 +19,8 @@ "test-editor-admin.rkt" mred/private/wxme/keymap mred/private/wxme/editor-snip - (for-syntax racket/base)) + (for-syntax racket/base) + (only-in ffi/unsafe void/reference-sink)) (define wrong-cnt 0) (define test-cnt 0) @@ -305,7 +306,8 @@ (expect (and (pair? changes) (equal? (car changes) #f)) #t) (expect (and (member named-style1 changes) #t) #t) (expect (and (member named-style2 changes) #t) #t) - (set! changes '())) + (set! changes '()) + (void/reference-sink t)) ;; ---------------------------------------- ;; Lines, positions, paragraphs