File tree Expand file tree Collapse file tree 6 files changed +12
-44
lines changed Expand file tree Collapse file tree 6 files changed +12
-44
lines changed Load Diff This file was deleted.
Original file line number Diff line number Diff line change 3939 (is (contains? (set models) :anthropic/claude-3-5-haiku ))
4040 (is (contains? (set models) :anthropic/claude-sonnet-4 ))
4141 (is (contains? (set models) :anthropic/claude-sonnet-4-reasoning ))
42- (is (= 26 (count models))))))
42+ (is (= 28 (count models))))))
4343
4444(deftest test-get-provider
4545 (testing " Provider extraction from model keys"
110110 (let [haiku-config (model/merge-with-defaults :anthropic/claude-3-5-haiku {})]
111111 (is (= 2048 (:max-tokens haiku-config)))))
112112
113- (testing " Opus reasoning has higher budget tokens"
113+ (testing " Opus reasoning has budget tokens configured "
114114 (let [opus-reasoning (model/merge-with-defaults :anthropic/claude-opus-4-reasoning {})]
115- (is (= 8192 (get-in opus-reasoning [:thinking :budget-tokens ]))))))
115+ (is (= 4096 (get-in opus-reasoning [:thinking :budget-tokens ]))))))
116116
117117(deftest test-builder-modifications
118118 (testing " Builders can be modified before building"
Original file line number Diff line number Diff line change 349349 (is (thrown? AssertionError
350350 (schema/edn->sch {:type :array }))))
351351
352- (testing " Missing required fields for object"
353- (is (thrown? AssertionError
354- (schema/edn->sch {:type :object }))))
355-
356352 (testing " Empty enum"
357353 (is (thrown? AssertionError
358354 (schema/edn->sch {:enum []}))))
Original file line number Diff line number Diff line change 169169 (testing " Example configurations should be valid if they exist"
170170 (let [example-dir (io/file " resources/configs" )
171171 example-files (when (.exists example-dir)
172- (filter #(str/ends-with? (.getName %) " .edn" )
172+ (filter #(and (str/ends-with? (.getName %) " .edn" )
173+ ; ; Skip agent-only configs (used by prompt-cli -c)
174+ (not (str/includes? (.getName %) " prompt-cli-agent" )))
173175 (.listFiles example-dir)))]
174176 ; ; Disable env var validation for testing example files
175177 (binding [schema/*validate-env-vars* false ]
Original file line number Diff line number Diff line change 77 [clojure-mcp.tool-system :as tool-system]))
88
99(deftest test-bash-over-nrepl-config-default
10- (testing " bash-over-nrepl defaults to true "
10+ (testing " bash-over-nrepl defaults to false "
1111 (let [mock-client {:client :mock-client
1212 ::config/config {:allowed-directories [(System/getProperty " user.dir" )]
1313 :nrepl-user-dir (System/getProperty " user.dir" )}}]
14- (is (= true (config/get-bash-over-nrepl mock-client))))))
14+ (is (= false (config/get-bash-over-nrepl mock-client))))))
1515
1616(deftest test-bash-over-nrepl-config-explicit
1717 (testing " bash-over-nrepl can be explicitly set"
Original file line number Diff line number Diff line change 1414 mock-client {:client :mock-client
1515 ::nrepl/state (atom {})
1616 ::config/config {:allowed-directories [" /tmp" ]
17- :nrepl-user-dir " /tmp" }}
17+ :nrepl-user-dir " /tmp"
18+ :bash-over-nrepl true }}
1819 client-atom (atom mock-client)]
1920
2021 ; ; Mock the new-session function to track session creation
4142 mock-client {:client :mock-client
4243 ::nrepl/state (atom {})
4344 ::config/config {:allowed-directories [(System/getProperty " user.dir" )]
44- :nrepl-user-dir (System/getProperty " user.dir" )}}
45+ :nrepl-user-dir (System/getProperty " user.dir" )
46+ :bash-over-nrepl true }}
4547 client-atom (atom mock-client)
4648
4749 ; ; Create a bash tool with a mock session
You can’t perform that action at this time.
0 commit comments