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

Changed the name of the third output (conflict with the neperian logarithm function).

time-shift
Stéphane Adjemian (Charybdis) 2011-08-12 23:17:22 +02:00 committed by Stéphane Adjemian (Scylla)
parent 8982d49539
commit ff98f65cf6
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -45,26 +45,26 @@ end
for i=1:nn
% Write the temporary test routine.
tid = fopen([fname '_test_' int2str(i) '.m'],'w');
fprintf(tid,['function [T,t,log] = ' fname '_test_' int2str(i) '()\n']);
fprintf(tid,['function [T,t,LOG] = ' fname '_test_' int2str(i) '()\n']);
fprintf(tid,['try\n']);
for j=b1(i):b2(i)
str = file{j};
fprintf(tid,[str(4:end) '\n']);
end
fprintf(tid,['log = NaN;\n']);
fprintf(tid,['LOG = NaN;\n']);
fprintf(tid,['catch exception\n']);
fprintf(tid,['log = getReport(exception,''extended'');\n']);
fprintf(tid,['LOG = getReport(exception,''extended'');\n']);
fprintf(tid,['T = NaN;\n']);
fprintf(tid,['t = NaN;\n']);
fprintf(tid,['end\n']);
fclose(tid);
% Call the temporary test routine.
[TestFlag,TestDetails,log] = feval([fname '_test_' int2str(i)]);
[TestFlag,TestDetails,LOG] = feval([fname '_test_' int2str(i)]);
if isnan(TestFlag)
fprintf(['\n'])
fprintf(['Call to ' fname ' test routine n°' int2str(i) ' failed (' datestr(now) ')!\n'])
fprintf(['\n'])
disp(log)
disp(LOG)
check = 0;
continue
end