steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing unit tests

release
Slava Pestov 2007-10-06 13:37:11 -04:00
parent 5bc73cc5af
commit 43c83bb4e0
19 changed files with 28 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/asn1/asn1-tests.factor
View File

@ -1,4 +1,4 @@
USING: asn1 asn1.ldap io.streams.string tools.test ; USING: asn1 asn1.ldap io io.streams.string tools.test ;
[ 6 ] [ [ 6 ] [
"\u0002\u0001\u0006" <string-reader> [ asn-syntax read-ber ] with-stream "\u0002\u0001\u0006" <string-reader> [ asn-syntax read-ber ] with-stream

2
extra/channels/channels-tests.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
! !
USING: kernel tools.test math channels channels.private USING: kernel tools.test math channels channels.private
sequences threads ; sequences threads sorting ;
IN: temporary IN: temporary
{ 3 t } [ { 3 t } [

3
extra/channels/remote/remote-tests.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2005 Chris Double. All Rights Reserved. ! Copyright (C) 2005 Chris Double. All Rights Reserved.
! See http://factorcode.org/license.txt for BSD license. ! 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 IN: temporary
{ t } [ { t } [

2
extra/concurrency/concurrency-tests.factor
View File

@ -3,7 +3,7 @@
! !
USING: kernel concurrency threads vectors arrays sequences USING: kernel concurrency threads vectors arrays sequences
namespaces tools.test continuations dlists strings math words namespaces tools.test continuations dlists strings math words
match quotations ; match quotations concurrency.private ;
IN: temporary IN: temporary
[ V{ 1 2 3 } ] [ [ V{ 1 2 3 } ] [

2
extra/coroutines/coroutines.factor
View File

@ -40,5 +40,5 @@ TUPLE: coroutine resumecc exitcc ;
: coterminate ( v -- ) : coterminate ( v -- )
current-coro get current-coro get
f over set-coroutine-resumecc [ ] over set-coroutine-resumecc
coroutine-exitcc continue-with ; coroutine-exitcc continue-with ;

2
extra/crypto/timing/timing-tests.factor
View File

@ -1,4 +1,4 @@
USING: crypto.timing kernel tools.test ; USING: crypto.timing kernel tools.test system math ;
IN: temporary IN: temporary
[ t ] [ millis [ ] 1000 with-timing millis swap - 1000 >= ] unit-test [ t ] [ millis [ ] 1000 with-timing millis swap - 1000 >= ] unit-test

2
extra/destructors/destructors-tests.factor
View File

@ -1,4 +1,4 @@
USING: destructors kernel tools.test ; USING: destructors kernel tools.test continuations ;
IN: temporary IN: temporary
TUPLE: dummy-obj destroyed? ; TUPLE: dummy-obj destroyed? ;

3
extra/inverse/inverse-tests.factor
View File

@ -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 [ 2 ] [ { 3 2 } [ 3 swap 2array ] undo ] unit-test
[ { 3 4 } [ dup 2array ] undo ] unit-test-fails [ { 3 4 } [ dup 2array ] undo ] unit-test-fails

3
extra/io/mmap/mmap-tests.factor
View File

@ -1,4 +1,5 @@
USING: io io.mmap kernel tools.test ; USING: io io.mmap io.files kernel tools.test continuations
sequences ;
IN: temporary IN: temporary
[ "mmap-test-file.txt" resource-path delete-file ] catch drop [ "mmap-test-file.txt" resource-path delete-file ] catch drop

4
extra/koszul/koszul-tests.factor
View File

@ -7,7 +7,7 @@ IN: temporary
{ { 1 } { 2 3 } { 4 5 6 } { 7 8 } { } } graded { { 1 } { 2 3 } { 4 5 6 } { 7 8 } { } } graded
] unit-test ] 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 [ H{ { { x1 } 3 } } ] [ x1 3 wedge ] unit-test
@ -23,7 +23,7 @@ x3 x4 wedge z2 d=
! Unimodular example ! Unimodular example
boundaries get clear-assoc boundaries get clear-assoc
SYMBOLS: x y z ; SYMBOLS: x y w z ;
x y wedge z d= x y wedge z d=
y z wedge x d= y z wedge x d=

3
extra/math/analysis/analysis-tests.factor
View File

@ -1,4 +1,5 @@
USING: kernel math math.functions tools.test ; USING: kernel math math.functions tools.test math.analysis
math.constants ;
IN: temporary IN: temporary
: eps : eps

2
extra/math/matrices/elimination/elimination-tests.factor
View File

@ -1,6 +1,6 @@
IN: temporary IN: temporary
USING: kernel math.matrices math.matrices.elimination USING: kernel math.matrices math.matrices.elimination
tools.test ; tools.test sequences ;
[ [
{ {

3
extra/math/numerical-integration/numerical-integration-tests.factor
View File

@ -1,4 +1,5 @@
USING: kernel math.numerical-integration ; USING: kernel math.numerical-integration tools.test math
math.constants math.functions ;
IN: temporary IN: temporary
[ 50 ] [ 0 10 [ ] integrate-simpson ] unit-test [ 50 ] [ 0 10 [ ] integrate-simpson ] unit-test

2
extra/math/polynomials/polynomials-tests.factor
View File

@ -1,5 +1,5 @@
IN: temporary IN: temporary
USING: kernel math tools.test ; USING: kernel math math.polynomials tools.test ;
! Tests ! Tests
[ { 0 1 } ] [ { 0 1 0 0 } ptrim ] unit-test [ { 0 1 } ] [ { 0 1 0 0 } ptrim ] unit-test

2
extra/sequences/lib/lib-tests.factor
View File

@ -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 [ 4 ] [ { 1 2 } [ sq ] [ * ] map-reduce ] unit-test
[ 36 ] [ { 2 3 } [ sq ] [ * ] map-reduce ] unit-test [ 36 ] [ { 2 3 } [ sq ] [ * ] map-reduce ] unit-test

3
extra/serialize/serialize-tests.factor
View File

@ -2,7 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
! !
USING: tools.test kernel serialize io io.streams.string math 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 IN: temporary
TUPLE: serialize-test a b ; TUPLE: serialize-test a b ;

2
extra/units/imperial/imperial-tests.factor
View File

@ -1,4 +1,4 @@
USING: kernel math tools.test units.imperial ; USING: kernel math tools.test units.imperial inverse ;
IN: temporary IN: temporary
[ 1 ] [ 12 inches [ feet ] undo ] unit-test [ 1 ] [ 12 inches [ feet ] undo ] unit-test

3
extra/units/si/si-tests.factor
View File

@ -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 IN: temporary
[ t ] [ 1 m 100 cm = ] unit-test [ t ] [ 1 m 100 cm = ] unit-test

3
extra/units/units-tests.factor
View File

@ -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 IN: temporary
[ T{ dimensioned f 3 { m } { } } ] [ 3 m ] unit-test [ T{ dimensioned f 3 { m } { } } ] [ 3 m ] unit-test