--- a/tests/ffi.lac	Sun Jun 22 10:00:25 2008 -0400
+++ b/tests/ffi.lac	Sun Jun 22 10:06:50 2008 -0400
@@ -2,12 +2,15 @@
         type t
         type u
         val x : t
+        val y : u
+        val f0 : {} -> u
         val f1 : t -> t
         val f2 : t -> u -> t
 end
 
 type t' = Lib.t
 val x' : t' = Lib.x
+val f0' = Lib.f0
 val f1' = Lib.f1
 val f2' = Lib.f2
 
@@ -15,3 +18,5 @@
 
 type t'' = Lib'.t
 val x'' : t'' = Lib'.x
+
+val main = f2' (f1' x') (f0' {})