sparse: make tests pass
[scilab.git] / scilab / modules / sparse / tests / nonreg_tests / bug_11612.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9
10 // <-- Non-regression test for bug 11612 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=11612
14 //
15 // <-- Short Description -->
16 // index of the max value of a negative sparse was wrong
17
18 a = -1 * rand(3,2);
19 a(2) = 0;
20 A = sparse(a);
21 [m, i] = max(a);
22 [m1, i1] = max(A);
23 assert_checkequal(m1,m);
24 assert_checkequal(i1,i);
25
26 [m, i] = max(a');
27 [m1, i1] = max(A');
28 assert_checkequal(m1,m);
29 assert_checkequal(i1,i);
30
31 [m, i] = max(a(:));
32 [m1, i1] = max(A(:));
33 assert_checkequal(m1,m);
34 assert_checkequal(i1,i);
35
36 [m, i] = max(a(:)');
37 [m1, i1] = max(A(:)');
38 assert_checkequal(m1,m);
39 assert_checkequal(i1,i);
40
41 a = [-3 -4;0 -1;-5 -6];
42 A = sparse(a);
43 [m, i] = max(a);
44 [m1, i1] = max(A);
45 assert_checkequal(m1,m);
46 assert_checkequal(i1,i);
47
48 [m, i] = max(a');
49 [m1, i1] = max(A');
50 assert_checkequal(m1,m);
51 assert_checkequal(i1,i);
52
53 [m, i] = max(a(:));
54 [m1, i1] = max(A(:));
55 assert_checkequal(m1,m);
56 assert_checkequal(i1,i);
57
58 [m, i] = max(a(:)');
59 [m1, i1] = max(A(:)');
60 assert_checkequal(m1,m);
61 assert_checkequal(i1,i);
62
63 b = [-5 0;-1 -6];
64 B = sparse(b);
65 [m, i] = max(b);
66 [m1, i1] = max(B);
67 assert_checkequal(m1,m);
68 assert_checkequal(i1,i);
69
70 [m, i] = max(b');
71 [m1, i1] = max(B');
72 assert_checkequal(m1,m);
73 assert_checkequal(i1,i);
74
75 [m, i] = max(b(:));
76 [m1, i1] = max(B(:));
77 assert_checkequal(m1,m);
78 assert_checkequal(i1,i);
79
80 [m, i] = max(b(:)');
81 [m1, i1] = max(B(:)');
82 assert_checkequal(m1,m);
83 assert_checkequal(i1,i);
84
85 s = rand(3,2);
86 s(2) = 0;
87 S = sparse(s);
88 [m, i] = min(s);
89 [m1, i1] = min(S);
90 assert_checkequal(m1,m);
91 assert_checkequal(i1,i);
92
93 [m, i] = min(s');
94 [m1, i1] = min(S');
95 assert_checkequal(m1,m);
96 assert_checkequal(i1,i);
97
98 [m, i] = min(s(:));
99 [m1, i1] = min(S(:));
100 assert_checkequal(m1,m);
101 assert_checkequal(i1,i);
102
103 [m, i] = min(s(:)');
104 [m1, i1] = min(S(:)');
105 assert_checkequal(m1,m);
106 assert_checkequal(i1,i);
107
108 v = [1 4;7 6];
109 V = sparse(v);
110 [m, i] = max(v);
111 [m1, i1] = max(V);
112 assert_checkequal(m1,m);
113 assert_checkequal(i1,i);
114
115 [m, i] = max(v');
116 [m1, i1] = max(V');
117 assert_checkequal(m1,m);
118 assert_checkequal(i1,i);
119
120 [m, i] = max(v(:));
121 [m1, i1] = max(V(:));
122 assert_checkequal(m1,m);
123 assert_checkequal(i1,i);
124
125 [m, i] = max(v(:)');
126 [m1, i1] = max(V(:)');
127 assert_checkequal(m1,m);
128 assert_checkequal(i1,i);