summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/rect.scm174
1 files changed, 174 insertions, 0 deletions
diff --git a/tests/rect.scm b/tests/rect.scm
new file mode 100644
index 0000000..6da72fc
--- /dev/null
+++ b/tests/rect.scm
@@ -0,0 +1,174 @@
+;;; Chickadee Game Toolkit
+;;; Copyright © 2022 David Thompson <dthompson2@worcester.edu>
+;;;
+;;; Chickadee is free software: you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published
+;;; by the Free Software Foundation, either version 3 of the License,
+;;; or (at your option) any later version.
+;;;
+;;; Chickadee is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program. If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+(define-module (tests rect)
+ #:use-module (tests utils)
+ #:use-module (srfi srfi-64)
+ #:use-module (chickadee math)
+ #:use-module (chickadee math rect)
+ #:use-module (chickadee math vector))
+
+(with-tests "rect"
+ (let ((r (make-rect 1.0 2.0 3.0 4.0)))
+ (test-equal "rect-x" (rect-x r) 1.0)
+ (test-equal "rect-y" (rect-y r) 2.0)
+ (test-equal "rect-width" (rect-width r) 3.0)
+ (test-equal "rect-height" (rect-height r) 4.0)
+ (test-equal "rect-left" (rect-left r) 1.0)
+ (test-equal "rect-right" (rect-right r) 4.0)
+ (test-equal "rect-bottom" (rect-bottom r) 2.0)
+ (test-equal "rect-top" (rect-top r) 6.0)
+ (test-equal "rect-center-x" (rect-center-x r) 2.5)
+ (test-equal "rect-center-y" (rect-center-y r) 4.0)
+ (test-equal "rect-area" (rect-area r) 12.0)
+ (test-group "rect-clamp-x"
+ (test-equal "left" (rect-clamp-x r 0.5) 1.0)
+ (test-equal "right" (rect-clamp-x r 4.5) 4.0)
+ (test-equal "between" (rect-clamp-x r 2.0) 2.0))
+ (test-group "rect-clamp-y"
+ (test-equal "below" (rect-clamp-y r 1.0) 2.0)
+ (test-equal "above" (rect-clamp-y r 7.0) 6.0)
+ (test-equal "between" (rect-clamp-y r 3.0) 3.0)))
+ (test-equal "set-rect-x!"
+ (let ((r (make-null-rect)))
+ (set-rect-x! r 1.5)
+ (rect-x r))
+ 1.5)
+ (test-equal "set-rect-y!"
+ (let ((r (make-null-rect)))
+ (set-rect-y! r 1.5)
+ (rect-y r))
+ 1.5)
+ (test-equal "set-rect-width!"
+ (let ((r (make-null-rect)))
+ (set-rect-width! r 1.5)
+ (rect-width r))
+ 1.5)
+ (test-equal "set-rect-height!"
+ (let ((r (make-null-rect)))
+ (set-rect-height! r 1.5)
+ (rect-height r))
+ 1.5)
+ (test-equal "rect-move!"
+ (let ((r (make-null-rect)))
+ (rect-move! r 1.0 2.0)
+ r)
+ (make-rect 1.0 2.0 0.0 0.0))
+ (test-equal "rect-move-vec2!"
+ (let ((r (make-null-rect)))
+ (rect-move-vec2! r (vec2 1.0 2.0))
+ r)
+ (make-rect 1.0 2.0 0.0 0.0))
+ (test-equal "rect-move-by!"
+ (let ((r (make-rect 3.0 4.0 0.0 0.0)))
+ (rect-move-by! r 1.0 2.0)
+ r)
+ (make-rect 4.0 6.0 0.0 0.0))
+ (test-equal "rect-move-by-vec2!"
+ (let ((r (make-rect 3.0 4.0 0.0 0.0)))
+ (rect-move-by-vec2! r (vec2 1.0 2.0))
+ r)
+ (make-rect 4.0 6.0 0.0 0.0))
+ (test-equal "rect-inflate!"
+ (let ((r (make-rect 1.0 1.0 1.0 1.0)))
+ (rect-inflate! r 2.0 3.0)
+ r)
+ (make-rect 0.0 -0.5 3.0 4.0))
+ (test-equal "rect-union!"
+ (let ((r (make-rect 1.0 2.0 1.0 2.0)))
+ (rect-union! r (make-rect 3.0 4.0 1.0 1.0))
+ r)
+ (make-rect 1.0 2.0 3.0 3.0))
+ (test-group "rect-clip!"
+ (test-equal "overlapping"
+ (let ((r (make-rect 0.0 0.0 4.0 5.0)))
+ (rect-clip! r (make-rect 3.0 4.0 3.0 3.0))
+ r)
+ (make-rect 3.0 4.0 1.0 1.0))
+ (test-equal "non-overlapping"
+ (let ((r (make-rect 0.0 0.0 1.0 1.0)))
+ (rect-clip! r (make-rect 3.0 4.0 1.0 1.0))
+ r)
+ (make-rect 3.0 4.0 0.0 0.0)))
+ (test-equal "vec2-clamp-to-rect!"
+ (let ((v (vec2 0.0 0.0)))
+ (vec2-clamp-to-rect! v (make-rect 1.0 2.0 1.0 1.0))
+ v)
+ (vec2 1.0 2.0))
+ (test-equal "rect-clamp!"
+ (let ((r (make-rect 0.0 0.0 1.0 2.0)))
+ (rect-clamp! r (make-rect 3.0 4.0 5.0 6.0))
+ r)
+ (make-rect 3.0 4.0 1.0 2.0))
+ (test-equal "rect-move"
+ (rect-move (make-null-rect) 1.0 2.0)
+ (make-rect 1.0 2.0 0.0 0.0))
+ (test-equal "rect-move-vec2"
+ (rect-move-vec2 (make-null-rect) (vec2 1.0 2.0))
+ (make-rect 1.0 2.0 0.0 0.0))
+ (test-equal "rect-move-by"
+ (rect-move-by (make-rect 3.0 4.0 0.0 0.0) 1.0 2.0)
+ (make-rect 4.0 6.0 0.0 0.0))
+ (test-equal "rect-move-by-vec2"
+ (rect-move-by-vec2 (make-rect 3.0 4.0 0.0 0.0) (vec2 1.0 2.0))
+ (make-rect 4.0 6.0 0.0 0.0))
+ (test-equal "rect-inflate"
+ (rect-inflate (make-rect 1.0 1.0 1.0 1.0) 2.0 3.0)
+ (make-rect 0.0 -0.5 3.0 4.0))
+ (test-equal "rect-union"
+ (rect-union (make-rect 1.0 2.0 1.0 2.0) (make-rect 3.0 4.0 1.0 1.0))
+ (make-rect 1.0 2.0 3.0 3.0))
+ (test-group "rect-clip"
+ (test-equal "overlapping"
+ (rect-clip (make-rect 0.0 0.0 4.0 5.0) (make-rect 3.0 4.0 3.0 3.0))
+ (make-rect 3.0 4.0 1.0 1.0))
+ (test-equal "non-overlapping"
+ (rect-clip (make-rect 0.0 0.0 1.0 1.0) (make-rect 3.0 4.0 1.0 1.0))
+ (make-rect 3.0 4.0 0.0 0.0)))
+ (test-equal "vec2-clamp-to-rect"
+ (vec2-clamp-to-rect (vec2 0.0 0.0) (make-rect 1.0 2.0 1.0 1.0))
+ (vec2 1.0 2.0))
+ (test-equal "rect-clamp"
+ (rect-clamp (make-rect 0.0 0.0 1.0 2.0) (make-rect 3.0 4.0 5.0 6.0))
+ (make-rect 3.0 4.0 1.0 2.0))
+ (test-group "rect-within?"
+ (test-assert "no overlap"
+ (not (rect-within? (make-rect 0.0 0.0 1.0 1.0)
+ (make-rect 2.0 2.0 1.0 1.0))))
+ (test-assert "some overlap"
+ (not (rect-within? (make-rect 1.5 1.5 1.0 1.0)
+ (make-rect 2.0 2.0 1.0 1.0))))
+ (test-assert "full overlap"
+ (rect-within? (make-rect 0.0 0.0 4.0 4.0)
+ (make-rect 2.0 2.0 1.0 1.0))))
+ (test-group "rect-intersects?"
+ (test-assert "no overlap"
+ (not (rect-intersects? (make-rect 0.0 0.0 1.0 1.0)
+ (make-rect 2.0 2.0 1.0 1.0))))
+ (test-assert "overlap"
+ (rect-intersects? (make-rect 1.5 1.5 1.0 1.0)
+ (make-rect 2.0 2.0 1.0 1.0))))
+ (test-group "rect-contains?"
+ (test-assert "outside"
+ (not (rect-contains? (make-rect 1.0 2.0 3.0 4.0) 5.0 1.0)))
+ (test-assert "inside"
+ (rect-contains? (make-rect 1.0 2.0 3.0 4.0) 3.0 4.0)))
+ (test-group "rect-contains-vec2?"
+ (test-assert "outside"
+ (not (rect-contains-vec2? (make-rect 1.0 2.0 3.0 4.0) (vec2 5.0 1.0))))
+ (test-assert "inside"
+ (rect-contains-vec2? (make-rect 1.0 2.0 3.0 4.0) (vec2 3.0 4.0)))))