X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=tests%2Fdiffusion_matrix_sparse_tests.m;fp=tests%2Fdiffusion_matrix_sparse_tests.m;h=735c79bdb3efba94f04cf7cea82e65d8ae4a5c79;hp=0000000000000000000000000000000000000000;hb=4c1c0fdc1eab7fbe1e322ff651e9c98357a8ce15;hpb=542e0bbc0bcde79e1366d4280cc0637cd43586d1

diff --git a/tests/diffusion_matrix_sparse_tests.m b/tests/diffusion_matrix_sparse_tests.m
new file mode 100644
index 0000000..735c79b
--- /dev/null
+++ b/tests/diffusion_matrix_sparse_tests.m
@@ -0,0 +1,11 @@
+expected_K = [2, -1, 0, 0, -1;
+	      -1, 2, -1, 0, 0;
+	      0, -1, 2, -1, 0;
+	      0, 0, -1, 2, -1;
+	      -1, 0, 0, -1, 2];
+
+actual_K = diffusion_matrix_sparse(5);
+
+unit_test_equals("diffusion_matrix_sparse(5) looks right", ...
+		 true, ...
+		 isequal(actual_K, expected_K));