-
Notifications
You must be signed in to change notification settings - Fork 75
/
mainnew.clj
60 lines (52 loc) · 2.21 KB
/
mainnew.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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
(ns clojure.core.typed.test.mainnew
(:require [clojure.core.typed :as t]
[clojure.test :refer :all]
[clojure.core.typed.test.test-utils :refer :all]))
(deftest demunge-test
(is-tc-e (demunge "abc") String
:requires [[clojure.main :refer [demunge]]])
(is-tc-err (demunge "abc") Boolean
:requires [[clojure.main :refer [demunge]]])
(is-tc-err (demunge 1) String
:requires [[clojure.main :refer [demunge]]]))
(deftest repl-prompt-test
(is-tc-e #(repl-prompt) [-> Any]
:requires [[clojure.main :refer [repl-prompt]]]))
(deftest repl-test
(is-tc-e #(repl)
:requires [[clojure.main :refer [repl]]])
(is-tc-e #(repl :init (fn [])
:need-prompt (fn [] (identity true))
:flush flush
:read repl-read
:eval eval
:print prn
:caught repl-caught)
:requires [[clojure.main :refer [repl repl-read repl-caught]]]))
(deftest main-test
(is-tc-e #(main)
:requires [[clojure.main :refer [main]]])
(is-tc-e #(main "foo")
:requires [[clojure.main :refer [main]]]))
(deftest load-script-test
(is-tc-e #(load-script "sample.clj")
:requires [[clojure.main :refer [load-script]]])
(is-tc-err #(load-script 1)
:requires [[clojure.main :refer [load-script]]]))
(deftest repl-caught-test
(is-tc-e #(repl-caught (Exception. "a"))
:requires [[clojure.main :refer [repl-caught]]])
(is-tc-err #(repl-caught "A") Any
:requires [[clojure.main :refer [repl-caught]]]))
(deftest repl-exception-test
(is-tc-e #(repl-exception (Exception. "a"))
:requires [[clojure.main :refer [repl-exception]]])
(is-tc-err #(repl-exception "A")
:requires [[clojure.main :refer [repl-exception]]]))
(deftest root-cause-test
(is-tc-e (root-cause (Exception. "a")) Exception
:requires [[clojure.main :refer [root-cause]]])
(is-tc-err #(root-cause "A")
:requires [[clojure.main :refer [root-cause]]])
(is-tc-err #(root-cause (Exception. "a")) [-> String]
:requires [[clojure.main :refer [root-cause]]]))