: make-test-map ( -- Map )
    map.make
    "a" 1 map.set
    "b" 2 map.set
    "c" 3 map.set
;

: test-remove ( -- )
    make-test-map
    "b" map.remove
    "b" map.has? test.assert-not
;

: test-contains ( -- )
    make-test-map
    "a" map.has?
    test.assert
;
