matrix: Add the ability to select which tests to run (#886)

[no important files changed]

Author: tasxatzial

exercises/practice/matrix/.meta/generator.tpl

@@ -3,13 +3,13 @@
             matrix))
 
 {{#test_cases.row}}
-(deftest get-row_test_{{idx}}
+(deftest ^:get-row get-row_test_{{idx}}
   (testing {{context}}
     (is (= {{expected}} (matrix/get-row {{input.string}} {{input.index}})))))
 {{/test_cases.row}}
 
 {{#test_cases.column}}
-(deftest get-column_test_{{idx}}
+(deftest ^:get-column get-column_test_{{idx}}
   (testing {{context}}
     (is (= {{expected}} (matrix/get-column {{input.string}} {{input.index}})))))
 {{/test_cases.column}}

exercises/practice/matrix/project.clj

@@ -1,4 +1,6 @@
 (defproject matrix "0.1.0-SNAPSHOT"
   :description "matrix exercise."
   :url "https://github.com/exercism/clojure/tree/main/exercises/practice/matrix"
-  :dependencies [[org.clojure/clojure "1.12.0"]])
+  :dependencies [[org.clojure/clojure "1.12.0"]]
+  :test-selectors {:get-row :get-row
+                   :get-column :get-column})

exercises/practice/matrix/test/matrix_test.clj

@@ -2,34 +2,34 @@
   (:require [clojure.test :refer [deftest testing is]]
             matrix))
 
-(deftest get-row_test_1
+(deftest ^:get-row get-row_test_1
   (testing "extract row from one number matrix"
     (is (= [1] (matrix/get-row "1" 1)))))
 
-(deftest get-row_test_2
+(deftest ^:get-row get-row_test_2
   (testing "can extract row"
     (is (= [3 4] (matrix/get-row "1 2\n3 4" 2)))))
 
-(deftest get-row_test_3
+(deftest ^:get-row get-row_test_3
   (testing "extract row where numbers have different widths"
     (is (= [10 20] (matrix/get-row "1 2\n10 20" 2)))))
 
-(deftest get-row_test_4
+(deftest ^:get-row get-row_test_4
   (testing "can extract row from non-square matrix with no corresponding column"
     (is (= [8 7 6] (matrix/get-row "1 2 3\n4 5 6\n7 8 9\n8 7 6" 4)))))
 
-(deftest get-column_test_1
+(deftest ^:get-column get-column_test_1
   (testing "extract column from one number matrix"
     (is (= [1] (matrix/get-column "1" 1)))))
 
-(deftest get-column_test_2
+(deftest ^:get-column get-column_test_2
   (testing "can extract column"
     (is (= [3 6 9] (matrix/get-column "1 2 3\n4 5 6\n7 8 9" 3)))))
 
-(deftest get-column_test_3
+(deftest ^:get-column get-column_test_3
   (testing "can extract column from non-square matrix with no corresponding row"
     (is (= [4 8 6] (matrix/get-column "1 2 3 4\n5 6 7 8\n9 8 7 6" 4)))))
 
-(deftest get-column_test_4
+(deftest ^:get-column get-column_test_4
   (testing "extract column where numbers have different widths"
     (is (= [1903 3 4] (matrix/get-column "89 1903 3\n18 3 1\n9 4 800" 2)))))