diff options
| -rw-r--r-- | net/ricketyspace/ror/fourteen/server.rkt | 16 |
1 files changed, 16 insertions, 0 deletions
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)) |