22 lines
580 B
Scheme
22 lines
580 B
Scheme
(module 3-test mzscheme
|
|
(require (planet "test.ss" ("schematics" "schemeunit.plt" 1 2))
|
|
(planet "text-ui.ss" ("schematics" "schemeunit.plt" 1 2)))
|
|
(require (lib "contract.ss"))
|
|
(require "3.ss")
|
|
|
|
(define d
|
|
(put (put (put (initialize (flat-contract integer?) =) 'a 2) 'b 2) 'c 1))
|
|
|
|
(test/text-ui
|
|
(make-test-suite
|
|
"dictionaries"
|
|
(make-test-case
|
|
"value for"
|
|
(assert = (value-for d 'b) 2))
|
|
(make-test-case
|
|
"has?"
|
|
(assert-false (has? (remove d 'b) 'b)))
|
|
(make-test-case
|
|
"count"
|
|
(assert = 3 (count d))))))
|
|
|