diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ai-test.scm | 10 | ||||
| -rw-r--r-- | tests/animation-test.scm | 3 | ||||
| -rw-r--r-- | tests/assets-test.scm | 2 | ||||
| -rw-r--r-- | tests/engine-test.scm | 22 | ||||
| -rw-r--r-- | tests/entity-test.scm | 2 | ||||
| -rw-r--r-- | tests/input-test.scm | 4 | ||||
| -rw-r--r-- | tests/physics-test.scm | 12 | ||||
| -rw-r--r-- | tests/renderer-test.scm | 10 | ||||
| -rw-r--r-- | tests/scene-loader-test.scm | 22 | ||||
| -rw-r--r-- | tests/tilemap-test.scm | 2 | ||||
| -rw-r--r-- | tests/world-test.scm | 8 |
11 files changed, 49 insertions, 48 deletions
diff --git a/tests/ai-test.scm b/tests/ai-test.scm index 9bb3d28..02a9806 100644 --- a/tests/ai-test.scm +++ b/tests/ai-test.scm @@ -1,5 +1,5 @@ ;; Mock entity module for testing -(module downstroke/entity * +(module downstroke-entity * (import scheme (chicken base) (chicken keyword)) (define (entity-ref entity key #!optional default) (get-keyword key entity (if (procedure? default) default (lambda () default)))) @@ -12,18 +12,18 @@ (define (entity-type e) (entity-ref e #:type #f))) ;; Mock world module for testing -(module downstroke/world * +(module downstroke-world * (import scheme (chicken base)) (define (scene-entities s) s) (define (scene-find-tagged scene tag) #f)) (import (srfi 64) states - downstroke/entity - downstroke/world) + downstroke-entity + downstroke-world) (include "ai.scm") -(import downstroke/ai) +(import downstroke-ai) (test-begin "ai") diff --git a/tests/animation-test.scm b/tests/animation-test.scm index fefb77f..e12b35b 100644 --- a/tests/animation-test.scm +++ b/tests/animation-test.scm @@ -1,8 +1,9 @@ (import srfi-64) (include "entity.scm") +(include "tilemap.scm") (include "world.scm") (include "animation.scm") -(import downstroke/entity downstroke/world downstroke/animation) +(import downstroke-entity downstroke-world downstroke-animation) (test-begin "animation") diff --git a/tests/assets-test.scm b/tests/assets-test.scm index 0f6931b..c7b26f0 100644 --- a/tests/assets-test.scm +++ b/tests/assets-test.scm @@ -1,7 +1,7 @@ (import srfi-64) (include "assets.scm") -(import downstroke/assets) +(import downstroke-assets) (test-begin "assets") diff --git a/tests/engine-test.scm b/tests/engine-test.scm index 99bb12f..79b475e 100644 --- a/tests/engine-test.scm +++ b/tests/engine-test.scm @@ -38,7 +38,7 @@ (import (prefix sdl2-image "img:")) ;; --- Entity module (mock minimal structs) --- -(module downstroke/entity * +(module downstroke-entity * (import scheme (chicken base)) (define (entity-ref entity key #!optional (default #f)) (let loop ((plist entity)) @@ -46,10 +46,10 @@ ((null? plist) (if (procedure? default) (default) default)) ((eq? (car plist) key) (cadr plist)) (else (loop (cddr plist))))))) -(import downstroke/entity) +(import downstroke-entity) ;; --- Input module (mock) --- -(module downstroke/input * +(module downstroke-input * (import scheme (chicken base) defstruct) (defstruct input-config actions keyboard-map joy-button-map controller-button-map @@ -75,12 +75,12 @@ state) (define (input-held? state action) #f)) -(import downstroke/input) +(import downstroke-input) ;; --- World module (mock) --- -(module downstroke/world * +(module downstroke-world * (import scheme (chicken base) defstruct) - (import downstroke/entity) + (import downstroke-entity) (defstruct camera x y) (defstruct scene entities tilemap camera tileset-texture camera-target) ;; Mock camera-follow! - just clamps camera position @@ -94,22 +94,22 @@ ((null? entities) #f) ((member tag (entity-ref (car entities) #:tags '())) (car entities)) (else (loop (cdr entities))))))) -(import downstroke/world) +(import downstroke-world) ;; --- Real deps --- (import simple-logger) ;; required by input.scm (include "assets.scm") -(import downstroke/assets) +(import downstroke-assets) ;; --- Renderer module (mock) --- -(module downstroke/renderer * +(module downstroke-renderer * (import scheme (chicken base)) (define (render-scene! . args) #f)) -(import downstroke/renderer) +(import downstroke-renderer) ;; --- Engine module (real) --- (include "engine.scm") -(import downstroke/engine) +(import downstroke-engine) ;; --- Tests --- diff --git a/tests/entity-test.scm b/tests/entity-test.scm index d67e0ff..5df8e76 100644 --- a/tests/entity-test.scm +++ b/tests/entity-test.scm @@ -1,6 +1,6 @@ (import srfi-64) (include "entity.scm") -(import downstroke/entity) +(import downstroke-entity) (test-begin "entity") diff --git a/tests/input-test.scm b/tests/input-test.scm index 7eae12f..2173f61 100644 --- a/tests/input-test.scm +++ b/tests/input-test.scm @@ -12,12 +12,12 @@ ;; Load entity first (input imports it) (include "entity.scm") -(import downstroke/entity) +(import downstroke-entity) ;; Load the module source directly (include "input.scm") ;; Now import it to access the exported functions -(import downstroke/input) +(import downstroke-input) ;; Test suite for input module (test-begin "input-module") diff --git a/tests/physics-test.scm b/tests/physics-test.scm index 0a2c92b..858dec8 100644 --- a/tests/physics-test.scm +++ b/tests/physics-test.scm @@ -7,7 +7,7 @@ (only srfi-1 every member make-list fold iota)) ;; Create a mock tilemap module to avoid SDL dependency -(module downstroke/tilemap * +(module downstroke-tilemap * (import scheme (chicken base) defstruct) (defstruct tileset @@ -35,23 +35,23 @@ layers objects)) -(import downstroke/tilemap) +(import downstroke-tilemap) ;; Load entity module first (since world now imports entity) (include "entity.scm") -(import downstroke/entity) +(import downstroke-entity) ;; Load world module first (include "world.scm") -(import downstroke/world) +(import downstroke-world) ;; Load physics module (include "physics.scm") -(import downstroke/physics) +(import downstroke-physics) ;; Load physics module (include "input.scm") -(import downstroke/input) +(import downstroke-input) ;; Test suite for physics module (test-begin "physics-module") diff --git a/tests/renderer-test.scm b/tests/renderer-test.scm index d14f12c..fc5c8f2 100644 --- a/tests/renderer-test.scm +++ b/tests/renderer-test.scm @@ -7,7 +7,7 @@ srfi-64) ;; Mock tilemap module -(module downstroke/tilemap * +(module downstroke-tilemap * (import scheme (chicken base) defstruct) (defstruct tileset tilewidth tileheight spacing tilecount columns image-source image) (defstruct layer name width height map) @@ -15,7 +15,7 @@ (defstruct tile id rect) (define (tileset-tile ts id) (make-tile id: id rect: #f)) (define (tile-rect t) #f)) -(import downstroke/tilemap) +(import downstroke-tilemap) ;; Mock sdl2 (module sdl2 * @@ -35,15 +35,15 @@ ;; Load entity module (include "entity.scm") -(import downstroke/entity) +(import downstroke-entity) ;; Load world module (include "world.scm") -(import downstroke/world) +(import downstroke-world) ;; Load renderer module (include "renderer.scm") -(import downstroke/renderer) +(import downstroke-renderer) (test-begin "renderer") diff --git a/tests/scene-loader-test.scm b/tests/scene-loader-test.scm index 61f142f..6a0b27c 100644 --- a/tests/scene-loader-test.scm +++ b/tests/scene-loader-test.scm @@ -7,7 +7,7 @@ srfi-64) ;; Mock tilemap module -(module downstroke/tilemap * +(module downstroke-tilemap * (import scheme (chicken base) defstruct) (defstruct tileset tilewidth tileheight spacing tilecount columns image-source image) (defstruct layer name width height map) @@ -18,10 +18,10 @@ (define (tile-rect t) #f) (define (load-tilemap filename) (make-tilemap width: 100 height: 100 tilewidth: 16 tileheight: 16 tileset-source: "" tileset: (make-tileset tilewidth: 16 tileheight: 16 spacing: 0 tilecount: 256 columns: 16 image-source: "" image: #f) layers: '() objects: '())) (define (load-tileset filename) (make-tileset tilewidth: 16 tileheight: 16 spacing: 0 tilecount: 256 columns: 16 image-source: "" image: #f))) -(import downstroke/tilemap) +(import downstroke-tilemap) ;; Mock entity module (minimal) -(module downstroke/entity * +(module downstroke-entity * (import scheme (chicken base)) (define (entity-ref entity key #!optional (default #f)) (let loop ((plist entity)) @@ -37,31 +37,31 @@ (else (loop (cddr plist) (cons (cadr plist) (cons (car plist) acc))))))) (define (entity-type entity) (entity-ref entity #:type #f))) -(import downstroke/entity) +(import downstroke-entity) ;; Mock world module -(module downstroke/world * +(module downstroke-world * (import scheme (chicken base) defstruct) (defstruct camera x y) (defstruct scene entities tilemap camera tileset-texture camera-target) (define (scene-add-entity scene entity) (scene-entities-set! scene (cons entity (scene-entities scene))) scene)) -(import downstroke/world) +(import downstroke-world) ;; Mock assets module -(module downstroke/assets * +(module downstroke-assets * (import scheme (chicken base)) (define (asset-set! assets key value) #f)) -(import downstroke/assets) +(import downstroke-assets) ;; Mock engine module -(module downstroke/engine * +(module downstroke-engine * (import scheme (chicken base)) (define (game-renderer game) #f) (define (game-asset-set! game key value) #f) (define (game-scene-set! game scene) #f)) -(import downstroke/engine) +(import downstroke-engine) ;; Mock sdl2 (module sdl2 * @@ -77,7 +77,7 @@ ;; Load scene-loader module (include "scene-loader.scm") -(import downstroke/scene-loader) +(import downstroke-scene-loader) (test-begin "scene-loader") diff --git a/tests/tilemap-test.scm b/tests/tilemap-test.scm index 47d6a51..16629bd 100644 --- a/tests/tilemap-test.scm +++ b/tests/tilemap-test.scm @@ -20,7 +20,7 @@ ;; Load the module source directly (include "tilemap.scm") ;; Now import it to access the exported functions -(import downstroke/tilemap) +(import downstroke-tilemap) ;; Test suite for tilemap module (test-begin "tilemap-module") diff --git a/tests/world-test.scm b/tests/world-test.scm index 451ab2a..90c26c4 100644 --- a/tests/world-test.scm +++ b/tests/world-test.scm @@ -7,7 +7,7 @@ (only srfi-1 every member make-list)) ;; Create a mock tilemap module to avoid SDL dependency -(module downstroke/tilemap * +(module downstroke-tilemap * (import scheme (chicken base) defstruct) (defstruct tileset @@ -35,16 +35,16 @@ layers objects)) -(import downstroke/tilemap) +(import downstroke-tilemap) ;; Load entity module first (since world now imports entity) (include "entity.scm") -(import downstroke/entity) +(import downstroke-entity) ;; Load the module source directly (include "world.scm") ;; Now import it to access the exported functions -(import downstroke/world) +(import downstroke-world) ;; Test suite for world module (test-begin "world-module") |