diff options
| author | rsiddharth <s@ricketyspace.net> | 2020-07-03 12:29:04 -0400 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2020-07-03 12:29:04 -0400 |
| commit | ee104a655540013f56af071caa03219d504487fa (patch) | |
| tree | 76537aae7fb7edc7188a50cb7c9cdc99e26e0ff8 /net/ricketyspace | |
| parent | 29da8db3e118df9c71ec1f3fd2cb78dd87291bdc (diff) | |
fourteen/server.rkt: Fix test.
Diffstat (limited to 'net/ricketyspace')
| -rw-r--r-- | net/ricketyspace/ror/fourteen/server.rkt | 4 |
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))) |