Testsuite / External functions: add check for numerical results

parent e525798a
......@@ -184,6 +184,7 @@ MODFILES = \
dsge-var/simul_hybrid.mod \
dsge-var/dsgevar_forward_calibrated_lambda.mod \
dsge-var/dsgevar_forward_estimated_lambda.mod \
external_function/benchmark.mod \
external_function/first_deriv_given.mod \
external_function/first_deriv_given_dll.mod \
external_function/first_and_2nd_deriv_given.mod \
......@@ -494,6 +495,25 @@ dsge-var/dsgevar_forward_estimated_lambda.m.trs: dsge-var/simul_hybrid.m.trs
dsge-var/dsgevar_forward_calibrated_lambda.o.trs: dsge-var/simul_hybrid.o.trs
dsge-var/dsgevar_forward_estimated_lambda.o.trs: dsge-var/simul_hybrid.o.trs
external_function/first_deriv_given.m.trs: external_function/benchmark.m.trs
external_function/first_deriv_given.o.trs: external_function/benchmark.o.trs
external_function/first_deriv_given_dll.m.trs: external_function/benchmark.m.trs
external_function/first_deriv_given_dll.o.trs: external_function/benchmark.o.trs
external_function/first_and_2nd_deriv_given.m.trs: external_function/benchmark.m.trs
external_function/first_and_2nd_deriv_given.o.trs: external_function/benchmark.o.trs
external_function/first_and_2nd_deriv_given_dll.m.trs: external_function/benchmark.m.trs
external_function/first_and_2nd_deriv_given_dll.o.trs: external_function/benchmark.o.trs
external_function/first_and_2nd_deriv_given_namespace.m.trs: external_function/benchmark.m.trs
external_function/first_and_2nd_deriv_given_namespace.o.trs: external_function/benchmark.o.trs
external_function/first_and_2nd_deriv_given_dll_namespace.m.trs: external_function/benchmark.m.trs
external_function/first_and_2nd_deriv_given_dll_namespace.o.trs: external_function/benchmark.o.trs
external_function/no_deriv_given.m.trs: external_function/benchmark.m.trs
external_function/no_deriv_given.o.trs: external_function/benchmark.o.trs
external_function/no_deriv_given_dll.m.trs: external_function/benchmark.m.trs
external_function/no_deriv_given_dll.o.trs: external_function/benchmark.o.trs
external_function/extfun_in_mlv.m.trs: external_function/benchmark.m.trs
external_function/extfun_in_mlv.o.trs: external_function/benchmark.o.trs
smoother2histval/fs2000_simul.m.trs: smoother2histval/fs2000_smooth.m.trs
smoother2histval/fs2000_simul.o.trs: smoother2histval/fs2000_smooth.o.trs
......
......@@ -45,3 +45,14 @@ var e, u = phi*0.009*0.009;
end;
stoch_simul;
L = load('benchmark_results.mat');
if max(max(abs(L.oo_.dr.ghu - oo_.dr.ghu))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
error('Failure in external function')
end
......@@ -44,3 +44,14 @@ var e, u = phi*0.009*0.009;
end;
stoch_simul;
L = load('benchmark_results.mat');
if max(max(abs(L.oo_.dr.ghu - oo_.dr.ghu))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
error('Failure in external function')
end
......@@ -44,3 +44,14 @@ var e, u = phi*0.009*0.009;
end;
stoch_simul;
L = load('benchmark_results.mat');
if max(max(abs(L.oo_.dr.ghu - oo_.dr.ghu))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
error('Failure in external function')
end
......@@ -46,3 +46,14 @@ var e, u = phi*0.009*0.009;
end;
stoch_simul;
L = load('benchmark_results.mat');
if max(max(abs(L.oo_.dr.ghu - oo_.dr.ghu))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
error('Failure in external function')
end
......@@ -46,3 +46,14 @@ var e, u = phi*0.009*0.009;
end;
stoch_simul;
L = load('benchmark_results.mat');
if max(max(abs(L.oo_.dr.ghu - oo_.dr.ghu))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
error('Failure in external function')
end
......@@ -44,3 +44,14 @@ var e, u = phi*0.009*0.009;
end;
stoch_simul;
L = load('benchmark_results.mat');
if max(max(abs(L.oo_.dr.ghu - oo_.dr.ghu))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
error('Failure in external function')
end
......@@ -44,3 +44,14 @@ var e, u = phi*0.009*0.009;
end;
stoch_simul;
L = load('benchmark_results.mat');
if max(max(abs(L.oo_.dr.ghu - oo_.dr.ghu))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-12
error('Failure in external function')
end
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
error('Failure in external function')
end
......@@ -44,3 +44,14 @@ var e, u = phi*0.009*0.009;
end;
stoch_simul;
L = load('benchmark_results.mat');
if max(max(abs(L.oo_.dr.ghu - oo_.dr.ghu))) > 1e-9
error('Failure in external function')
end
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-9
error('Failure in external function')
end
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
error('Failure in external function')
end
......@@ -44,3 +44,14 @@ var e, u = phi*0.009*0.009;
end;
stoch_simul;
L = load('benchmark_results.mat');
if max(max(abs(L.oo_.dr.ghu - oo_.dr.ghu))) > 1e-9
error('Failure in external function')
end
if max(max(abs(L.oo_.dr.ghx - oo_.dr.ghx))) > 1e-9
error('Failure in external function')
end
if max(max(abs(L.oo_.var - oo_.var))) > 1e-12
error('Failure in external function')
end
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment