test "post with image" passed

src/main/mastodon_bot/mastodon_api.cljs

@@ -144,7 +144,7 @@
          (.on "response"
            (fn [image-stream]
              (post-image mastodon-config image-stream status-text 
-                         #(post-status-with-images status-text urls (conj ids %) callback)))))
+                         #(post-status-with-images mastodon-config status-text urls (conj ids %) callback)))))
      (post-status mastodon-config status-text (not-empty ids) callback))))
 
 (defn-spec get-mastodon-timeline any?
@@ -161,7 +161,7 @@
   [mastodon-config mastodon-config?
    last-post-time any?
    items any?]
-  (doseq [{:mastodon-bot.mastodon-api/keys [text media-links]} 
+  (doseq [{:keys [text media-links]} 
           (->> items
                (remove #((blocked-content? mastodon-config (:text %))))
                (filter #(> (:created-at %) last-post-time)))]

src/test/mastodon_bot/mytest.cljs

@@ -0,0 +1,28 @@
+(ns mastodon-bot.mytest
+  (:require
+   [mastodon-bot.infra :as infra]
+   [clojure.pprint :refer [pprint]]
+   [mastodon-bot.mastodon-api :as masto]))
+
+(defn myconfig []
+  (:mastodon-config (infra/load-config)))
+
+(defn test-timeline []
+  (masto/get-mastodon-timeline
+   (myconfig)
+   pprint))
+
+(defn test-status []
+  (masto/post-status
+   (myconfig)
+   "test"
+   nil
+   pprint))
+
+(defn test-status-image []
+  (masto/post-status-with-images
+   (myconfig)
+   "test2"
+   ["https://pbs.twimg.com/media/ER3qX2RW4AEhQfW.jpg"]
+   []
+   pprint))