From 999b22788eeacb62ca9c03d35e346aa9c35bfd62 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 27 Sep 2009 20:36:19 -0500
Subject: [PATCH] compiler: add a unit test
---
basis/compiler/tests/codegen.factor | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/basis/compiler/tests/codegen.factor b/basis/compiler/tests/codegen.factor
index a4f19966b1..1211473d8c 100644
--- 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