restore tests from operations module
[scilab.git] / scilab / modules / ast / tests / unit_tests / transposition.tst
1 // ============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2014 - Scilab Enterprises - Calixte DENIZET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // ============================================================================
7
8 // <-- JVM NOT MANDATORY -->
9
10 S = 123;
11 C = [1 2;3 4];
12 R = [1 2 3;4 5 6];
13 SC = 1+2*%i
14 CC = C + %i * [5 6;7 8];
15 RC = R + %i * [7 8 9;10 11 12];
16 SB = %F;
17 CB = [%T %T;%F %T];
18 RB = [%T %T %F;%T %F %T];
19 X = poly(0, "x");
20 CP = C + C * X + C * X ^ 2;
21 RP = R + R * X + R * X ^ 2;
22 CCP = CC + CC * X + CC * X ^ 2;
23 RCP = RC + RC * X + RC * X ^ 2;
24
25 assert_checkequal([], []')
26 assert_checkequal([], [].')
27 assert_checkequal(eye(), eye()')
28 assert_checkequal(eye(), eye().')
29 assert_checkequal(S, S')
30 assert_checkequal(S, S.')
31 assert_checkequal(SB, SB')
32 assert_checkequal(SB, SB.')
33 assert_checkequal(SC', 1 - 2 * %i)
34 assert_checkequal(SC, SC.')
35
36 assert_checkequal(C', [1 3;2 4])
37 assert_checkequal(C.', [1 3;2 4])
38 assert_checkequal(CC', [1 3;2 4] - %i * [5 7;6 8])
39 assert_checkequal(CC.', [1 3;2 4] + %i * [5 7;6 8])
40 assert_checkequal(R', [1 4;2 5;3 6])
41 assert_checkequal(R.', [1 4;2 5;3 6])
42 assert_checkequal(RC', [1 4;2 5;3 6] - %i * [7 10;8 11;9 12])
43 assert_checkequal(RC.', [1 4;2 5;3 6] + %i * [7 10;8 11;9 12])
44
45 assert_checkequal(string(C)', string([1 3;2 4]))
46 assert_checkequal(string(C).', string([1 3;2 4]))
47 assert_checkequal(string(R)', string([1 4;2 5;3 6]))
48 assert_checkequal(string(R).', string([1 4;2 5;3 6]))
49
50 assert_checkequal(sparse(C)', sparse([1 3;2 4]))
51 assert_checkequal(sparse(C).', sparse([1 3;2 4]))
52 assert_checkequal(sparse(CC)', sparse([1 3;2 4] - %i * [5 7;6 8]))
53 assert_checkequal(sparse(CC).', sparse([1 3;2 4] + %i * [5 7;6 8]))
54 assert_checkequal(sparse(R)', sparse([1 4;2 5;3 6]))
55 assert_checkequal(sparse(R).', sparse([1 4;2 5;3 6]))
56 assert_checkequal(sparse(RC)', sparse([1 4;2 5;3 6] - %i * [7 10;8 11;9 12]))
57 assert_checkequal(sparse(RC).', sparse([1 4;2 5;3 6] + %i * [7 10;8 11;9 12]))
58
59 assert_checkequal(CB', [%T %F;%T %T])
60 assert_checkequal(CB.', [%T %F;%T %T])
61 assert_checkequal(RB', [%T %T;%T %F;%F %T])
62 assert_checkequal(RB.', [%T %T;%T %F;%F %T])
63 assert_checkequal(sparse(CB)', sparse([%T %F;%T %T]))
64 assert_checkequal(sparse(CB).', sparse([%T %F;%T %T]))
65 assert_checkequal(sparse(RB)', sparse([%T %T;%T %F;%F %T]))
66 assert_checkequal(sparse(RB).', sparse([%T %T;%T %F;%F %T]))
67
68 assert_checkequal(int8(S)', int8(S))
69 assert_checkequal(int8(C)', int8([1 3;2 4]))
70 assert_checkequal(int8(C).', int8([1 3;2 4]))
71 assert_checkequal(int8(R)', int8([1 4;2 5;3 6]))
72 assert_checkequal(int8(R).', int8([1 4;2 5;3 6]))
73 assert_checkequal(int16(S)', int16(S))
74 assert_checkequal(int16(C)', int16([1 3;2 4]))
75 assert_checkequal(int16(C).', int16([1 3;2 4]))
76 assert_checkequal(int16(R)', int16([1 4;2 5;3 6]))
77 assert_checkequal(int16(R).', int16([1 4;2 5;3 6]))
78 assert_checkequal(int32(S)', int32(S))
79 assert_checkequal(int32(C)', int32([1 3;2 4]))
80 assert_checkequal(int32(C).', int32([1 3;2 4]))
81 assert_checkequal(int32(R)', int32([1 4;2 5;3 6]))
82 assert_checkequal(int32(R).', int32([1 4;2 5;3 6]))
83 assert_checkequal(int64(S)', int64(S))
84 assert_checkequal(int64(C)', int64([1 3;2 4]))
85 assert_checkequal(int64(C).', int64([1 3;2 4]))
86 assert_checkequal(int64(R)', int64([1 4;2 5;3 6]))
87 assert_checkequal(int64(R).', int64([1 4;2 5;3 6]))
88 assert_checkequal(uint8(S)', uint8(S))
89 assert_checkequal(uint8(C)', uint8([1 3;2 4]))
90 assert_checkequal(uint8(C).', uint8([1 3;2 4]))
91 assert_checkequal(uint8(R)', uint8([1 4;2 5;3 6]))
92 assert_checkequal(uint8(R).', uint8([1 4;2 5;3 6]))
93 assert_checkequal(uint16(S)', uint16(S))
94 assert_checkequal(uint16(C)', uint16([1 3;2 4]))
95 assert_checkequal(uint16(C).', uint16([1 3;2 4]))
96 assert_checkequal(uint16(R)', uint16([1 4;2 5;3 6]))
97 assert_checkequal(uint16(R).', uint16([1 4;2 5;3 6]))
98 assert_checkequal(uint32(S)', uint32(S))
99 assert_checkequal(uint32(C)', uint32([1 3;2 4]))
100 assert_checkequal(uint32(C).', uint32([1 3;2 4]))
101 assert_checkequal(uint32(R)', uint32([1 4;2 5;3 6]))
102 assert_checkequal(uint32(R).', uint32([1 4;2 5;3 6]))
103 assert_checkequal(uint64(S)', uint64(S))
104 assert_checkequal(uint64(C)', uint64([1 3;2 4]))
105 assert_checkequal(uint64(C).', uint64([1 3;2 4]))
106 assert_checkequal(uint64(R)', uint64([1 4;2 5;3 6]))
107 assert_checkequal(uint64(R).', uint64([1 4;2 5;3 6]))
108
109 assert_checkequal(X', X)
110 assert_checkequal(X.', X)
111 assert_checkequal(CP', C' * (1 + X + X ^ 2))
112 assert_checkequal(CP.', C.' * (1 + X + X ^ 2))
113 assert_checkequal(RP', R' * (1 + X + X ^ 2))
114 assert_checkequal(RP.', R.' * (1 + X + X ^ 2))
115 assert_checkequal(CCP', CC' * (1 + X + X ^ 2))
116 assert_checkequal(CCP.', CC.' * (1 + X + X ^ 2))
117 assert_checkequal(RCP', RC' * (1 + X + X ^ 2))
118 assert_checkequal(RCP.', RC.' * (1 + X + X ^ 2))
119
120 assert_checkequal((1:5)', [1;2;3;4;5]);
121 assert_checkequal((1:2:10)', [1;3;5;7;9]);