Fix tests

Author: ericdallo

src/eca/features/tools/filesystem.clj

@@ -48,7 +48,16 @@
 (defn ^:private read-file [arguments db]
   (or (invalid-arguments arguments (concat (path-validations db)
                                            [["path" fs/readable? "File $path is not readable"]]))
-      (single-text-content (slurp (fs/file (fs/canonicalize (get arguments "path")))))))
+      (let [head (get arguments "head")
+            tail (get arguments "tail")
+            content (cond-> (slurp (fs/file (fs/canonicalize (get arguments "path"))))
+                      head (->> (string/split-lines)
+                                (take head)
+                                (string/join "\n"))
+                      tail (->> (string/split-lines)
+                                (take-last tail)
+                                (string/join "\n")))]
+        (single-text-content content))))
 
 (def definitions
   {"list_allowed_directories"

src/eca/llm_providers/anthropic.clj

@@ -70,7 +70,7 @@
                   "tool_call_output"
                   {:role "user"
                    :content [{:type "tool_result"
-                              :tool-use-id (:id content)
+                              :tool_use_id (:id content)
                               :content (llm-util/stringfy-tool-result content)}]}
                   msg))
               past-messages)

test/eca/features/tools/filesystem_test.clj

@@ -79,4 +79,30 @@
                        f.tools.filesystem/allowed-path? (constantly true)]
            ((get-in f.tools.filesystem/definitions ["read_file" :handler])
             {"path" (h/file-path "/foo/qux")}
+            {:workspace-folders [{:uri (h/file-uri "file:///foo/bar/baz") :name "baz"}]})))))
+  (testing "heading a file"
+    (is (match?
+         {:contents [{:type :text
+                      :error false
+                      :content "fooo\nbar"}]}
+         (with-redefs [slurp (constantly "fooo\nbar\nbaz")
+                       fs/exists? (constantly true)
+                       fs/readable? (constantly true)
+                       f.tools.filesystem/allowed-path? (constantly true)]
+           ((get-in f.tools.filesystem/definitions ["read_file" :handler])
+            {"path" (h/file-path "/foo/qux")
+             "head" 2}
+            {:workspace-folders [{:uri (h/file-uri "file:///foo/bar/baz") :name "baz"}]})))))
+  (testing "tailling a file"
+    (is (match?
+         {:contents [{:type :text
+                      :error false
+                      :content "bar\nbaz"}]}
+         (with-redefs [slurp (constantly "fooo\nbar\nbaz")
+                       fs/exists? (constantly true)
+                       fs/readable? (constantly true)
+                       f.tools.filesystem/allowed-path? (constantly true)]
+           ((get-in f.tools.filesystem/definitions ["read_file" :handler])
+            {"path" (h/file-path "/foo/qux")
+             "tail" 2}
             {:workspace-folders [{:uri (h/file-uri "file:///foo/bar/baz") :name "baz"}]}))))))

test/eca/llm_providers/anthropic_test.clj

@@ -27,7 +27,7 @@
                                         :name "list_allowed_directories"
                                         :input {}}]}
           {:role "user" :content [{:type "tool_result"
-                                   :tool-use-id "call-1"
+                                   :tool_use_id "call-1"
                                    :content "Allowed directories: /foo/bar\n"}]}
           {:role "assistant" :content "I see /foo/bar"}
           {:role "user" :content [{:type :text :text "Thanks" :cache_control {:type "ephemeral"}}]}]