From afc30a12e25215ff5e9226c3b4f8fd127d9a4d68 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Wed, 8 Apr 2026 07:08:54 +0100 Subject: Move the engine-update to the scene --- tests/tween-test.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tests/tween-test.scm') diff --git a/tests/tween-test.scm b/tests/tween-test.scm index 4420c94..f0622fb 100644 --- a/tests/tween-test.scm +++ b/tests/tween-test.scm @@ -181,7 +181,7 @@ (let* ((ent (list #:type 'a #:x 0 #:tween (make-tween (list #:x 0) props: '((#:x . 100)) duration: 100 ease: 'linear))) - (e2 (step-tweens ent 50))) + (e2 (step-tweens ent #f 50))) (test-equal "x moved to midpoint" 50.0 (entity-ref e2 #:x)) (test-assert "tween still attached" (entity-ref e2 #:tween #f)))) @@ -189,20 +189,20 @@ (let* ((ent (list #:type 'a #:x 0 #:tween (make-tween (list #:x 0) props: '((#:x . 100)) duration: 100 ease: 'linear))) - (e2 (step-tweens ent 100))) + (e2 (step-tweens ent #f 100))) (test-equal "x at target" 100.0 (entity-ref e2 #:x)) (test-equal "tween removed" #f (entity-ref e2 #:tween #f)))) (test-group "no-op without #:tween" (let* ((ent (list #:type 'a #:x 42)) - (e2 (step-tweens ent 100))) + (e2 (step-tweens ent #f 100))) (test-equal "x unchanged" 42 (entity-ref e2 #:x)))) (test-group "keeps repeating tween attached" (let* ((ent (list #:type 'a #:x 0 #:tween (make-tween (list #:x 0) props: '((#:x . 100)) duration: 100 ease: 'linear repeat: -1 yoyo?: #t))) - (e2 (step-tweens ent 100))) + (e2 (step-tweens ent #f 100))) (test-equal "x at target" 100.0 (entity-ref e2 #:x)) (test-assert "tween still attached (repeating)" (entity-ref e2 #:tween #f)))) @@ -211,7 +211,7 @@ #:skip-pipelines '(tweens) #:tween (make-tween (list #:x 0) props: '((#:x . 100)) duration: 100 ease: 'linear))) - (e2 (step-tweens ent 100))) + (e2 (step-tweens ent #f 100))) (test-equal "x unchanged (skipped)" 0 (entity-ref e2 #:x)) (test-assert "tween still there" (entity-ref e2 #:tween #f))))) -- cgit v1.2.3