(import (scheme base)
        (scheme write)
        (retropikzel tap)
        (retropikzel vector-keys)
        (srfi 64))

(test-runner-current (tap-runner))

(test-begin "vector-keys")

(test-begin "vector-keys")
(define player (make-vector 10 0))
(vector-keys player
             (player.x 0)
             (player.y 1))

(test-equal 0 (player.x))
(player.x 10)
(test-equal 10 (player.x))
(test-end "vector-keys")


(test-begin "let-vector-keys")
(let ((enemy (make-vector 10 0)))
  (let-vector-keys enemy
                   ((enemy.x 0)
                    (enemy.y 1))
    (enemy.x 100)
    (test-equal 100 (enemy.x))))
(test-end "let-vector-keys")

(test-end "vector-keys")