X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=tests%2Fextended_rosenbrock_hessian1_tests.m;fp=tests%2Fextended_rosenbrock_hessian1_tests.m;h=59eb6d706b9b800135360baa850e3408e6fbb1eb;hb=2b94bdc2496c384cd7cdb9d11aa7815e63c61f4a;hp=0000000000000000000000000000000000000000;hpb=b9f39a6f569f1c236246a859fe6d10203187e8ee;p=octave.git

diff --git a/tests/extended_rosenbrock_hessian1_tests.m b/tests/extended_rosenbrock_hessian1_tests.m
new file mode 100644
index 0000000..59eb6d7
--- /dev/null
+++ b/tests/extended_rosenbrock_hessian1_tests.m
@@ -0,0 +1,9 @@
+## When m=1 we should agree with rosenbrock_hessian1().
+
+x = [4;5];
+f1 = rosenbrock_hessian1(x);
+f2 = extended_rosenbrock_hessian1(x);
+
+unit_test_equals("(extended_)rosenbrock_hessian1 agree for m=1", ...
+		 true, ...
+		 f1 == f2);