在 Elm 中测试去抖动

Question

我正在尝试在我的 Elm 应用程序中测试去抖功能，但不知道如何做。

去抖动应用于模糊搜索的文本字段，以避免发出过多的 http 请求，它仿照此示例 https://ellie-app.com/jNmstCdv3va1 并遵循相同的逻辑。

type alias Model =
    { search : Maybe String 
    , searchResult : List User
    , debouncingCounter : Int
    }

init : Model
init = 
    { search = Nothing
    , searchResult = [] 
    , debouncingCounter = 0
    }

debounceTime : Time
debounceTime = 350 * Time.millisecond

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
    case msg of 

        (...)

        SearchInput search ->
            let 
                newCounter = model.debouncingCounter + 1
            in
            case search o
                "" -> ({model | search = Nothing, searchResult = []}, Cmd.none)
            _ -> 
                ({ model | search = Just search, debouncingCounter = newCounter }
                , Process.sleep debounceTime |> Task.perform (always (Timeout newCounter)))

        Timeout int ->
            if int==model.debouncingCounter then
                (update SendSearch {model | debouncingCounter = 0 })
            else 
                (update NoOperation model)

        SendSearch ->
            case model.search of 
                Nothing -> 
                    (model, Cmd.none)
                Just string -> 
                    let 
                        cmd = Http.send ReSendSearch <| postApiAdminUserSearchByQuery string
                    in
                    (model, cmd)

        ReSendSearch result ->
            case result of 
                Err _ -> 
                    (model, Cmd.none)

                Ok usersList -> 
                    ({model | searchResult = usersList}, Cmd.none )

我想确保在调用

之后

update (searchInput "string") init

Http 请求仅在 debounceTime 后发送。

我可以在使用 searchInput 消息调用更新函数后立即轻松测试模型。例如，我在这里检查模型中 "debouncingCounter" 字段的初始值是否设置为 1:

startDebounce : Test
startDebounce =
test "debouncingCounter is set to 1 after search input is updated" <|
    \_ ->
        Users.init
            |> Users.update (Users.SearchInput "abc") 
            |> Tuple.first
            |> .debouncingCounter
            |> Expect.equal 1

但是，由于我无法直接应用更新函数返回的 cmd 值，因此我不知道如何测试延迟 Cmd Msg 对模型的影响。

Process.sleep debounceTime |> Task.perform (always (Timeout newCounter))

似乎不同的去抖动方法都不能解决问题，因为它们都依赖于命令消息。

Answer 1

根据您要测试的具体内容，您可能会采用不同的方法。

如果你想测试

您在 SearchInput 上的代码返回正确的命令： 您可以考虑使用 elm-testable.
elm运行时正确执行Process.sleep命令：这会落入integration/end-to-end test scenarios。因此，您需要使用 end-to-end/JS 工具之一来测试完整编译的应用程序。
您的代码正确处理了 Timeout x 消息： 只需为此编写一个单独的测试用例。

在 Elm 中测试去抖动

Testing debouncing in Elm

testing

elm

debounce

elm-test