~ chicken-core (master) 07340e70cb9f7f40659e822593fb824522d48f05


commit 07340e70cb9f7f40659e822593fb824522d48f05
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 1 14:52:24 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 1 14:52:24 2026 +0200

    add test for arg mixup case with complex number comparison
    
    (by Peter Bex)

diff --git a/tests/numbers-test.scm b/tests/numbers-test.scm
index f1d95386..7b1c0a85 100644
--- a/tests/numbers-test.scm
+++ b/tests/numbers-test.scm
@@ -344,6 +344,7 @@
    (test-equal "=: big/flo" (= b1 (+ 0.0 b1)) #t))
  (test-equal "=: big/big" (= b1 b1) #t)
  (test-equal "=: !big/big" (= b2 b1) #f)
+ (test-equal "=: !big/fix" (= b2 22) #f)
  (test-equal "=: rat/flo" (= r1 (+ r1 0.0)) #t)
  (test-equal "=: rat/rat" (= r1 r1) #t)
  (test-equal "=: !rat/rat" (= r1 r2) #f)
Trap