1 % Automatic
test procedure
for the MEX files - based on EQuUs TPI v4.8
2 % Copyright (C) 2016-2017 Peter Rakyta, Ph.D.
4 % This program is free software: you can redistribute it and/or modify
5 % it under the terms of the GNU General Public License as published by
6 % the Free Software Foundation, either version 3 of the License, or
7 % (at your option) any later version.
9 % This program is distributed in the hope that it will be useful,
10 % but WITHOUT ANY WARRANTY; without even the implied warranty of
11 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 % GNU General Public License
for more details.
14 % You should have received a copy of the GNU General Public License
15 % along with
this program. If not, see http:
18 MEX_files = dir( fullfile(pwd, [
'*.', mexext]));
21 for idx = 1:length(MEX_files)
22 if MEX_files(idx).isdir
26 display(
'***************************************************************************')
27 fncname = MEX_files(idx).name;
28 disp(['Testing ', fncname]);
29 fncname = [fncname(1:end-length(mexext)-1), '_test'];
function test(arg1, arg2)
Brief description of the function.
function automatic_test_MEX()