summaryrefslogtreecommitdiffstats
path: root/net/ricketyspace
diff options
context:
space:
mode:
authorrsiddharth <s@ricketyspace.net>2020-07-03 12:29:04 -0400
committerrsiddharth <s@ricketyspace.net>2020-07-03 12:29:04 -0400
commitee104a655540013f56af071caa03219d504487fa (patch)
tree76537aae7fb7edc7188a50cb7c9cdc99e26e0ff8 /net/ricketyspace
parent29da8db3e118df9c71ec1f3fd2cb78dd87291bdc (diff)
fourteen/server.rkt: Fix test.
Diffstat (limited to 'net/ricketyspace')
-rw-r--r--net/ricketyspace/ror/fourteen/server.rkt4
1 files changed, 2 insertions, 2 deletions
diff --git a/net/ricketyspace/ror/fourteen/server.rkt b/net/ricketyspace/ror/fourteen/server.rkt
index 55d5f7b..5ec8c0f 100644
--- a/net/ricketyspace/ror/fourteen/server.rkt
+++ b/net/ricketyspace/ror/fourteen/server.rkt
@@ -731,8 +731,8 @@ The server is responsible for:
(make-bundle state (serial/broadcast-univ state) empty)))
;; eat-all-the-things
- (check-equal? (eat-all-the-things (ip iworld1 "player10" (body 11 0) '(1+10i)) (list (body 10 0)))
- empty)
+ (check-pred >= (length (eat-all-the-things (ip iworld1 "player10" (body 11 0) '(1+10i)) (list (body 10 0))))
+ 1)
(check-equal? (eat-all-the-things (ip iworld1 "player10" (body 10 0) '(1+10i)) (list (body 10 40+5i)))
(list (body 10 40+5i)))