File tree 2 files changed +15
-2
lines changed
2 files changed +15
-2
lines changed Original file line number Diff line number Diff line change 73
73
{:tag (get-tag ty)}
74
74
(if (or (.isConstructor info) (.isInterface info))
75
75
(let [qname (symbol (.. node getFirstChild getQualifiedName))]
76
- (cond-> {:tag 'Function}
76
+ (cond-> (merge {:tag 'Function}
77
+ (when (.hasBaseType info)
78
+ {:super (get-tag (.getBaseType info))}))
77
79
(.isConstructor info) (merge {:ctor qname})
78
80
(.isInterface info) (merge {:iface qname})))
79
81
(if (or (.hasReturnType info)
Original file line number Diff line number Diff line change 10
10
(:require [cljs.closure :as closure]
11
11
[cljs.externs :as externs]
12
12
[clojure.java.io :as io]
13
- [clojure.test :as test :refer [deftest is]]))
13
+ [clojure.test :as test :refer [deftest is]])
14
+ (:import [com.google.javascript.jscomp CommandLineRunner]))
14
15
15
16
(deftest cljs-3121
16
17
(let [externs (externs/parse-externs
34
35
(is (= 'any (get-in ns [:defs 'get :ret-tag ])))
35
36
(is (= 'array (get-in ns [:defs 'getKeys :ret-tag ])))))
36
37
38
+ (deftest test-parse-super
39
+ (let [info (->
40
+ (filter
41
+ (fn [s]
42
+ (= " externs.zip//w3c_dom2.js" (.getName s)))
43
+ (CommandLineRunner/getDefaultExterns ))
44
+ first externs/parse-externs externs/index-externs
45
+ (find 'HTMLDocument) first meta)]
46
+ (is (= 'Document (:super info)))))
47
+
37
48
(comment
38
49
39
50
(externs/parse-externs
You can’t perform that action at this time.
0 commit comments