From 2dffe052005e46b48706182a2eebe82f27246ec4 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 18 Dec 2012 17:45:09 -0700 Subject: [PATCH] Fixed the Gtk tests to access the final malloced-aliens list. --- tests/gtk/test-gtk.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tests/gtk/test-gtk.scm b/tests/gtk/test-gtk.scm index bd49f5f29..77160c8db 100644 --- a/tests/gtk/test-gtk.scm +++ b/tests/gtk/test-gtk.scm @@ -43,7 +43,8 @@ USA. (set! await-closed-demos (access await-closed-demos new)) (set! registered-callback-count (access registered-callback-count ffi)) - (set! malloced-aliens (access malloced-aliens ffi))) + (set! malloced-aliens (named-lambda (malloced-aliens) + (access malloced-aliens ffi)))) (define-test 'gio-copy (let ((cwd (directory-pathname (current-load-pathname)))) @@ -79,9 +80,9 @@ USA. (define-test 'gtk-demos.mallocs (lambda () - (assert-= (length malloced-aliens) + (assert-= (length (malloced-aliens)) 0 - 'EXPRESSION '(LENGTH MALLOCED-ALIENS))))) + 'EXPRESSION '(LENGTH (MALLOCED-ALIENS)))))) (if (not (warn-errors? (lambda () (load-option 'gtk)))) (main)) \ No newline at end of file -- 2.25.1