# HG changeset patch
# User David Bateman <dbateman@free.fr>
# Date 1207759254 14400
# Node ID c7070f6cadc8d577f45a79cf00bfb65da33f25b4
# Parent  9f83fb63f764e8706eee7315fec001a8e835f42e
Don't allow the use of lists in assert.m

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- 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
diff --git a/scripts/testfun/assert.m b/scripts/testfun/assert.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));