Test Filter: Intelligent Test Selection for Clojure

Source Change: modify function `foo/bar` at line 42
↓
Consult Graph: which symbols use `foo/bar`?
↓
Transitive Walk: `baz/qux` uses `foo/bar`
                 `app/handler` uses `baz/qux`
                 `app-test/handler-test` tests `app/handler`
↓
Test Selection: run `app-test/handler-test`
                (and any other tests that transitively depend on `foo/bar`)

(require '[test-filter.core :as core])

;; Analyze the codebase and build cache
(core/analyze!)

;; Select tests based on changes
(def result (core/select-tests :verbose true))

;; Show affected tests
(core/print-tests (:tests result) :format :namespaces)

;; Check statistics
(:stats result)
;; => {:total-symbols 153
;;     :total-dependencies 355
;;     :total-tests 12
;;     :affected-tests 3
;;     :tests-skipped 9}

# 1. Initial analysis (run once or after major changes)
clojure -M:cli analyze

# 2. Make code changes
# ... edit files ...

# 3. Commit changes
git add .
git commit -m "Added feature X"

# 4. Select and view affected tests
clojure -M:cli select -v

# 5. Run only affected tests
clojure -M:cli select -o kaocha | xargs clojure -M:kaocha

#!/bin/bash
# In your CI pipeline

# Cache the analysis from main branch
git checkout main
clojure -M:cli analyze

# Checkout PR branch
git checkout $PR_BRANCH

# Select and run affected tests
TESTS=$(clojure -M:cli select -o namespaces)
if [ -n "$TESTS" ]; then
  echo "Running affected tests: $TESTS"
  clojure -M:kaocha --focus $TESTS
else
  echo "No tests affected by changes"
fi

(ns my-app.spec-test
  (:require [fulcro-spec.core :refer [specification assertions]]))

(specification "User registration"
  (assertions
    "creates a new user"
    (register-user {:name "Alice"}) => {:id 1 :name "Alice"}))

(ns my-app.integration.api-test
  (:require [clojure.test :refer [deftest is]]
            [my-app.system :as system]))

(deftest test-user-api
  (let [sys (system/start)]
    ;; Integration test
    (is (= 200 (:status (api-call sys))))))

(ns my-app.utils
  #?(:clj (:import [java.nio.file Paths])))

(defn normalize-path [path]
  #?(:clj  (-> (Paths/get path (into-array String []))
               (.normalize)
               (.toString))
     :cljs (.normalize js/path path)))