X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=tests%2Fextended_rosenbrock1_tests.m;fp=tests%2Fextended_rosenbrock1_tests.m;h=2f0eb8f425323f13304d3afd094420c6cce9723e;hb=f81dbdae572c276be06e7cb9bbe2d6c5293e60ec;hp=0000000000000000000000000000000000000000;hpb=75563505172dce2cc78116f0884819ca32620dbe;p=octave.git

diff --git a/tests/extended_rosenbrock1_tests.m b/tests/extended_rosenbrock1_tests.m
new file mode 100644
index 0000000..2f0eb8f
--- /dev/null
+++ b/tests/extended_rosenbrock1_tests.m
@@ -0,0 +1,14 @@
+## Test the optimal point.
+
+for m = [ 1 : 10 ]
+  x = repmat([1;1], m, 1);
+
+  msg = sprintf("extended_rosenbrock1([1;1;...]) == 0 (m = %d)", m);
+  unit_test_equals(msg, 0, extended_rosenbrock1(x));
+end
+
+## It should fail with the wrong number of coordinates.
+f = extended_rosenbrock1([1]);
+unit_test_equals("extended_rosenbrock1 fails when length(x) is odd", ...
+		 true, ...
+		 isna(f));