Void return typeHEADmaster

1 files changed, 6 insertions, 0 deletions

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)
+