compiler: more tests

diff --git a/basis/compiler/tests/float.factor b/basis/compiler/tests/float.factor
index d55fe2b76945289513e539053b972ad120770846..968587093696d1e19ad3c5ef96e16bf4751fccea 100644 (file)
--- a/basis/compiler/tests/float.factor
+++ b/basis/compiler/tests/float.factor
@@ -121,3 +121,13 @@ IN: compiler.tests.float
     float-array{ 1 2 3 4 }
     [ { float-array } declare [ dup * ] [ + ] map-reduce ] compile-call
 ] unit-test
+
+[ 4.5 ] [
+    float-array{ 1.0 3.5 }
+    [ { float-array } declare 0.0 [ + ] reduce ] compile-call
+] unit-test
+
+[ float-array{ 2.0 4.5 } ] [
+    float-array{ 1.0 3.5 }
+    [ { float-array } declare [ 1 + ] map ] compile-call
+] unit-test