                                       invoice-url
                                       "gid1"
                                       data)]
-          (is (= 200 status))))
+          (is (= 404 status))))
 
       (testing "Client does not exist"
         (let [data                  {:client "quux"


(use-fixtures :once fixtures/init! fixtures/migrate-test-db fixtures/serve-app)
(use-fixtures :each fixtures/isolate-db)


(defn- create-timer-over-ws
  [ws-chan socket project-id current-time duration]

      (testing "Existing client"
        (let [data             {:client "foo"
                                :start (- current-time (* 60 60 24))
                                :end (+ current-time (* 60 60 24))
                                :address "goo"
                                :notes "quux"
                                :user-rates (vec (for [user-id user-ids]
                                                   {:user-id user-id
