Fixing unit tests

2007-10-06 13:37:11 -04:00 · 2007-10-06 13:37:11 -04:00 · 43c83bb4e0
parent 5bc73cc5af
commit 43c83bb4e0
19 changed files with 28 additions and 20 deletions
--- a/extra/asn1/asn1-tests.factor
+++ b/extra/asn1/asn1-tests.factor
@ -1,4 +1,4 @@
-USING: asn1 asn1.ldap io.streams.string tools.test ;
+USING: asn1 asn1.ldap io io.streams.string tools.test ;

 [ 6 ] [
    "\u0002\u0001\u0006" <string-reader> [ asn-syntax read-ber ] with-stream
--- a/extra/channels/channels-tests.factor
+++ b/extra/channels/channels-tests.factor
@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 !
 USING: kernel tools.test math channels channels.private 
-sequences threads ;
+sequences threads sorting ;
 IN: temporary

 { 3 t } [
--- a/extra/channels/remote/remote-tests.factor
+++ b/extra/channels/remote/remote-tests.factor
@ -1,7 +1,8 @@
 ! Copyright (C) 2005 Chris Double. All Rights Reserved.
 ! See http://factorcode.org/license.txt for BSD license.
 !
-USING: kernel tools.test math assocs channels channels.remote ;
+USING: kernel tools.test math assocs channels channels.remote
+channels.remote.private ;
 IN: temporary

 { t } [
--- a/extra/concurrency/concurrency-tests.factor
+++ b/extra/concurrency/concurrency-tests.factor
@ -3,7 +3,7 @@
 !
 USING: kernel concurrency threads vectors arrays sequences
 namespaces tools.test continuations dlists strings math words
-match quotations ;
+match quotations concurrency.private ;
 IN: temporary

 [ V{ 1 2 3 } ] [
--- a/extra/coroutines/coroutines.factor
+++ b/extra/coroutines/coroutines.factor
@ -40,5 +40,5 @@ TUPLE: coroutine resumecc exitcc ;

 : coterminate ( v -- )
  current-coro get
-  f over set-coroutine-resumecc
+  [ ] over set-coroutine-resumecc
  coroutine-exitcc continue-with ;
--- a/extra/crypto/timing/timing-tests.factor
+++ b/extra/crypto/timing/timing-tests.factor
@ -1,4 +1,4 @@
-USING: crypto.timing kernel tools.test ;
+USING: crypto.timing kernel tools.test system math ;
 IN: temporary

 [ t ] [ millis [ ] 1000 with-timing millis swap - 1000 >= ] unit-test
--- a/extra/destructors/destructors-tests.factor
+++ b/extra/destructors/destructors-tests.factor
@ -1,4 +1,4 @@
-USING: destructors kernel tools.test ;
+USING: destructors kernel tools.test continuations ;
 IN: temporary

 TUPLE: dummy-obj destroyed? ;
--- a/extra/inverse/inverse-tests.factor
+++ b/extra/inverse/inverse-tests.factor
@ -1,4 +1,5 @@
-USING: inverse tools.test arrays math kernel sequences ;
+USING: inverse tools.test arrays math kernel sequences
+math.functions ;

 [ 2 ] [ { 3 2 } [ 3 swap 2array ] undo ] unit-test
 [ { 3 4 } [ dup 2array ] undo ] unit-test-fails
--- a/extra/io/mmap/mmap-tests.factor
+++ b/extra/io/mmap/mmap-tests.factor
@ -1,4 +1,5 @@
-USING: io io.mmap kernel tools.test ;
+USING: io io.mmap io.files kernel tools.test continuations
+sequences ;
 IN: temporary

 [ "mmap-test-file.txt" resource-path delete-file ] catch drop
--- a/extra/koszul/koszul-tests.factor
+++ b/extra/koszul/koszul-tests.factor
@ -7,7 +7,7 @@ IN: temporary
    { { 1 } { 2 3 } { 4 5 6 } { 7 8 } { } } graded
 ] unit-test

-SYMBOLS: x1 x2 x3 x4 z1 z2 ;
+SYMBOLS: x1 x2 x3 x4 x5 x6 z1 z2 ;

 [ H{ { { x1 } 3 } } ] [ x1 3 wedge ] unit-test

@ -23,7 +23,7 @@ x3 x4 wedge z2 d=
 ! Unimodular example
 boundaries get clear-assoc

-SYMBOLS: x y z ;
+SYMBOLS: x y w z ;

 x y wedge z d=
 y z wedge x d=
--- a/extra/math/analysis/analysis-tests.factor
+++ b/extra/math/analysis/analysis-tests.factor
@ -1,4 +1,5 @@
-USING: kernel math math.functions tools.test ;
+USING: kernel math math.functions tools.test math.analysis
+math.constants ;
 IN: temporary

 : eps
--- a/extra/math/matrices/elimination/elimination-tests.factor
+++ b/extra/math/matrices/elimination/elimination-tests.factor
@ -1,6 +1,6 @@
 IN: temporary
 USING: kernel math.matrices math.matrices.elimination
-tools.test ;
+tools.test sequences ;

 [
    {
--- a/extra/math/numerical-integration/numerical-integration-tests.factor
+++ b/extra/math/numerical-integration/numerical-integration-tests.factor
@ -1,4 +1,5 @@
-USING: kernel math.numerical-integration ;
+USING: kernel math.numerical-integration tools.test math
+math.constants math.functions ;
 IN: temporary

 [ 50 ] [ 0 10 [ ] integrate-simpson ] unit-test
--- a/extra/math/polynomials/polynomials-tests.factor
+++ b/extra/math/polynomials/polynomials-tests.factor
@ -1,5 +1,5 @@
 IN: temporary
-USING: kernel math tools.test ;
+USING: kernel math math.polynomials tools.test ;

 ! Tests
 [ { 0 1 } ] [ { 0 1 0 0 } ptrim ] unit-test
--- a/extra/sequences/lib/lib-tests.factor
+++ b/extra/sequences/lib/lib-tests.factor
@ -1,4 +1,4 @@
-USING: kernel sequences.lib ;
+USING: kernel sequences.lib math math.functions tools.test ;

 [ 4 ] [ { 1 2 } [ sq ] [ * ] map-reduce ] unit-test
 [ 36 ] [ { 2 3 } [ sq ] [ * ] map-reduce ] unit-test
--- a/extra/serialize/serialize-tests.factor
+++ b/extra/serialize/serialize-tests.factor
@ -2,7 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 ! 
 USING: tools.test kernel serialize io io.streams.string math
-alien arrays byte-arrays sequences math prettyprint ;
+alien arrays byte-arrays sequences math prettyprint parser
+classes math.constants ;
 IN: temporary

 TUPLE: serialize-test a b ;
--- a/extra/units/imperial/imperial-tests.factor
+++ b/extra/units/imperial/imperial-tests.factor
@ -1,4 +1,4 @@
-USING: kernel math tools.test units.imperial ;
+USING: kernel math tools.test units.imperial inverse ;
 IN: temporary

 [ 1 ] [ 12 inches [ feet ] undo ] unit-test
--- a/extra/units/si/si-tests.factor
+++ b/extra/units/si/si-tests.factor
@ -1,4 +1,5 @@
-USING: kernel tools.test units.si inverse ;
+USING: kernel tools.test units.si inverse math.constants
+math.functions units.imperial ;
 IN: temporary

 [ t ] [ 1 m 100 cm = ] unit-test
--- a/extra/units/units-tests.factor
+++ b/extra/units/units-tests.factor
@ -1,4 +1,5 @@
-USING: arrays kernel math sequences tools.test units.si units ;
+USING: arrays kernel math sequences tools.test units.si
+units.imperial units inverse ;
 IN: temporary

 [ T{ dimensioned f 3 { m } { } } ] [ 3 m ] unit-test