;; -*- 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")