[Maxima-commits] [git] Maxima CAS branch dodier-iterate-over-hash-tables updated. branch-5_48-base-299-gf15e78140

[<ap...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Maxima CAS".

The branch, dodier-iterate-over-hash-tables has been updated
       via  f15e78140817d544ca99187da4499ea87fb89f0f (commit)
      from  89d7b7a46acdb7e1fcbfd52cffe422958aa826d7 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit f15e78140817d544ca99187da4499ea87fb89f0f
Author: Robert Dodier <rob...@so...>
Date:   Sat Nov 29 10:43:06 2025 -0800

    Additional tests for iterating over hash tables; one loop variable, no destructuring.

diff --git a/tests/rtest6.mac b/tests/rtest6.mac
index 531dad995..4ca02d4bf 100644
--- a/tests/rtest6.mac
+++ b/tests/rtest6.mac
@@ -253,6 +253,18 @@ true;
 a: 100;
 100;
 
+block ([L: []], for a in aa1 do push ([a[2], a[1]], L), sort (L));
+[[111, ["foo"]], [222, ["bar"]], [333, ["baz"]], [444, ["quux"]]];
+
+a;
+100;
+
+block ([L: []], for b in aa1 do push ([b[2], b[1]], L), sort (L));
+[[111, ["foo"]], [222, ["bar"]], [333, ["baz"]], [444, ["quux"]]];
+
+b;
+b;
+
 block ([L: []], for [a, b] in aa1 do push ([b, a], L), sort (L));
 [[111, ["foo"]], [222, ["bar"]], [333, ["baz"]], [444, ["quux"]]];
 
@@ -273,6 +285,18 @@ block ([L: []], for [[a], b] in aa1 do push ([b, a], L), sort (L));
 ?hash\-table\-p (aa2);
 true;
 
+block ([L: []], for a in aa2 do push ([a[2], a[1]], L), sort (L));
+[[%e, [jj, 543]], [%phi, [cc, 1099]], [%pi, [xx, 99]]];
+
+a;
+100;
+
+block ([L: []], for b in aa2 do push ([b[2], b[1]], L), sort (L));
+[[%e, [jj, 543]], [%phi, [cc, 1099]], [%pi, [xx, 99]]];
+
+b;
+b;
+
 block ([L: []], for [a, b] in aa2 do push ([b, a], L), sort (L));
 [[%e, [jj, 543]], [%phi, [cc, 1099]], [%pi, [xx, 99]]];
 
@@ -302,6 +326,14 @@ true;
 [b, a];
 [-2, 100];
 
+block ([L: []], for b in aa3 do push ([b[1], b[2]], L), sort (L));
+[[["fgh", 3*u*v, giraffe], rhino*elephant],
+ [["glorble", 7*x, emu], 6/cricket],
+ [["mno", "pqr", 1 - 2*u], bessel_j (2, 1 - sqrt(x))]];
+
+b;
+-2;
+
 block ([L: []], for [b, a] in aa3 do push ([b, a], L), sort (L));
 [[["fgh", 3*u*v, giraffe], rhino*elephant],
  [["glorble", 7*x, emu], 6/cricket],
@@ -340,6 +372,12 @@ true;
 (f: 199, g: 200);
 200;
 
+block ([L: []], for g in hh1 do push ([g[2], g[1]], L), sort (L));
+[[cos(w), [3 - y]], [tan(x), [1/(1 + z)]], [sin(z), [1 + x]]];
+
+g;
+200;
+
 block ([L: []], for [f, g] in hh1 do push ([g, f], L), sort (L));
 [[cos(w), [3 - y]], [tan(x), [1/(1 + z)]], [sin(z), [1 + x]]];
 
@@ -366,6 +404,14 @@ true;
  0);
 0;
 
+block ([L: []], for y in hh2 do push ([y[1], y[2]], L), sort (L));
+[[[456, cos(w)], sin(u) - cos(v)],
+ [[678, "blurf"], 876 - mumble],
+ [[987, "sdf"], 777*zxy]];
+
+y;
+y;
+
 block ([L: []], for [x, y] in hh2 do push ([x, y], L), sort (L));
 [[[456, cos(w)], sin(u) - cos(v)],
  [[678, "blurf"], 876 - mumble],
@@ -396,6 +442,14 @@ true;
  0);
 0;
 
+block ([L: []], for q in hh3 do push ([q[1], q[2]], L), sort (L));
+[[[asdfg, 1 - rewq, 2*treww], sin(poiur) - cos(kjghds)],
+ [[ewq, 2 - jdssaaq, 3*cxmmz], sqrt(ytre)],
+ [[hgf, fds, jhg], cos(trwq)]];
+
+q;
+q;
+
 block ([L: []], for [p, q] in hh3 do push ([p, q], L), sort (L));
 [[[asdfg, 1 - rewq, 2*treww], sin(poiur) - cos(kjghds)],
  [[ewq, 2 - jdssaaq, 3*cxmmz], sqrt(ytre)],
@@ -431,6 +485,12 @@ false;
 arrays;
 [bb1];
 
+block ([L: []], for v in bb1 do push ([v[2], v[1]], L), sort (L));
+[[123, ["mumble"]], [234, ["blarf"]], [345, ["blarg"]], [999, ["blurf"]]];
+
+v;
+v;
+
 block ([L: []], for [u, v] in bb1 do push ([v, u], L), sort (L));
 [[123, ["mumble"]], [234, ["blarf"]], [345, ["blarg"]], [999, ["blurf"]]];
 
@@ -454,6 +514,12 @@ arrays;
 w: 321;
 321;
 
+block ([L: []], for w in bb2 do push ([w[1], w[2]], L), sort (L));
+[[["hgfedc", 3 - blurf], tan(n*%pi)], [["pqr", 1 + %pi], sin(k*%pi)], [["zxy", 2*%pi], cos(m*%pi)]];
+
+w;
+321;
+
 block ([L: []], for [v, w] in bb2 do push ([v, w], L), sort (L));
 [[["hgfedc", 3 - blurf], tan(n*%pi)], [["pqr", 1 + %pi], sin(k*%pi)], [["zxy", 2*%pi], cos(m*%pi)]];
 
@@ -480,6 +546,14 @@ block ([L: []], for [[v1, v2], w] in bb2 do push ([v1, v2, w], L), sort (L));
 arrays;
 [bb1, bb2, bb3];
 
+block ([L: []], for v in bb3 do push ([v[1], v[2]], L), sort (L));
+[[[hjk, "mumble", cos(y) - x], cot(a - b)],
+ [[uvw, "qwerty", foo(z) + q], sec(2*b - a)],
+ [[zxy, "blah", cos(a) + cos(b)], tan(a + b)]];
+
+v;
+v;
+
 block ([L: []], for [w, v] in bb3 do push ([w, v], L), sort (L));
 [[[hjk, "mumble", cos(y) - x], cot(a - b)],
  [[uvw, "qwerty", foo(z) + q], sec(2*b - a)],

-----------------------------------------------------------------------

Summary of changes:
 tests/rtest6.mac | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 74 insertions(+)


hooks/post-receive
-- 
Maxima CAS