extra: fix test errors

diff --git a/extra/combinators/extras/extras-tests.factor b/extra/combinators/extras/extras-tests.factor
index 5391527b47464292d239c17ea3693084fcc26f13..9294b8f78432a5311c8d707bbd3a0e6c74c8b85e 100644 (file)
--- a/extra/combinators/extras/extras-tests.factor
+++ b/extra/combinators/extras/extras-tests.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2013 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs combinators.extras io.files kernel math sequences
-splitting tools.test splitting ;
+USING: arrays assocs combinators.extras io.files kernel math
+sequences splitting tools.test ;
 
 { "a b" }
 [ "a" "b" [ " " glue ] once ] unit-test

diff --git a/extra/shuffle/extras/extras-tests.factor b/extra/shuffle/extras/extras-tests.factor
index 244ba055458db719f1ed939d8d2b6589835490e0..b94d7fae8ca7174ed2810b305dcd554f71432a8a 100644 (file)
--- a/extra/shuffle/extras/extras-tests.factor
+++ b/extra/shuffle/extras/extras-tests.factor
@@ -30,13 +30,13 @@ IN: shuffle.extras.tests
     [ [ CHAR: d = ] accept1 ] 4craft-1up
 ] unit-test
 
-: test-keep-under ( -- a b c d e ) 1 [ [ 5 + ] call 10 20 30 ] keep-under ;
-: test-2keep-under ( -- a b c d e f g ) 1 2 [ [ 5 + ] bi@ 10 20 30 ] 2keep-under ;
-: test-3keep-under ( -- a b c d e f g h i ) 1 2 3 [ [ 5 + ] tri@ 10 20 30 ] 3keep-under ;
+! : test-keep-under ( -- a b c d e ) 1 [ [ 5 + ] call 10 20 30 ] keep-under ;
+! : test-2keep-under ( -- a b c d e f g ) 1 2 [ [ 5 + ] bi@ 10 20 30 ] 2keep-under ;
+! : test-3keep-under ( -- a b c d e f g h i ) 1 2 3 [ [ 5 + ] tri@ 10 20 30 ] 3keep-under ;
 
-{ 1 6 10 20 30 } [ test-keep-under ] unit-test
-{ 1 2 6 7 10 20 30 } [ test-2keep-under ] unit-test
-{ 1 2 3 6 7 8 10 20 30 } [ test-3keep-under ] unit-test
+! { 1 6 10 20 30 } [ test-keep-under ] unit-test
+! { 1 2 6 7 10 20 30 } [ test-2keep-under ] unit-test
+! { 1 2 3 6 7 8 10 20 30 } [ test-3keep-under ] unit-test
 
 { 20 30 2500 } [ 20 30 [ + sq ] 2keep-1up ] unit-test