run-tests.m

   1 #!/usr/bin/octave --silent
   2
   3 unit_init(1, {});
   4
   5 unit_test_equals("sin[0] == 0", ...
   6                  0, ...
   7                  divided_difference(@sin, 0));
   8
   9 unit_test_equals("sin[0, pi] == 0", ...
  10                  0, ...
  11                  divided_difference(@sin, [0,pi]));
  12
  13 unit_test_equals("sin[0, pi, 2*pi] == 0", ...
  14                  0, ...
  15                  divided_difference(@sin, [0,pi,2*pi]));