Testing

# All tests
clojure -M:test:db/h2

# Single library
clojure -M:test:db/h2 :core
clojure -M:test:db/h2 :user

# By tag
clojure -M:test:db/h2 --focus-meta :unit
clojure -M:test:db/h2 --focus-meta :integration
clojure -M:test:db/h2 --focus-meta :contract

# Single namespace
clojure -M:test:db/h2 --focus user-property-test

# Watch mode
clojure -M:test:db/h2 --watch :core
clojure -M:test:db/h2 --watch --focus-meta :unit

# Auth tests (JWT secret required)
JWT_SECRET="dev-secret-32-chars-minimum" clojure -M:test:db/h2 :user

(ns boundary.product.core.product-test
  (:require [clojure.test :refer [deftest is testing]]
            [boundary.product.core.product :as product-core]))

(deftest ^:unit test-prepare-product
  (testing "returns a product with a generated id"
    (let [result (product-core/prepare-product {:name "Widget" :price 9.99M})]
      (is (uuid? (:id result)))
      (is (= "Widget" (:name result)))
      (is (= 9.99M (:price result)))))

  (testing "adds timestamps"
    (let [result (product-core/prepare-product {:name "Widget" :price 9.99M})]
      (is (inst? (:created-at result)))
      (is (inst? (:updated-at result))))))

(ns boundary.product.shell.service-test
  (:require [clojure.test :refer [deftest is use-fixtures]]
            [boundary.product.shell.service :as service]
            [boundary.product.shell.adapters.in-memory :as mem]))

(defn with-service [f]
  (let [repo (mem/create-in-memory-repo)]
    (binding [*service* (service/create-product-service {:repo repo})]
      (f))))

(use-fixtures :each with-service)

(deftest ^:integration test-create-product
  (let [result (service/create-product *service* {:name "Widget" :price 9.99M})]
    (is (= "Widget" (:name result)))
    (is (uuid? (:id result)))))

(ns boundary.product.shell.persistence-test
  (:require [clojure.test :refer [deftest is use-fixtures]]
            [boundary.product.shell.persistence :as persistence]
            [boundary.test.fixtures :as fixtures]))

(use-fixtures :each fixtures/with-database)

(deftest ^:contract test-round-trip
  (let [product {:id (random-uuid) :name "Widget" :price 9.99M
                 :created-at (java.time.Instant/now)}
        _       (persistence/create-product! db product)
        found   (persistence/find-product-by-id db (:id product))]
    (is (= (:name product) (:name found)))
    (is (= (:price product) (:price found)))))

{:kaocha/tests
 [;; existing suites ...
  {:kaocha.testable/id :product
   :kaocha/source-paths ["libs/product/src"]
   :kaocha/test-paths   ["libs/product/test"]
   :kaocha/ns-patterns  ["boundary.product.*-test"]}]}

bb ai gen-tests libs/product/src/boundary/product/core/product.clj