Advertisement
Guest User

Untitled

a guest
Mar 29th, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. (defn ogstream
  3.       [index]
  4.       (sdo (tag "ohboy")
  5.            (tap :sshalert index)
  6.            (where (and (tagged "ssh")
  7.                        (tagged "slack_alert")))))
  8.  
  9. (tests
  10.   (deftest ssh-test
  11.     (let [result (inject! [(riemann.config/ogstream :foo)]
  12.                       [{:host "ssh_server"
  13.                         :tags '("ssh" "slack_alert")
  14.                         :rsa_pub "ac:eb:3d"
  15.                         :username "manuel"}])]
  16.       (is (= (:sshalert result) [{:host "ssh_server"
  17.                                   :tags ["ssh" "slack_alert"]
  18.                                   :rsa_pub "ac:eb:3d"
  19.                                   :username "manuel"}]))
  20.     )
  21.   )
  22. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement