ayato
April 21, 2016
520

Clojure のテストについて

April 21, 2016

Transcript

11. (require '[clojure.test :refer :all]) (is (= 4 (+ 2 2)))

(is (instance? Long 256)) (is (.startsWith "abcde" "ab")) Ξαʔγϣϯ DMPKVSFUFTUωʔϜεϖʔεΛ࢖͏ JTϚΫϩ͚֮ͩ͑Ε͹؆୯ʹςετ͕ग़དྷΔ
12. user> (is (= 5 (+ 2 2))) FAIL in ()

(form-init305064439250635979.clj:3) expected: (= 5 (+ 2 2)) actual: (not (= 5 4)) false Ξαʔγϣϯ 3&1-Ͱ΋࣮ߦՄೳ
13. (is (thrown? ArithmeticException (/ 1 0))) (is (thrown-with-msg? ArithmeticException #"Divide

by zero" (/ 1 0))) Ξαʔγϣϯ ྫ֎ͷ৔߹͸ಛघͳUISPXO ͳͲΛ࢖͏

15. (testing "Arithmetic" (testing "with positive integers" (is (= 4 (+

2 2))) (is (= 7 (+ 3 4)))) (testing "with negative integers" (is (= -4 (+ -2 -2))) (is (= -1 (+ 3 -4))))) ςετͷυΩϡϝϯτԽ UFTUJOHϚΫϩͰςετͷάϧʔϓԽ͕ग़དྷΔ จࣈྻ͸GBJMVSFSFQPSUTʹؚ·ΕΔ Ϩϙʔτ͸34QFD෩
16. (with-test (defn my-function [x y] (+ x y)) (is (=

4 (my-function 2 2))) (is (= 7 (my-function 3 4)))) ςετͷఆٛ XJUIUFTUΛ࢖͏ͱؔ਺ͷఆٛͱಉ࣌ʹ  ςετΛهड़ग़དྷΔ ௨ৗ࢖͏͜ͱ͸ͳ͍ ίʔυશମͷݟ௨͕͠ѱ͘ͳΔ
17. (deftest addition (is (= 4 (+ 2 2))) (is (=

7 (+ 3 4)))) (deftest subtraction (is (= 1 (- 4 3))) (is (= 3 (- 7 4)))) ςετͷఆٛ EFGUFTUϚΫϩΛ࢖͏ ςετର৅ͱςετΛ෼͚ͯهड़ग़དྷΔ ௨ৗͪ͜ΒΛ࢖͏ͷ͕Ұൠత
18. (defn my-fixture [f] ;; 前処理 (f) ;; テストの実行 ;; 後処理

) (use-fixtures :each my-fixture) ςετϑΟΫενϟ ϑΟΫενϟࣗମ͸ؔ਺Λͻͱͭड͚औΔ  ؔ਺ͱͯ͠ఆٛͰ͖Δ ωʔϜεϖʔεʹରͯ͠Ξλον͢Δ

20. !U@XBEB͞Μͷ໰୊Λղ͘ ໰Լهͷ࢓༷ΛςεςΟϯάϑϨʔϜϫʔΫΛ࢖ͬͯςετίʔυΛ ॻ͖ͳ͕Β࣮૷͍ͯͩ͘͠͞ɻ ʲ࢓༷ʳʮݱࡏ࣌ࠁʯʹԠͯ͡ɺѫࡰͷ಺༰ΛԼهͷΑ͏ʹͦΕͧΕฦ ͢ػೳΛ࡞੒͍ͨ͠ɻ λΠϜκʔϯ͸"TJB5PLZPͱ͢Δ  ே Ҏ্ະຬ ͷ৔߹ɺʮ͓͸Α͏͍͟͝·͢ʯͱฦ͢

ன Ҏ্ະຬ ͷ৔߹ɺʮ͜Μʹͪ͸ʯͱฦ͢ ໷ Ҏ্ະຬ ͷ৔߹ɺʮ͜Μ͹Μ͸ʯͱฦ͢ ྫ࣌ʹHSFFUFSHSFFU ΛݺͿͱ͜Μʹͪ͸ͱฦ͢ IUUQTDPEFJRKQNBHB[JOF
21. (ns demoapp.greeter) (defn current-date-time [] (java.time.LocalDateTime/now)) (defn greet [] (let

[current-hour (.getHour (current-date-time))] (cond (<= 5 current-hour 11) "おはようございます" (<= 12 current-hour 17) "こんにちは" :else "こんばんは"))) ςετର৅ͷίʔυ
22. (ns demoapp.greeter-test (:require [clojure.test :refer :all] [demoapp.greeter :as g :refer

:all]) (:import [java.time LocalDateTime])) (deftest greet-test (are [dt-str expect] (with-redefs [g/current-date-time (constantly (LocalDateTime/parse dt-str))] (= (greet) expect)) "2016-04-22T00:00" "こんばんは" "2016-04-22T04:59" "こんばんは" "2016-04-22T05:00" "おはようございます" "2016-04-22T11:59" "おはようございます" "2016-04-22T12:00" "こんにちは" "2016-04-22T17:59" "こんにちは" "2016-04-22T18:00" "こんばんは" "2016-04-22T23:59" "こんばんは")) ςετίʔυ

24. BSFϚΫϩ ࢓૊Έࣗମ͸୯७ JTϚΫϩͷܗʹల։͞ΕΔ ;; これが (are [a b x] (=

(+ a b) x) 1 2 3 5 10 15) ;; こう展開される (do (is (= (+ 1 2) 3)) (is (= (+ 5 10) 15)))
25. XJUISFEFGT 7BSΛ࠶ఆٛ͢Δ CPEZ಺෦ͷΈͰ༗ޮ (defn add3 [x] (+ x 3)) (with-redefs

[add3 (fn [x] (+ x 10))] (= (add3 10) 20)) ;; => true
26. (do (is (with-redefs [g/current-date-time (constantly (LocalDateTime/parse "2016-04-22T00:00"))] (= (greet) "こんばんは")))

;; ... 中略 (is (with-redefs [g/current-date-time (constantly (LocalDateTime/parse "2016-04-22T23:59"))] (= (greet) "こんばんは")))) ͭ·Γ͜͏ͳΔ

31. (def complex-data {"平成" [ {:id 1 :name "ayato_p"} {:id 2

:name "alea12"} ] "昭和" [ {:id 99 :name "foo"} {:id 100 :name "bar"} ]}) (fact complex-data => (contains {"平成" (contains [{:id 1 :name "ayato_p"}])})) .JEKF
32. (def members {1 "ayato_p" 2 "alea12" 3 "zer0_u"}) (defn get-id

[m] (get m :id)) (defn find-member [m] (get members (get-id m))) (fact (find-member ...m...) => "ayato_p" (provided (get-id ...m...) => 1)) .JEKF