X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=tests%2Fconjugate_gradient_method_tests.m;fp=tests%2Fconjugate_gradient_method_tests.m;h=56987a50ac0615b1bcaf61458872cb72d67c0355;hp=0000000000000000000000000000000000000000;hb=336f1181f7f065a07ee58bd772a875f7f4b39247;hpb=30c26967dbc89131a09979fa8937eac0ef7a73b4

diff --git a/tests/conjugate_gradient_method_tests.m b/tests/conjugate_gradient_method_tests.m
new file mode 100644
index 0000000..56987a5
--- /dev/null
+++ b/tests/conjugate_gradient_method_tests.m
@@ -0,0 +1,16 @@
+A = [5,1,2; ...
+     1,6,3;
+     2,3,7];
+
+b = [1;2;3];
+
+x0 = [1;1;1];
+
+## Solved over the rationals.
+expected = [2/73; 11/73; 26/73];
+actual = conjugate_gradient_method(A, b, x0, 1e-6);
+diff = norm(actual - expected);
+
+unit_test_equals("CGM works on an example", ...
+		 true, ...
+		 norm(diff) < 1e-6);