Tests added to the repository.

[picobit/chj.git] / tests / test-mul.scm

;; very simple sanity test for bignums
(define (foo x y)
  (* x y))

;(foo 1 3)
(display (if (= (foo 15 3) 45) ; TODO test with bignum-range numbers
             "OK\n"
             "NAH\n"))