diff options
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))))) |