From ee104a655540013f56af071caa03219d504487fa Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 3 Jul 2020 12:29:04 -0400 Subject: fourteen/server.rkt: Fix test. --- net/ricketyspace/ror/fourteen/server.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'net') 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))) -- cgit v1.2.3