tests/extended_rosenbrock1_tests.m

   1 ## Test the optimal point.
   2
   3 for m = [ 1 : 10 ]
   4   x = repmat([1;1], m, 1);
   5
   6   msg = sprintf("extended_rosenbrock1([1;1;...]) == 0 (m = %d)", m);
   7   unit_test_equals(msg, 0, extended_rosenbrock1(x));
   8 end
   9
  10 ## It should fail with the wrong number of coordinates.
  11 f = extended_rosenbrock1([1]);
  12 unit_test_equals("extended_rosenbrock1 fails when length(x) is odd", ...
  13                  true, ...
  14                  isna(f));