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

Unit test fixes

db4
Slava Pestov 2008-04-09 20:14:14 -05:00
parent b63edfd493
commit 48a16b542d
2 changed files with 4 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
core/definitions/definitions-tests.factor
View File

@ -2,26 +2,6 @@ IN: definitions.tests
USING: tools.test generic kernel definitions sequences USING: tools.test generic kernel definitions sequences
compiler.units words ; compiler.units words ;
TUPLE: combination-1 ;
M: combination-1 perform-combination drop [ ] define ;
M: combination-1 make-default-method 2drop [ "No method" throw ] ;
SYMBOL: generic-1
[
generic-1 T{ combination-1 } define-generic
object \ generic-1 create-method [ ] define
] with-compilation-unit
[ ] [
[
{ combination-1 { object generic-1 } } forget-all
] with-compilation-unit
] unit-test
GENERIC: some-generic ( a -- b ) GENERIC: some-generic ( a -- b )
USE: arrays USE: arrays

4
extra/io/monitors/monitors-tests.factor
View File

@ -31,4 +31,8 @@ os { winnt macosx linux } member? [
[ ] [ "monitor-test/xyz/test.txt" temp-file touch-file ] unit-test [ ] [ "monitor-test/xyz/test.txt" temp-file touch-file ] unit-test
[ ] [ "c" get 30 seconds await-timeout ] unit-test [ ] [ "c" get 30 seconds await-timeout ] unit-test
[ ] [ "m" get dispose ] unit-test
[ "m" get dispose ] must-fail
] when ] when