From b6dd72aeb89b97c29f5eff6726843866315bc5c9 Mon Sep 17 00:00:00 2001 From: Peter Tillemans Date: Sat, 27 Apr 2024 13:34:41 +0200 Subject: [PATCH] add pipe tests --- flappy-ball-test.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/flappy-ball-test.lisp b/flappy-ball-test.lisp index 2db80ad..e729b90 100644 --- a/flappy-ball-test.lisp +++ b/flappy-ball-test.lisp @@ -22,7 +22,12 @@ (is (= (ball-size (ball-move ball 1 600)) 10)) (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) -```