stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adapted mtest routine so that it can be used in the matlab routines test suite. 

mtest can now return more informations about the unitary tests.
time-shift
Stéphane Adjemian (Charybdis) 2013-07-04 11:52:07 +02:00
parent a6043ee628
commit b4a8155f5b
1 changed files with 40 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
matlab/utilities/tests/mtest.m
View File

@ -1,7 +1,7 @@
function check = mtest(fname,fpath)
function [check, info] = mtest(fname, fpath)
% Extract test sections from matlab's routine executes the test and report errors.
% Copyright (C) 2011-2012 Dynare Team
% Copyright (C) 2011-2013 Dynare Team
%
% This file is part of Dynare.
%
@ -24,7 +24,12 @@ function check = mtest(fname,fpath)
check = 1;
% Open the matlab file.
fid = fopen([fpath '/' fname '.m'],'r');
if isempty(fpath)
% The full path to the matlab routine (with extension) is given.
fid = fopen(fname,'r');
else
fid = fopen([fpath '/' fname '.m'],'r');
end
% Read the matlab file.
file = textscan(fid,'%s','delimiter','\n');
@ -42,8 +47,22 @@ if length(b1)-length(b2)
error('test:: There is a problem with the test blocks definition!')
end
% Initialize the second output if necessary.
if nargout>1
% First column name of the tested routine.
% Second column number of the unitary test.
% Third column status of the unitary test (0 if the test fails, 1 otherwise)
% Fourth column details about the failure (vector of integers)
% Fifth column elapsed time in seconds (cpu time).
info = cell(nn,4);
end
% Perform the tests.
for i=1:nn
if nargout>1
info(i,1) = {fname};
info(i,2) = {i};
end
% Write the temporary test routine.
tid = fopen([fname '_test_' int2str(i) '.m'],'w');
fprintf(tid,['function [T,t,LOG] = ' fname '_test_' int2str(i) '()\n']);
@ -60,24 +79,42 @@ for i=1:nn
fprintf(tid,['end\n']);
fclose(tid);
% Call the temporary test routine.
init = cputime;
[TestFlag,TestDetails,LOG] = feval([fname '_test_' int2str(i)]);
time = cputime-init;
if isnan(TestFlag)
fprintf(['\n'])
fprintf(['Call to ' fname ' test routine n°' int2str(i) ' failed (' datestr(now) ')!\n'])
fprintf(['\n'])
disp(LOG)
check = 0;
if nargout>1
info(i,3) = {0};
end
continue
end
if ~TestFlag
if nargout>1
info(i,3) = {0};
tmp = ones(length(TestDetails),1);
end
fprintf(['Test n°' int2str(i) ' for routine ' fname ' failed (' datestr(now) ')!\n']);
for j=1:length(TestDetails)
if ~TestDetails(j)
if nargout>1
tmp(j) = 0;
end
fprintf(['Output argument n°' int2str(j) ' didn''t give the expected result.\n']);
end
end
info(i,4) = {tmp};
check = 0;
else
if nargout>1
info(i,3) = {1};
info(i,4) = {ones(length(TestDetails),1)};
info(i,5) = {time};
end
delete([fname '_test_' int2str(i) '.m'])
end
end