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 edb331d64124642a8b6b6137de311763b8468b73..0383af9063c6105ae549136e530c1b044aac81f9 100644 (file)
--- a/extra/math/blas/matrices/matrices-tests.factor
+++ b/extra/math/blas/matrices/matrices-tests.factor
@@ -706,3 +706,13 @@ sequences tools.test ;
         { 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
+