From 899ab5e803a38e0ca4d84a245b3c0697f2fd613d Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 3 Jul 2020 15:45:02 -0400 Subject: fourteen/server.rkt: Add tests for get-ips --- net/ricketyspace/ror/fourteen/server.rkt | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/net/ricketyspace/ror/fourteen/server.rkt b/net/ricketyspace/ror/fourteen/server.rkt index 21485a5..7a7f9ad 100644 --- a/net/ricketyspace/ror/fourteen/server.rkt +++ b/net/ricketyspace/ror/fourteen/server.rkt @@ -1000,6 +1000,22 @@ The server is responsible for: empty empty)) (list iworld1)) + + ;; get-ips + (let ([players (list (ip iworld1 "player10" (body 10 1+10i) empty) + (ip iworld2 "player345" (body 56 3+45i) empty))] + [spectators (list (ip iworld1 "player10" (body 15 2+65i) empty))]) + (check-equal? (get-ips (play players + (list (body 87 67+23i) + (body 5 3+4i)) + spectators)) + (append players spectators)) + (check-equal? (get-ips (play (list (first players)) + (list (body 87 67+23i) + (body 5 3+4i)) + empty)) + (append (list (first players)) empty))) + ;; broadcast (check-equal? (broadcast (list iworld1 iworld3 iworld2) '(testing testing 1 2 3)) -- cgit v1.2.3