./. .\. extended to sparses after fced8250
[scilab.git] / scilab / modules / ast / tests / unit_tests / krondivide.tst
index 1b4582a..b4ad660 100644 (file)
@@ -1,7 +1,7 @@
 // ============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 //
-// Copyright (C) 2019 - Samuel GOUGEON
+// Copyright (C) 2019-2020 - Samuel GOUGEON
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
@@ -76,3 +76,19 @@ for i = 1:n
         assert_checkalmostequal(o2 .\. b, o, rtol)
     end
 end
+
+// Between sparse matrices
+// =======================
+rtol = 10*%eps;
+objects = list(sprand(10,1,0.5), sprand(1,8,0.5), sprand(5,5,0.5));
+n = length(objects);
+
+for i = 1:n
+    o = objects(i);
+    for j = 1:n
+        o2 = objects(j);
+        b = o .*. o2;
+        assert_checkalmostequal(b ./. o2, o, rtol)
+        assert_checkalmostequal(o .\. b, o2, rtol)
+    end
+end