math.blas: disable tests on linux-32.

diff --git a/extra/math/blas/matrices/matrices-tests.factor b/extra/math/blas/matrices/matrices-tests.factor
index 0383af9063c6105ae549136e530c1b044aac81f9..41bc68e910248089248e07007c46bd9c70d2f116 100644 (file)
--- a/extra/math/blas/matrices/matrices-tests.factor
+++ b/extra/math/blas/matrices/matrices-tests.factor
@@ -1,5 +1,8 @@
 USING: kernel math.blas.matrices math.blas.vectors
-sequences tools.test ;
+sequences system tools.test ;
+
+! disable on linux-x86-32
+os linux? cpu x86.32? and [
 
 ! clone
 
@@ -716,3 +719,4 @@ sequences tools.test ;
     } equal?
 ] unit-test
 
+] unless

diff --git a/extra/math/blas/vectors/vectors-tests.factor b/extra/math/blas/vectors/vectors-tests.factor
index a4e1d19613149350985033a69788661e0a85937f..6145af26fc39ed2546b302e5a4d22739f861cc2b 100644 (file)
--- a/extra/math/blas/vectors/vectors-tests.factor
+++ b/extra/math/blas/vectors/vectors-tests.factor
@@ -1,4 +1,7 @@
-USING: kernel math.blas.vectors math.functions sequences tools.test ;
+USING: kernel math.blas.vectors math.functions sequences system tools.test ;
+
+! disable on linux-x86-32
+os linux? cpu x86.32? and [
 
 ! clone
 
@@ -177,3 +180,5 @@ unit-test
 { dvector{ -5.0 4.0 -6.0 } } [ dvector{ 1.0 -5.0 4.0 -6.0 -1.0 } 1 3 Vsub ] unit-test
 { cvector{ -5.0 C{ 4.0 3.0 } -6.0 } } [ cvector{ 1.0 -5.0 C{ 4.0 3.0 } -6.0 -1.0 } 1 3 Vsub ] unit-test
 { zvector{ -5.0 C{ 4.0 3.0 } -6.0 } } [ zvector{ 1.0 -5.0 C{ 4.0 3.0 } -6.0 -1.0 } 1 3 Vsub ] unit-test
+
+] unless