Mercurial > hg > octave-max

changeset 11743:c7070f6cadc8 release-3-0-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't allow the use of lists in assert.m
author David Bateman <dbateman@free.fr>
date Wed, 09 Apr 2008 12:40:54 -0400
parents 9f83fb63f764
children eb0a86b3deb9
files scripts/ChangeLog scripts/testfun/assert.m
diffstat 2 files changed, 4 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-09  David Bateman  <dbateman@free.fr>
+
+	* testfun/assert.m: Don't allow cond and expected to be lists.
+
 2008-04-04  David Bateman  <dbateman@free.fr>
 
 	* deprecated/beta_cdf.m deprecated/beta_inv.m
--- a/scripts/testfun/assert.m
+++ b/scripts/testfun/assert.m
@@ -77,19 +77,6 @@
       error ("assert %s failed", in); # say which elements failed?
     endif
   
-  elseif (is_list (cond))
-    if (! is_list (expected) || length (cond) != length (expected))
-      iserror = 1;
-    else
-      try
-	for i = 1:length (cond)
-	  assert (nth (cond, i), nth (expected, i));
-	endfor
-      catch
-	iserror = 1;
-      end_try_catch
-    endif
-
   elseif (ischar (expected))
     iserror = (! ischar (cond) || ! strcmp (cond, expected));