Browse Source

Stop using car models that actually exist

Apparently I am good at picking names which already exist either from
sheer luck or something subconscious. Change the model of the car in the
CapTP away from that of a real car model.
fix-gitlab-ci
Jessica Tallon 3 years ago
parent
commit
64774a40ed
  1. 8
      goblins/ocapn/captp-test.rkt

8
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!"))

Loading…
Cancel
Save