20 lines
660 B
Scheme
20 lines
660 B
Scheme
#lang mzscheme
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
|
|
(planet "text-ui.ss" ("schematics" "schemeunit.plt" 2)))
|
|
(require "1.ss" "1b.ss")
|
|
|
|
(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"))
|
|
|
|
(test/text-ui
|
|
(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")))))
|
|
|