From 24f7faa67e7e65ca3f591864d2f6f0f7d71389a0 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Tue, 31 Dec 2019 16:20:39 +0100 Subject: [PATCH] Tests for foreign records --- tests/foreign-record.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/tests/foreign-record.scm b/tests/foreign-record.scm index 06343b1..39b8c44 100644 --- a/tests/foreign-record.scm +++ b/tests/foreign-record.scm @@ -28,7 +28,6 @@ (define-foreign-record-type dimension2d (make-dimension2d width height) dimension2d? - dimension2d-pointer (width uint32 dimension2d-width set-dimension2d-width!) (height uint32 dimension2d-height set-dimension2d-height!)) @@ -44,6 +43,6 @@ (test-equal 100 (dimension2d-height dim)) ;; Is a pointer -(test-assert (pointer? (dimension2d-pointer dim))) +(test-assert (pointer? (foreign-record->pointer dim))) (test-end "foreign-record") -- 2.39.5