Skip to content

Instantly share code, notes, and snippets.

@vemv
Created March 28, 2019 02:26
Show Gist options
  • Save vemv/c2b4af581868422431367ddbdeb748a0 to your computer and use it in GitHub Desktop.
Save vemv/c2b4af581868422431367ddbdeb748a0 to your computer and use it in GitHub Desktop.
diff --git a/project.clj b/project.clj
index 75f84c0..334e08c 100644
--- a/project.clj
+++ b/project.clj
@@ -4,6 +4,7 @@
:license {:name "Eclipse Public License"
:url "http://www.eclipse.org/legal/epl-v10.html"}
:dependencies [[nrepl "0.4.4"]
+ [org.clojure/core.async "0.3.465"]
^:source-dep [http-kit "2.3.0"]
^:source-dep [cheshire "5.8.0"]
^:source-dep [org.clojure/tools.analyzer.jvm "0.7.1"]
diff --git a/test/refactor_nrepl/integration_tests.clj b/test/refactor_nrepl/integration_tests.clj
index 4782207..4a40ab2 100644
--- a/test/refactor_nrepl/integration_tests.clj
+++ b/test/refactor_nrepl/integration_tests.clj
@@ -1,5 +1,6 @@
(ns refactor-nrepl.integration-tests
(:require [clojure.java.io :as io]
+ [refactor-nrepl.analyzer]
[clojure.test :refer :all]
[nrepl.server :as nrserver]
[refactor-nrepl middleware
@@ -15,7 +16,7 @@
:bind "localhost"
:port 7777
:handler (nrserver/default-handler
- #'refactor-nrepl.middleware/wrap-refactor))]
+ #'refactor-nrepl.middleware/wrap-refactor))]
server))
(defn stop-repl-server [server]
@@ -60,6 +61,9 @@
(throw (IllegalThreadStateException. "FAILED!"))
(#'refactor-nrepl.analyzer/cachable-ast content)))
+(deftest core-async
+ (refactor-nrepl.analyzer/ns-ast (slurp "test/resources/testproject/src/com/example/vemv.clj")))
+
(deftest test-find-two-foo-errors-ignored
(with-testproject-on-classpath
(with-redefs [refactor-nrepl.analyzer/ns-ast ns-ast-throw-error-for-five]
diff --git a/test/resources/testproject/src/com/example/vemv.clj b/test/resources/testproject/src/com/example/vemv.clj
new file mode 100644
index 0000000..4fa2a5b
--- /dev/null
+++ b/test/resources/testproject/src/com/example/vemv.clj
@@ -0,0 +1,7 @@
+(ns resources.testproject.src.com.example.vemv
+ (:require
+ [clojure.core.async :refer [go-loop]]))
+
+(defn foo
+ [{:keys [x]}]
+ (go-loop []))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment