X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=tests%2Fpoisson_matrix_tests.m;fp=tests%2Fpoisson_matrix_tests.m;h=4b50b2e7553bc8ef3b47b50f210beb1828ea9b7e;hp=0000000000000000000000000000000000000000;hb=ef3085ef3c40eab925219bad1c6dbb2c6e106727;hpb=33e4dd7a64f35fb22774d59af11f5670ab566fbc

diff --git a/tests/poisson_matrix_tests.m b/tests/poisson_matrix_tests.m
new file mode 100644
index 0000000..4b50b2e
--- /dev/null
+++ b/tests/poisson_matrix_tests.m
@@ -0,0 +1,9 @@
+expected_A = [-1, 0, 0, 0, 0; ...
+              -16, 32,  -16,  0,  0; ...
+	      0,   -16, 32,  -16, 0; ...
+	      0,   0,   -16, 32, -16; ...
+	      0,   0,   0,   0,  -1];
+
+unit_test_equals("Homework #1 problem #1 Poisson matrix is correct", ...
+		 true, ...
+		 expected_A == poisson_matrix(4, 0, 1));