fixups to tests
This commit is contained in:
parent
6dd369b08f
commit
c20d075d03
|
@ -646,8 +646,8 @@
|
||||||
(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))
|
||||||
|
@ -2700,10 +2700,10 @@
|
||||||
"job manager reads and compiles"
|
"job manager reads and compiles"
|
||||||
(define jmr (run/timeout (thunk (parse-T job-manager-actual))))
|
(define jmr (run/timeout (thunk (parse-T job-manager-actual))))
|
||||||
(check-true (Role? jmr))
|
(check-true (Role? jmr))
|
||||||
(define jm (run/timeout (thunk (compile jmr))))
|
(define jm (run/timeout (thunk (compile jmr)) 5000))
|
||||||
(check-true (role-graph? jm))
|
(check-true (role-graph? jm))
|
||||||
(define jmi (run/timeout (thunk (compile/internal-events jm jmr))))
|
(define jmi (run/timeout (thunk (compile/internal-events jm jmr)) 5000))
|
||||||
(check-true (run/timeout (thunk (simulates?/rg jmi jmi))))))
|
(check-true (run/timeout (thunk (simulates?/rg jmi jmi)) 5000))))
|
||||||
|
|
||||||
(define task-runner-ty
|
(define task-runner-ty
|
||||||
'(Role
|
'(Role
|
||||||
|
|
Loading…
Reference in New Issue