mangopay 1.5 → 1.5.1

raw patch · 3 files changed

+21/−16 lines, 3 files

Files

• mangopay.cabal +1/−2
• src/Web/MangoPay/Events.hs +6/−1
• test/Web/MangoPay/DocumentsTest.hs +14/−13

@@ -1,5 +1,5 @@ name:           mangopay-version:        1.5+version:        1.5.1 cabal-version:  >= 1.8 build-type:     Simple author:         JP Moresmau <jpmoresmau@gmail.com>@@ -105,7 +105,6 @@      monad-control, monad-logger, resourcet, template-haskell,      text, time, transformers, transformers-base,      unordered-containers, utf8-string, vector, country-codes-      , blaze-builder      , HTF            >  0.9      , HUnit          >= 1.2.5

@@ -53,7 +53,8 @@         getJSONList req   -- | Event type-data EventType=PAYIN_NORMAL_CREATED+data EventType=+          PAYIN_NORMAL_CREATED         | PAYIN_NORMAL_SUCCEEDED         | PAYIN_NORMAL_FAILED         | PAYOUT_NORMAL_CREATED@@ -71,6 +72,10 @@         | TRANSFER_REFUND_CREATED         | TRANSFER_REFUND_SUCCEEDED         | TRANSFER_REFUND_FAILED+        | KYC_CREATED+        | KYC_VALIDATION_ASKED+        | KYC_SUCCEEDED+        | KYC_FAILED         deriving (Show,Read,Eq,Ord,Bounded,Enum,Typeable)  instance ToHtQuery (Maybe EventType) where

@@ -18,17 +18,18 @@   assertEqual 1 (length $ plData usL)   let uid=urId $ head $ plData usL   let d=Document Nothing Nothing Nothing IDENTITY_PROOF (Just CREATED) Nothing Nothing-  d2<-testMP $ storeDocument uid d-  assertBool (isJust $ dId d2)-  assertBool (isJust $ dCreationDate d2)-  assertEqual IDENTITY_PROOF (dType d2)-  tf<-BS.readFile "data/test.jpg"-  -- document has to be in CREATED status-  testMP $ storePage uid (fromJust $ dId d2) tf-  d3<-testMP $ storeDocument uid d2{dStatus=Just VALIDATION_ASKED}-  assertEqual (Just VALIDATION_ASKED) (dStatus d3)-  assertEqual (dId d2) (dId d3)-  d4<-testMP $ fetchDocument uid (fromJust $ dId d2)-  assertEqual (Just VALIDATION_ASKED) (dStatus d4)-  +  testEventTypes [KYC_CREATED,KYC_VALIDATION_ASKED] $ do+    d2<-testMP $ storeDocument uid d+    assertBool (isJust $ dId d2)+    assertBool (isJust $ dCreationDate d2)+    assertEqual IDENTITY_PROOF (dType d2)+    tf<-BS.readFile "data/test.jpg"+    -- document has to be in CREATED status+    testMP $ storePage uid (fromJust $ dId d2) tf+    d3<-testMP $ storeDocument uid d2{dStatus=Just VALIDATION_ASKED}+    assertEqual (Just VALIDATION_ASKED) (dStatus d3)+    assertEqual (dId d2) (dId d3)+    d4<-testMP $ fetchDocument uid (fromJust $ dId d2)+    assertEqual (Just VALIDATION_ASKED) (dStatus d4)+    return $ dId d2