X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=tests%2Ftridiagonal_tests.m;fp=tests%2Ftridiagonal_tests.m;h=b93e36b8b0333bac25f051bfdbfcd36943c07e30;hp=0000000000000000000000000000000000000000;hb=b49076a1d3f7f9d7830a4da5d9958636b9e5d903;hpb=b89ed48b92e5b38b7c8df70c12e4b8cc275628df

diff --git a/tests/tridiagonal_tests.m b/tests/tridiagonal_tests.m
new file mode 100644
index 0000000..b93e36b
--- /dev/null
+++ b/tests/tridiagonal_tests.m
@@ -0,0 +1,26 @@
+A = tridiagonal(0, -1, 2, -1);
+expected = [];
+unit_test_equals("poisson tridiagonal of size zero is correct", ...
+		 expected, ...
+		 A);
+
+A = tridiagonal(1, -1, 2, -1);
+expected = [2];
+unit_test_equals("poisson tridiagonal of size one is correct", ...
+		 expected, ...
+		 A);
+
+A = tridiagonal(2, -1, 2, -1);
+expected = [2, -1; ...
+	    -1, 2];
+unit_test_equals("poisson tridiagonal of size two is correct", ...
+		 expected, ...
+		 A);
+
+A = tridiagonal(3, -1, 2, -1);
+expected = [2, -1, 0; ...
+	    -1, 2, -1;
+	    0, -1, 2];
+unit_test_equals("poisson tridiagonal of size three is correct", ...
+		 expected, ...
+		 A);