Add the config paths to the db stats command

Author: iwillig

src/clojure_skills/cli.clj

@@ -409,11 +409,15 @@
      (let [[config db] (load-config-and-db)
            stats (search/get-stats db)
            db-path (config/get-db-path config)
+           config-file-path (config/get-config-file-path)
+           project-config-path (config/get-project-config-file-path)
            permissions (get config :permissions {})
            format (output/get-output-format json human config)]
        (output/output
         {:type :stats
          :configuration {:database-path db-path
+                         :config-file-path config-file-path
+                         :project-config-path project-config-path
                          :auto-migrate (get-in config [:database :auto-migrate] true)
                          :skills-directory (get-in config [:project :skills-dir] "skills")
                          :prompts-directory (get-in config [:project :prompts-dir] "prompts")

src/clojure_skills/output.clj

@@ -261,6 +261,9 @@
     (println (bling/bling [:bold "Database Statistics"]))
     (println)
     (println (bling/bling [:underline "Configuration:"]))
+    (println (str "  Global config: " (:config-file-path config)))
+    (when (:project-config-path config)
+      (println (str "  Project config: " (:project-config-path config))))
     (println (str "  Database: " (:database-path config)))
     (println (str "  Skills directory: " (:skills-directory config)))
     (println (str "  Prompts directory: " (:prompts-directory config)))

test/clojure_skills/cli_db_test.clj

@@ -173,3 +173,19 @@
         (let [count (jdbc/execute-one! tu/*connection*
                                        ["SELECT COUNT(*) as count FROM skills"])]
           (is (= 0 (:count count))))))))
+
+(deftest db-stats-config-paths-test
+  (testing "Given: A database with configuration"
+    (binding [cli/*exit-fn* mock-exit]
+      (with-redefs [cli/load-config-and-db mock-load-config-and-db]
+        (testing "When: We request database statistics"
+          (let [{:keys [output]} (capture-output #(cli/cmd-stats {}))
+                parsed (tu/parse-json-output output)
+                config (:configuration parsed)]
+            (testing "Then: Configuration should include config file paths"
+              (is (contains? config :config-file-path) "config-file-path is present")
+              (is (string? (:config-file-path config)) "config-file-path is a string")
+              (is (contains? config :project-config-path) "project-config-path is present")
+              (is (string? (:project-config-path config)) "project-config-path is a string")
+              (is (contains? config :database-path) "database-path is present")
+              (is (string? (:database-path config)) "database-path is a string"))))))))