From 2b9d2302e679e48d5c4698e43f7c4c587ef2ba29 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Tue, 15 Jul 2008 08:57:24 -0700 Subject: [PATCH] Change math.blas.vectors division tests so that everything is powers of two--no floating-point error --- extra/math/blas/syntax/syntax.factor | 2 +- extra/math/blas/vectors/vectors-tests.factor | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/extra/math/blas/syntax/syntax.factor b/extra/math/blas/syntax/syntax.factor index 187d9c3a6c..d6e76ecd85 100644 --- a/extra/math/blas/syntax/syntax.factor +++ b/extra/math/blas/syntax/syntax.factor @@ -31,4 +31,4 @@ M: float-complex-blas-matrix pprint-delims drop \ cmatrix{ \ } ; M: double-complex-blas-matrix pprint-delims drop \ zmatrix{ \ } ; M: blas-vector-base >pprint-sequence ; -M: blas-matrix-base >pprint-sequence Mrows [ >array ] map ; +M: blas-matrix-base >pprint-sequence Mrows ; diff --git a/extra/math/blas/vectors/vectors-tests.factor b/extra/math/blas/vectors/vectors-tests.factor index d4cff82e50..5f9e8fdc42 100644 --- a/extra/math/blas/vectors/vectors-tests.factor +++ b/extra/math/blas/vectors/vectors-tests.factor @@ -104,12 +104,12 @@ unit-test [ svector{ 1.0 2.0 } ] [ svector{ 4.0 8.0 } 4.0 V/n ] unit-test [ dvector{ 1.0 2.0 } ] [ dvector{ 4.0 8.0 } 4.0 V/n ] unit-test -[ cvector{ 2.0 1.0 } ] -[ cvector{ C{ 16.0 4.0 } C{ 8.0 2.0 } } C{ 8.0 2.0 } V/n ] +[ cvector{ C{ 0.0 -4.0 } 1.0 } ] +[ cvector{ C{ 4.0 -4.0 } C{ 1.0 1.0 } } C{ 1.0 1.0 } V/n ] unit-test -[ cvector{ 2.0 1.0 } ] -[ cvector{ C{ 16.0 4.0 } C{ 8.0 2.0 } } C{ 8.0 2.0 } V/n ] +[ zvector{ C{ 0.0 -4.0 } 1.0 } ] +[ zvector{ C{ 4.0 -4.0 } C{ 1.0 1.0 } } C{ 1.0 1.0 } V/n ] unit-test ! V.