comparison yetilab/matrix/test/test_matrix.yeti @ 259:fae62dca8048

Make concat also return sparse when all its inputs are sparse

           [(newMatrix (ColumnMajor ()) [[1,4],[0,5]]),
            (newMatrix (RowMajor ()) [[3],[6]])])
        (newMatrix (ColumnMajor ()) [[1,4],[0,5],[3,6]])
 ),
 
+"sparseConcat-horiz-\(name)": \(
+    s = mat.concat (Horizontal ()) 
+          [mat.toSparse (newMatrix (ColumnMajor ()) [[1,4],[0,5]]),
+           mat.toSparse (newMatrix (RowMajor ()) [[3],[6]])];
+    compareMatrices s (newMatrix (ColumnMajor ()) [[1,4],[0,5],[3,6]]) and
+        compare (mat.isSparse? s) true and
+        compare (mat.density s) (5/6)
+),
+
 "concatFail-horiz-\(name)": \(
     try
         \() (mat.concat (Horizontal ()) 
           [(newMatrix (ColumnMajor ()) [[1,4],[0,5]]),
            (newMatrix (ColumnMajor ()) [[3],[6]])]);

     compareMatrices
        (mat.concat (Vertical ()) 
           [(newMatrix (ColumnMajor ()) [[1,4],[0,5]]),
            (newMatrix (RowMajor ()) [[3,6]])])
        (newMatrix (ColumnMajor ()) [[1,4,3],[0,5,6]])
+),
+
+"sparseConcat-vert-\(name)": \(
+    s = mat.concat (Vertical ()) 
+          [mat.toSparse (newMatrix (ColumnMajor ()) [[1,4],[0,5]]),
+           mat.toSparse (newMatrix (RowMajor ()) [[3,6]])];
+    compareMatrices s (newMatrix (ColumnMajor ()) [[1,4,3],[0,5,6]]) and
+        compare (mat.isSparse? s) true and
+        compare (mat.density s) (5/6)
 ),
 
 "concatFail-vert-\(name)": \(
     try
         \() (mat.concat (Vertical ())