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

k-order tests: when something is wrong, use error() instead of disp(), so that the testsuite stops 

git-svn-id: https://www.dynare.org/svn/dynare/trunk@3237 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
sebastien 2009-12-14 11:12:02 +00:00
parent cf77c3f245
commit 4a33aad62b
3 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/k_order_perturbation/fs2000k2.mod
View File

@ -67,21 +67,21 @@ dr0 = oo1.oo_.dr;
dr = oo_.dr;
if max(max(abs(dr0.ghx - dr.ghx))) > 1e-12;
disp('error in ghx');
error('error in ghx');
end;
if max(max(abs(dr0.ghu - dr.ghu))) > 1e-12;
disp('error in ghu');
error('error in ghu');
end;
if max(max(abs(dr0.ghxx - dr.ghxx))) > 1e-12;
disp('error in ghxx');
error('error in ghxx');
end;
if max(max(abs(dr0.ghuu - dr.ghuu))) > 1e-12;
disp('error in ghuu');
error('error in ghuu');
end;
if max(max(abs(dr0.ghxu - dr.ghxu))) > 1e-12;
disp('error in ghxu');
error('error in ghxu');
end;
if max(max(abs(dr0.ghs2 - dr.ghs2))) > 1e-12;
disp('error in ghs2');
error('error in ghs2');
end;

8
tests/k_order_perturbation/fs2000k3.mod
View File

@ -66,15 +66,15 @@ dr0 = oo1.oo_.dr;
dr = oo_.dr;
if max(max(abs(dr0.ghxx - dr.ghxx))) > 1e-12;
disp('error in ghxx');
error('error in ghxx');
end;
if max(max(abs(dr0.ghuu - dr.ghuu))) > 1e-12;
disp('error in ghuu');
error('error in ghuu');
end;
if max(max(abs(dr0.ghxu - dr.ghxu))) > 1e-12;
disp('error in ghxu');
error('error in ghxu');
end;
if max(max(abs(dr0.ghs2 - dr.ghs2))) > 1e-12;
disp('error in ghs2');
error('error in ghs2');
end;

12
tests/k_order_perturbation/fs2000k_1.mod
View File

@ -78,21 +78,21 @@ ikc2 = [1 3 4 2 9 11 12 10 13 15 16 14 5 7 8 6];
ikc2u = [1 2 5 6 7 8 3 4];
if max(max(abs(dr0.ghx - dr.ghx(ikr,ikc)))) > 1e-12;
disp('error in ghx');
error('error in ghx');
end;
if max(max(abs(dr0.ghu - dr.ghu(ikr,:)))) > 1e-12;
disp('error in ghu');
error('error in ghu');
end;
if max(max(abs(dr0.ghxx - dr.ghxx(ikr,ikc2)))) > 1e-12;
disp('error in ghxx');
error('error in ghxx');
end;
if max(max(abs(dr0.ghuu - dr.ghuu(ikr,:)))) > 1e-12;
disp('error in ghuu');
error('error in ghuu');
end;
if max(max(abs(dr0.ghxu - dr.ghxu(ikr,ikc2u)))) > 1e-12;
disp('error in ghxu');
error('error in ghxu');
end;
if max(max(abs(dr0.ghs2 - dr.ghs2(ikr,:)))) > 1e-12;
disp('error in ghs2');
error('error in ghs2');
end;