# HG changeset patch
# User Rik <rik@octave.org>
# Date 1650314836 25200
# Node ID e0aabe59c1aad599cf3f1d6ce30097fae4560a8e
# Parent  4727765dbc892bc3203a80537a4c8e317ace9193
Add more BIST tests for bessel functions (Bug #62321)

* besselj.cc (Fbesselj): Add BIST test for bug #48316.
* besselj.cc (Fbesseli): Add BIST test from Octave mailing list.

diff -r 4727765dbc89 -r e0aabe59c1aa libinterp/corefcn/besselj.cc
--- a/libinterp/corefcn/besselj.cc	Mon Apr 18 13:02:35 2022 -0700
+++ b/libinterp/corefcn/besselj.cc	Mon Apr 18 13:47:16 2022 -0700
@@ -355,6 +355,10 @@
 
 /*
 %!# Function besselj is tested along with other bessels at the end of this file
+
+## besselj specific BIST
+%!assert <*48316> (! any (isnan (besselj (1, 10.^[5:12]))))
+
 */
 
 DEFUN (bessely, args, nargout,
@@ -466,6 +470,10 @@
 
 /*
 %!# Function besseli is tested along with other bessels at the end of this file
+
+## besseli specific BIST
+%!assert (! isinf (besseli (0, 700))) 
+
 */
 
 DEFUN (besselk, args, nargout,