-
Notifications
You must be signed in to change notification settings - Fork 75
/
stacktrace.clj
32 lines (27 loc) · 1.39 KB
/
stacktrace.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
(ns clojure.core.typed.test.stacktrace
(:require [clojure.core.typed :as t]
[clojure.test :refer :all]
[clojure.core.typed.test.test-utils :refer :all]))
(deftest e-test
(is-tc-e #(e) [-> Any]
:requires [[clojure.stacktrace :refer [e]]]))
(deftest print-cause-trace-test
(is-tc-e #(print-cause-trace (Exception. "a")) [-> Any]
:requires [[clojure.stacktrace :refer [print-cause-trace]]])
(is-tc-err #(print-cause-trace "A") [-> Any]
:requires [[clojure.stacktrace :refer [print-cause-trace]]]))
(deftest print-stack-trace-test
(is-tc-e #(print-stack-trace (Exception. "a")) [-> Any]
:requires [[clojure.stacktrace :refer [print-stack-trace]]])
(is-tc-err #(print-stack-trace "AC") [-> Any]
:requires [[clojure.stacktrace :refer [print-stack-trace]]]))
(deftest print-throwable-test
(is-tc-e #(print-throwable (Exception. "a")) [-> Any]
:requires [[clojure.stacktrace :refer [print-throwable]]])
(is-tc-err #(print-throwable "A") [-> Any]
:requires [[clojure.stacktrace :refer [print-throwable]]]))
(deftest root-cause-test
(is-tc-e #(root-cause (Exception. "a")) [-> Throwable]
:requires [[clojure.stacktrace :refer [root-cause]]])
(is-tc-err #(root-cause (Exception. "a")) [-> Exception]
:requires [[clojure.stacktrace :refer [root-cause]]]))