-
Notifications
You must be signed in to change notification settings - Fork 75
/
javadoc.clj
33 lines (29 loc) · 1.42 KB
/
javadoc.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
(ns clojure.core.typed.test.javadoc
(:require [clojure.core.typed :as t]
[clojure.test :refer :all]
[clojure.core.typed.test.test-utils :refer :all]
[clojure.core.typed.test.destructure]))
(deftest javadoc-test
(is-tc-e #(javadoc 1) [-> Any]
:requires [[clojure.java.javadoc :refer [javadoc]]]))
(deftest add-local-javadoc-test
(is-tc-e #(add-local-javadoc 1) [-> (List Any)]
:requires [[clojure.java.javadoc :refer [add-local-javadoc]]])
(is-tc-err #(add-local-javadoc 1) [-> String]
:requires [[clojure.java.javadoc :refer [add-local-javadoc]]]))
(deftest add-remote-javadoc-test
(is-tc-e #(add-remote-javadoc
"org.apache.commons.csv."
"http://commons.apache.org/proper/commons-csv/apidocs/index.html")
[-> (Map Any Any)]
:requires [[clojure.java.javadoc :refer [add-remote-javadoc]]])
(is-tc-err #(add-remote-javadoc
"org.apache.commons.csv."
"http://commons.apache.org/proper/commons-csv/apidocs/index.html")
[-> String]
:requires [[clojure.java.javadoc :refer [add-remote-javadoc]]])
(is-tc-err #(add-remote-javadoc
1
"http://commons.apache.org/proper/commons-csv/apidocs/index.html")
[-> (Map Any Any)]
:requires [[clojure.java.javadoc :refer [add-remote-javadoc]]]))