From de64a57ad0da269725130a407b46f3d61646c1b2 Mon Sep 17 00:00:00 2001 From: Anastasios Chatzialexiou <16361161+tasxatzial@users.noreply.github.com> Date: Sat, 4 Apr 2026 05:51:57 +0300 Subject: [PATCH] matrix: Add the ability to select which tests to run --- exercises/practice/matrix/.meta/generator.tpl | 4 ++-- exercises/practice/matrix/project.clj | 4 +++- exercises/practice/matrix/test/matrix_test.clj | 16 ++++++++-------- 3 files changed, 13 insertions(+), 11 deletions(-) diff --git a/exercises/practice/matrix/.meta/generator.tpl b/exercises/practice/matrix/.meta/generator.tpl index 134aaf5bd..4e68e6fd6 100644 --- a/exercises/practice/matrix/.meta/generator.tpl +++ b/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}} diff --git a/exercises/practice/matrix/project.clj b/exercises/practice/matrix/project.clj index b1b44e71f..ed1b07279 100644 --- a/exercises/practice/matrix/project.clj +++ b/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}) diff --git a/exercises/practice/matrix/test/matrix_test.clj b/exercises/practice/matrix/test/matrix_test.clj index 3c10821a8..44639826b 100644 --- a/exercises/practice/matrix/test/matrix_test.clj +++ b/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)))))