Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / locals / locals-tests.factor

diff --git a/basis/locals/locals-tests.factor b/basis/locals/locals-tests.factor
index 414b2da45c96cfb049bc3ce9ebb9ec8ff72bfb54..63b6d68feb3a4131eb5ed4415711ad754c67c48a 100644 (file)
--- a/basis/locals/locals-tests.factor
+++ b/basis/locals/locals-tests.factor
@@ -199,23 +199,23 @@ DEFER: xyzzy
 [ 5 ] [ 10 xyzzy ] unit-test
 
 :: let*-test-1 ( a -- b )
-    [let* | b [ a 1+ ]
-            c [ b 1+ ] |
+    [let* | b [ a 1 + ]
+            c [ b 1 + ] |
         a b c 3array ] ;
 
 [ { 1 2 3 } ] [ 1 let*-test-1 ] unit-test
 
 :: let*-test-2 ( a -- b )
-    [let* | b [ a 1+ ]
-            c! [ b 1+ ] |
+    [let* | b [ a 1 + ]
+            c! [ b 1 + ] |
         a b c 3array ] ;
 
 [ { 1 2 3 } ] [ 1 let*-test-2 ] unit-test
 
 :: let*-test-3 ( a -- b )
-    [let* | b [ a 1+ ]
-            c! [ b 1+ ] |
-        c 1+ c!  a b c 3array ] ;
+    [let* | b [ a 1 + ]
+            c! [ b 1 + ] |
+        c 1 + c!  a b c 3array ] ;
 
 [ { 1 2 4 } ] [ 1 let*-test-3 ] unit-test
 
@@ -502,7 +502,7 @@ M:: integer lambda-method-forget-test ( a -- b ) a ;
 
 [ 3 ] [ 3 [| | :> a! a ] call ] unit-test
 
-[ 3 ] [ 2 [| | :> a! a 1+ a! a ] call ] unit-test
+[ 3 ] [ 2 [| | :> a! a 1 + a! a ] call ] unit-test
 
 :: wlet-&&-test ( a -- ? )
     [wlet | is-integer? [ a integer? ]