Mercurial > octave-nkf

changeset 13179:8c4a2c2cc2b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
blanks.m: Validate input is non-negative. * blanks.m: Validate input is non-negative.
author Rik <octave@nomad.inbox5.com>
date Tue, 20 Sep 2011 16:18:14 -0700
parents 89fb0e668825
children c215352ddb4f
files scripts/strings/blanks.m
diffstat 1 files changed, 9 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/strings/blanks.m	Tue Sep 20 16:08:53 2011 -0700
+++ b/scripts/strings/blanks.m	Tue Sep 20 16:18:14 2011 -0700
@@ -22,7 +22,7 @@
 ##
 ## @example
 ## @group
-## blanks(10);
+## blanks (10);
 ## whos ans;
 ##      @result{}
 ##       Attr Name        Size                     Bytes  Class
@@ -40,7 +40,7 @@
 
   if (nargin != 1)
     print_usage ();
-  elseif (! (isscalar (n) && n == round (n)))
+  elseif (! (isscalar (n) && n == fix (n) && n >= 0))
     error ("blanks: N must be a non-negative integer");
   endif
 
@@ -50,14 +50,16 @@
 
 endfunction
 
+
 ## There really isn't that much to test here
 %!assert(blanks (0), "")
 %!assert(blanks (5), "     ")
 %!assert(blanks (10), "          ")
 
-%!assert(strcmp (blanks (3), "   "));
+%% Test input validation
+%!error blanks ()
+%!error blanks (1, 2)
+%!error blanks (ones (2))
+%!error blanks (2.1)
+%!error blanks (-2)
 
-%!error blanks ();
-
-%!error blanks (1, 2);
-