Partition.hs

module Spec.Kafka.Worker.Partition (tests) where

import qualified Expect
import qualified Kafka.Worker.Partition as Partition
import qualified Test

tests :: Test.Test
tests =
  Test.describe
    "Worker"
    [ Test.describe
        "microSecondsDelayForAttempt"
        [ Test.test "1 attempt" <| \() ->
            Partition.microSecondsDelayForAttempt 1
              |> Expect.equal 10_000_000,
          Test.test "2 attempts" <| \() ->
            Partition.microSecondsDelayForAttempt 2
              |> Expect.equal 100_000_000,
          Test.test "3 attempts" <| \() ->
            Partition.microSecondsDelayForAttempt 3
              |> Expect.equal 1000_000_000,
          Test.test "4 attempts" <| \() ->
            Partition.microSecondsDelayForAttempt 4
              |> Expect.equal 3_600_000_000
        ]
    ]