Fix various test failures

diff --git a/basis/cpu/x86/features/features-tests.factor b/basis/cpu/x86/features/features-tests.factor
index 680e6559959dff4a0bf5867fecdcddb5e9d07925..60c4bab8a1ba47904126d4ad94c9e37b340638a0 100644 (file)
--- a/basis/cpu/x86/features/features-tests.factor
+++ b/basis/cpu/x86/features/features-tests.factor
@@ -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

diff --git a/basis/math/vectors/specialization/specialization.factor b/basis/math/vectors/specialization/specialization.factor
index b8c179d9fd9305473a3f5769cea10295bef8de46..acf8dada3877d3741ad0d96589b0e1e54745e2a4 100644 (file)
--- a/basis/math/vectors/specialization/specialization.factor
+++ b/basis/math/vectors/specialization/specialization.factor
@@ -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 ;

diff --git a/basis/specialized-arrays/specialized-arrays-tests.factor b/basis/specialized-arrays/specialized-arrays-tests.factor
index 9ca356506e66df7399f7c49ac095e309b680b8ff..19f98ff31f64cfe744333af9f84cad348946932e 100755 (executable)
--- a/basis/specialized-arrays/specialized-arrays-tests.factor
+++ b/basis/specialized-arrays/specialized-arrays-tests.factor
@@ -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
 

diff --git a/basis/ui/gadgets/buttons/buttons.factor b/basis/ui/gadgets/buttons/buttons.factor
index 494dc20c05dd7ef9abb6d3959b78c2cfcaeadfdb..26cbafc0d54277dec2103699a5d780b14b6fcdfe 100644 (file)
--- a/basis/ui/gadgets/buttons/buttons.factor
+++ b/basis/ui/gadgets/buttons/buttons.factor
@@ -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

diff --git a/extra/mason/child/child-tests.factor b/extra/mason/child/child-tests.factor
index 2d5a7c663598d58781a6d63250225b164e5f4751..e8e1a9e0e97df9b1f2041d7ae63ccd91f2691e3f 100644 (file)
--- a/extra/mason/child/child-tests.factor
+++ b/extra/mason/child/child-tests.factor
@@ -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