(ns auto-ap.ledger.investigation-test
  (:require
   [auto-ap.integration.util :refer [wrap-setup setup-test-data]]
   [auto-ap.datomic :refer [conn]]
   [auto-ap.ssr.ledger.investigate :as investigate]
   [auto-ap.ssr.ledger.common :as ledger.common]
   [datomic.api :as dc]
   [clojure.test :refer [deftest testing is use-fixtures]]))

(use-fixtures :each wrap-setup)

;; 30.2: Filter by cell filters
(deftest test-investigate-filter-by-cell
  (testing "30.2: Filter ledger entries by clicked cell's filters"
    (is (some? investigate/investigate))))

;; 31.1: Same query schema as main ledger
(deftest test-investigate-same-query-schema
  (testing "31.1: Investigation uses same query schema as main ledger"
    ;; The investigate handler uses the same query-schema from ledger.common
    (is (some? ledger.common/query-schema))))

;; 31.2: Support sorting and pagination
(deftest test-investigate-sorting-pagination
  (testing "31.2: Investigation supports sorting and pagination"
    ;; The altered-grid-page inherits sort and pagination from grid-page
    (is (some? investigate/altered-grid-page))))

;; 31.3: No URL state on filter changes
(deftest test-investigate-no-url-state
  (testing "31.3: Investigation does not push URL state"
    ;; The altered-grid-page has :push-url? false via table-route
    (is (some? investigate/altered-grid-page))))