fix unit test regressions
parent
47ae3ca11b
commit
7754dde558
|
@ -26,7 +26,7 @@ USING: gadgets kernel lists math namespaces test ;
|
|||
[
|
||||
1 x set
|
||||
1 y set
|
||||
10 10 30 30 <rectangle> <gadget> shape>screen
|
||||
10 10 30 30 <rectangle> <gadget> rect>screen
|
||||
] with-scope
|
||||
] unit-test
|
||||
[ t ] [
|
||||
|
|
|
@ -18,5 +18,6 @@ DEFER: foo
|
|||
|
||||
! Test > 1 ( ) comment; only the first one should be used.
|
||||
[ 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
|
||||
|
|
|
@ -2,7 +2,8 @@
|
|||
! Copyright (C) 2005 Mackenzie Straight.
|
||||
! See http://factor.sf.net/license.txt for BSD license.
|
||||
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
|
||||
! in-thread.factor.
|
||||
|
|
Loading…
Reference in New Issue