X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=tests%2Fextended_powell_gradient1_tests.m;fp=tests%2Fextended_powell_gradient1_tests.m;h=5be0a6d9536290d9a22cd6f0fffef5ff6a8a4667;hp=0000000000000000000000000000000000000000;hb=30c26967dbc89131a09979fa8937eac0ef7a73b4;hpb=120959c85ebb6544fa0a00c3d1c3f8941e7da3e0

diff --git a/tests/extended_powell_gradient1_tests.m b/tests/extended_powell_gradient1_tests.m
new file mode 100644
index 0000000..5be0a6d
--- /dev/null
+++ b/tests/extended_powell_gradient1_tests.m
@@ -0,0 +1,13 @@
+## The gradient should be zero at the optimal point.
+
+for m = [ 1 : 10 ]
+  x = repmat([0;0;0;0], m, 1);
+
+  msg = sprintf("extended_powell_gradient1([0;0;0;0;...]) == 0 (m = %d)", m);
+  unit_test_equals(msg, 0, extended_powell_gradient1(x));
+end
+
+## It should fail with the wrong number of coordinates.
+g = extended_powell_gradient1([1;2;3]);
+msg = "extended_powell_gradient1 fails when length(x) is odd";
+unit_test_equals(msg, true, isna(g));