Mercurial > octave-nkf
diff scripts/sparse/svds.m @ 14182:f8d99761244c stable
test: Expand %!testif functionality to multiple conditions
* test.m: Add testing for multiple conditions in %!testif statement.
* svds.m, eigs.cc: Test for ARPACK and other libraries before running
some tests.
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Mon, 09 Jan 2012 13:32:44 -0800 |
parents | 834df9f10963 |
children | 4d917a6a858b |
line wrap: on
line diff
--- a/scripts/sparse/svds.m Mon Jan 09 15:19:21 2012 -0500 +++ b/scripts/sparse/svds.m Mon Jan 09 13:32:44 2012 -0800 @@ -264,13 +264,13 @@ %! assert (flag, !1); %! assert (s2, s(end:-1:end-k+1), 1e-10); %! -%!testif HAVE_UMFPACK +%!testif HAVE_ARPACK, HAVE_UMFPACK %! [u2,s2,v2,flag] = svds (A,k,0,opts); %! s2 = diag (s2); %! assert (flag, !1); %! assert (s2, s(k:-1:1), 1e-10); %! -%!testif HAVE_UMFPACK +%!testif HAVE_ARPACK, HAVE_UMFPACK %! idx = floor(n/2); %! % Don't put sigma right on a singular value or there are convergence issues %! sigma = 0.99*s(idx) + 0.01*s(idx+1);