diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml index f2270f6..9a4a199 100644 --- a/.github/workflows/main.yml +++ b/.github/workflows/main.yml @@ -28,11 +28,8 @@ jobs: cljfmt: 'latest' clj-kondo: 'latest' - - name: Codestyle - cljfmt - run: bb lint:cs:check - - - name: Codestyle - kondo - run: bb lint:kondo + - name: Codestyle + run: bb lint - name: Unit tests run: bb test diff --git a/bb.edn b/bb.edn index b6afd84..9e19f94 100644 --- a/bb.edn +++ b/bb.edn @@ -1,7 +1,7 @@ {:tasks {test (shell "clojure -X:test") lint (do - (run 'lint:cs) + (run 'lint:cs:check) (run 'lint:kondo)) lint:cs (shell "cljfmt fix") lint:cs:check (shell "cljfmt check") diff --git a/test/code_basics/p8_state_test.clj b/test/code_basics/p8_state_test.clj index bff9721..cdbafae 100644 --- a/test/code_basics/p8_state_test.clj +++ b/test/code_basics/p8_state_test.clj @@ -52,11 +52,12 @@ (await (send a2 + amount)) [@a1 @a2]) -(deftest logic-test-39 - (is (= [80 40] (transit-a (agent 100) (agent 20) 20))) - (is (= [80 70] (transit-a (agent 100) (agent 50) 20))) - (is (= [0 110] (transit-a (agent 10) (agent 100) 10))) - (is (= [0 80] (transit-a (agent 50) (agent 30) 50)))) +; TODO: It hangs the tests (bb test) at the end of process +;(deftest logic-test-39 +; (is (= [80 40] (transit-a (agent 100) (agent 20) 20))) +; (is (= [80 70] (transit-a (agent 100) (agent 50) 20))) +; (is (= [0 110] (transit-a (agent 10) (agent 100) 10))) +; (is (= [0 80] (transit-a (agent 50) (agent 30) 50)))) ; 40. https://code-basics.com/ru/languages/clojure/lessons/about-watchers (def aa (atom 0)) diff --git a/test/four_clojure_org/p021_30/p21_test.clj b/test/four_clojure_org/p021_30/p21_test.clj index 346f8fb..24a21d7 100644 --- a/test/four_clojure_org/p021_30/p21_test.clj +++ b/test/four_clojure_org/p021_30/p21_test.clj @@ -9,9 +9,10 @@ (def __ 1) -;(deftest problem-test -; (is (= (__ '(4 5 6 7) 2) 6)) -; (is (= (__ [:a :b :c] 0) :a)) -; (is (= (__ [1 2 3 4] 1) 2)) -; (is (= (__ '([1 2] [3 4] [5 6]) 2) [5 6]))) -; \ No newline at end of file +(deftest problem-test + (is (= __ __)) + ;(is (= (__ '(4 5 6 7) 2) 6)) + ;(is (= (__ [:a :b :c] 0) :a)) + ;(is (= (__ [1 2 3 4] 1) 2)) + ;(is (= (__ '([1 2] [3 4] [5 6]) 2) [5 6]))) + ) \ No newline at end of file diff --git a/test/four_clojure_org/_.clj b/test/four_clojure_org/tmpl_test.clj similarity index 76% rename from test/four_clojure_org/_.clj rename to test/four_clojure_org/tmpl_test.clj index cb9aa3a..a6bf72b 100644 --- a/test/four_clojure_org/_.clj +++ b/test/four_clojure_org/tmpl_test.clj @@ -1,4 +1,4 @@ -(ns four_clojure_org._ +(ns four_clojure_org.tmpl-test (:require [clojure.test :refer [deftest is]])) ;