linear_algebra plugged.
[scilab.git] / scilab / modules / linear_algebra / tests / unit_tests / squeeze.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - INRIA - Serge.Steer@inria.fr
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- JVM NOT MANDATORY -->
9
10 C={1,%s+1,[3,4],[%f %t],int32(8),-24};
11 S=[];S.a=1;S(6).a=33;
12
13 data=list(1:6,string(1:6),(1:6)+%s,(1:6)>2, int32(1:6),C,S);
14 //check with hypermatrices and hyper cells
15 for v=data
16   a=matrix(v,[1 2 3]);
17   if or(squeeze(a)<>matrix(v,[2 3])) then pause,end
18
19   a=matrix(v,[1 2 1 3]);
20   if or(squeeze(a)<>matrix(v,[2 3])) then pause,end
21 end
22 //check with matrices and 2D cells the function should return the input
23 for v=data
24   a=matrix(v,[2 3]);
25   if or(squeeze(a)<>matrix(v,[2 3])) then pause,end
26 end
27
28 //scalar case
29 a=33;
30 if or(size(squeeze(a))<>[1 1]) then pause,end
31 c={1:3}
32 if or(size(squeeze(c))<>[1 1]) then pause,end
33 //empty matrix
34 if or(size(squeeze([]))<>[0 0]) then pause,end
35 if or(size(squeeze(cell()))<>[0 0]) then pause,end
36