From b64e503ffd72bbbce4d9e299f4d96c7448172875 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 22 Mar 2023 18:46:01 -0400 Subject: Add generic math module. --- tests/math.scm | 99 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 99 insertions(+) create mode 100644 tests/math.scm (limited to 'tests') diff --git a/tests/math.scm b/tests/math.scm new file mode 100644 index 0000000..916bca3 --- /dev/null +++ b/tests/math.scm @@ -0,0 +1,99 @@ +;;; Catbird Game Engine +;;; Copyright © 2023 David Thompson +;;; +;;; Catbird 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. +;;; +;;; Catbird 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 Catbird. If not, see . +(define-module (tests math) + #:use-module (catbird math) + #:use-module (chickadee math vector) + #:use-module (srfi srfi-64) + #:use-module (tests utils)) + +(with-tests "math" + (test-group "vec" + (test-equal "with 2 numbers" + (vec2 1.0 2.0) + (vec 1.0 2.0)) + (test-equal "with 3 numbers" + (vec3 1.0 2.0 3.0) + (vec 1.0 2.0 3.0)) + (test-equal "with a number and a vec2" + (vec3 1.0 2.0 3.0) + (vec 1.0 (vec 2.0 3.0))) + (test-equal "with a vec2 and a number" + (vec3 1.0 2.0 3.0) + (vec (vec 1.0 2.0) 3.0))) + (test-group "+" + (test-equal "with 2 vec2s" + (vec2 4.0 6.0) + (+ (vec 1.0 2.0) (vec 3.0 4.0))) + (test-equal "with a vec2 and a number" + (vec2 4.0 5.0) + (+ (vec 1.0 2.0) 3.0)) + (test-equal "with a number and a vec2" + (vec2 4.0 5.0) + (+ 3.0 (vec 1.0 2.0))) + (test-equal "with 2 vec3s" + (vec3 5.0 7.0 9.0) + (+ (vec 1.0 2.0 3.0) (vec 4.0 5.0 6.0))) + (test-equal "with a vec3 and a number" + (vec3 5.0 6.0 7.0) + (+ (vec 1.0 2.0 3.0) 4.0)) + (test-equal "with a number and a vec3" + (vec3 5.0 6.0 7.0) + (+ 4.0 (vec 1.0 2.0 3.0)))) + (test-group "-" + (test-equal "with 2 vec2s" + (vec2 2.0 1.0) + (- (vec 3.0 2.0) (vec 1.0 1.0))) + (test-equal "with a vec2 and a number" + (vec2 2.0 1.0) + (- (vec 3.0 2.0) 1.0)) + (test-equal "with 2 vec3s" + (vec3 3.0 2.0 1.0) + (- (vec 4.0 3.0 2.0) (vec 1.0 1.0 1.0))) + (test-equal "with a vec3 and a number" + (vec3 3.0 2.0 1.0) + (- (vec 4.0 3.0 2.0) 1.0))) + (test-group "*" + (test-equal "with 2 vec2s" + (vec2 3.0 8.0) + (* (vec 1.0 2.0) (vec 3.0 4.0))) + (test-equal "with a vec2 and a number" + (vec2 3.0 6.0) + (* (vec 1.0 2.0) 3.0)) + (test-equal "with a number and a vec2" + (vec2 3.0 6.0) + (* 3.0 (vec 1.0 2.0))) + (test-equal "with 2 vec3s" + (vec3 4.0 10.0 18.0) + (* (vec 1.0 2.0 3.0) (vec 4.0 5.0 6.0))) + (test-equal "with a vec3 and a number" + (vec3 4.0 8.0 12.0) + (* (vec 1.0 2.0 3.0) 4.0)) + (test-equal "with a number and a vec3" + (vec3 4.0 8.0 12.0) + (* 4.0 (vec 1.0 2.0 3.0)))) + (test-group "/" + (test-equal "with 2 vec2s" + (vec2 2.0 3.0) + (/ (vec 4.0 9.0) (vec 2.0 3.0))) + (test-equal "with a vec2 and a number" + (vec2 2.0 4.0) + (/ (vec 4.0 8.0) 2.0)) + (test-equal "with 2 vec3s" + (vec3 2.0 3.0 4.0) + (/ (vec 4.0 9.0 16.0) (vec 2.0 3.0 4.0))) + (test-equal "with a vec3 and a number" + (vec3 2.0 4.0 6.0) + (/ (vec 4.0 8.0 12.0) 2.0)))) -- cgit v1.2.3