;; -*- compile-command: "guile -L . prime-test.scm"; -*-
(use-modules (srfi srfi-64)
             (prime))

(test-begin "harness")


(test-assert "test-not-prime-0"
  (not (prime? 12)))

(test-assert "test-not-prime-1"
  (not (prime? 21)))

(test-assert "test-prime"
  (prime? 13))

(test-assert "test-prime-large"
  (prime? 1000033))

(test-assert "test-two"
  (prime? 2))

;; one is NOT considered prime!
(test-assert "test-one"
  (not (prime? 1)))

;; zero is NOT considered prime!
(test-assert "test-zero"
  (not (prime? 0)))

(test-assert "test-negative"
  (not (prime? -13)))


(test-end "harness")