From 5b4e8e9d097d5d36feefdf8428961202deeda27b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 13 Nov 2008 04:16:58 -0600
Subject: [PATCH] Rename tests/templates.factor to tests/codegen.factor since
that's really what its testing
---
.../tests/{templates.factor => codegen.factor} | 11 +++++++++++
1 file changed, 11 insertions(+)
rename basis/compiler/tests/{templates.factor => codegen.factor} (95%)
diff --git a/basis/compiler/tests/templates.factor b/basis/compiler/tests/codegen.factor
similarity index 95%
rename from basis/compiler/tests/templates.factor
rename to basis/compiler/tests/codegen.factor
index 0a109a15eb..a56ee55c82 100644
--- a/basis/compiler/tests/templates.factor
+++ b/basis/compiler/tests/codegen.factor
@@ -230,3 +230,14 @@ TUPLE: id obj ;
10000000 [ "hi" 0 (gc-check-bug) drop ] times ;
[ ] [ gc-check-bug ] unit-test
+
+! New optimization
+: test-1 ( a -- b ) 8 fixnum-fast { [ "a" ] [ "b" ] } dispatch ;
+
+[ "a" ] [ 8 test-1 ] unit-test
+[ "b" ] [ 9 test-1 ] unit-test
+
+: test-2 ( a -- b ) 1 fixnum-fast { [ "a" ] [ "b" ] } dispatch ;
+
+[ "a" ] [ 1 test-2 ] unit-test
+[ "b" ] [ 2 test-2 ] unit-test