From 36d22d82aa202bb199967e9512281e9a53db42c9 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 21:33:14 +0200
Subject: Adding upstream version 115.7.0esr.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 .../tests/non262/extensions/regress-363040-02.js   | 61 ++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 js/src/tests/non262/extensions/regress-363040-02.js

(limited to 'js/src/tests/non262/extensions/regress-363040-02.js')

diff --git a/js/src/tests/non262/extensions/regress-363040-02.js b/js/src/tests/non262/extensions/regress-363040-02.js
new file mode 100644
index 0000000000..8309d8c6be
--- /dev/null
+++ b/js/src/tests/non262/extensions/regress-363040-02.js
@@ -0,0 +1,61 @@
+/* -*- indent-tabs-mode: nil; js-indent-level: 2 -*- */
+/* This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
+
+//-----------------------------------------------------------------------------
+var BUGNUMBER = 363040;
+var summary = 'Array.prototype.reduce application in continued fraction';
+var actual = '';
+var expect = '';
+
+
+//-----------------------------------------------------------------------------
+test();
+//-----------------------------------------------------------------------------
+
+function test()
+{
+  printBugNumber(BUGNUMBER);
+  printStatus (summary);
+ 
+
+// Print x as a continued fraction in compact abbreviated notation and return
+// the convergent [n, d] such that x - (n / d) <= epsilon.
+  function contfrac(x, epsilon) {
+    let i = Math.floor(x);
+    let a = [i];
+    x = x - i;
+    let maxerr = x;
+    while (maxerr > epsilon) {
+      x = 1 / x;
+      i = Math.floor(x);
+      a.push(i);
+      x = x - i;
+      maxerr = x * maxerr / i;
+    }
+    print(a);
+    return a.reduceRight(function (x, y) {return [x[0] * y + x[1], x[0]];}, [1, 0]);
+  }
+
+  if (!Array.prototype.reduceRight)
+  {
+    print('Test skipped. Array.prototype.reduceRight not implemented');
+  }
+  else
+  {
+// Show contfrac in action on some interesting numbers.
+    for (num of [Math.PI, Math.sqrt(2), 1 / (Math.sqrt(Math.E) - 1)]) {
+      print('Continued fractions for', num);
+      for (eps of [1e-2, 1e-3, 1e-5, 1e-7, 1e-10]) {
+        let frac = contfrac(num, eps);
+        let est = frac[0] / frac[1];
+        let err = num - est;
+        print(frac, est, err);
+      }
+      print();
+    }
+  }
+
+  reportCompare(expect, actual, summary);
+}
-- 
cgit v1.2.3