aboutsummaryrefslogtreecommitdiff
path: root/tests/prefabs-test.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/prefabs-test.scm')
-rw-r--r--tests/prefabs-test.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/prefabs-test.scm b/tests/prefabs-test.scm
index 8eaf348..06f9ba9 100644
--- a/tests/prefabs-test.scm
+++ b/tests/prefabs-test.scm
@@ -7,8 +7,8 @@
defstruct
test)
-;; Mock downstroke-entity
-(module downstroke-entity *
+;; Mock (downstroke entity)
+(module (downstroke entity) *
(import scheme (chicken base))
(define (entity-ref entity key #!optional (default #f))
(let loop ((plist entity))
@@ -23,14 +23,14 @@
((eq? (car plist) key) (append (reverse acc) (list key val) (cddr plist)))
(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))
;; Load module under test
(include "entity.scm")
-(import downstroke-entity)
+(import (downstroke entity))
(include "prefabs.scm")
-(import downstroke-prefabs)
+(import (downstroke prefabs))
(test-begin "prefabs")