tests/is_upper_triangular_tests.m

   1 A = eye(5);
   2 unit_test_equals("eye(5) is upper-triangular", ...
   3                  true, ...
   4                  is_upper_triangular(A));
   5
   6 A = [1, 2, 3; ...
   7      0, 4, 5; ...
   8      0, 0, 6];
   9 unit_test_equals("An upper-triangular matrix is upper-triangular", ...
  10                  true, ...
  11                  is_upper_triangular(A));
  12
  13
  14 unit_test_equals("A lower-triangular matrix is not upper-triangular", ...
  15                  false, ...
  16                  is_upper_triangular(A'));