Mercurial > hg > octave-nkf

diff scripts/general/isequal.m @ 17278:79d4b6089968

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
+++ b/scripts/general/isequal.m
@@ -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)