# HG changeset patch
# User Rik <rik@octave.org>
# Date 1523564365 25200
# Node ID 8a92b651838b204b3b28cf7a22500f48b1f1d25a
# Parent  b68abed2db2082e6505c967677804ef99ec1353d
primes.m: Improve input validation (bug #53472).

* primes.m: Accept only a numeric scalar for input N.
Add BIST test.

diff -r b68abed2db20 -r 8a92b651838b scripts/specfun/primes.m
--- a/scripts/specfun/primes.m	Thu Apr 12 12:11:34 2018 -0700
+++ b/scripts/specfun/primes.m	Thu Apr 12 13:19:25 2018 -0700
@@ -48,8 +48,8 @@
     print_usage ();
   endif
 
-  if (! isscalar (n))
-    error ("primes: N must be a scalar");
+  if (! (isnumeric (n) && isscalar (n)))
+    error ("primes: N must be a numeric scalar");
   endif
 
   if (n > 100e3)
@@ -107,4 +107,5 @@
 
 %!error primes ()
 %!error primes (1, 2)
-%!error <N must be a scalar> primes (ones (2,2))
+%!error <N must be a numeric scalar> primes ("1")
+%!error <N must be a numeric scalar> primes (ones (2,2))