-
Notifications
You must be signed in to change notification settings - Fork 75
/
tap.clj
23 lines (19 loc) · 941 Bytes
/
tap.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(ns clojure.core.typed.test.tap
(:require [clojure.core.typed :as t]
[clojure.test :refer :all]
[clojure.core.typed.test.test-utils :refer :all]
[clojure.core.typed.test.destructure]))
(deftest print-tap-diagnostic-test
(is-tc-e #(print-tap-diagnostic "abc") [-> Any]
:requires [[clojure.test.tap :refer [print-tap-diagnostic]]])
(is-tc-err #(print-tap-diagnostic 1) [-> Any]
:requires [[clojure.test.tap :refer [print-tap-diagnostic]]]))
(deftest print-tap-plan-test
(is-tc-e #(print-tap-plan 1) [-> Any]
:requires [[clojure.test.tap :refer [print-tap-plan]]]))
(deftest print-tap-pass-test
(is-tc-e #(print-tap-pass 1) [-> Any]
:requires [[clojure.test.tap :refer [print-tap-pass]]]))
(deftest print-tap-fail-test
(is-tc-e #(print-tap-fail 1) [-> Any]
:requires [[clojure.test.tap :refer [print-tap-fail]]]))