From 035a2e9b63eaba084e1da4f3a43e67eaf591e3c0 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Tue, 4 May 2010 05:46:45 -0500
Subject: [PATCH] compiler: more tests

---
 basis/compiler/tests/float.factor | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/basis/compiler/tests/float.factor b/basis/compiler/tests/float.factor
index d55fe2b769..9685870936 100644
--- 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