23 lines
724 B
Clojure
23 lines
724 B
Clojure
|
(ns swirrl.dogstatsd-test
|
||
|
|
(:require [swirrl.dogstatsd :as sut]
|
||
|
|
[swirrl.dogstatsd.specs]
|
||
|
|
[clojure.test :refer [deftest is testing]]
|
||
|
|
[clojure.spec.test.alpha :as st]))
|
||
|
|
|
||
|
|
(st/instrument)
|
||
|
|
|
||
|
|
(deftest basic-invocation-tests
|
||
|
|
(testing "Basic metric procedure calls run without error"
|
||
|
|
(let [client (sut/configure {:endpoint "localhost:8111"})]
|
||
|
|
|
||
|
|
(sut/increment! client ::increment)
|
||
|
|
(sut/increment! client ::increment 10)
|
||
|
|
(sut/decrement! client ::decrement)
|
||
|
|
|
||
|
|
(sut/histogram! client ::histogram 10)
|
||
|
|
(sut/distribution! client ::distribution 10)
|
||
|
|
(sut/set! client ::set "a-value")
|
||
|
|
(sut/event! client "event title" "some text here" {})
|
||
|
|
|
||
|
|
(is true))))
|