tests/test-sub.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 15 3) 12) ; TODO test with bignum-range numbers
   7              "OK\n"
   8              "NAH\n"))