compiler.cfg.linear-scan.resolve: unit tests

2009-06-21 00:23:34 -05:00 · 2009-06-21 00:23:34 -05:00 · 330bea3cc2
parent 3cedacb362
commit 330bea3cc2
1 changed files with 6 additions and 0 deletions
--- a/basis/compiler/cfg/linear-scan/resolve/resolve-tests.factor
+++ b/basis/compiler/cfg/linear-scan/resolve/resolve-tests.factor
@ -0,0 +1,6 @@
+IN: compiler.cfg.linear-scan.resolve.tests
+USING: compiler.cfg.linear-scan.resolve tools.test arrays kernel ;
+
+[ { 1 2 3 4 5 6 } ] [
+    { 3 4 } V{ 1 2 } clone [ { 5 6 } 3append-here ] keep >array
+] unit-test