aboutsummaryrefslogtreecommitdiff
path: root/tests/scene-loader-test.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/scene-loader-test.scm')
-rw-r--r--tests/scene-loader-test.scm22
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")