diff options
Diffstat (limited to 'tests/engine-test.scm')
| -rw-r--r-- | tests/engine-test.scm | 34 |
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 --- |
