(load "unit-test.lisp")
(load "compound.lisp")

(unit
  (list

    (defun many-years-with-no-interest-rate ()
      (eq (compound 100000 0 10) 100000)
    )

    (defun no-years-with-positive-interest-rate ()
      (eq (compound 100000 10 0) 100000)
    )

    (defun one-year-with-positive-interest-rate ()
      (eq (compound 100000 5 1) 105000)
    )

    (defun two-years-with-positive-interest-rate ()
      (eq (compound 100000 5 2) 110250)
    )

    (defun three-years-with-positive-interest-rate ()
      (eq (compound 100000 5 3) 115763)
    )

    (defun four-years-with-positive-interest-rate ()
      (eq (compound 100000 5 4) 121551)
    )

  )
)