fixups to tests

This commit is contained in:
Sam Caldwell 2020-11-30 17:49:03 -05:00
parent 6dd369b08f
commit c20d075d03
1 changed files with 6 additions and 6 deletions

View File

@ -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
@ -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