2

我正在尝试编写这样的测试:

(deftest login-form-rendering
  (async done (with-redefs [http/post fake-login-success]
        (with-mounted-component (c/login-form login!)
          (fn [c div]
            (.click (.getElementById js/document "Login"))
            (is (= (:page @app-state) :location)))))
         (done)))

我有这个模拟:

(defn fake-login-success [& _]
  (let [ch (chan)
        response {:status 200}]
    (go (>! ch response)
        ch)))

登录功能这样做:

(defn login! [username password]
  (go (let [result (->> {:form-params {:username @username :password @password}}
                        (http/post "/api/login")
                        (<!))
            {status :status body :body} result]
        (case status
          401 (swap! app-state assoc :page :bad-login)
          200 (swap! app-state assoc :page :location)))))

登录表单是一个试剂组件,它接受 onClick 的回调。app-state 是一个全局可访问的原子。

我面临的问题是登录里面的 go 块!永远不会被执行。我需要做些什么来刷新通道或其他什么吗?

我看到还有一个类似的未回答问题:Testing core.async code in ClojureScript。一个区别似乎是我的测试代码中没有明确的通道。这是由 cljs-http 帖子生成的。

4

1 回答 1

4

我相信你的问题是一个错误的括号。

(let [ch (chan)
      response {:status 200}]
    (go (>! ch response)
        ch))

this 的返回值letgo块的通道。这是一个不包含任何内容的通道,因为:

  1. go块正在尝试放置一个无缓冲的通道,需要一些其他操作来“满足”它并进行补充处理,以便它自己的执行继续进行。
  2. ch在词汇上对外界是隐藏的,因此不存在可以执行互补拍摄的操作。

如果以某种方式确实从其中获取了某些东西(或者我们添加了一个缓冲区ch以便第一次放置成功),ch则将被放置在返回的通道上。

(let [ch (chan)
      response {:status 200}]
    (go (>! ch response))
    ch)

letthis的返回值为ch,没有额外的通道包装它。-blockgo停在试图穿上,ch直到像你的测试这样的东西可以从中取走。

然而,由于我们最终只是想构建一个带有常量的通道,它go本身似乎是最简单的解决方案:

(defn fake-login-success [& _]
  (go {:status 200})
于 2015-12-06T08:08:30.467 回答