pti/flappy-ball
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add pipe tests

Browse source
This commit is contained in:
Peter Tillemans 2024-04-27 13:34:41 +02:00
parent c0957683c8
commit b6dd72aeb8
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
flappy-ball-test.lisp
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)
```