From 84f251ee6e829d33a4f29aa4043924023a378724 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sat, 18 Apr 2026 05:59:07 +0100 Subject: Re-format --- tests/animation-test.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/animation-test.scm') diff --git a/tests/animation-test.scm b/tests/animation-test.scm index 117e933..356f44c 100644 --- a/tests/animation-test.scm +++ b/tests/animation-test.scm @@ -26,7 +26,7 @@ (test "first frame, frames (0)" 100 (frame->duration '((0 100)) 0)) (test "wraps around" 100 (frame->duration '((0 100) (1 200)) 2)) (test "frame 1 of (27 28)" 200 (frame->duration '((27 100) (28 200)) 1)) -) + ) (test-group "set-animation" (let ((e (entity #:type 'player #:anim-name 'idle #:anim-frame 5 #:anim-tick 8))) @@ -63,10 +63,10 @@ (test-group "animated entity" (let* ((anims (list (anim #:name 'walk #:frames '(2 3) #:duration 4))) (e (entity #:type 'player #:anim-name 'walk #:anim-frame 0 #:anim-tick 0 #:animations anims)) - (stepped-entity (apply-animation #f e 10))) + (stepped-entity (apply-animation #f e 10))) (test "Updated animated entity" 1 (entity-ref stepped-entity #:anim-tick))) (let* ((e (entity #:type 'static)) - (stepped-entity (apply-animation #f e 10))) + (stepped-entity (apply-animation #f e 10))) (test "unchanged static entity" #f (entity-ref stepped-entity #:anim-tick))))) (test-end "animation") -- cgit v1.2.3