36 lines
683 B
Scheme
36 lines
683 B
Scheme
(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")
|
|
|
|
|
|
|