From 447b60afccc89ef18d8f92a260dd1fcdf735898e Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 31 Aug 2008 08:32:18 -0400
Subject: Laconic -> Ur

---
 tests/ffi.ur | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 tests/ffi.ur

(limited to 'tests/ffi.ur')

diff --git a/tests/ffi.ur b/tests/ffi.ur
new file mode 100644
index 00000000..79f7ab2e
--- /dev/null
+++ b/tests/ffi.ur
@@ -0,0 +1,22 @@
+extern structure Lib : sig
+        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
+
+structure Lib' = Lib
+
+type t'' = Lib'.t
+val x'' : t'' = Lib'.x
+
+val main = f2' (f1' x') (f0' {})
-- 
cgit v1.2.3