basis/compiler/tests/low-level-ir: add ##copy double-float-rep test

diff --git a/basis/compiler/tests/low-level-ir.factor b/basis/compiler/tests/low-level-ir.factor
index ececac303772e6fd5eb2895caf373a504290b3ab..e3e2c3344e44f395700fd83971a6aa71330babbe 100644 (file)
--- 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
+*/