# HG changeset patch
# User Eduardo Ramos (edu159) <eduradical951@gmail.com>
# Date 1411328233 14400
#      Sun Sep 21 15:37:13 2014 -0400
# Node ID a2dcc4b839fb31623bd4f79d0551a24402721c02
# Parent  09f5f95e5fcc98c3099d7e01c01920f69a710a47
* amd.cc: Tests added.

diff -r 09f5f95e5fcc -r a2dcc4b839fb libinterp/dldfcn/amd.cc
--- a/libinterp/dldfcn/amd.cc Wed Sep 17 16:52:41 2014 -0400
+++ b/libinterp/dldfcn/amd.cc Sun Sep 21 15:37:13 2014 -0400
@@ -189,7 +189,6 @@
                     Matrix Pout (1, n_col);
                     for (octave_idx_type i = 0; i < n_col; i++)
                       Pout.xelem (i) = P[i] + 1;
-
                     retval(0) = Pout;
                   }
                 }
@@ -204,3 +203,20 @@

   return retval;
 }
+/*
+%% Real matrices
+%!shared A, A2, opts
+%! A = ones (20, 30);
+%! A2 = ones (30, 30);
+%!
+%!test
+%!error <matrix S must be square> amd (A)
+%!error amd (A2, 2)
+%!error <matrix S is corrupted> amd([])
+%!test
+%! assert(amd (A2), [1:30])
+%! opts.dense = 25;
+%! assert(amd (A2, opts), [1:30])
+%! opts.aggressive = 1;
+%! assert(amd (A2, opts), [1:30])
+*/