summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorBrendanHay <>2018-05-16 14:45:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-05-16 14:45:00 (GMT)
commitb0e9b6ab90a8149bc743191406af6a450d621bf9 (patch)
tree44dbdc75c34869676a11d4ae4cbc0585b340c835 /test
version 1.6.01.6.0
Diffstat (limited to 'test')
-rw-r--r--test/Main.hs21
-rw-r--r--test/Test/AWS/Connect.hs20
-rw-r--r--test/Test/AWS/Connect/Internal.hs9
-rw-r--r--test/Test/AWS/Gen/Connect.hs75
4 files changed, 125 insertions, 0 deletions
diff --git a/test/Main.hs b/test/Main.hs
new file mode 100644
index 0000000..d873a87
--- /dev/null
+++ b/test/Main.hs
@@ -0,0 +1,21 @@
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- |
+-- Module : Main
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+module Main (main) where
+
+import Test.Tasty
+import Test.AWS.Connect
+import Test.AWS.Connect.Internal
+
+main :: IO ()
+main = defaultMain $ testGroup "Connect"
+ [ testGroup "tests" tests
+ , testGroup "fixtures" fixtures
+ ]
diff --git a/test/Test/AWS/Connect.hs b/test/Test/AWS/Connect.hs
new file mode 100644
index 0000000..810f36e
--- /dev/null
+++ b/test/Test/AWS/Connect.hs
@@ -0,0 +1,20 @@
+-- |
+-- Module : Test.AWS.Connect
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+module Test.AWS.Connect
+ ( tests
+ , fixtures
+ ) where
+
+import Test.Tasty (TestTree)
+
+tests :: [TestTree]
+tests = []
+
+fixtures :: [TestTree]
+fixtures = []
diff --git a/test/Test/AWS/Connect/Internal.hs b/test/Test/AWS/Connect/Internal.hs
new file mode 100644
index 0000000..b43b766
--- /dev/null
+++ b/test/Test/AWS/Connect/Internal.hs
@@ -0,0 +1,9 @@
+-- |
+-- Module : Test.AWS.Connect.Internal
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+module Test.AWS.Connect.Internal where
diff --git a/test/Test/AWS/Gen/Connect.hs b/test/Test/AWS/Gen/Connect.hs
new file mode 100644
index 0000000..dc7c223
--- /dev/null
+++ b/test/Test/AWS/Gen/Connect.hs
@@ -0,0 +1,75 @@
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Test.AWS.Gen.Connect
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+module Test.AWS.Gen.Connect where
+
+import Data.Proxy
+import Network.AWS.Connect
+import Test.AWS.Connect.Internal
+import Test.AWS.Fixture
+import Test.AWS.Prelude
+import Test.Tasty
+
+-- Auto-generated: the actual test selection needs to be manually placed into
+-- the top-level so that real test data can be incrementally added.
+--
+-- This commented snippet is what the entire set should look like:
+
+-- fixtures :: TestTree
+-- fixtures =
+-- [ testGroup "request"
+-- [ requestStartOutboundVoiceContact $
+-- startOutboundVoiceContact
+--
+-- , requestStopContact $
+-- stopContact
+--
+-- ]
+
+-- , testGroup "response"
+-- [ responseStartOutboundVoiceContact $
+-- startOutboundVoiceContactResponse
+--
+-- , responseStopContact $
+-- stopContactResponse
+--
+-- ]
+-- ]
+
+-- Requests
+
+requestStartOutboundVoiceContact :: StartOutboundVoiceContact -> TestTree
+requestStartOutboundVoiceContact = req
+ "StartOutboundVoiceContact"
+ "fixture/StartOutboundVoiceContact.yaml"
+
+requestStopContact :: StopContact -> TestTree
+requestStopContact = req
+ "StopContact"
+ "fixture/StopContact.yaml"
+
+-- Responses
+
+responseStartOutboundVoiceContact :: StartOutboundVoiceContactResponse -> TestTree
+responseStartOutboundVoiceContact = res
+ "StartOutboundVoiceContactResponse"
+ "fixture/StartOutboundVoiceContactResponse.proto"
+ connect
+ (Proxy :: Proxy StartOutboundVoiceContact)
+
+responseStopContact :: StopContactResponse -> TestTree
+responseStopContact = res
+ "StopContactResponse"
+ "fixture/StopContactResponse.proto"
+ connect
+ (Proxy :: Proxy StopContact)