diff --git a/exercises/practice/allergies/.meta/generator.tpl b/exercises/practice/allergies/.meta/generator.tpl index a8aa4152c..eb375344a 100644 --- a/exercises/practice/allergies/.meta/generator.tpl +++ b/exercises/practice/allergies/.meta/generator.tpl @@ -3,13 +3,13 @@ allergies)) {{#test_cases.allergicTo}} -(deftest allergic-to?_test_{{idx}} +(deftest ^:allergic-to? allergic-to?_test_{{idx}} (testing {{context}} (is ({{#expected}}true?{{else}}false?{{/expected}} (allergies/allergic-to? {{input.score}} {{input.item}}))))) {{/test_cases.allergicTo}} {{#test_cases.list}} -(deftest allergies_test_{{idx}} +(deftest ^:allergies allergies_test_{{idx}} (testing {{context}} (is (= {{expected}} (allergies/allergies {{input.score}}))))) diff --git a/exercises/practice/allergies/project.clj b/exercises/practice/allergies/project.clj index 48f2ba40b..bf7a16b18 100644 --- a/exercises/practice/allergies/project.clj +++ b/exercises/practice/allergies/project.clj @@ -1,4 +1,6 @@ (defproject allergies "0.1.0-SNAPSHOT" :description "allergies exercise." :url "https://github.com/exercism/clojure/tree/main/exercises/practice/allergies" - :dependencies [[org.clojure/clojure "1.12.0"]]) + :dependencies [[org.clojure/clojure "1.12.0"]] + :test-selectors {:allergic-to? :allergic-to? + :allergies :allergies}) diff --git a/exercises/practice/allergies/test/allergies_test.clj b/exercises/practice/allergies/test/allergies_test.clj index e7204d07a..383125db0 100644 --- a/exercises/practice/allergies/test/allergies_test.clj +++ b/exercises/practice/allergies/test/allergies_test.clj @@ -2,212 +2,212 @@ (:require [clojure.test :refer [deftest testing is]] allergies)) -(deftest allergic-to?_test_1 +(deftest ^:allergic-to? allergic-to?_test_1 (testing "check for eggs allergy ▶ not allergic to anything" (is (false? (allergies/allergic-to? 0 :eggs))))) -(deftest allergic-to?_test_2 +(deftest ^:allergic-to? allergic-to?_test_2 (testing "check for eggs allergy ▶ allergic only to eggs" (is (true? (allergies/allergic-to? 1 :eggs))))) -(deftest allergic-to?_test_3 +(deftest ^:allergic-to? allergic-to?_test_3 (testing "check for eggs allergy ▶ allergic to eggs and something else" (is (true? (allergies/allergic-to? 3 :eggs))))) -(deftest allergic-to?_test_4 +(deftest ^:allergic-to? allergic-to?_test_4 (testing "check for eggs allergy ▶ allergic to something, but not eggs" (is (false? (allergies/allergic-to? 2 :eggs))))) -(deftest allergic-to?_test_5 +(deftest ^:allergic-to? allergic-to?_test_5 (testing "check for eggs allergy ▶ allergic to everything" (is (true? (allergies/allergic-to? 255 :eggs))))) -(deftest allergic-to?_test_6 +(deftest ^:allergic-to? allergic-to?_test_6 (testing "check for peanuts allergy ▶ not allergic to anything" (is (false? (allergies/allergic-to? 0 :peanuts))))) -(deftest allergic-to?_test_7 +(deftest ^:allergic-to? allergic-to?_test_7 (testing "check for peanuts allergy ▶ allergic only to peanuts" (is (true? (allergies/allergic-to? 2 :peanuts))))) -(deftest allergic-to?_test_8 +(deftest ^:allergic-to? allergic-to?_test_8 (testing "check for peanuts allergy ▶ allergic to peanuts and something else" (is (true? (allergies/allergic-to? 7 :peanuts))))) -(deftest allergic-to?_test_9 +(deftest ^:allergic-to? allergic-to?_test_9 (testing "check for peanuts allergy ▶ allergic to something, but not peanuts" (is (false? (allergies/allergic-to? 5 :peanuts))))) -(deftest allergic-to?_test_10 +(deftest ^:allergic-to? allergic-to?_test_10 (testing "check for peanuts allergy ▶ allergic to everything" (is (true? (allergies/allergic-to? 255 :peanuts))))) -(deftest allergic-to?_test_11 +(deftest ^:allergic-to? allergic-to?_test_11 (testing "check for shellfish allergy ▶ not allergic to anything" (is (false? (allergies/allergic-to? 0 :shellfish))))) -(deftest allergic-to?_test_12 +(deftest ^:allergic-to? allergic-to?_test_12 (testing "check for shellfish allergy ▶ allergic only to shellfish" (is (true? (allergies/allergic-to? 4 :shellfish))))) -(deftest allergic-to?_test_13 +(deftest ^:allergic-to? allergic-to?_test_13 (testing "check for shellfish allergy ▶ allergic to shellfish and something else" (is (true? (allergies/allergic-to? 14 :shellfish))))) -(deftest allergic-to?_test_14 +(deftest ^:allergic-to? allergic-to?_test_14 (testing "check for shellfish allergy ▶ allergic to something, but not shellfish" (is (false? (allergies/allergic-to? 10 :shellfish))))) -(deftest allergic-to?_test_15 +(deftest ^:allergic-to? allergic-to?_test_15 (testing "check for shellfish allergy ▶ allergic to everything" (is (true? (allergies/allergic-to? 255 :shellfish))))) -(deftest allergic-to?_test_16 +(deftest ^:allergic-to? allergic-to?_test_16 (testing "check for strawberries allergy ▶ not allergic to anything" (is (false? (allergies/allergic-to? 0 :strawberries))))) -(deftest allergic-to?_test_17 +(deftest ^:allergic-to? allergic-to?_test_17 (testing "check for strawberries allergy ▶ allergic only to strawberries" (is (true? (allergies/allergic-to? 8 :strawberries))))) -(deftest allergic-to?_test_18 +(deftest ^:allergic-to? allergic-to?_test_18 (testing "check for strawberries allergy ▶ allergic to strawberries and something else" (is (true? (allergies/allergic-to? 28 :strawberries))))) -(deftest allergic-to?_test_19 +(deftest ^:allergic-to? allergic-to?_test_19 (testing "check for strawberries allergy ▶ allergic to something, but not strawberries" (is (false? (allergies/allergic-to? 20 :strawberries))))) -(deftest allergic-to?_test_20 +(deftest ^:allergic-to? allergic-to?_test_20 (testing "check for strawberries allergy ▶ allergic to everything" (is (true? (allergies/allergic-to? 255 :strawberries))))) -(deftest allergic-to?_test_21 +(deftest ^:allergic-to? allergic-to?_test_21 (testing "check for tomatoes allergy ▶ not allergic to anything" (is (false? (allergies/allergic-to? 0 :tomatoes))))) -(deftest allergic-to?_test_22 +(deftest ^:allergic-to? allergic-to?_test_22 (testing "check for tomatoes allergy ▶ allergic only to tomatoes" (is (true? (allergies/allergic-to? 16 :tomatoes))))) -(deftest allergic-to?_test_23 +(deftest ^:allergic-to? allergic-to?_test_23 (testing "check for tomatoes allergy ▶ allergic to tomatoes and something else" (is (true? (allergies/allergic-to? 56 :tomatoes))))) -(deftest allergic-to?_test_24 +(deftest ^:allergic-to? allergic-to?_test_24 (testing "check for tomatoes allergy ▶ allergic to something, but not tomatoes" (is (false? (allergies/allergic-to? 40 :tomatoes))))) -(deftest allergic-to?_test_25 +(deftest ^:allergic-to? allergic-to?_test_25 (testing "check for tomatoes allergy ▶ allergic to everything" (is (true? (allergies/allergic-to? 255 :tomatoes))))) -(deftest allergic-to?_test_26 +(deftest ^:allergic-to? allergic-to?_test_26 (testing "check for chocolate allergy ▶ not allergic to anything" (is (false? (allergies/allergic-to? 0 :chocolate))))) -(deftest allergic-to?_test_27 +(deftest ^:allergic-to? allergic-to?_test_27 (testing "check for chocolate allergy ▶ allergic only to chocolate" (is (true? (allergies/allergic-to? 32 :chocolate))))) -(deftest allergic-to?_test_28 +(deftest ^:allergic-to? allergic-to?_test_28 (testing "check for chocolate allergy ▶ allergic to chocolate and something else" (is (true? (allergies/allergic-to? 112 :chocolate))))) -(deftest allergic-to?_test_29 +(deftest ^:allergic-to? allergic-to?_test_29 (testing "check for chocolate allergy ▶ allergic to something, but not chocolate" (is (false? (allergies/allergic-to? 80 :chocolate))))) -(deftest allergic-to?_test_30 +(deftest ^:allergic-to? allergic-to?_test_30 (testing "check for chocolate allergy ▶ allergic to everything" (is (true? (allergies/allergic-to? 255 :chocolate))))) -(deftest allergic-to?_test_31 +(deftest ^:allergic-to? allergic-to?_test_31 (testing "check for pollen allergy ▶ not allergic to anything" (is (false? (allergies/allergic-to? 0 :pollen))))) -(deftest allergic-to?_test_32 +(deftest ^:allergic-to? allergic-to?_test_32 (testing "check for pollen allergy ▶ allergic only to pollen" (is (true? (allergies/allergic-to? 64 :pollen))))) -(deftest allergic-to?_test_33 +(deftest ^:allergic-to? allergic-to?_test_33 (testing "check for pollen allergy ▶ allergic to pollen and something else" (is (true? (allergies/allergic-to? 224 :pollen))))) -(deftest allergic-to?_test_34 +(deftest ^:allergic-to? allergic-to?_test_34 (testing "check for pollen allergy ▶ allergic to something, but not pollen" (is (false? (allergies/allergic-to? 160 :pollen))))) -(deftest allergic-to?_test_35 +(deftest ^:allergic-to? allergic-to?_test_35 (testing "check for pollen allergy ▶ allergic to everything" (is (true? (allergies/allergic-to? 255 :pollen))))) -(deftest allergic-to?_test_36 +(deftest ^:allergic-to? allergic-to?_test_36 (testing "check for cats allergy ▶ not allergic to anything" (is (false? (allergies/allergic-to? 0 :cats))))) -(deftest allergic-to?_test_37 +(deftest ^:allergic-to? allergic-to?_test_37 (testing "check for cats allergy ▶ allergic only to cats" (is (true? (allergies/allergic-to? 128 :cats))))) -(deftest allergic-to?_test_38 +(deftest ^:allergic-to? allergic-to?_test_38 (testing "check for cats allergy ▶ allergic to cats and something else" (is (true? (allergies/allergic-to? 192 :cats))))) -(deftest allergic-to?_test_39 +(deftest ^:allergic-to? allergic-to?_test_39 (testing "check for cats allergy ▶ allergic to something, but not cats" (is (false? (allergies/allergic-to? 64 :cats))))) -(deftest allergic-to?_test_40 +(deftest ^:allergic-to? allergic-to?_test_40 (testing "check for cats allergy ▶ allergic to everything" (is (true? (allergies/allergic-to? 255 :cats))))) -(deftest allergies_test_1 +(deftest ^:allergies allergies_test_1 (testing "allergies ▶ no allergies" (is (= [] (allergies/allergies 0))))) -(deftest allergies_test_2 +(deftest ^:allergies allergies_test_2 (testing "allergies ▶ just eggs" (is (= [:eggs] (allergies/allergies 1))))) -(deftest allergies_test_3 +(deftest ^:allergies allergies_test_3 (testing "allergies ▶ just peanuts" (is (= [:peanuts] (allergies/allergies 2))))) -(deftest allergies_test_4 +(deftest ^:allergies allergies_test_4 (testing "allergies ▶ just strawberries" (is (= [:strawberries] (allergies/allergies 8))))) -(deftest allergies_test_5 +(deftest ^:allergies allergies_test_5 (testing "allergies ▶ eggs and peanuts" (is (= [:eggs :peanuts] (allergies/allergies 3))))) -(deftest allergies_test_6 +(deftest ^:allergies allergies_test_6 (testing "allergies ▶ more than eggs but not peanuts" (is (= [:eggs :shellfish] (allergies/allergies 5))))) -(deftest allergies_test_7 +(deftest ^:allergies allergies_test_7 (testing "allergies ▶ lots of stuff" (is (= [:strawberries :tomatoes :chocolate :pollen :cats] (allergies/allergies 248))))) -(deftest allergies_test_8 +(deftest ^:allergies allergies_test_8 (testing "allergies ▶ everything" (is (= [:eggs :peanuts :shellfish :strawberries :tomatoes :chocolate :pollen :cats] (allergies/allergies 255))))) -(deftest allergies_test_9 +(deftest ^:allergies allergies_test_9 (testing "allergies ▶ no allergen score parts" (is (= [:eggs :shellfish :strawberries :tomatoes :chocolate :pollen :cats] (allergies/allergies 509))))) -(deftest allergies_test_10 +(deftest ^:allergies allergies_test_10 (testing "allergies ▶ no allergen score parts without highest valid score" (is (= [:eggs] (allergies/allergies 257)))))