blob: 13acb1a74c9a7e93f3ae823464a45f9fdfbbd4c3 (
plain)
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
|
(ns chameleon.testing
(:require [clojure.test :as t]
[clojure.spec.alpha :as s]
[clojure.spec.gen.alpha :as gen]
[clojure.spec.test.alpha :as st]
[chameleon.logging :as log]
[chameleon.specs :as cs]
[chameleon.route :as cr]
[chameleon.aai-processor :as cai]))
(s/fdef chameleon.route/assert-gallifrey!
:args (s/cat :host :chameleon.specs/host
:provenance :chameleon.specs/provenance
:type :chameleon.specs/type
:payload :chameleon.specs/payload
:loggers :chameleon.specs/loggers)
:ret nil?)
(s/fdef chameleon.aai-processor/from-spike
:args (s/cat :gallifrey-host :chameleon.specs/host
:payload :spike/payload
:loggers :chameleon.specs/loggers)
:ret nil?)
(s/fdef chameleon.aai-processor/from-gallifrey
:args (s/cat :body :gallifrey/payload)
:ret map?)
(s/fdef chameleon.aai-processor/gen-trim-relationship
:args (s/cat :relationship :chameleon.specs/relationship)
:ret map?)
(st/instrument 'chameleon.route/assert-gallifrey! {:stub '(chameleon.route/assert-gallifrey!)})
;; Testing instrumentation
(chameleon.route/assert-gallifrey! "host" "aai" "type" {} (log/error-logger "chameleon.testing") (log/audit-logger "chameleon.testing"))
(->> '(chameleon.aai-processor/from-spike
chameleon.aai-processor/from-gallifrey
chameleon.aai-processor/gen-trim-relationship)
st/check
st/summarize-results)
|