aboutsummaryrefslogtreecommitdiff
path: root/tests/engine-test.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/engine-test.scm')
-rw-r--r--tests/engine-test.scm34
1 files changed, 17 insertions, 17 deletions
diff --git a/tests/engine-test.scm b/tests/engine-test.scm
index ddeb308..bfa6d75 100644
--- a/tests/engine-test.scm
+++ b/tests/engine-test.scm
@@ -41,7 +41,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))
@@ -49,10 +49,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
@@ -78,12 +78,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 tileset camera tileset-texture camera-target background engine-update)
;; Mock camera-follow - returns a new camera
@@ -106,15 +106,15 @@
(define (scene-transform-entities scene proc)
(update-scene scene entities: (proc (scene-entities scene))))
(define (sync-groups entities) 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))
;; --- Physics module (mock) ---
-(module downstroke-physics *
+(module (downstroke physics) *
(import scheme (chicken base))
(define (apply-acceleration e s d) e)
(define (apply-gravity e s d) e)
@@ -124,30 +124,30 @@
(define (resolve-tile-collisions-y e s d) e)
(define (detect-on-solid e s d) e)
(define (resolve-entity-collisions es) es))
-(import downstroke-physics)
+(import (downstroke physics))
;; --- Tween module (mock) ---
-(module downstroke-tween *
+(module (downstroke tween) *
(import scheme (chicken base))
(define (step-tweens e s d) e))
-(import downstroke-tween)
+(import (downstroke tween))
;; --- Renderer module (mock) ---
-(module downstroke-renderer *
+(module (downstroke renderer) *
(import scheme (chicken base))
(define (render-scene! . args) #f)
(define (render-debug-scene! . args) #f))
-(import downstroke-renderer)
+(import (downstroke renderer))
;; --- Animation module (mock) ---
-(module downstroke-animation *
+(module (downstroke animation) *
(import scheme (chicken base))
(define (apply-animation e s d) e))
-(import downstroke-animation)
+(import (downstroke animation))
;; --- Engine module (real) ---
(include "engine.scm")
-(import downstroke-engine)
+(import (downstroke engine))
;; --- Tests ---