Migrate tests to the test egg

1 files changed, 7 insertions, 6 deletions

diff --git a/tests/scene-loader-test.scm b/tests/scene-loader-test.scm
index 88fb544..6e0be9c 100644
--- a/tests/scene-loader-test.scm
+++ b/tests/scene-loader-test.scm
@@ -4,7 +4,7 @@
         (chicken keyword)
         (only srfi-1 fold filter)
         defstruct
-        srfi-64)
+        test)
 
 ;; Mock tilemap module
 (module downstroke-tilemap *
@@ -93,18 +93,18 @@
            (list (cons 'player (lambda (x y w h) (entity #:type 'player #:x x #:y y #:width w #:height h)))
                  (cons 'enemy  (lambda (x y w h) (entity #:type 'enemy  #:x x #:y y #:width w #:height h)))))
          (result (tilemap-objects->entities tm registry)))
-    (test-equal "filters #f results: 2 entities from 3 objects"
+    (test "filters #f results: 2 entities from 3 objects"
       2 (length result))
-    (test-equal "first entity is player"
+    (test "first entity is player"
       'player (entity-ref (car result) #:type))
-    (test-equal "second entity is enemy"
+    (test "second entity is enemy"
       'enemy  (entity-ref (cadr result) #:type)))
 
   (let* ((tm-empty (make-tilemap width: 100 height: 100 tilewidth: 16 tileheight: 16
                                  tileset-source: "" tileset: #f layers: '()
                                  objects: '()))
          (result (tilemap-objects->entities tm-empty '())))
-    (test-equal "empty object list returns empty list"
+    (test "empty object list returns empty list"
       0 (length result))))
 
 (test-group "game-load-tilemap! / game-load-tileset! / game-load-font!"
@@ -120,8 +120,9 @@
   ;; game-load-font! with mock ttf returns a font value
   (let* ((game #f)  ; mock game (game-asset-set! ignores it in mock)
          (font (ttf:open-font "test.ttf" 16)))
-    (test-equal "mock font is a list"
+    (test "mock font is a list"
       'font
       (car font))))
 
 (test-end "scene-loader")
+(test-exit)