fakeSecret = "fakesecret1"

spec :: Spec
spec = do
  describe "signRequest" $ do
    context "When missing headers" $ do
      it "Returns 'Nothing' when missing a date header" $ do
        (signRequest fakeAccess fakeSecret fakeBadGetRequest) `shouldBe` Nothing

    context "When given valid input data" $ do
      it "Returns 'Just (Request Text)'" $ do
        pendingWith "Requires fuller implementation"

