From 253656b7188f5d1f3684a640530f248d29995eef Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Fri, 11 Mar 2016 17:49:03 +0100 Subject: [PATCH] Tests for entities and components * tests/entities.scm: Tests for creating entities --- tests/entities.scm | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 tests/entities.scm diff --git a/tests/entities.scm b/tests/entities.scm new file mode 100644 index 0000000..c0a9a51 --- /dev/null +++ b/tests/entities.scm @@ -0,0 +1,33 @@ +;;; Gacela, a GNU Guile extension for fast games development +;;; Copyright (C) 2013 by Javier Sancho Fernandez +;;; +;;; This program 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. +;;; +;;; 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 for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program. If not, see . + +(use-modules (gacela system) + (srfi srfi-64)) + +(test-begin "entities") + +(define-component a x y) +(define-component b) + +(define entities (make-entity-set)) + +; Creating entities +(set! entities ((new-entity (make-a 1 2) (make-b)) entities)) +(set! entities ((new-entity (make-a 10 20)) entities)) +((new-entity (make-a 10 20)) entities) +(test-eqv 2 (length (entity-list entities))) + +(test-end "entities") -- 2.39.5