move to util

Author: p2d0

example_test.clj

@@ -8,13 +8,15 @@
   (keyword (clojure.string/replace key #"_" "-")))
 (def client-info (json/read-str (slurp ".client_info.json")
                                 :key-fn clojure-stylify))
+
 (defn- gfycat-request [path query-params]
   (-> (client/get (str "https://api.gfycat.com/v1/" path)
                   {:content-type :json
                    :accept "text/html"
                    :query-params query-params})
       :body
       (json/read-str :key-fn clojure-stylify)))
+
 (defn get-token []
   (let [token-chan (chan)]
     (go

src/gfycat_api/core.clj

@@ -0,0 +1,6 @@
+(ns gfycat-api.util)
+
+(defn get-gfycats-with [keys search-result]
+  "returns list of gfycats with selected parameters,
+   removes all other parameters"
+  (map #(select-keys % keys) (:gfycats search-result)))

src/gfycat_api/util.clj

@@ -1,15 +1,15 @@
 (ns gfycat-api.core-test
   (:require [clojure.test :refer [deftest is testing]]
             [gfycat-api.core :as core]
-            [clojure.core.async :refer [go <! <!! >! >!! alt! alt!! chan]]))
+            ))
 
 #_(deftest get-token-test
     (let [token (<!! (core/get-token))]
       (is (not (nil? token)))
       (is (= (:expires-in token) 3600))))
 (def token (:access-token (<!! (core/get-token))))
-(deftest search-test
-  (testing "should return one gfycat search result"
-    (let [search-result (core/search token "thanos power up" 1)]
-      (is (= search-result {}))))
-  (testing "searchnig with cursor"))
+#_(deftest search-test
+    (testing "should return one gfycat search result"
+      (let [search-result (core/search token "wow" 1)]
+        (is (= search-result {}))))
+    (testing "searchnig with cursor"))

test/gfycat_api/core_test.clj

@@ -0,0 +1,93 @@
+(ns gfycat-api.fixtures)
+(def single-gfycat-search-result
+  {:cursor ""
+   :gfycats
+   [{:description "Illustrator, Instagram, Facebook, graphics, Snapchat, free, Adobe Creative Cloud, visual effects, ambient effects, free footage, After effects, compositing, Photoshop, GIF, motion, after effects"
+     :tags ["compositing" "facebook" "free" "gif" "graphics" "illustrator" "instagram" "motion" "photoshop" "snapchat"]
+     :max2mbGif "https://thumbs.gfycat.com/FondFocusedClownanemonefish-small.gif"
+     :webmSize 657581
+     :gfySlug "compositing-illustrator-photoshop"
+     :miniUrl "https://thumbs.gfycat.com/FondFocusedClownanemonefish-mobile.mp4"
+     :numFrames 250
+     :dislikes 0
+     :avgColor "#C9C7C6"
+     :mp4Url "https://giant.gfycat.com/FondFocusedClownanemonefish.mp4"
+     :miniPosterUrl "https://thumbs.gfycat.com/FondFocusedClownanemonefish-mobile.jpg"
+     :gifUrl "https://thumbs.gfycat.com/FondFocusedClownanemonefish-size_restricted.gif"
+     :thumb100PosterUrl "https://thumbs.gfycat.com/FondFocusedClownanemonefish-mobile.jpg"
+     :domainWhitelist []
+
+     :content-urls {:max2mbGif {:url "https://thumbs.gfycat.com/FondFocusedClownanemonefish-small.gif"
+                                :size 1681055
+                                :height 158
+                                :width 280}
+                    :webm {:url "https://giant.gfycat.com/FondFocusedClownanemonefish.webm"
+                           :size 657581
+                           :height 720
+                           :width 1280}
+                    :mp4 {:url "https://giant.gfycat.com/FondFocusedClownanemonefish.mp4"
+                          :size 1777677
+                          :height 720
+                          :width 1280}
+                    :max1mbGif {:url "https://thumbs.gfycat.com/FondFocusedClownanemonefish-max-1mb.gif"
+                                :size 816111
+                                :height 158
+                                :width 280}
+                    :webp {:url "https://thumbs.gfycat.com/FondFocusedClownanemonefish.webp"
+                           :size 504468
+                           :height 0
+                           :width 0}
+                    :largeGif {:url "https://thumbs.gfycat.com/FondFocusedClownanemonefish-size_restricted.gif"
+                               :size 4762903
+                               :height 250
+                               :width 444}
+                    :max5mbGif {:url "https://thumbs.gfycat.com/FondFocusedClownanemonefish-size_restricted.gif"
+                                :size 4762903
+                                :height 250
+                                :width 444}
+                    :mobilePoster {:url "https://thumbs.gfycat.com/FondFocusedClownanemonefish-mobile.jpg"
+                                   :size 11867
+                                   :height 360
+                                   :width 640}
+                    :mobile {:url "https://thumbs.gfycat.com/FondFocusedClownanemonefish-mobile.mp4"
+                             :size 532078
+                             :height 360
+                             :width 640}
+                    :100pxGif {:url "https://thumbs.gfycat.com/FondFocusedClownanemonefish-max-1mb.gif"
+                               :size 816111
+                               :height 158
+                               :width 280}}
+     :gif100px "https://thumbs.gfycat.com/FondFocusedClownanemonefish-max-1mb.gif"
+     :frameRate 25
+     :max1mbGif "https://thumbs.gfycat.com/FondFocusedClownanemonefish-max-1mb.gif"
+     :gfyNumber "742741416"
+     :width 1280
+     :gatekeeper 0
+     :mobilePosterUrl "https://thumbs.gfycat.com/FondFocusedClownanemonefish-mobile.jpg"
+     :source 1
+     :likes 0
+     :curated 0
+     :createDate 1553634301
+     :title "Canadian Flag waving animated using MIR plug in after effects - free motion graphics"
+     :languageText2 ""
+     :nsfw "0"
+     :extraLemmas ""
+     :hasAudio true
+     :max5mbGif "https://thumbs.gfycat.com/FondFocusedClownanemonefish-size_restricted.gif"
+     :languageCategories nil
+     :mp4Size 1777677
+     :url "https://youtu.be/uGZpBKLQdSg"
+     :mobileUrl "https://thumbs.gfycat.com/FondFocusedClownanemonefish-mobile.mp4"
+     :gfyId "fondfocusedclownanemonefish"
+     :gfyName "FondFocusedClownanemonefish"
+     :posterUrl "https://thumbs.gfycat.com/FondFocusedClownanemonefish-poster.jpg"
+     :hasTransparency false
+     :webpUrl "https://thumbs.gfycat.com/FondFocusedClownanemonefish.webp"
+     :webmUrl "https://giant.gfycat.com/FondFocusedClownanemonefish.webm"
+     :userName "anonymous"
+     :published 1
+     :rating "PG"
+     :height 720
+     :views 27828}]
+   :related ["compositing" "facebook" "free" "gif" "graphics" "illustrator" "instagram" "motion" "photoshop" "snapchat" "illustrator" " instagram" " facebook" " graphics" " snapchat" " free" " adobe creative cloud" " visual effects" " ambient effects" " free footage" " after effects" " compositing" " photoshop" " gif" " motion"]
+   :found 2})

test/gfycat_api/fixtures.clj

@@ -0,0 +1,10 @@
+(ns gfycat-api.core-test
+  (:require
+   [clojure.test :refer [deftest is testing]]
+            [gfycat-api.fixtures :as fixtures]
+   [gfycat-api.util :as util]))
+
+(deftest search-result-filtering
+  (is (= (util/get-gfycats-with [:title] fixtures/single-gfycat-search-result)
+         '({:title
+            "Canadian Flag waving animated using MIR plug in after effects - free motion graphics"}))))