summaryrefslogtreecommitdiffstats
path: root/net/ricketyspace
diff options
context:
space:
mode:
Diffstat (limited to 'net/ricketyspace')
-rw-r--r--net/ricketyspace/ror/fourteen/server.rkt14
1 files changed, 14 insertions, 0 deletions
diff --git a/net/ricketyspace/ror/fourteen/server.rkt b/net/ricketyspace/ror/fourteen/server.rkt
index 7a7f9ad..078533b 100644
--- a/net/ricketyspace/ror/fourteen/server.rkt
+++ b/net/ricketyspace/ror/fourteen/server.rkt
@@ -1048,4 +1048,18 @@ The server is responsible for:
(check-equal? (broadcast-universe state)
(broadcast-universe state)))
+ ;; serialize-players-for
+ (let* ([waypoints1 (list (make-rectangular 383 212)
+ (make-rectangular 282 192))]
+ [waypoints2 (list (make-rectangular 918 319)
+ (make-rectangular 481 119)
+ (make-rectangular 129 321))]
+ [pls (list (ip iworld1 "player10" (body 10 1+10i) waypoints1)
+ (ip iworld2 "player345" (body 56 3+45i) waypoints2))]
+ [pl (first pls)])
+ (check-equal? (player-waypoints (first (serialize-players-for pl pls)))
+ waypoints1)
+ (check-equal? (player-waypoints (second (serialize-players-for pl pls)))
+ (list (make-rectangular 918 319))))
+
"server: all tests run")