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