(test-begin "tiled")
(define mapdata (read-map (open-input-file "retropikzel/tiled/testmap.json")))
(write mapdata)
(newline)
(test-end "tiled")