Add the Wood() test function and some tests.

[octave.git] / tests / wood_gradient_tests.m

diff --git a/tests/wood_gradient_tests.m b/tests/wood_gradient_tests.m
new file mode 100644 (file)
index 0000000..700c667
--- /dev/null
+++ b/tests/wood_gradient_tests.m
@@ -0,0 +1,6 @@
+## The gradient should be zero at the optimal point.
+
+g = wood_gradient(1,1,1,1);
+unit_test_equals("wood_gradient(1,1,1,1) == 0", ...
+                0, ...
+                wood_gradient(1,1,1,1));