update matrix insert and insertNew with :
[scilab.git] / scilab / modules / ast / tests / unit_tests / colon_insert.tst
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2015 - Scilab Enterprises - Antoine ELIAS
3 //
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9 //
10 //
11
12 // <-- JVM NOT MANDATORY -->
13
14 scalar = 5;
15 vect = 1:5;
16 vect2 = 6:10;
17 mat = [1,2,3,4;5,6,7,8];
18 hm = zeros(3,4,2); hm(:) = 1:24;
19
20 // scalar
21 clear a; a(:) = scalar;
22 assert_checkequal(a, scalar);
23
24 clear a; a(:,:) = scalar;
25 assert_checkequal(a, scalar);
26
27 clear a; a(:,:,:) = scalar;
28 assert_checkequal(a, scalar);
29
30 clear a; a(:,:,2) = scalar;
31 assert_checkequal(a, matrix([0;scalar], 1, 1, 2));
32
33 //scalar insert
34 a=scalar; a(:) = scalar;
35 assert_checkequal(a, scalar);
36
37 a=scalar; a(:,:) = scalar;
38 assert_checkequal(a, scalar);
39
40 a=scalar; a(:,:,2) = scalar;
41 assert_checkequal(a, matrix([scalar; scalar], 1, 1, 2));
42
43 //vector
44 a=vect; a(:) = scalar;
45 assert_checkequal(a, [scalar scalar scalar scalar scalar]);
46
47 a=vect; a(:,:) = scalar;
48 assert_checkequal(a, [scalar scalar scalar scalar scalar]);
49
50 a=vect; a(:,:,:) = scalar;
51 assert_checkequal(a, [scalar scalar scalar scalar scalar]);
52
53 a=vect; a(:,:,2) = scalar;
54 assert_checkequal(a, matrix([vect, scalar,scalar,scalar,scalar,scalar], 1, 5, 2));
55
56 //matrix
57 a=mat; a(:) = scalar;
58 assert_checkequal(a, matrix([scalar,scalar,scalar,scalar,scalar,scalar,scalar,scalar], 2, 4));
59
60 a=mat; a(:,:) = scalar;
61 assert_checkequal(a, matrix([scalar,scalar,scalar,scalar,scalar,scalar,scalar,scalar], 2, 4));
62
63 a=mat; a(:,:,:) = scalar;
64 assert_checkequal(a, matrix([scalar,scalar,scalar,scalar,scalar,scalar,scalar,scalar], 2, 4));
65
66 a=mat; a(:,:,2) = scalar;
67 assert_checkequal(a, matrix([mat(:)' scalar scalar scalar scalar scalar scalar scalar scalar], 2, 4, 2));
68
69 //hypermatrix
70 a=hm; a(:) = scalar;
71 assert_checkequal(a, matrix([scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar], 3, 4, 2));
72
73 a=hm; a(:,:) = scalar;
74 assert_checkequal(a, matrix([scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar], 3, 4, 2));
75
76 a=hm; a(:,:,:) = scalar;
77 assert_checkequal(a, matrix([scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar], 3, 4, 2));
78
79 a=hm; a(:,:,2) = scalar;
80 assert_checkequal(a, matrix([(hm(:,:,1)(:))' scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar], 3, 4, 2));
81
82 //vector new insert
83 clear a; a(:) = vect;
84 assert_checkequal(a, vect);
85
86 clear a; a(:,:) = vect;
87 assert_checkequal(a, vect);
88
89 clear a; a(:,:,:) = vect;
90 assert_checkequal(a, vect);
91
92 clear a; a(:,:,2) = vect;
93 assert_checkequal(a, matrix([0 0 0 0 0 vect], 1, 5, 2));
94
95 clear a; a(:,:,:,2) = vect;
96 assert_checkequal(a, matrix([0 0 0 0 0 vect], 1, 5, 1, 2));
97
98 clear a; a(:) = vect';
99 assert_checkequal(a, vect');
100
101 clear a; a(:,:) = vect';
102 assert_checkequal(a, vect');
103
104 clear a; a(:,:,:) = vect';
105 assert_checkequal(a, vect');
106
107 clear a; a(:,:,2) = vect';
108 assert_checkequal(a, matrix([0 0 0 0 0 vect], 5, 1, 2));
109
110 clear a; a(:,:,:,2) = vect';
111 assert_checkequal(a, matrix([0 0 0 0 0 vect], 5, 1, 1, 2));
112
113 clear a; a(:,1,:) = vect;
114 assert_checkequal(a, matrix(vect, 1, 1, 5));
115
116 clear a; a(:,1,:) = vect';
117 assert_checkequal(a, vect');
118
119 a=vect; a(:) = vect2;
120 assert_checkequal(a, vect2);
121
122 a=vect; a(:,:) = vect2;
123 assert_checkequal(a, vect2);
124
125 a=vect; a(:,:,:) = vect2;
126 assert_checkequal(a, vect2);
127
128 a=vect; a(:,:,2) = vect2;
129 assert_checkequal(a, matrix([vect vect2], 1, 5, 2));
130
131 a=vect; a(:,:,:,2) = vect2;
132 assert_checkequal(a, matrix([vect vect2], 1, 5, 1, 2));
133
134 a=mat; a(:,:,2) = 9:16;
135 assert_checkequal(a, matrix([mat(:)', 9:16], 2, 4, 2));
136
137 a=mat; a(:,:,:,2) = 9:16;
138 assert_checkequal(a, matrix([mat(:)', 9:16], 2, 4, 1, 2));
139
140 a=hm; a(:) = hm(:);
141 assert_checkequal(a, hm);
142
143 a=hm; a(:,:) = hm(:);
144 assert_checkequal(a, hm);
145
146 a=hm; a(:,:,2) = hm(:,:,1);
147 assert_checkequal(a, matrix([hm(:,:,1)(:);hm(:,:,1)(:)], 3, 4, 2));
148
149 a=hm; a(:,:,:,2) = hm(:);
150 assert_checkequal(a, matrix([hm(:);hm(:)], 3,4,2,2));
151
152
153 //matrix
154 clear a; a(:) = mat;
155 assert_checkequal(a, mat);
156
157 clear a; a(:,:) = mat;
158 assert_checkequal(a, mat);
159
160 clear a; a(:,:,:) = mat;
161 assert_checkequal(a, mat);
162
163 clear a; a(:,:,2) = mat;
164 assert_checkequal(a, matrix([zeros(mat(:));mat(:)], 2, 4, 2));
165
166 clear a; a(:,:,:,2) = mat;
167 assert_checkequal(a, matrix([zeros(mat(:));mat(:)], 2, 4, 1, 2));
168
169 clear a; a(:,1,:) = mat;
170 assert_checkequal(a, matrix(mat, 2, 1, 4));
171
172 a=mat; a(:) = mat(:);
173 assert_checkequal(a, mat);
174
175 a=mat; a(:,:) = mat(:);
176 assert_checkequal(a, mat);
177
178 a=mat; a(:,:,2) = mat(:);
179 assert_checkequal(a, matrix([mat(:);mat(:)], 2, 4, 2));
180
181 a=mat; a(:,:,:,2) = mat(:)
182 assert_checkequal(a, matrix([mat(:);mat(:)], 2, 4, 1, 2));
183
184 //hypermatrix
185 clear a; a(:) = hm;
186 assert_checkequal(a, hm);
187
188 clear a; a(:,:) = hm;
189 assert_checkequal(a, hm);
190
191 clear a; a(:,:,:) = hm;
192 assert_checkequal(a, hm);
193
194 clear a; a(:,:,:, 2) = hm;
195 assert_checkequal(a, matrix([zeros(hm)(:);hm(:)], 3, 4, 2, 2));
196
197 clear a; a(:,1,:,:) = hm;
198 assert_checkequal(a, matrix(hm, 3, 1, 4, 2));