factor: add newlines to .factor files

[factor.git] / extra / math / blas / matrices / matrices-tests.factor

diff --git a/extra/math/blas/matrices/matrices-tests.factor b/extra/math/blas/matrices/matrices-tests.factor
index 5a7345d68237b246e5ee67da688ac37818ad1380..0383af9063c6105ae549136e530c1b044aac81f9 100644 (file)
--- a/extra/math/blas/matrices/matrices-tests.factor
+++ b/extra/math/blas/matrices/matrices-tests.factor
@@ -1,6 +1,5 @@
 USING: kernel math.blas.matrices math.blas.vectors
 sequences tools.test ;
-IN: math.blas.matrices.tests
 
 ! clone
 
@@ -707,3 +706,13 @@ IN: math.blas.matrices.tests
         { 2.0 3.0 0.0          1.0 0.0 }
     } Mtranspose 2 1 3 2 Msub
 ] unit-test
+
+! Bugfix: blas-matrix-base did not handle `f smatrix{ } equal?`
+{ f } [
+    f smatrix{
+        svector{ 1.0 2.0 3.0 4.0 }
+        svector{ 2.0 2.0 3.0 4.0 }
+        svector{ 3.0 2.0 3.0 4.0 }
+    } equal?
+] unit-test
+