add pipe tests

This commit is contained in:
Peter Tillemans 2024-04-27 13:34:41 +02:00
parent c0957683c8
commit b6dd72aeb8

View file

@ -22,7 +22,12 @@
(is (= (ball-size (ball-move ball 1 600)) 10)) (is (= (ball-size (ball-move ball 1 600)) 10))
(is (= (ball-velocity (ball-move ball 1 600)) 6.0)))) (is (= (ball-velocity (ball-move ball 1 600)) 6.0))))
(test test-pipe
(let ((pipe (make-pipe 10 200 100 20)))
(is (= (pipe-x pipe) 10))
(is (= (pipe-height pipe) 200))
(is (= (pipe-gap pipe) 100))
(is (= (pipe-width pipe) 20))))
(run-all-tests) (run-all-tests)
```