From a02b892e2ad1e1605ff942c63afdd618daa48be4 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Fri, 17 Apr 2026 16:52:41 +0100 Subject: Migrate tests to the test egg --- tests/scene-loader-test.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'tests/scene-loader-test.scm') 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) -- cgit v1.2.3