allergies: Add the ability to select which tests to run (#877)

[no important files changed]

Author: tasxatzial

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}})))))

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})

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)))))