Add sparse unitary test about matrix insertion 90/9990/4
Sylvestre Ledru [Tue, 11 Dec 2012 11:06:19 +0000 (12:06 +0100)]
Change-Id: I7b563a8b474e995ca74f2012d22a16897a5b283d

scilab/modules/sparse/tests/unit_tests/sparse-insert.dia.ref [new file with mode: 0644]
scilab/modules/sparse/tests/unit_tests/sparse-insert.tst [new file with mode: 0644]

diff --git a/scilab/modules/sparse/tests/unit_tests/sparse-insert.dia.ref b/scilab/modules/sparse/tests/unit_tests/sparse-insert.dia.ref
new file mode 100644 (file)
index 0000000..1dda488
--- /dev/null
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2012 - S/E - Antoine Elias
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- CLI SHELL MODE -->
+a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);
+vt=sparse([1 2;1 3;1 4;1 6],[10;11;12;13],[1,6]);
+a1=a;
+a1(1,:)=vt;
+assert_checkequal(vt, a1(1,:));
+a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);
+a1=a;
+b=-[1 2 3;4 5 6;7 8 9];
+a1(1:3,1:3)=b;
+assert_checkequal(a1(1:3,1:3), sparse(b));
+a = sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],[%t,%t,%t,%t,%t,%t,%t,%t,%t],[6 6]);
+vt = sparse([1 2;1 3;1 4;1 6],[%f,%f;%f,%f],[1,6]);
+a1=a;
+a1(1,:)=vt;
+assert_checkequal(a1(1,:), vt);
diff --git a/scilab/modules/sparse/tests/unit_tests/sparse-insert.tst b/scilab/modules/sparse/tests/unit_tests/sparse-insert.tst
new file mode 100644 (file)
index 0000000..d0c9e79
--- /dev/null
@@ -0,0 +1,27 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2012 - S/E - Antoine Elias
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- CLI SHELL MODE -->
+
+a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);
+vt=sparse([1 2;1 3;1 4;1 6],[10;11;12;13],[1,6]);
+a1=a;
+a1(1,:)=vt;
+assert_checkequal(vt, a1(1,:));
+
+
+a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);
+a1=a;
+b=-[1 2 3;4 5 6;7 8 9];
+a1(1:3,1:3)=b;
+assert_checkequal(a1(1:3,1:3), sparse(b));
+
+a = sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],[%t,%t,%t,%t,%t,%t,%t,%t,%t],[6 6]);
+vt = sparse([1 2;1 3;1 4;1 6],[%f,%f;%f,%f],[1,6]);
+a1=a;
+a1(1,:)=vt;
+assert_checkequal(a1(1,:), vt);