From 3169070063b2cb877200117ebb384269d73bcb93 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Mon, 24 Mar 2014 16:32:24 -0500
Subject: Current state of mal for Clojure West lighting talk.

---
 c/tests/step9_interop.mal | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 c/tests/step9_interop.mal

(limited to 'c/tests')

diff --git a/c/tests/step9_interop.mal b/c/tests/step9_interop.mal
new file mode 100644
index 0000000..657e3e7
--- /dev/null
+++ b/c/tests/step9_interop.mal
@@ -0,0 +1,23 @@
+
+;; Testing FFI of "strlen"
+(. nil "int32" "strlen" "string" "abcde")
+;=>5
+(. nil "int32" "strlen" "string" "")
+;=>0
+
+;; Testing FFI of "strcmp"
+
+(. nil "int32" "strcmp" "string" "abc" "string" "abcA")
+;=>-65
+(. nil "int32" "strcmp" "string" "abcA" "string" "abc")
+;=>65
+(. nil "int32" "strcmp" "string" "abc" "string" "abc")
+;=>0
+
+
+;; Testing FFI of "pow" (libm.so)
+
+(. "libm.so" "double" "pow" "double" 2.0 "double" 3.0)
+;=>8.000000
+(. "libm.so" "double" "pow" "double" 3.0 "double" 2.0)
+;=>9.000000
-- 
cgit v1.2.3