Tests for foreign records

[guile-irrlicht.git] / tests / foreign-record.scm

diff --git a/tests/foreign-record.scm b/tests/foreign-record.scm
index 06343b12cc7f49a25143d3b217460bac83d40c24..39b8c44564889d32e51c55d069cbe456c46eae76 100644 (file)
--- 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")