From 4d87c91d596bb1ec3b666c8bf37548379e467ef5 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 18 Aug 2009 13:10:52 -0500
Subject: [PATCH] classes.struct unit tests to check union heap-size and that
 structs can be passed as FFI args

---
 extra/classes/struct/struct-tests.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/extra/classes/struct/struct-tests.factor b/extra/classes/struct/struct-tests.factor
index 9a2d3a8074..3ab6593070 100644
--- a/extra/classes/struct/struct-tests.factor
+++ b/extra/classes/struct/struct-tests.factor
@@ -1,6 +1,6 @@
 ! (c)Joe Groff bsd license
 USING: accessors alien.c-types classes.c-types classes.struct
-combinators kernel math tools.test ;
+combinators kernel libc math tools.test ;
 IN: classes.struct.tests
 
 STRUCT: foo
@@ -35,4 +35,6 @@ UNION-STRUCT: float-and-bits
     { bits uint } ;
 
 [ 1.0 ] [ float-and-bits <struct> 1.0 float>bits >>bits f>> ] unit-test
+[ 4 ] [ float-and-bits heap-size ] unit-test
 
+[ ] [ foo malloc-struct free ] unit-test