-
-
Notifications
You must be signed in to change notification settings - Fork 7
/
inspector.clj
44 lines (37 loc) · 1.82 KB
/
inspector.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
34
35
36
37
38
39
40
41
42
43
44
(ns clojure.core.typed.test.inspector
(:require [typed.clojure :as t]
[clojure.test :refer :all]
[typed.clj.checker.test-utils :refer :all]))
(deftest atom?-test
(is-tc-e #(atom? "abc") [-> Boolean]
:requires [[clojure.inspector :refer [atom?]]])
(is-tc-err #(atom? "abc") [-> String]
:requires [[clojure.inspector :refer [atom?]]]))
(deftest collection-tag-test
(is-tc-e #(collection-tag "abc") [-> t/Keyword]
:requires [[clojure.inspector :refer [collection-tag]]])
(is-tc-err #(collection-tag "abc") [-> String]
:requires [[clojure.inspector :refer [collection-tag]]]))
(deftest tree-model-test
(is-tc-e #(tree-model "abc")
:requires [[clojure.inspector :refer [tree-model]]]))
(deftest old-table-model-test
(is-tc-e #(old-table-model [[1 2 3] [4 5 6] [7 8 9] [10 11 12]])
:requires [[clojure.inspector :refer [old-table-model]]])
(is-tc-err #(old-table-model 1)
:requires [[clojure.inspector :refer [old-table-model]]]))
(deftest inspect-test
(is-tc-e #(inspect "abc") [-> javax.swing.JFrame]
:requires [[clojure.inspector :refer [inspect]]])
(is-tc-err #(inspect "abc") [-> String]
:requires [[clojure.inspector :refer [inspect]]]))
(deftest inspect-tree-test
(is-tc-e #(inspect-tree "abc") [-> javax.swing.JFrame]
:requires [[clojure.inspector :refer [inspect-tree]]])
(is-tc-err #(inspect-tree "abc") [-> String]
:requires [[clojure.inspector :refer [inspect-tree]]]))
(deftest inspect-table-test
(is-tc-e #(inspect-table [[1 2 3] [4 5 6] [7 8 9] [10 11 12]]) [-> javax.swing.JFrame]
:requires [[clojure.inspector :refer [inspect-table]]])
(is-tc-err #(inspect-table 1)
:requires [[clojure.inspector :refer [inspect-table]]]))