wip

Author: bronsa

build.clj

@@ -1,6 +1,11 @@
 (ns build
-  (:require [clojure.tools.build.api :as b]))
+  (:require
+   [clojure.tools.build.api :as b]))
+
+(def basis
+  (b/create-basis {:project "deps.edn"}))
 
 (defn compile-test-java [_]
   (b/javac {:src-dirs ["src/test/java"]
-            :class-dir "target/test-classes"}))
+            :class-dir "target/test-classes"
+            :basis basis}))

src/test/clojure/clojure/tools/analyzer/jvm/passes_test.clj

@@ -392,3 +392,41 @@
   (let [a (ast1 (clojure.tools.analyzer.jvm.test.FieldMethodOverload/doppelganger (int 1) (int 2)))]
     (is (= :static-call (:op a)))
     (is (:validated? a))))
+
+#_(deftest static-field-method-bonanza
+    (doseq [x '[clojure.tools.analyzer.jvm.test.Foo/bar
+                (clojure.tools.analyzer.jvm.test.Foo/bar)
+                ((clojure.tools.analyzer.jvm.test.Foo/bar))
+                (. clojure.tools.analyzer.jvm.test.Foo -bar)
+                ((. clojure.tools.analyzer.jvm.test.Foo -bar))
+                (clojure.tools.analyzer.jvm.test.Foo/bar 1)
+                ((clojure.tools.analyzer.jvm.test.Foo/bar) 1)
+                (. clojure.tools.analyzer.jvm.test.Foo -bar 1)
+                ((. clojure.tools.analyzer.jvm.test.Foo -bar) 1)
+                (((. clojure.tools.analyzer.jvm.test.Foo -bar)) 1)
+                clojure.tools.analyzer.jvm.test.Foo/baz
+                (clojure.tools.analyzer.jvm.test.Foo/baz)
+                ((clojure.tools.analyzer.jvm.test.Foo/baz))
+                (. clojure.tools.analyzer.jvm.test.Foo -baz)
+                ((. clojure.tools.analyzer.jvm.test.Foo -baz))
+                (clojure.tools.analyzer.jvm.test.Foo/baz 1)
+                ((clojure.tools.analyzer.jvm.test.Foo/baz) 1)
+                (. clojure.tools.analyzer.jvm.test.Foo -baz 1)
+                ((. clojure.tools.analyzer.jvm.test.Foo -baz) 1)
+                clojure.tools.analyzer.jvm.test.Foo/qux
+                (clojure.tools.analyzer.jvm.test.Foo/qux)
+                ((clojure.tools.analyzer.jvm.test.Foo/qux))
+                (. clojure.tools.analyzer.jvm.test.Foo -qux)
+                ((. clojure.tools.analyzer.jvm.test.Foo -qux))
+                (clojure.tools.analyzer.jvm.test.Foo/qux 1)
+                ((clojure.tools.analyzer.jvm.test.Foo/qux) 1)
+                (. clojure.tools.analyzer.jvm.test.Foo -qux 1)
+                ((. clojure.tools.analyzer.jvm.test.Foo -qux) 1)]]
+      (let [=? (fn [a b]
+                 (if (.startsWith (pr-str a) "#function")
+                   (= (a 1) (b 1))
+                   (= a b)))]
+        (is (=? (try (eval x) (catch Exception _ ::exception))
+                (try (eval (emit-form (ana x)))
+                     (catch Exception _ ::exception)))
+            (str "bad " x)))))

src/test/java/clojure/tools/analyzer/jvm/test/Foo.java

@@ -0,0 +1,41 @@
+package clojure.tools.analyzer.jvm.test;
+
+import clojure.lang.AFn;
+import clojure.lang.IFn;
+
+public class Foo {
+
+  public static final IFn bar = new AFn() {
+      public Object invoke() {
+        return "bar";
+      }
+      public Object invoke(Object x) {
+        return "bar" + x.toString();
+      }
+    };
+
+  public static final IFn baz = new AFn() {
+      public Object invoke() {
+        return "baz";
+      }
+      public Object invoke(Object x) {
+        return "baz" + x.toString();
+      }
+    };
+
+  public static String bar() {
+    return "bar()";
+  }
+  public static String bar(Object x) {
+    return "bar()" + x.toString();
+  }
+
+
+  public static String qux() {
+    return "qux()";
+  }
+  public static String qux(Object x) {
+    return "qux()" + x.toString();
+  }
+
+}