X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=tests%2Frandom_positive_definite_matrix_tests.m;fp=tests%2Frandom_positive_definite_matrix_tests.m;h=01afb4c8c2ff9bcae1d9d631cd796a80f705b155;hp=0000000000000000000000000000000000000000;hb=0fa5265cad135de24f0cc87195103396fdff3b91;hpb=577c70130e788e7e03520277fecb44a9b68fa463

diff --git a/tests/random_positive_definite_matrix_tests.m b/tests/random_positive_definite_matrix_tests.m
new file mode 100644
index 0000000..01afb4c
--- /dev/null
+++ b/tests/random_positive_definite_matrix_tests.m
@@ -0,0 +1,9 @@
+for n = [ 5, 10, 25, 50, 100 ]
+  A = random_positive_definite_matrix(n);
+  [R, P] = chol(A);
+
+  # chol() will set P=0 if A was symmetric positive-definite.
+  expected = 0;
+  msg = sprintf('random_positive_definite_matrix(%d) has a chol()', n);
+  unit_test_equals(msg, expected, P);
+end