X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=tests%2Fis_upper_triangular_tests.m;fp=tests%2Fis_upper_triangular_tests.m;h=209eddecc1c02c5264ced28e4c2b69342b51998b;hp=0000000000000000000000000000000000000000;hb=542e0bbc0bcde79e1366d4280cc0637cd43586d1;hpb=ee2abb133ffec1ba0a9177cb290738ce7a188dcf

diff --git a/tests/is_upper_triangular_tests.m b/tests/is_upper_triangular_tests.m
new file mode 100644
index 0000000..209edde
--- /dev/null
+++ b/tests/is_upper_triangular_tests.m
@@ -0,0 +1,16 @@
+A = eye(5);
+unit_test_equals("eye(5) is upper-triangular", ...
+		 true, ...
+		 is_upper_triangular(A));
+
+A = [1, 2, 3; ...
+     0, 4, 5; ...
+     0, 0, 6];
+unit_test_equals("An upper-triangular matrix is upper-triangular", ...
+		 true, ...
+		 is_upper_triangular(A));
+
+
+unit_test_equals("A lower-triangular matrix is not upper-triangular", ...
+		 false, ...
+		 is_upper_triangular(A'));