            ["riemann.transport"
             "riemann.core"
             "riemann.pubsub"]
-           (let [server (ws-server)
-                 uri    "http://127.0.0.1:5556/events"
+           (let [server (ws-server {:port 15556})
+                 uri    "http://127.0.0.1:15556/events"
                  core   (transition! (core) {:services [server]})]
              ; Two simple events
              (let [res (http/put uri

         (riemann.logging/suppress ["riemann.transport"
                                    "riemann.core"
                                    "riemann.pubsub"]
           (let [server (udp-server)
                 core   (transition! (core) {:services [server]})
                 client (wait-for-result (udp-socket {}))
                 msg (ChannelBuffers/wrappedBuffer

  (let [server {:tls? true
                :key "test/data/tls/server.pkcs8"
                :cert "test/data/tls/server.crt"
                :ca-cert "test/data/tls/demoCA/cacert.pem"
                :port 15555}
        client {:tls? true
                :key "test/data/tls/client.pkcs8"
                :cert "test/data/tls/client.crt"
                :ca-cert "test/data/tls/demoCA/cacert.pem"
                :port 15555}]
    ; Works with valid config
    (test-tcp-client client server)

