fix unit test regressions
parent
47ae3ca11b
commit
7754dde558
|
@ -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 ] [
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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.
|
||||||
|
|
Loading…
Reference in New Issue