(use-modules (srfi srfi-64)
             (prime))

(test-begin "harness")


(test-equal "test-not-prime-0"
  #f
  (prime? 12))

(test-equal "test-not-prime-1"
  #f
  (prime? 21))

(test-equal "test-prime"
  #t
  (prime? 13))

(test-equal "test-prime-large"
  #t
  (prime? 1000033))

(test-equal "test-two"
  #t
  (prime? 2))

;; one is NOT considered prime!
(test-equal "test-one"
  #f
  (prime? 1))

;; zero is NOT considered prime!
(test-equal "test-zero"
  #f
  (prime? 0))

(test-equal "test-negative"
  #f
  (prime? -13))


(test-end "harness")