compiler: add a unit test

2009-09-27 20:36:19 -05:00 · 2009-09-27 20:36:19 -05:00 · 999b22788e
parent 59fbe85c9b
commit 999b22788e
1 changed files with 9 additions and 0 deletions
--- a/basis/compiler/tests/codegen.factor
+++ b/basis/compiler/tests/codegen.factor
@ -461,3 +461,12 @@ TUPLE: myseq { underlying1 byte-array read-only } { underlying2 byte-array read-
 [ 65537.0 ] [
    [ 2.0 4 [ 2.0 fpow ] times 1.0 float+ ] compile-call
 ] unit-test
+
+! ##box-displaced-alien is a def-is-use instruction
+[ ALIEN: e39 ] [
+    [
+        f
+        100 [ 10 swap <displaced-alien> ] times
+        1 swap <displaced-alien>
+    ] compile-call
+] unit-test