diff --git a/goblins/ocapn/captp-test.rkt b/goblins/ocapn/captp-test.rkt index 6c18af7..5a6c3ea 100644 --- a/goblins/ocapn/captp-test.rkt +++ b/goblins/ocapn/captp-test.rkt @@ -601,12 +601,12 @@ (let ([fork-factory-np (a-run (spawn ^kw-car-factory-np "fork"))]) (m1-run ($ m1-mycapn 'register fork-factory-np 'fake)))) (define fork-factory-np-vow (m2-run (<- m2-mycapn 'enliven fork-factory-np-sref))) - (<-np fork-factory-np-vow "expadition" #:color "blue" #:noise "brum")) + (<-np fork-factory-np-vow "exposition" #:color "blue" #:noise "brum")) (b-run (match (sync/timeout 0.5 result-ch) - [`(automobile ,red-expadition-vow) - (on (<- red-expadition-vow) + [`(automobile ,red-exposition-vow) + (on (<- red-exposition-vow) (lambda (noise) (async-channel-put result-ch `(ok ,noise))))] [_ #f])) @@ -614,4 +614,4 @@ (test-equal? "Sending keyword arguments over CapTP with <-np" (sync/timeout 0.5 result-ch) - '(ok "a blue fork expadition goes brum!")) + '(ok "a blue fork exposition goes brum!"))