3_04.test.rkt

#lang racket

(require rackunit  rackunit/text-ui)
(require (only-in "../solutions/3_04.rkt" make-account))

(define (cops) "Calling to cops")

(define tests
  (test-suite
    "Test for exercise 3_03"
    (test-case
      "Test for make-accoutn"
      (define acc (make-account 100 'pass cops))
      ((acc 'pass 'withdrow) 30)
      ((acc 'pass 'deposit) 50)
      (check-equal? ((acc 'pass 'withdrow) 120) 0)
      (check-equal? ((acc 'pass 'withdrow) 120) "Not enough money")
      (check-equal? ((acc 'wrong-pass 'deposit) 120) "Wrong password")
      (check-equal? ((acc 'pass 'deposit) 30) 30)
      (check-equal? ((acc 'wrong-pass 'deposit) 120) "Wrong password")
      (check-equal? ((acc 'wrong-pass 'deposit) 120) "Wrong password")
      (check-equal? ((acc 'wrong-pass 'deposit) 120) "Wrong password")
      (check-equal? ((acc 'wrong-pass 'deposit) 120) "Calling to cops"))))

(run-tests tests 'verbose)