/test/clj/lambdacd/util/internal/temp_test.clj

https://github.com/flosell/lambdacd · Clojure · 48 lines · 43 code · 5 blank · 0 comment · 11 complexity · fd6753d18b38509224918467181739e8 MD5 · raw file 

    

  1. (ns lambdacd.util.internal.temp-test
    2. 

  2.   (:require [clojure.test :refer :all]
    3. 

  3.             [lambdacd.util.internal.temp :refer :all]
    4. 

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

  5.             [me.raynes.fs :as fs]))
    6. 

  6. 

  7. (deftest create-temp-dir-test
    8. 

  8.   (testing "creating in default tmp folder"
    9. 

  9.     (testing "that we can create a temp-directory"
    10. 

  10.       (is (fs/exists? (io/file (create-temp-dir)))))
    11. 

  11.     (testing "that it is writable"
    12. 

  12.       (is (fs/mkdir (io/file (create-temp-dir) "hello")))))
    13. 

  13.   (testing "creating in a defined parent directory"
    14. 

  14.     (testing "that it is a child of the parent directory"
    15. 

  15.       (let [parent (create-temp-dir)]
    16. 

  16.         (is (= parent (.getParent (io/file (create-temp-dir parent)))))))))
    17. 

  17. 

  18. (defn- throw-if-not-exists [f]
    19. 

  19.   (if (not (fs/exists? f))
    20. 

  20.     (throw (IllegalStateException. (str f " does not exist")))
    21. 

  21.     "some-value-from-function"))
    22. 

  22. 

  23. (deftest with-temp-test
    24. 

  24.   (testing "that a tempfile is deleted after use"
    25. 

  25.     (let [f (create-temp-file)]
    26. 

  26.       (is (= "some-value-from-function" (with-temp f (throw-if-not-exists f))))
    27. 

  27.       (is (not (fs/exists? f)))))
    28. 

  28.   (testing "that a tempfile is deleted when body throws"
    29. 

  29.     (let [f (create-temp-file)]
    30. 

  30.       (is (thrown? Exception (with-temp f (throw (Exception. "oh no!")))))
    31. 

  31.       (is (not (fs/exists? f)))))
    32. 

  32.   (testing "that a temp-dir is deleted after use"
    33. 

  33.     (let [d (create-temp-dir)]
    34. 

  34.       (fs/touch (fs/file d "somefile"))
    35. 

  35. 

  36.       (is (= "some-value-from-function" (with-temp d (throw-if-not-exists d))))
    37. 

  37. 

  38.       (is (not (fs/exists? (fs/file d "somefile"))))
    39. 

  39.       (is (not (fs/exists? d)))))
    40. 

  40.   (testing "that it can deal with circular symlinks"
    41. 

  41.     (let [f (create-temp-dir)]
    42. 

  42.       (is (= "some-value-from-function"
    43. 

  43.              (with-temp f (let [link-parent (io/file f "foo" "bar")]
    44. 

  44.                             (fs/mkdirs link-parent)
    45. 

  45.                             (fs/sym-link (io/file link-parent "link-to-the-start") f)
    46. 

  46.                             "some-value-from-function"
    47. 

  47.                             ))))
    48. 

  48.       (is (not (fs/exists? f))))))
    49.