From 557655e603bf80825c56daac25d930d1721f4193 Mon Sep 17 00:00:00 2001 From: Peter Tillemans Date: Thu, 25 Apr 2024 23:05:15 +0200 Subject: [PATCH] fix speed and start tests --- flappy-ball-test.lisp | 4 ++++ flappy-ball.asd | 2 +- flappy-ball.lisp | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/flappy-ball-test.lisp b/flappy-ball-test.lisp index 5f7651a..4bd5c7b 100644 --- a/flappy-ball-test.lisp +++ b/flappy-ball-test.lisp @@ -4,3 +4,7 @@ (in-package :flappy-ball-test) +(def-suite all-tests) + +(in-suite all-tests) + diff --git a/flappy-ball.asd b/flappy-ball.asd index b121992..05eaf93 100644 --- a/flappy-ball.asd +++ b/flappy-ball.asd @@ -9,7 +9,7 @@ :in-order-to ((asdf:test-op (test-op "flappy-ball-test")))) (asdf:defsystem "flappy-ball/test" - :depends-on ("flappy-ball fiveam") + :depends-on ("flappy-ball" "fiveam") :components ((:file "flappy-ball-test")) :perform (asdf:test-op (o c) (funcall (intern (format nil "RUN-~A" (symbol-name (asdf:component-name c))))))) diff --git a/flappy-ball.lisp b/flappy-ball.lisp index 180f9e3..4441c20 100644 --- a/flappy-ball.lisp +++ b/flappy-ball.lisp @@ -11,7 +11,7 @@ (copy-pixels nil) (ball (list (/ width 10) (/ height 3) 0)) (gravity 0.05) - (flap-speed -0.25) + (flap-speed -2.5) (ball-pen (make-pen :stroke (gray 0.5) :fill sketch:+yellow+ :weight 1)) (pipe-pen (make-pen :stroke (gray 0.5) :fill sketch:+green+ :weight 1)) (pipes '((200 200 100) (400 300 100) (600 400 100)))