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