Mercurial > octave
diff scripts/general/isequal.m @ 17278:79d4b6089968
Fix isequal for sparse matrix (bug #37321)
* Sparse-op-defs.h (SPARSE_BASE_REDUCTION_OP): Fix typo in indexing
* __isequal__.m: Always return logical
* isequal.m, Sparse.cc: Add tests
| author | Stefan Mahr <dac922@gmx.de> |
|---|---|
| date | Mon, 19 Aug 2013 11:19:41 +0200 |
| parents | a7b2fc7fe1a9 |
| children | d63878346099 |
line wrap: on
line diff
--- a/scripts/general/isequal.m Mon Aug 19 08:09:04 2013 -0400 +++ b/scripts/general/isequal.m Mon Aug 19 11:19:41 2013 +0200 @@ -74,6 +74,11 @@ ## test for inequality (struct) %!assert (isequal (struct ('a',NaN,'b',2),struct ('a',NaN,'b',2),struct ('a',NaN,'b',2)), false) +## test for sparse matrices +%!assert (isequal (sparse (0,1), sparse (0,1)), true) +%!assert (isequal (sparse (0,1), sparse (1,0)), false) +%!assert (isequal (sparse (2, 2), sparse (2, 2)), true) + ## Input validation %!error isequal () %!error isequal (1)