fix unit test regressions

cvs
Slava Pestov 2005-02-07 23:42:33 +00:00
parent 47ae3ca11b
commit 7754dde558
3 changed files with 5 additions and 3 deletions

View File

@ -26,7 +26,7 @@ USING: gadgets kernel lists math namespaces test ;
[ [
1 x set 1 x set
1 y set 1 y set
10 10 30 30 <rectangle> <gadget> shape>screen 10 10 30 30 <rectangle> <gadget> rect>screen
] with-scope ] with-scope
] unit-test ] unit-test
[ t ] [ [ t ] [

View File

@ -18,5 +18,6 @@ DEFER: foo
! Test > 1 ( ) comment; only the first one should be used. ! Test > 1 ( ) comment; only the first one should be used.
[ t ] [ [ t ] [
"a" ": foo ( a ) ( b ) ;" parse drop word stack-effect str-contains? "a" ": foo ( a ) ( b ) ;" parse drop word
"stack-effect" word-property str-contains?
] unit-test ] unit-test

View File

@ -2,7 +2,8 @@
! Copyright (C) 2005 Mackenzie Straight. ! Copyright (C) 2005 Mackenzie Straight.
! See http://factor.sf.net/license.txt for BSD license. ! See http://factor.sf.net/license.txt for BSD license.
IN: threads IN: threads
USING: dlists io-internals kernel kernel-internals lists namespaces ; USING: io-internals kernel kernel-internals lists dlists
namespaces ;
! Core of the multitasker. Used by io-internals.factor and ! Core of the multitasker. Used by io-internals.factor and
! in-thread.factor. ! in-thread.factor.