Mercurial > hg > octave-max

changeset 13050:438b53faa9fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
codesprint: Add tests for spconvert.m * spconvert.m: Add tests.
author Rik <octave@nomad.inbox5.com>
date Sat, 03 Sep 2011 09:42:31 -0700
parents b37d8e5aedf3
children 42e12f94fe1e
files scripts/sparse/spconvert.m
diffstat 1 files changed, 22 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/sparse/spconvert.m
+++ b/scripts/sparse/spconvert.m
@@ -43,3 +43,25 @@
   endif
 
 endfunction
+
+
+%!test
+%! i = [1; 3; 5];
+%! j = [2; 4; 6];
+%! v = [7; 8; 9];
+%! s = spconvert ([i, j, v]); 
+%! assert (issparse (s));
+%! [fi, fj, fv] = find (s);
+%! assert (isequal (i, fi) && isequal (j, fj) && isequal (v, fv));
+%! s = spconvert ([i, j, v, j]);
+%! [fi, fj, fv] = find (s);
+%! assert (isequal (i, fi) && isequal (j, fj) && isequal (complex (v, j), fv));
+%! assert (size (spconvert ([1, 1, 3; 5, 15, 0])), [5, 15]);
+
+%% Test input validation
+%!error spconvert ()
+%!error spconvert (1, 2)
+%!error spconvert ({[1 2 3]})
+%!error spconvert ([1 2])
+%!error spconvert ([1 2 3i])
+%!error spconvert ([1 2 3 4 5])