dynare/tests/run_test.m

40 lines
785 B
Matlab

function run_test()
test_files = {
'.' 'ramst';
'.' 'ramst_a';
'.' 'example1';
'.' 'example2';
'.' 't_sgu_ex1';
'arima' 'mod1';
'arima' 'mod1a';
'arima' 'mod1b';
'arima' 'mod1c';
'arima' 'mod2';
'arima' 'mod2a';
'arima' 'mod2b';
'arima' 'mod2c';
'fs2000' 'fs2000';
'fs2000' 'fs2000a';
}
results = cell(length(test_files),1);
for i=1:length(test_files)
results{i}= run_test1(test_files{i,1},test_files{i,2});
end
for i=1:length(test_files)
disp(test_files{i,2})
disp(results{i})
end
function msg=run_test1(path1,mod_file)
global options_
clear options_
old_path = pwd;
cd(path1);
msg = 'OK';
expr = ['disp(''error in ' mod_file ''');msg=lasterr;disp(msg)'];
eval(['dynare ' mod_file ' noclearall'],'eval(expr)');
cd(old_path)