tests/test-add.scm

   1 ;; very simple sanity test for bignums
   2 (define (foo x y)
   3   (+ x y))
   4
   5 ;(foo 1 3)
   6 (display (if (= (foo 1 3) 4) ; TODO test with bignum-range numbers
   7              "OK\n"
   8              "NAH\n"))