Eötvös Quantum Utilities  v4.8.141
Providing the Horsepowers in the Quantum Realm
automatic_test_MEX.m
Go to the documentation of this file.
1 % Automatic test procedure for the MEX files - based on EQuUs TPI v4.8
2 % Copyright (C) 2016-2017 Peter Rakyta, Ph.D.
3 %
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.
8 %
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.
13 %
14 % You should have received a copy of the GNU General Public License
15 % along with this program. If not, see http://www.gnu.org/licenses/.
16 function automatic_test_MEX()
17 
18  MEX_files = dir( fullfile(pwd, ['*.', mexext]));
19 
20 
21  for idx = 1:length(MEX_files)
22  if MEX_files(idx).isdir
23  continue;
24  end
25 
26  display('***************************************************************************')
27  fncname = MEX_files(idx).name;
28  disp(['Testing ', fncname]);
29  fncname = [fncname(1:end-length(mexext)-1), '_test'];
30  feval(fncname);
31  disp(' ')
32  disp(' ')
33  end
34 end
function test(arg1, arg2)
Brief description of the function.
function automatic_test_MEX()