TESTS: added tests of casting function arguments to float32-test.reds

g9020 · Feb 29, 2012 · a2c30a5 · a2c30a5
1 parent 5c61a62
commit a2c30a5
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/red-system/tests/source/units/float32-test.reds b/red-system/tests/source/units/float32-test.reds
@@ -265,5 +265,27 @@ Red/System [
 
 ===end-group===
 
+===start-group=== "Casting float! arguments to float32!"
+
+    cfaf1: function [
+        a   [float!]
+        return: [float32!]
+    ][
+      as float32! a
+    ]
+    cfaf2: function [
+        a   [float!]
+        b   [float!]
+        return: [float32!]
+    ][
+      (as float32! a) + (as float32! b)
+    ]
+
+  --test-- "cfaf1"
+  --assert (as float32! 1.0) = cfaf1 1.0
+
+  --test-- "cfaf2"
+  --assertf32~= (as float32! 3.0) (cfaf2 1.0 2.0) (as float32! 0.1e-7)
+
 
 ~~~end-file~~~