Fix various test failures
parent
924ccca457
commit
74fa73aeaf
|
@ -1,7 +1,7 @@
|
|||
USING: cpu.x86.features tools.test kernel sequences math system ;
|
||||
USING: cpu.x86.features tools.test kernel sequences math math.order system ;
|
||||
IN: cpu.x86.features.tests
|
||||
|
||||
cpu x86? [
|
||||
[ t ] [ sse2? { t f } member? ] unit-test
|
||||
[ t ] [ sse-version 0 42 between? ] unit-test
|
||||
[ t ] [ [ 10000 [ ] times ] count-instructions integer? ] unit-test
|
||||
] when
|
||||
|
|
|
@ -76,7 +76,7 @@ PREDICATE: vector-word < word vector-words key? ;
|
|||
dup "specializations" word-prop
|
||||
[ ] [ V{ } clone [ "specializations" set-word-prop ] keep ] ?if ;
|
||||
|
||||
M: vector-word subwords specializations values ;
|
||||
M: vector-word subwords specializations values [ word? ] filter ;
|
||||
|
||||
: add-specialization ( new-word signature word -- )
|
||||
specializations set-at ;
|
||||
|
|
|
@ -2,7 +2,8 @@ IN: specialized-arrays.tests
|
|||
USING: tools.test alien.syntax specialized-arrays sequences
|
||||
specialized-arrays.int specialized-arrays.bool
|
||||
specialized-arrays.ushort alien.c-types accessors kernel
|
||||
specialized-arrays.char specialized-arrays.uint arrays combinators ;
|
||||
specialized-arrays.char specialized-arrays.uint
|
||||
specialized-arrays.float arrays combinators compiler ;
|
||||
|
||||
[ t ] [ { 1 2 3 } >int-array int-array? ] unit-test
|
||||
|
||||
|
|
|
@ -129,8 +129,11 @@ CONSTANT: button-clicked-background COLOR: FactorDarkSlateBlue
|
|||
<border-button-state-pen> dup dup
|
||||
<button-pen> ;
|
||||
|
||||
: border-button-label-theme ( gadget -- )
|
||||
dup label? [ [ clone t >>bold? ] change-font ] when drop ;
|
||||
|
||||
: border-button-theme ( gadget -- gadget )
|
||||
dup children>> first font>> t >>bold? drop
|
||||
dup children>> first border-button-label-theme
|
||||
horizontal >>orientation
|
||||
<border-button-pen> >>interior
|
||||
dup dup interior>> pen-pref-dim >>min-dim
|
||||
|
|
|
@ -33,7 +33,7 @@ USING: mason.child mason.config tools.test namespaces io kernel sequences ;
|
|||
] with-scope
|
||||
] unit-test
|
||||
|
||||
[ { "./factor.com" "-i=boot.x86.32.image" "-no-user-init" } ] [
|
||||
[ { "./factor.com" "-i=boot.x86.32.image" "-no-user-init" "-sse-version=30" } ] [
|
||||
[
|
||||
"winnt" target-os set
|
||||
"x86.32" target-cpu set
|
||||
|
|
Loading…
Reference in New Issue