ikarus/scheme/tests/div-and-mod.ss

(library (tests div-and-mod)
  (export test-div-and-mod test-div0-and-mod0)
  (import (ikarus))

  (define (test-div-and-mod)
    (define (test x1 x2)
      (let-values ([(d m) (div-and-mod x1 x2)])
        (printf "(div-and-mod ~s ~s) = ~s ~s\n" x1 x2 d m)
        (assert (= d (div x1 x2)))
        (assert (= m (mod x1 x2)))
        (assert (<= 0 m))
        (assert (< m (abs x2)))
        (assert (= x1 (+ (* d x2) m)))))

    (test +17 +3)
    (test +17 -3)
    (test -17 +3)
    (test -17 -3)
    (test +16 +3)
    (test +16 -3)
    (test -16 +3)
    (test -16 -3)
    (test +15 +3)
    (test +15 -3)
    (test -15 +3)
    (test -15 -3)
    (test +10 +4)
    (test +10 -4)
    (test -10 +4)
    (test -10 -4)
    
    (test +3 +5/6)
    (test -3 +5/6)
    (test +3 -5/6)
    (test -3 -5/6)

    (test +3 +7/11)
    (test -3 +7/11)
    (test +3 -7/11)
    (test -3 -7/11)




    )
  

  (define (test-div0-and-mod0)
    (define (test x1 x2)
      (let-values ([(d m) (div0-and-mod0 x1 x2)])
        (printf "(div0-and-mod0 ~s ~s) = ~s ~s\n" x1 x2 d m)
        (assert (= d (div0 x1 x2)))
        (assert (= m (mod0 x1 x2)))
        (assert (<= (- (abs (/ x2 2))) m))
        (assert (< m (abs (/ x2 2))))
        (assert (= x1 (+ (* d x2) m)))))
    (test +17 +3)
    (test +17 -3)
    (test -17 +3)
    (test -17 -3)
    (test +16 +3)
    (test +16 -3)
    (test -16 +3)
    (test -16 -3)
    (test +15 +3)
    (test +15 -3)
    (test -15 +3)
    (test -15 -3)
    (test +10 +4)
    (test +10 -4)
    (test -10 +4)
    (test -10 -4)
 
    (test +3 +5/6)
    (test -3 +5/6)
    (test +3 -5/6)
    (test -3 -5/6)

    (test +3 +7/11)
    (test -3 +7/11)
    (test +3 -7/11)
    (test -3 -7/11)

   
    (test (least-fixnum)    +1)
    (test (least-fixnum)    -1) ;; overflows
    (test (greatest-fixnum) +1)
    (test (greatest-fixnum) -1)
    (test (least-fixnum)    +2)
    (test (least-fixnum)    -2)
    (test (greatest-fixnum) +2)
    (test (greatest-fixnum) -2)

    (test 0 (least-fixnum))
    (test 0 (greatest-fixnum))
    (test +1 (least-fixnum))
    (test +1 (greatest-fixnum))
    (test -1 (least-fixnum))
    (test -1 (greatest-fixnum))
    (test +2 (least-fixnum))
    (test +2 (greatest-fixnum))
    (test -2 (least-fixnum))
    (test -2 (greatest-fixnum))

    (test (least-fixnum) (least-fixnum))
    (test (greatest-fixnum) (least-fixnum))
    (test (least-fixnum) (greatest-fixnum))
    (test (greatest-fixnum) (greatest-fixnum)))
  

  )