Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

allergies: Split into one deftest per test #693

Merged
merged 6 commits into from
Jan 11, 2025
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 11 additions & 0 deletions exercises/practice/allergies/.docs/instructions.append.md
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
# Instructions append

## Appendix

~~~~exercism/note
The instructions above are synchronized with a shared repository to ensure consistency across all language tracks.
This appendix provides additional clarification or modifies the instructions as needed to better align with the goals of the Clojure track.
~~~~

For this exercise in the Clojure track, you may **assume the output of the `allergies` function is a vector**, as indicated by the tests.
However, this is not a strict requirement; you are free to return any sequential collection.
3 changes: 2 additions & 1 deletion exercises/practice/allergies/.meta/config.json
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,8 @@
"kytrinyx",
"mathias",
"sjwarner-bp",
"yurrriq"
"yurrriq",
"tasxatzial"
],
"files": {
"solution": [
Expand Down
16 changes: 10 additions & 6 deletions exercises/practice/allergies/src/allergies.clj
Original file line number Diff line number Diff line change
@@ -1,9 +1,13 @@
(ns allergies)

(defn allergies [] ;; <- arglist goes here
;; your code goes here
)
(defn allergic-to?
"Returns true if the score indicates an allergy to the allergen; otherwise, returns false"
[score allergen]
;; function body
)

(defn allergic-to? [] ;; <- arglist goes here
;; your code goes here
)
(defn allergies
"Returns all allergens associated with the score"
[score]
;; function body
)
291 changes: 190 additions & 101 deletions exercises/practice/allergies/test/allergies_test.clj
Original file line number Diff line number Diff line change
Expand Up @@ -2,123 +2,212 @@
(:require [clojure.test :refer [deftest testing is]]
allergies))

(deftest testing-for-eggs-allergy
(testing "Testing for eggs allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :eggs))))
(testing "Testing for eggs allergy -> allergic only to eggs"
(is (true? (allergies/allergic-to? 1 :eggs))))
(testing "Testing for eggs allergy -> allergic to eggs and something else"
(is (true? (allergies/allergic-to? 3 :eggs))))
(testing "Testing for eggs allergy -> allergic to something, but not eggs"
(is (false? (allergies/allergic-to? 2 :eggs))))
(testing "Testing for eggs allergy -> allergic to everything"
(deftest allergic-to?_test_1
(testing "testing for eggs allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :eggs)))))

(deftest allergic-to?_test_2
(testing "testing for eggs allergy -> allergic only to eggs"
(is (true? (allergies/allergic-to? 1 :eggs)))))

(deftest allergic-to?_test_3
(testing "testing for eggs allergy -> allergic to eggs and something else"
(is (true? (allergies/allergic-to? 3 :eggs)))))

(deftest allergic-to?_test_4
(testing "testing for eggs allergy -> allergic to something, but not eggs"
(is (false? (allergies/allergic-to? 2 :eggs)))))

(deftest allergic-to?_test_5
(testing "testing for eggs allergy -> allergic to everything"
(is (true? (allergies/allergic-to? 255 :eggs)))))

(deftest testing-for-peanuts-allergy
(testing "Testing for peanuts allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :peanuts))))
(testing "Testing for peanuts allergy -> allergic only to peanuts"
(is (true? (allergies/allergic-to? 2 :peanuts))))
(testing "Testing for peanuts allergy -> allergic to peanuts and something else"
(is (true? (allergies/allergic-to? 7 :peanuts))))
(testing "Testing for peanuts allergy -> allergic to something, but not peanuts"
(is (false? (allergies/allergic-to? 5 :peanuts))))
(testing "Testing for peanuts allergy -> allergic to everything"
(deftest allergic-to?_test_6
(testing "testing for peanuts allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :peanuts)))))

(deftest allergic-to?_test_7
(testing "testing for peanuts allergy -> allergic only to peanuts"
(is (true? (allergies/allergic-to? 2 :peanuts)))))

(deftest allergic-to?_test_8
(testing "testing for peanuts allergy -> allergic to peanuts and something else"
(is (true? (allergies/allergic-to? 7 :peanuts)))))

(deftest allergic-to?_test_9
(testing "testing for peanuts allergy -> allergic to something, but not peanuts"
(is (false? (allergies/allergic-to? 5 :peanuts)))))

(deftest allergic-to?_test_10
(testing "testing for peanuts allergy -> allergic to everything"
(is (true? (allergies/allergic-to? 255 :peanuts)))))

(deftest testing-for-shellfish-allergy
(testing "Testing for shellfish allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :shellfish))))
(testing "Testing for shellfish allergy -> allergic only to shellfish"
(is (true? (allergies/allergic-to? 4 :shellfish))))
(testing "Testing for shellfish allergy -> allergic to shellfish and something else"
(is (true? (allergies/allergic-to? 14 :shellfish))))
(testing "Testing for shellfish allergy -> allergic to something, but not shellfish"
(is (false? (allergies/allergic-to? 10 :shellfish))))
(testing "Testing for shellfish allergy -> allergic to everything"
(deftest allergic-to?_test_11
(testing "testing for shellfish allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :shellfish)))))

(deftest allergic-to?_test_12
(testing "testing for shellfish allergy -> allergic only to shellfish"
(is (true? (allergies/allergic-to? 4 :shellfish)))))

(deftest allergic-to?_test_13
(testing "testing for shellfish allergy -> allergic to shellfish and something else"
(is (true? (allergies/allergic-to? 14 :shellfish)))))

(deftest allergic-to?_test_14
(testing "testing for shellfish allergy -> allergic to something, but not shellfish"
(is (false? (allergies/allergic-to? 10 :shellfish)))))

(deftest allergic-to?_test_15
(testing "testing for shellfish allergy -> allergic to everything"
(is (true? (allergies/allergic-to? 255 :shellfish)))))

(deftest testing-for-strawberries-allergy
(testing "Testing for strawberries allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :strawberries))))
(testing "Testing for strawberries allergy -> allergic only to strawberries"
(is (true? (allergies/allergic-to? 8 :strawberries))))
(testing "Testing for strawberries allergy -> allergic to strawberries and something else"
(is (true? (allergies/allergic-to? 28 :strawberries))))
(testing "Testing for strawberries allergy -> allergic to something, but not strawberries"
(is (false? (allergies/allergic-to? 20 :strawberries))))
(testing "Testing for strawberries allergy -> allergic to everything"
(deftest allergic-to?_test_16
(testing "testing for strawberries allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :strawberries)))))

(deftest allergic-to?_test_17
(testing "testing for strawberries allergy -> allergic only to strawberries"
(is (true? (allergies/allergic-to? 8 :strawberries)))))

(deftest allergic-to?_test_18
(testing "testing for strawberries allergy -> allergic to strawberries and something else"
(is (true? (allergies/allergic-to? 28 :strawberries)))))

(deftest allergic-to?_test_19
(testing "testing for strawberries allergy -> allergic to something, but not strawberries"
(is (false? (allergies/allergic-to? 20 :strawberries)))))

(deftest allergic-to?_test_20
(testing "testing for strawberries allergy -> allergic to everything"
(is (true? (allergies/allergic-to? 255 :strawberries)))))

(deftest testing-for-tomatoes-allergy
(testing "Testing for tomatoes allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :tomatoes))))
(testing "Testing for tomatoes allergy -> allergic only to tomatoes"
(is (true? (allergies/allergic-to? 16 :tomatoes))))
(testing "Testing for tomatoes allergy -> allergic to tomatoes and something else"
(is (true? (allergies/allergic-to? 56 :tomatoes))))
(testing "Testing for tomatoes allergy -> allergic to something, but not tomatoes"
(is (false? (allergies/allergic-to? 40 :tomatoes))))
(testing "Testing for tomatoes allergy -> allergic to everything"
(deftest allergic-to?_test_21
(testing "testing for tomatoes allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :tomatoes)))))

(deftest allergic-to?_test_22
(testing "testing for tomatoes allergy -> allergic only to tomatoes"
(is (true? (allergies/allergic-to? 16 :tomatoes)))))

(deftest allergic-to?_test_23
(testing "testing for tomatoes allergy -> allergic to tomatoes and something else"
(is (true? (allergies/allergic-to? 56 :tomatoes)))))

(deftest allergic-to?_test_24
(testing "testing for tomatoes allergy -> allergic to something, but not tomatoes"
(is (false? (allergies/allergic-to? 40 :tomatoes)))))

(deftest allergic-to?_test_25
(testing "testing for tomatoes allergy -> allergic to everything"
(is (true? (allergies/allergic-to? 255 :tomatoes)))))

(deftest testing-for-chocolate-allergy
(testing "Testing for chocolate allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :chocolate))))
(testing "Testing for chocolate allergy -> allergic only to chocolate"
(is (true? (allergies/allergic-to? 32 :chocolate))))
(testing "Testing for chocolate allergy -> allergic to chocolate and something else"
(is (true? (allergies/allergic-to? 112 :chocolate))))
(testing "Testing for chocolate allergy -> allergic to something, but not chocolate"
(is (false? (allergies/allergic-to? 80 :chocolate))))
(testing "Testing for chocolate allergy -> allergic to everything"
(deftest allergic-to?_test_26
(testing "testing for chocolate allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :chocolate)))))

(deftest allergic-to?_test_27
(testing "testing for chocolate allergy -> allergic only to chocolate"
(is (true? (allergies/allergic-to? 32 :chocolate)))))

(deftest allergic-to?_test_28
(testing "testing for chocolate allergy -> allergic to chocolate and something else"
(is (true? (allergies/allergic-to? 112 :chocolate)))))

(deftest allergic-to?_test_29
(testing "testing for chocolate allergy -> allergic to something, but not chocolate"
(is (false? (allergies/allergic-to? 80 :chocolate)))))

(deftest allergic-to?_test_30
(testing "testing for chocolate allergy -> allergic to everything"
(is (true? (allergies/allergic-to? 255 :chocolate)))))

(deftest testing-for-pollen-allergy
(testing "Testing for pollen allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :pollen))))
(testing "Testing for pollen allergy -> allergic only to pollen"
(is (true? (allergies/allergic-to? 64 :pollen))))
(testing "Testing for pollen allergy -> allergic to pollen and something else"
(is (true? (allergies/allergic-to? 224 :pollen))))
(testing "Testing for pollen allergy -> allergic to something, but not pollen"
(is (false? (allergies/allergic-to? 160 :pollen))))
(testing "Testing for pollen allergy -> allergic to everything"
(deftest allergic-to?_test_31
(testing "testing for pollen allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :pollen)))))

(deftest allergic-to?_test_32
(testing "testing for pollen allergy -> allergic only to pollen"
(is (true? (allergies/allergic-to? 64 :pollen)))))

(deftest allergic-to?_test_33
(testing "testing for pollen allergy -> allergic to pollen and something else"
(is (true? (allergies/allergic-to? 224 :pollen)))))

(deftest allergic-to?_test_34
(testing "testing for pollen allergy -> allergic to something, but not pollen"
(is (false? (allergies/allergic-to? 160 :pollen)))))

(deftest allergic-to?_test_35
(testing "testing for pollen allergy -> allergic to everything"
(is (true? (allergies/allergic-to? 255 :pollen)))))

(deftest testing-for-cats-allergy
(testing "Testing for cats allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :cats))))
(testing "Testing for cats allergy -> allergic only to cats"
(is (true? (allergies/allergic-to? 128 :cats))))
(testing "Testing for cats allergy -> allergic to cats and something else"
(is (true? (allergies/allergic-to? 192 :cats))))
(testing "Testing for cats allergy -> allergic to something, but not cats"
(is (false? (allergies/allergic-to? 64 :cats))))
(testing "Testing for cats allergy -> allergic to everything"
(deftest allergic-to?_test_36
(testing "testing for cats allergy -> not allergic to anything"
(is (false? (allergies/allergic-to? 0 :cats)))))

(deftest allergic-to?_test_37
(testing "testing for cats allergy -> allergic only to cats"
(is (true? (allergies/allergic-to? 128 :cats)))))

(deftest allergic-to?_test_38
(testing "testing for cats allergy -> allergic to cats and something else"
(is (true? (allergies/allergic-to? 192 :cats)))))

(deftest allergic-to?_test_39
(testing "testing for cats allergy -> allergic to something, but not cats"
(is (false? (allergies/allergic-to? 64 :cats)))))

(deftest allergic-to?_test_40
(testing "testing for cats allergy -> allergic to everything"
(is (true? (allergies/allergic-to? 255 :cats)))))

(deftest list-when
(testing "List when: no allergies"
(is (= [] (allergies/allergies 0))))
(testing "List when: allergic to just eggs"
(is (= [:eggs] (allergies/allergies 1))))
(testing "List when: allergic to just peanuts"
(is (= [:peanuts] (allergies/allergies 2))))
(testing "List when: allergic to just strawberries"
(is (= [:strawberries] (allergies/allergies 8))))
(testing "List when: allergic to eggs and peanuts"
(is (= [:eggs :peanuts] (allergies/allergies 3))))
(testing "List when: allergic to more than eggs but not peanuts"
(is (= [:eggs :shellfish] (allergies/allergies 5))))
(testing "List when: allergic to lots of stuff"
(deftest allergies_test_1
(testing "list when: -> no allergies"
(is (= []
(allergies/allergies 0)))))

(deftest allergies_test_2
(testing "list when: -> just eggs"
(is (= [:eggs]
(allergies/allergies 1)))))

(deftest allergies_test_3
(testing "list when: -> just peanuts"
(is (= [:peanuts]
(allergies/allergies 2)))))

(deftest allergies_test_4
(testing "list when: -> just strawberries"
(is (= [:strawberries]
(allergies/allergies 8)))))

(deftest allergies_test_5
(testing "list when: -> eggs and peanuts"
(is (= [:eggs :peanuts]
(allergies/allergies 3)))))

(deftest allergies_test_6
(testing "list when: -> more than eggs but not peanuts"
(is (= [:eggs :shellfish]
(allergies/allergies 5)))))

(deftest allergies_test_7
(testing "list when: -> lots of stuff"
(is (= [:strawberries :tomatoes :chocolate :pollen :cats]
(allergies/allergies 248))))
(testing "List when: allergic to everything"
(allergies/allergies 248)))))

(deftest allergies_test_8
(testing "list when: -> everything"
(is (= [:eggs :peanuts :shellfish :strawberries :tomatoes :chocolate :pollen :cats]
(allergies/allergies 255))))
(testing "List when: no allergen score parts"
(allergies/allergies 255)))))

(deftest allergies_test_9
(testing "list when: -> no allergen score parts"
(is (= [:eggs :shellfish :strawberries :tomatoes :chocolate :pollen :cats]
(allergies/allergies 509))))
(testing "List when: no allergen score parts without highest valid score"
(is (= [:eggs] (allergies/allergies 257)))))
(allergies/allergies 509)))))

(deftest allergies_test_10
(testing "list when: -> no allergen score parts without highest valid score"
(is (= [:eggs]
(allergies/allergies 257)))))