Testsuite / External functions: also test coefficients of 2nd order policy function

tests/external_function/first_and_2nd_deriv_given.mod

@@ -52,6 +52,18 @@ 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_.dr.ghxu - oo_.dr.ghxu))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 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

tests/external_function/first_and_2nd_deriv_given_dll.mod

@@ -52,6 +52,18 @@ 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_.dr.ghxu - oo_.dr.ghxu))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 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

tests/external_function/first_and_2nd_deriv_given_dll_namespace.mod

@@ -54,6 +54,18 @@ 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_.dr.ghxu - oo_.dr.ghxu))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 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

tests/external_function/first_and_2nd_deriv_given_namespace.mod

@@ -54,6 +54,18 @@ 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_.dr.ghxu - oo_.dr.ghxu))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-12
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 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

tests/external_function/first_deriv_given.mod

@@ -52,6 +52,18 @@ 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_.dr.ghxu - oo_.dr.ghxu))) > 1e-4
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-3
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-5
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 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

tests/external_function/first_deriv_given_dll.mod

@@ -52,6 +52,18 @@ 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_.dr.ghxu - oo_.dr.ghxu))) > 1e-4
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-3
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-5
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 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

tests/external_function/no_deriv_given.mod

@@ -52,6 +52,18 @@ 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_.dr.ghxu - oo_.dr.ghxu))) > 1e-4
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-3
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-5
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 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

tests/external_function/no_deriv_given_dll.mod

@@ -52,6 +52,18 @@ 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_.dr.ghxu - oo_.dr.ghxu))) > 1e-4
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghxx - oo_.dr.ghxx))) > 1e-3
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghuu - oo_.dr.ghuu))) > 1e-5
+  error('Failure in external function')
+end
+if max(max(abs(L.oo_.dr.ghs2 - oo_.dr.ghs2))) > 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