;;; Testing out the TDD approach in Scheme.

(require
 (planet "test.ss" ("schematics" "schemeunit.plt" 1))
 (planet "text-ui.ss" ("schematics" "schemeunit.plt" 1))
 "money.ss")


(define money-tests
  (make-test-suite
   "Tests for money class from TDD Chapter 1"
   (make-test-case
    "test multiplication"
    (let ((five (make 5)))
      (times five 2)
      (assert-equal? 10 (amount five))))))



;; test run
(define (main args)
  (test/text-ui money-tests))