1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2010 - DIGITEO - Vincent COUVERT <vincent.couvert@scilab.org>
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
//
function testOk = m2sciTestExecution(functionName)
mfilesPath = "SCI/modules/m2sci/tests/unit_tests/mfiles/";
exec("SCI/modules/m2sci/tests/unit_tests/utils/sci_m2sciUnknownDims.sci", -1);
exec("SCI/modules/m2sci/tests/unit_tests/utils/sci_m2sciUnknownType.sci", -1);
mfile2sci(mfilesPath + functionName + ".m", TMPDIR, %F, %F, 0, %T);
loadmatfile(mfilesPath + functionName + ".mat");
// Rename all res* variable to matres*
allVars = who("local");
numberOfMatRes = 0;
for kVar = 1:size(allVars, "*")
if part(allVars(kVar), 1:3)=="res" then
execstr("mat" + allVars(kVar) + "=" + allVars(kVar));
execstr("clear " + allVars(kVar));
numberOfMatRes = numberOfMatRes + 1;
end
end
exec("SCI/modules/m2sci/tests/unit_tests/utils/m2sciUnknownDims.sci", -1);
exec("SCI/modules/m2sci/tests/unit_tests/utils/m2sciUnknownType.sci", -1);
exec(TMPDIR + filesep() + functionName + ".sci", -1);
// Check that Scilab defined as many res* as Matlab
allVars = who("local");
allResNames = [];
for kVar = 1:size(allVars, "*")
if part(allVars(kVar), 1:3)=="res" then
allResNames($+1) = allVars(kVar);
end
end
if size(allResNames, "*")<>(numberOfMatRes/2) then
disp("Wrong number of results: " + string(size(allResNames, "*")) + " <> " + string(numberOfMatRes/2));
testOk = %F;
return
end
exec("SCI/modules/m2sci/tests/unit_tests/utils/m2sciParseInfos.sci", -1);
exec("SCI/modules/m2sci/tests/unit_tests/utils/m2sciCompareResults.sci", -1);
for kRes = 1: size(allResNames, "*")
resName = allResNames(kRes);
// For each result, compare the informations
[matSize, matType, matProp] = m2sciParseInfos(evstr("mat" + resName + "_Infos"));
sciRes = evstr(resName);
sciSize = size(sciRes);
if type(sciRes)==10 then
sciType = "String";
sciProp = "Real";
elseif type(sciRes)==4 then
sciType = "Boolean";
sciProp = "Real";
elseif type(sciRes)==6 then
sciType = "Sparse";
sciProp = "Real";
elseif type(sciRes)==5 then
if isreal(sciRes,0) then
sciType = "Sparse";
sciProp = "Real";
else
sciType = "Sparse";
sciProp = "Complex";
end
else
if isreal(sciRes,0) then
sciType = "Double";
sciProp = "Real";
else
sciType = "Double";
sciProp = "Complex";
end
end
// Verify size between Scilab and Matlab
if sciType=="String" then
if or(sciSize<>matSize) & sciSize(matSize<>sciSize)<>1 then
// Error
disp(resName + ": " + sci2exp(sciSize) + " <> " + sci2exp(matSize))
testOk = %F
return
elseif or(sciSize<>matSize) then
// WARNING: Error for string length
disp(resName + ": " + sci2exp(sciSize) + " <> " + sci2exp(matSize));
end
else
if or(sciSize<>matSize) then
disp(resName + ": " + sci2exp(sciSize) + " <> " + sci2exp(matSize));
if prod(sciSize)==0 & prod(matSize)==0 then // Empty matrix size
// WARNING: Error for empty matrix
else
// Error
testOk = %F
return
end
end
end
// Verify type between Scilab and Matlab
if sciType<>matType then
disp(resName + ": " + string(sciType) + " <> " + string(matType));
if sciType<>"constant" & matType<>"Boolean" then
// Error
testOk = %F
return
else
// WARNING: Error for empty matrix of boolean
end
end
// Verify prop between Scilab and Matlab
if sciProp<>matProp then
disp(resName + ": " + string(sciProp) + " <> " + string(matProp));
testOk = %F;
return
end
// Compare results
if ~m2sciCompareResults(sciRes, evstr("mat" + resName)) then
disp([resName + " (scilab): " + sci2exp(sciRes, 0); resName + " (matlab): " + sci2exp(evstr("mat" + resName), 0)])
testOk = %F
return
end
end
testOk = %T
endfunction
|
