diff options
| author | Gene Pasquet <dev@etenil.net> | 2026-04-08 07:08:54 +0100 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2026-04-08 07:08:54 +0100 |
| commit | afc30a12e25215ff5e9226c3b4f8fd127d9a4d68 (patch) | |
| tree | f736393fb8ebfd8982a4b79310a08c57ee430ff0 /tests/tween-test.scm | |
| parent | 9e8b75f9949259ef01942cd3717b79b044efddf7 (diff) | |
Move the engine-update to the scene
Diffstat (limited to 'tests/tween-test.scm')
| -rw-r--r-- | tests/tween-test.scm | 10 |
1 files changed, 5 insertions, 5 deletions
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))))) |