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)
-```