Clojurescript /试剂单元测试组件 - 模拟的onChange

Question

对于在那里我有一个文本框组件，我需要能够从测试中它来改变文字：

(defn choose-city-component [] 
    (let [inner-state (r/atom {:text ""})] 
    (fn [] 
     [:div 
     [:input#txt_city { 
      :type "text" 
      :value (@inner-state :text) 
      :on-change #(swap! inner-state assoc :text (-> % .-target .-value))... 

在测试中我渲染它屏幕：

(deftest choose-city-component-test-out 
    ;;GIVEN render component in test 
    (let [comp (r/render-component [w/choose-city-component] 
          (. js/document (getElementById "test")))] 
    ;;WHEN changing the city.... 

现在使用jQuery触发我想上的文字模拟的onChange：

我们试图

(.change ($ :#txt_city) {"target" {"value" "Paris"}}) 

和

(.trigger ($ :#txt_city) "change" {"target" {"value" "Paris"}})) 

但它不工作...

Answer 1

答案是cljs反应的试验：

(deftest choose-city-component-test-out 
    (let [comp (r/render-component [w/choose-city-component] 
          (. js/document (getElementById "test"))) 
    expected-invocations (atom [])] 
    (with-redefs [weather-app.core/fetch-weather #(swap! expected-invocations conj %)] 
     ;;GIVEN render component in test 
     ;;WHEN changing the city and submitting 
     (sim/change (sel1 :#txt_city) {:target {:value "london"}}) 
     (sim/click (sel1 :#btn_go) nil) 
     ;;ASSERT london should be sent to fetch-weather 
     (is (=["london"] @expected-invocations)) 
    ))) 

在这里我们使用：

[cljs-react-test.simulate :as sim] 
    [dommy.core :as dommy :refer-macros [sel1 sel]] 

，并在project.clj

:dependencies [[org.clojure/clojure "1.7.0"] 
      [org.clojure/clojurescript "1.7.170"] 
      [org.clojure/core.async "0.2.374"] 
      [reagent "0.5.1" :exclusions [cljsjs/react]] 
      [cljs-react-test "0.1.3-SNAPSHOT"] 
      [cljsjs/react-with-addons "0.13.3-0"] 
      [cljs-ajax "0.5.2"] 
      [jayq "2.5.4"]] 

Answer 2

我不知道jQuery的非常好，但是不应该你的代码更喜欢(js/$ "#txt_city")（注：该参数是一个字符串，而不是关键字）。

而且，放眼试剂测试自己的灵感： https://github.com/reagent-project/reagent/blob/master/test/reagenttest/testreagent.cljs