;; -*- compile-command: "guile -L . cs-test.scm"; -*-
(use-modules (srfi srfi-64)
             (cs))


(test-begin "harness")

(define den '(1))

(test-equal "make one from ones"
  '(1)
  (cs 1 den))

(test-equal "make two from ones"
  '(1 1)
  (cs 2 den))

(set! den '(1 2))

(test-equal "make one from ones, twos"
  '(1)
  (cs 1 den))

(test-equal "make two from ones, twos"
  '(1 2)
  (cs 2 den))

(set! den '(2 3 5))

(test-equal "make 3 from twos, threes, fives"
  '(0 1 1)
  (cs 3 den))

(test-equal "make 5 from twos, threes, fives"
  '(0 1 1 1 2)
  (cs 5 den))

(set! den '(1 2 5 10 20 50 100 200))

(test-equal "make 8 from pence"
  '(1 2 2 3 4 5 6 7 8 11 12 15 16)
  (cs 13 den))


(test-end "harness")