# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1428602047 14400
# Node ID cbba639b956bdde9886427393506d19e2230954e
# Parent  ac59136f1f10967e12f7619bf3f1cd2b0925209a
fail if single argument to assert is empty.  (bug #44793)

* assert.m: Also fail for single empty arguments. New tests.
Fix test for assert ([]).

diff -r ac59136f1f10 -r cbba639b956b scripts/testfun/assert.m
--- a/scripts/testfun/assert.m	Wed Apr 08 21:07:04 2015 -0400
+++ b/scripts/testfun/assert.m	Thu Apr 09 13:54:07 2015 -0400
@@ -76,7 +76,8 @@
     endif
 
     if (nargin == 1 || (nargin > 1 && islogical (cond) && ischar (varargin{1})))
-      if ((! isnumeric (cond) && ! islogical (cond)) || ! all (cond(:)))
+      if ((! isnumeric (cond) && ! islogical (cond))
+          || isempty (cond) || ! all (cond(:)))
         if (nargin == 1)
           ## Perhaps, say which elements failed?
           argin = ["(" strjoin(cellstr (argn), ",") ")"];
@@ -404,7 +405,10 @@
 
 
 ## empty input
-%!assert ([])
+%!error assert ([])
+%!error assert ("")
+%!error assert ({})
+%!error assert (struct ([]))
 %!assert (zeros (3,0), zeros (3,0))
 %!error <O\(3x0\)\s+E\(0x2\)> assert (zeros (3,0), zeros (0,2))
 %!error <Dimensions don't match> assert (zeros (3,0), [])