From: Javier Sancho <jsf@jsancho.org>
Date: Tue, 31 Dec 2019 15:20:39 +0000 (+0100)
Subject: Tests for foreign records
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=24f7faa67e7e65ca3f591864d2f6f0f7d71389a0;p=guile-irrlicht.git

Tests for foreign records
---

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")