Mercurial > hg > octave-lyh

diff scripts/testfun/assert.m @ 6392:e8c42df3d234

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-07 18:20:46 by jwe]
author jwe
date Wed, 07 Mar 2007 18:20:47 +0000
parents 6110e7d4e4c4
children e68b6921b221
line wrap: on
line diff
--- a/scripts/testfun/assert.m
+++ b/scripts/testfun/assert.m
@@ -100,8 +100,8 @@
     endif
 
   elseif (isstruct (expected))
-    if (!isstruct (cond) || any(size(cond) != size(expected)) || ...
-	rows(struct_elements(cond)) != rows(struct_elements(expected)))
+    if (!isstruct (cond) || any(size(cond) != size(expected))
+	|| rows(struct_elements(cond)) != rows(struct_elements(expected)))
       iserror = 1;
     else
       try
@@ -121,7 +121,8 @@
   elseif (isempty (expected))
     iserror = (any (size (cond) != size (expected)));
 
-  elseif (any (size (cond) != size (expected)))
+  elseif (ndims (cond) != ndims (expected)
+	  || any (size (cond) != size (expected)))
     iserror = 1;
     coda = "Dimensions don't match";