Midge example

gistfile1.clj

(fact "configuration"
  server-port => number?
  server-url => string?
  server-static-path => string?)

(fact "on-connect handler"
  (on-connect --connection--) => anything)

(fact "on-disconnect handler"
  (on-disconnect --connection--) => anything)

(fact "on-message handler"
  (on-message --connection-- "{\"data\": \"blah\", \"type\": \"hello\"}") => anything
  (provided
    (events/dispatch --connection-- {:data "blah" :type "hello"}) => truthy))