 
        (fact "without authentication if blank username and password"
              (subject/fetch-tray {:url valid-url :username "" :password ""}) => (contains (list (contains {:name       "project-1"
-                                                                                                           :prognosis  :sick
-                                                                                                           :project-id anything})))
+                                                                                                           :prognosis  :sick})))
              (provided
                (parser/get-projects ..stream.. anything) => [{:name "project-1" :prognosis :sick}]
                (http/http-get valid-url nil) => ..stream..


       (fact "without authentication"
             (subject/fetch-tray {:url valid-url}) => (contains (list (contains {:name       "project-1"
                                                                                 :prognosis  :sick
                                                                                 :project-id anything})))
             (provided
               (parser/get-projects ..stream.. anything) => [{:name "project-1" :prognosis :sick}]
               (http/http-get valid-url nil) => ..stream..

(facts "it fetches projects"
       (fact "with authentication"
             (subject/fetch-tray {:url valid-url :username "a-user" :password "encrypted-password"}) => (contains (list (contains {:name       "project-1"
                                                                                                                                   :prognosis  :sick})))
             (provided
               (parser/get-projects ..stream.. anything) => [{:name "project-1" :prognosis :sick}]
               (crypt/decrypt "encrypted-password") => password
