~ chicken-core (master) fa82ed9b624f30a9f31d37ca1dc353326674b4b8

commit fa82ed9b624f30a9f31d37ca1dc353326674b4b8
Author:     Peter McGoron <code@mcgoron.com>
AuthorDate: Wed Jul 29 16:09:47 2026 -0400
Commit:     Felix Winkelmann <felix.winkelmann@bevuta.com>
CommitDate: Wed Sep 9 13:45:42 2026 +0200

    add tests for (* 0 z) => 0

diff --git a/tests/numbers-test.scm b/tests/numbers-test.scm
index 0004b66f..f3c5c305 100644
--- a/tests/numbers-test.scm
+++ b/tests/numbers-test.scm
@@ -161,6 +161,10 @@
  (test-equal "*: comp*comp" (* c1 c1) (make-rectangular -847 2904))
  (test-equal "*: comp*comp (inexact)" (* c1 c2) (make-rectangular -1975.6 1399.2))
  (test-equal "*: multiarg" (* 33 44 55) 79860)
+ (test-equal "*: (* 0 z) => 0 for all z" (* 0 1.0) 0)
+ (test-equal "*: (* 0 +inf.0) => 0" (* 0 +inf.0) 0)
+ (test-equal "*: (* 0 -inf.0) => 0" (* 0 -inf.0) 0)
+ (test-equal "*: (* 0 +nan.0) => 0" (* 0 +nan.0) 0)
 )
 
 (test-group "division"