PageRenderTime 60ms CodeModel.GetById 37ms RepoModel.GetById 0ms app.codeStats 0ms

/src/test/clojure/clojure/tools/nrepl/helpers_test.clj

https://github.com/jwhitlark/tools.nrepl
Clojure | 48 lines | 35 code | 6 blank | 7 comment | 3 complexity | b82a7c49c62c666139382c539063f388 MD5 | raw file
    

  1. ;   Copyright (c) Rich Hickey. All rights reserved.
    2. 

  2. ;   The use and distribution terms for this software are covered by the
    3. 

  3. ;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
    4. 

  4. ;   which can be found in the file epl-v10.html at the root of this distribution.
    5. 

  5. ;   By using this software in any fashion, you are agreeing to be bound by
    6. 

  6. ;   the terms of this license.
    7. 

  7. ;   You must not remove this notice, or any other, from this software.
    8. 

  8. 

  9. (ns #^{:doc ""
    10. 

  10.        :author "Chas Emerick"}
    11. 

  11.   clojure.tools.nrepl.helpers-test
    12. 

  12.   (:import (java.io File))
    13. 

  13.   (:use [clojure.tools.nrepl-test :only (def-repl-test repl-server-fixture)]
    14. 

  14.     clojure.test)
    15. 

  15.   (:require
    16. 

  16.     [clojure.tools.nrepl :as nrepl]
    17. 

  17.     [clojure.tools.nrepl.helpers :as helpers]))
    18. 

  18. 

  19. (use-fixtures :once repl-server-fixture)
    20. 

  20. 

  21. (def-repl-test load-code-with-debug-info
    22. 

  22.   (repl-receive "\n\n\n(defn function [])")
    23. 

  23.   (is (= {:file "NO_SOURCE_PATH" :line 4}
    24. 

  24.         (repl-value "(-> #'function meta (select-keys [:file :line]))")))
    25. 

  25.   
    26. 

  26.   (repl-receive (helpers/load-file-command
    27. 

  27.                   "\n\n\n\n\n\n\n\n\n(defn dfunction [])"
    28. 

  28.                   "path/from/source/root.clj"
    29. 

  29.                   "root.clj"))
    30. 

  30.   
    31. 

  31.   (is (= [{:file "path/from/source/root.clj" :line 10}]
    32. 

  32.         (nrepl/values-with connection
    33. 

  33.           (-> #'dfunction
    34. 

  34.             meta
    35. 

  35.             (select-keys [:file :line]))))))
    36. 

  36. 

  37. (def-repl-test load-file-with-debug-info
    38. 

  38.   (repl-receive (helpers/load-file-command
    39. 

  39.                   (File. "load-file-test/clojure/tools/nrepl/load_file_sample.clj")
    40. 

  40.                   (File. "load-file-test")))
    41. 

  41.   (repl-receive (helpers/load-file-command
    42. 

  42.                   (.getAbsolutePath (File. "load-file-test/clojure/tools/nrepl/load_file_sample.clj"))
    43. 

  43.                   (File. "load-file-test")))
    44. 

  44.   (is (= [{:file "clojure/tools/nrepl/load_file_sample.clj" :line 5}]
    45. 

  45.         (nrepl/values-with connection
    46. 

  46.           (-> #'clojure.tools.nrepl.load-file-sample/dfunction
    47. 

  47.             meta
    48. 

  48.             (select-keys [:file :line]))))))
    49. 

  49.