From 921200f7d3790ba5a1f61d750b6d84bf917db966 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 1 Feb 2016 17:47:57 +0100
Subject: Void return type

---
 test.icl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'test.icl')

diff --git a/test.icl b/test.icl
index a452945..de40c75 100644
--- a/test.icl
+++ b/test.icl
@@ -33,6 +33,7 @@ Start w
 # (t1,s) = test_string s
 # (t2,s) = test_double s
 # (t3,s) = test_two_params s
+# (t4,s) = test_void s
 # tests = [t0,t1,t2,t3]
 # passed = and tests
 # (io, w) = stdio w
@@ -74,3 +75,8 @@ test_two_params s
 # (i, s) = cCall Int "test_two_params" (13,29) s
 = (fromCParam i == 42, s)
 
+test_void :: *State -> (Bool, *State)
+test_void s
+# (i, s) = cCall Void "test_void" "Testing void function\n" s
+= (i == CV, s)
+
-- 
cgit v1.2.3