From 61c1ed17d982084b144e958524d310e4cdfad5fb Mon Sep 17 00:00:00 2001
From: sheeple <sheeple@oberon.local>
Date: Tue, 25 Aug 2009 19:41:17 -0500
Subject: [PATCH] basis/compiler/tests/low-level-ir: add ##copy
 double-float-rep test

---
 basis/compiler/tests/low-level-ir.factor | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/basis/compiler/tests/low-level-ir.factor b/basis/compiler/tests/low-level-ir.factor
index ececac3037..e3e2c3344e 100644
--- a/basis/compiler/tests/low-level-ir.factor
+++ b/basis/compiler/tests/low-level-ir.factor
@@ -46,6 +46,17 @@ IN: compiler.tests.low-level-ir
     } compile-test-bb
 ] unit-test
 
+! ##copy on floats
+[ 1.5 ] [
+    V{
+        T{ ##load-reference f 4 1.5 }
+        T{ ##unbox-float f 1 4 }
+        T{ ##copy f 2 1 double-float-rep }
+        T{ ##box-float f 3 2 }
+        T{ ##copy f 0 3 int-rep }
+    } compile-test-bb
+] unit-test
+
 ! make sure slot access works when the destination is
 ! one of the sources
 [ t ] [
@@ -138,4 +149,4 @@ USE: multiline
     } compile-test-bb
 ] unit-test
 
-*/
\ No newline at end of file
+*/