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


(define prob-tests
  (make-test-suite
   "prob.ss tests"

   (make-test-case
    "fact 0 ==> 1"
    (assert-equal? 1 (fact 0)))

   (make-test-case
    "fact 1 => 1"
    (assert-equal? 1 (fact 1)))

   (make-test-case
    "fact 2 ==> 2"
    (assert-equal? 2 (fact 2)))

   (make-test-case
    "fact 10 ==> (* 2 3 4 5 6 7 8 9 10)"
    (assert-equal? (* 2 3 4 5 6 7 8 9 10) (fact 10)))

  (make-test-case
   "perm 5 1 ==> 5"
   (assert-equal? 5 (perm 5 1)))

  (make-test-case
   "choose 5 2 ==> (/ (* 5 4) 2)"
   (assert-equal? (/ (* 5 4) 2) (choose 5 2)))


  ))
  



(test/text-ui prob-tests)