Add and export (</>), (!!), json to DSL

cardano-foundation · Mar 19, 2019 · 3cbf665 · 3cbf665
1 parent 06726c5
commit 3cbf665
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 0 deletions.
diff --git a/cardano-wallet.cabal b/cardano-wallet.cabal
@@ -163,9 +163,12 @@ test-suite integration
     , hspec
     , hspec-core
     , http-client
+    , http-api-data
     , http-types
+    , aeson-qq
     , lens
     , process
+    , template-haskell
     , text
     , transformers
 

diff --git a/test/integration/Test/Integration/Framework/DSL.hs b/test/integration/Test/Integration/Framework/DSL.hs
@@ -21,6 +21,9 @@ module Test.Integration.Framework.DSL
 
     -- * Helpers
     , ($-)
+    , (</>)
+    , (!!)
+    , json
     ) where
 
 import Prelude hiding
@@ -32,12 +35,18 @@ import Control.Monad.Fail
     ( MonadFail (..) )
 import Control.Monad.IO.Class
     ( MonadIO, liftIO )
+import Data.Aeson.QQ
+    ( aesonQQ )
 import Data.Function
     ( (&) )
+import Data.List
+    ( (!!) )
 import Data.Text
     ( Text )
 import GHC.Generics
     ( Generic )
+import Language.Haskell.TH.Quote
+    ( QuasiQuoter )
 import Network.HTTP.Client
     ( Manager )
 import Test.Hspec.Core.Spec
@@ -49,6 +58,8 @@ import Test.Integration.Framework.Request
     ( RequestException (..), unsafeRequest, ($-) )
 import Test.Integration.Framework.Scenario
     ( Scenario )
+import Web.HttpApiData
+    ( ToHttpApiData (..) )
 
 --
 -- SCENARIO
@@ -130,3 +141,15 @@ wantedErrorButSuccess
     -> m void
 wantedErrorButSuccess =
     fail . ("expected an error but got a successful response: " <>) . show
+
+
+--
+-- HELPERS
+--
+
+json :: QuasiQuoter
+json = aesonQQ
+
+infixr 5 </>
+(</>) :: ToHttpApiData a => Text -> a -> Text
+base </> next = mconcat [base, "/", toQueryParam next]