git.iko.soy/typeable/mandrill
on master help sign in
Conditionally injecting isRight in tests2
commitf75b8d344b70eec3e644a7f6fd744dd3469e8be8 authorAlfredo Di Napoli <alfredo.dinapoli@gmail.com> dateMon 18 Aug 2014, 08:47 (12 years ago) parent48cf53c
1 file changed+7
compare with master
unifiedsplit
test/Tests.hs+7
test/Tests.hs+7
@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
12module Tests where
23
34import Test.QuickCheck
@@ -10,6 +11,12 @@ import Network.API.Mandrill.Users.Types
1011import qualified Data.ByteString.Char8 as C8
1112import RawData
1213
14+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 706
15+isRight :: Either a b -> Bool
16+isRight (Left _) = False
17+isRight _ = True
18+#endif
19+
1320testMessagesSend :: Assertion
1421testMessagesSend = assertBool "send.json: Parsing failed!" (isRight parsePayload)
1522 where