      :id "id"
      :region "region"})
 
-  (fact "Beginning a deployment when one doesn't exist gives true"
+  (fact "that beginning a deployment when one doesn't exist gives true"
         (begin-deployment begin-deployment-params) => true
         (provided
          (car/hsetnx "exploud:deployments:in-progress" "app-env-region" "id") => 1))
 
-  (fact "Beginning a deployment when one already exists give false"
+  (fact "that beginning a deployment when one already exists give false"
         (begin-deployment begin-deployment-params) => false
         (provided
          (car/hsetnx "exploud:deployments:in-progress" "app-env-region" "id") => 0))

        (provided
         (car/del "exploud:lock") => ..result..))

  (fact "Application/environment combination is not in-progress when not present"
        (in-progress? "app" "env" "region") => falsey
        (provided
         (car/hget "exploud:deployments:in-progress" "app-env-region") => nil))

  (fact "Application/environment combination is in-progress when present"
        (in-progress? "app" "env" "region") => truthy
        (provided
         (car/hget "exploud:deployments:in-progress" "app-env-region") => "id"))

     :environment "env"
     :region "region"})

  (fact "that ending a deployment which exists returns true"
        (end-deployment end-deployment-params) => true
        (provided
         (car/srem "exploud:deployments:awaiting-pause" "app-env-region") => 0
         (car/hdel "exploud:deployments:in-progress" "app-env-region") => 1))

  (fact "that ending a deployment which didn't exist returns false"
        (end-deployment end-deployment-params) => false
        (provided
         (car/srem "exploud:deployments:awaiting-pause" "app-env-region") => 0
