17 lines
554 B
Racket
17 lines
554 B
Racket
#lang racket
|
|
(require rackunit rackunit/text-ui "1.rkt" "1b.rkt")
|
|
|
|
(add (make-basic-customer 'mf "matthias" "brookstone"))
|
|
(add (make-basic-customer 'rf "robby" "beverly hills park"))
|
|
(add (make-basic-customer 'fl "matthew" "pepper clouds town"))
|
|
(add (make-basic-customer 'sk "shriram" "i city"))
|
|
|
|
(run-tests
|
|
(test-suite
|
|
"manager"
|
|
(test-equal? "id lookup" "matthias" (name 'mf))
|
|
(test-equal? "count" 4 count)
|
|
(test-true "active?" (active? 'mf))
|
|
(test-false "active? 2" (active? 'kk))
|
|
(test-true "set name" (void? (set-name 'mf "matt")))))
|