# HG changeset patch
# User Rik <rik@octave.org>
# Date 1580436449 28800
# Node ID 79b583e31590d7a6764f1e616e995efaaab72193
# Parent  2e6dc7e2b191f84a5eddbbd64bcf192ca1125191
Segregate remaining failing rats() tests in to BIST test for bug #57704.

* pr-output.cc (Frats): New %!xtest for bug #57704 with two tests.

diff -r 2e6dc7e2b191 -r 79b583e31590 libinterp/corefcn/pr-output.cc
--- a/libinterp/corefcn/pr-output.cc	Thu Jan 30 17:43:56 2020 -0800
+++ b/libinterp/corefcn/pr-output.cc	Thu Jan 30 18:07:29 2020 -0800
@@ -3291,15 +3291,10 @@
 %! [old_fmt, old_spacing] = format ();
 %! unwind_protect
 %!   format short;
-%!   assert (rats (2.0005, 9), "4001/2000");
 %!   assert (rats (-2.0005, 10), "-4001/2000");
 %!   assert (strtrim (rats (2.0005, 30)), "4001/2000");
 %!   assert (pi - str2num (rats (pi, 30)), 0, 4 * eps);
 %!   assert (e - str2num (rats (e, 30)), 0, 4 * eps);
-%!   assert (rats (123, 2), " *");
-%!   v = 1 / double (intmax);
-%!   err = v - str2num (rats (v, 12));
-%!   assert (err, 0, 4 * eps);
 %! unwind_protect_cleanup
 %!   format (old_fmt);
 %!   format (old_spacing);
@@ -3314,6 +3309,17 @@
 
 %!assert <*57004> (rats ([]), '')
 
+%!xtest <57704>
+%! [old_fmt, old_spacing] = format ();
+%! unwind_protect
+%!   format short;
+%!   assert (rats (2.0005, 9), "4001/2000");
+%!   assert (rats (123, 2), " *");
+%! unwind_protect_cleanup
+%!   format (old_fmt);
+%!   format (old_spacing);
+%! end_unwind_protect
+
 */
 
 DEFUN (disp, args, nargout,