fibonacci/fibonacci-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

(use-modules (srfi srfi-64)
             (fibonacci))

(test-begin "harness")

(test-equal "length-zero-sequence"
  '()
  (fibonacci 0))

(test-equal "length-one-sequence"
  '(0)
  (fibonacci 1))

(test-equal "length-three-sequence"
  '(0 1 1)
  (fibonacci 3))

(test-equal "length-fifteen-ssequence"
  '(0 1 1 2 3 5 8 13 21 34 55 89 144 233 377)
  (fibonacci 15))


(test-end "harness")