/test/antq/dep/gradle_test.clj

https://github.com/liquidz/antq · Clojure · 54 lines · 44 code · 7 blank · 3 comment · 0 complexity · 14292b38850a11544a42198860d66aba MD5 · raw file 

    

  1. (ns antq.dep.gradle-test
    2. 

  2.   (:require
    3. 

  3.    [antq.dep.gradle :as sut]
    4. 

  4.    [antq.record :as r]
    5. 

  5.    [clojure.java.io :as io]
    6. 

  6.    [clojure.test :as t]))
    7. 

  7. 

  8. (def ^:private file-path
    9. 

  9.   "path/to/build.gradle")
    10. 

  10. 

  11. (def ^:private expected-repos
    12. 

  12.   {"MavenRepo" {:url "https://repo.maven.apache.org/maven2/"}
    13. 

  13.    "clojars" {:url "https://repo.clojars.org"}})
    14. 

  14. 

  15. (defn- java-dependency
    16. 

  16.   [m]
    17. 

  17.   (r/map->Dependency (merge {:project :gradle
    18. 

  18.                              :type :java
    19. 

  19.                              :file file-path
    20. 

  20.                              :repositories expected-repos}
    21. 

  21.                             m)))
    22. 

  22. 

  23. (def ^:private defined-deps
    24. 

  24.   [(java-dependency {:name "org.ajoberstar/jovial" :version "0.3.0"})
    25. 

  25.    (java-dependency {:name "org.clojure/tools.namespace" :version "1.0.0"})
    26. 

  26.    (java-dependency {:name "org.clojure/clojure" :version "1.10.0"})])
    27. 

  27. 

  28. (t/deftest extract-deps-test
    29. 

  29.   (let [deps (sut/extract-deps
    30. 

  30.               file-path
    31. 

  31.               (.getPath (io/resource "dep/build.gradle")))
    32. 

  32.         defined-deps (set defined-deps)
    33. 

  33.         actual-deps (set deps)]
    34. 

  34.     ;; NOTE: Gradle on local additionally detects `nrepl/nrepl`
    35. 

  35.     ;;       And also, gradle on GitHub Actions additionally detects `org.clojure/java.classpath`
    36. 

  36.     ;;       So we check only dependencies which is explicitly defined in buld.gradle.
    37. 

  37.     (t/is (every? #(contains? actual-deps %) defined-deps))))
    38. 

  38. 

  39. (t/deftest extract-deps-without-repositories-test
    40. 

  40.   (let [deps (sut/extract-deps
    41. 

  41.               file-path
    42. 

  42.               (.getPath (io/resource "dep/build_no_repo.gradle")))
    43. 

  43.         defined-deps (->> defined-deps
    44. 

  44.                           (map #(assoc % :repositories nil))
    45. 

  45.                           (set))
    46. 

  46.         actual-deps (set deps)]
    47. 

  47.     (t/is (every? #(contains? actual-deps %) defined-deps))))
    48. 

  48. 

  49. (t/deftest extract-deps-command-error-test
    50. 

  50.   (with-redefs [sut/gradle-command "__non-existing-command__"]
    51. 

  51.     (let [deps (sut/extract-deps
    52. 

  52.                 file-path
    53. 

  53.                 (.getPath (io/resource "dep/build.gradle")))]
    54. 

  54.       (t/is (nil? deps)))))
    55.