Make empty unit test suite for model package

2 files changed, 29 insertions, 1 deletions

diff --git a/tests/main.lisp b/tests/main.lisp
index e78d0d7..b68e02f 100644
--- a/tests/main.lisp
+++ b/tests/main.lisp
@@ -22,4 +22,5 @@
 (define-test all
   :serial t
   :depends-on ((cantedraw/tests/macros macro-test)
-               (cantedraw/tests/functions function-test)))
+               (cantedraw/tests/functions function-test)
+               (cantedraw/tests/model model-test)))
diff --git a/tests/model.lisp b/tests/model.lisp
new file mode 100644
index 0000000..7ea41c6
--- /dev/null
+++ b/tests/model.lisp
@@ -0,0 +1,27 @@
+;;; model.lisp - 2025-02-21
+
+;; Copyright (C) 2025 Aryadev Chavali
+
+;; This program 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 Version 2 for
+;; details.
+
+;; You may distribute and modify this code under the terms of the GNU General
+;; Public License Version 2, which you should have received a copy of along with
+;; this program.  If not, please go to <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(defpackage cantedraw/tests/model
+  (:use
+   :cl :parachute
+   :cantedraw.lib.macros :cantedraw.lib.functions
+   :cantedraw/tests/functions
+   :cantedraw.model))
+
+(in-package :cantedraw/tests/model)
+
+(define-test model-test
+  :depends-on ((cantedraw/tests/macros macro-test)
+               (cantedraw/tests/functions function-test)))