diff options
| author | Gene Pasquet <dev@etenil.net> | 2026-04-05 23:44:12 +0100 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2026-04-05 23:44:12 +0100 |
| commit | 300131ca5a19d9de5250579d944a52b067b2d60b (patch) | |
| tree | bed560ea0f5f252e3f40576a14e2a7f19bb35662 /tests/scene-loader-test.scm | |
| parent | b99ada53b715def5492c7d04c0d327fa7048e5d3 (diff) | |
Rename prefix from downstroke/ to downstroke-
Diffstat (limited to 'tests/scene-loader-test.scm')
| -rw-r--r-- | tests/scene-loader-test.scm | 22 |
1 files changed, 11 insertions, 11 deletions
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") |
