Fix various test failures

db4
Slava Pestov 2009-09-08 19:18:56 -05:00
parent 924ccca457
commit 74fa73aeaf
5 changed files with 10 additions and 6 deletions

View File

@ -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

View File

@ -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 ;

View File

@ -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

View File

@ -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

View File

@ -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