blob: 69dfaf2487a699a7c948132952304ce72f139835 (
plain)
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
;; -*- compile-command: "guile -L . soe-test.scm"; -*-
(use-modules (srfi srfi-64)
(soe))
(test-begin "harness")
(test-equal "generate-initial-lst none"
'()
(generate-initial-lst 0))
(test-equal "generate-initial-lst two"
'()
(generate-initial-lst 2))
(test-equal "generate-initial-lst four"
'(3)
(generate-initial-lst 4))
(test-equal "generate-initial-lst five"
'(3 5)
(generate-initial-lst 5))
(test-equal "generate-initial-lst six"
'(3 5)
(generate-initial-lst 6))
(test-equal "generate-initial-lst 15"
'(3 5 7 9 11 13 15)
(generate-initial-lst 15))
(test-equal "generate-primes-to none"
'()
(generate-primes-to 0))
(test-equal "generate-primes-to two"
'(2)
(generate-primes-to 2))
(test-equal "generate-primes-to three"
'(2 3)
(generate-primes-to 3))
(test-equal "generate-primes-to nine"
'(2 3 5 7)
(generate-primes-to 9))
(test-equal "generate-primes-to thirteen"
'(2 3 5 7 11 13)
(generate-primes-to 13))
(test-equal "generate-primes-to 977 is 165th"
'(977 . 165)
(let ((primes (reverse (generate-primes-to 980))))
(cons (car primes) (length primes))))
(test-end "harness")
|
