fix tests (#112)

Author: rob-sokolowski

.cloudbuild/deploy-to-cloud-run.yaml

@@ -26,4 +26,4 @@ steps:
 
 options:
   pool:
-    name: 'projects/fir-sandbox-326008/locations/us-east4/workerPools/fir'
+    name: 'projects/fir-sandbox-326008/locations/us-east4/workerPools/fir'

tests/BouncingBallTest.elm

@@ -5,23 +5,27 @@ import Pages.BouncingBall exposing (Model, RunningState(..), computeNextPos)
 import Test exposing (..)
 
 
+dt =
+    30
+
+
 suite : Test
 suite =
     describe "Bouncing ball app"
         [ describe "Play/pause resume logic"
             [ test "simulation is paused, no changes should happen"
                 (\_ ->
-                    computeNextPos case1
+                    computeNextPos case1 dt
                         |> Expect.equal ( case1.ballPos, case1.hist, case1.currentFrame )
                 )
             , test "simulation is playing, no historic recall"
                 (\_ ->
-                    computeNextPos case2
-                        |> Expect.equal ( { rx = 1, ry = 1.725, vx = 1, vy = -1.488, x = 10.033333333333333, y = 9.9504 }, [ { rx = 1, ry = 1, vx = 1, vy = 1, x = 9, y = 11 }, { rx = 1, ry = 1.725, vx = 1, vy = -1.488, x = 10.033333333333333, y = 9.9504 } ], 2 )
+                    computeNextPos case2 dt
+                        |> Expect.equal ( { rx = 1, ry = 1.725, vx = 1, vy = -1.4292, x = 10.03, y = 9.957124 }, [ { rx = 1, ry = 1, vx = 1, vy = 1, x = 9, y = 11 }, { rx = 1, ry = 1.725, vx = 1, vy = -1.4292, x = 10.03, y = 9.957124 } ], 2 )
                 )
             , test "simulation is playing, but via historic recall"
                 (\_ ->
-                    computeNextPos case3
+                    computeNextPos case3 dt
                         |> Expect.equal ( { rx = 1, ry = 1, vx = 1, vy = 1, x = 9, y = 11 }, [ { rx = 1, ry = 1, vx = 1, vy = 1, x = 9, y = 11 } ], 1 )
                 )
             ]