prime/prime-test.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

(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")