fix test in typed/proto.rkt
This commit is contained in:
parent
165dfeb6c8
commit
098ffa85cf
|
@ -646,9 +646,9 @@
|
||||||
(check-equal? sn0 (set 'seller))
|
(check-equal? sn0 (set 'seller))
|
||||||
(check-true (hash-has-key? seller# (set 'seller)))
|
(check-true (hash-has-key? seller# (set 'seller)))
|
||||||
(check-true (hash-has-key? seller# (set 'seller 'fulfill)))
|
(check-true (hash-has-key? seller# (set 'seller 'fulfill)))
|
||||||
(check-equal? (hash-keys seller#)
|
(check-equal? (list->set (hash-keys seller#))
|
||||||
(list (set 'seller 'fulfill)
|
(set (set 'seller 'fulfill)
|
||||||
(set 'seller)))
|
(set 'seller)))
|
||||||
(define st0 (hash-ref seller# (set 'seller)))
|
(define st0 (hash-ref seller# (set 'seller)))
|
||||||
(define transitions (state-transitions st0))
|
(define transitions (state-transitions st0))
|
||||||
(define quote-request
|
(define quote-request
|
||||||
|
|
Loading…
Reference in New Issue