mangopay 1.9.5 → 1.9.5.1

raw patch · 4 files changed

+7/−9 lines, 4 files

Files

mangopay.cabal +1/−1
src/Web/MangoPay/TestUtils.hs +1/−1
test/Web/MangoPay/RefundsTest.hs +3/−5
test/Web/MangoPay/WalletsTest.hs +2/−2

mangopay.cabal view

@@ -1,5 +1,5 @@ name:           mangopay-version:        1.9.5+version:        1.9.5.1 cabal-version:  >= 1.8 build-type:     Simple author:         JP Moresmau <jpmoresmau@gmail.com>

src/Web/MangoPay/TestUtils.hs view

@@ -93,7 +93,7 @@ testEventTypes' evtTs ops = do   res <- liftM tsReceivedEvents $ I.readIORef testState   a <- ops-  er <- waitForEvent res ((,) a <$> evtTs) 5+  er <- waitForEvent res ((,) a <$> evtTs) 20   assertEqual "testEventTypes'" EventsOK er   return a

test/Web/MangoPay/RefundsTest.hs view

@@ -31,8 +31,7 @@     w3<-testMP $ fetchWallet wid     assertEqual (Just $ Amount "EUR" 332) (wBalance w3)     return $ cpId cp2-  -- PAYIN_REFUND_CREATED not received ???-  testEventTypes [PAYIN_REFUND_SUCCEEDED] $ do+  testEventTypes [PAYIN_REFUND_CREATED, PAYIN_REFUND_SUCCEEDED] $ do     let rr=RefundRequest uid Nothing Nothing     r<-testMP $ refundPayin cp rr     assertEqual PAYIN (rInitialTransactionType r)@@ -62,8 +61,7 @@     w3<-testMP $ fetchWallet wid     assertEqual (Just $ Amount "EUR" 332) (wBalance w3)     return $ cpId cp2-  -- PAYIN_REFUND_CREATED not received ???-  testEventTypes [PAYIN_REFUND_SUCCEEDED] $ do+  testEventTypes [PAYIN_REFUND_CREATED, PAYIN_REFUND_SUCCEEDED] $ do     let rr=RefundRequest uid (Just $ Amount "EUR" 100) (Just $ Amount "EUR" 1)     r<-testMP $ refundPayin cp rr     assertEqual PAYIN (rInitialTransactionType r)@@ -96,7 +94,7 @@           assertEqual (Just Succeeded) (cpStatus cp2)           return $ cpId cp2 -        (Just tr)<-testEventTypes' [TRANSFER_NORMAL_CREATED,TRANSFER_NORMAL_SUCCEEDED] $ do+        (Just tr)<-testEventTypes' [{- TRANSFER_NORMAL_CREATED, Not being sent as of 2014-09-19 -} TRANSFER_NORMAL_SUCCEEDED] $ do                 let t1=Transfer Nothing Nothing Nothing uid1 (Just uid2) (Amount "EUR" 100) (Amount "EUR" 1)                         uw1 uw2 Nothing Nothing Nothing Nothing Nothing                 t1'<-testMP $ createTransfer t1

test/Web/MangoPay/WalletsTest.hs view

@@ -46,7 +46,7 @@         let uw2=fromJust $ wId w2'         assertBool (uw1 /= uw2)         -- transfer will fail since I have no money-        testEventTypes [TRANSFER_NORMAL_CREATED,TRANSFER_NORMAL_FAILED] $ do+        testEventTypes [{- TRANSFER_NORMAL_CREATED, Not being sent as of 2014-09-19 -} TRANSFER_NORMAL_FAILED] $ do                 let t1=Transfer Nothing Nothing Nothing uid1 (Just uid2) (Amount "EUR" 100) (Amount "EUR" 1)                         uw1 uw2 Nothing Nothing Nothing Nothing Nothing                 t1'<-testMP $ createTransfer t1@@ -86,7 +86,7 @@           assertEqual (Just Succeeded) (cpStatus cp2)           return $ cpId cp2 -        testEventTypes [TRANSFER_NORMAL_CREATED,TRANSFER_NORMAL_SUCCEEDED] $ do+        testEventTypes [{- TRANSFER_NORMAL_CREATED, Not being sent as of 2014-09-19 -} TRANSFER_NORMAL_SUCCEEDED] $ do                 let t1=Transfer Nothing Nothing Nothing uid1 (Just uid2) (Amount "EUR" 100) (Amount "EUR" 1)                         uw1 uw2 Nothing Nothing Nothing Nothing Nothing                 t1'<-testMP $ createTransfer t1