amazonka-glacier-1.2.0: test/Test/AWS/Gen/Glacier.hs
{-# 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.Glacier
-- Copyright : (c) 2013-2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Test.AWS.Gen.Glacier where
import Data.Proxy
import Test.AWS.Fixture
import Test.AWS.Prelude
import Test.Tasty
import Network.AWS.Glacier
import Test.AWS.Glacier.Internal
-- 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"
-- [ testSetVaultAccessPolicy $
-- setVaultAccessPolicy
--
-- , testInitiateJob $
-- initiateJob
--
-- , testSetDataRetrievalPolicy $
-- setDataRetrievalPolicy
--
-- , testDeleteVaultAccessPolicy $
-- deleteVaultAccessPolicy
--
-- , testListTagsForVault $
-- listTagsForVault
--
-- , testGetVaultNotifications $
-- getVaultNotifications
--
-- , testUploadMultipartPart $
-- uploadMultipartPart
--
-- , testDeleteVaultNotifications $
-- deleteVaultNotifications
--
-- , testCompleteVaultLock $
-- completeVaultLock
--
-- , testAbortVaultLock $
-- abortVaultLock
--
-- , testListVaults $
-- listVaults
--
-- , testGetJobOutput $
-- getJobOutput
--
-- , testListJobs $
-- listJobs
--
-- , testSetVaultNotifications $
-- setVaultNotifications
--
-- , testCompleteMultipartUpload $
-- completeMultipartUpload
--
-- , testListMultipartUploads $
-- listMultipartUploads
--
-- , testDescribeVault $
-- describeVault
--
-- , testAbortMultipartUpload $
-- abortMultipartUpload
--
-- , testGetVaultLock $
-- getVaultLock
--
-- , testDescribeJob $
-- describeJob
--
-- , testInitiateVaultLock $
-- initiateVaultLock
--
-- , testGetVaultAccessPolicy $
-- getVaultAccessPolicy
--
-- , testGetDataRetrievalPolicy $
-- getDataRetrievalPolicy
--
-- , testRemoveTagsFromVault $
-- removeTagsFromVault
--
-- , testDeleteArchive $
-- deleteArchive
--
-- , testDeleteVault $
-- deleteVault
--
-- , testInitiateMultipartUpload $
-- initiateMultipartUpload
--
-- , testListParts $
-- listParts
--
-- , testCreateVault $
-- createVault
--
-- , testAddTagsToVault $
-- addTagsToVault
--
-- , testUploadArchive $
-- uploadArchive
--
-- ]
-- , testGroup "response"
-- [ testSetVaultAccessPolicyResponse $
-- setVaultAccessPolicyResponse
--
-- , testInitiateJobResponse $
-- initiateJobResponse
--
-- , testSetDataRetrievalPolicyResponse $
-- setDataRetrievalPolicyResponse
--
-- , testDeleteVaultAccessPolicyResponse $
-- deleteVaultAccessPolicyResponse
--
-- , testListTagsForVaultResponse $
-- listTagsForVaultResponse
--
-- , testGetVaultNotificationsResponse $
-- getVaultNotificationsResponse
--
-- , testUploadMultipartPartResponse $
-- uploadMultipartPartResponse
--
-- , testDeleteVaultNotificationsResponse $
-- deleteVaultNotificationsResponse
--
-- , testCompleteVaultLockResponse $
-- completeVaultLockResponse
--
-- , testAbortVaultLockResponse $
-- abortVaultLockResponse
--
-- , testListVaultsResponse $
-- listVaultsResponse
--
-- , testGetJobOutputResponse $
-- getJobOutputResponse
--
-- , testListJobsResponse $
-- listJobsResponse
--
-- , testSetVaultNotificationsResponse $
-- setVaultNotificationsResponse
--
-- , testCompleteMultipartUploadResponse $
-- archiveCreationOutput
--
-- , testListMultipartUploadsResponse $
-- listMultipartUploadsResponse
--
-- , testDescribeVaultResponse $
-- describeVaultOutput
--
-- , testAbortMultipartUploadResponse $
-- abortMultipartUploadResponse
--
-- , testGetVaultLockResponse $
-- getVaultLockResponse
--
-- , testDescribeJobResponse $
-- glacierJobDescription
--
-- , testInitiateVaultLockResponse $
-- initiateVaultLockResponse
--
-- , testGetVaultAccessPolicyResponse $
-- getVaultAccessPolicyResponse
--
-- , testGetDataRetrievalPolicyResponse $
-- getDataRetrievalPolicyResponse
--
-- , testRemoveTagsFromVaultResponse $
-- removeTagsFromVaultResponse
--
-- , testDeleteArchiveResponse $
-- deleteArchiveResponse
--
-- , testDeleteVaultResponse $
-- deleteVaultResponse
--
-- , testInitiateMultipartUploadResponse $
-- initiateMultipartUploadResponse
--
-- , testListPartsResponse $
-- listPartsResponse
--
-- , testCreateVaultResponse $
-- createVaultResponse
--
-- , testAddTagsToVaultResponse $
-- addTagsToVaultResponse
--
-- , testUploadArchiveResponse $
-- archiveCreationOutput
--
-- ]
-- ]
-- Requests
testSetVaultAccessPolicy :: SetVaultAccessPolicy -> TestTree
testSetVaultAccessPolicy = req
"SetVaultAccessPolicy"
"fixture/SetVaultAccessPolicy"
testInitiateJob :: InitiateJob -> TestTree
testInitiateJob = req
"InitiateJob"
"fixture/InitiateJob"
testSetDataRetrievalPolicy :: SetDataRetrievalPolicy -> TestTree
testSetDataRetrievalPolicy = req
"SetDataRetrievalPolicy"
"fixture/SetDataRetrievalPolicy"
testDeleteVaultAccessPolicy :: DeleteVaultAccessPolicy -> TestTree
testDeleteVaultAccessPolicy = req
"DeleteVaultAccessPolicy"
"fixture/DeleteVaultAccessPolicy"
testListTagsForVault :: ListTagsForVault -> TestTree
testListTagsForVault = req
"ListTagsForVault"
"fixture/ListTagsForVault"
testGetVaultNotifications :: GetVaultNotifications -> TestTree
testGetVaultNotifications = req
"GetVaultNotifications"
"fixture/GetVaultNotifications"
testDeleteVaultNotifications :: DeleteVaultNotifications -> TestTree
testDeleteVaultNotifications = req
"DeleteVaultNotifications"
"fixture/DeleteVaultNotifications"
testCompleteVaultLock :: CompleteVaultLock -> TestTree
testCompleteVaultLock = req
"CompleteVaultLock"
"fixture/CompleteVaultLock"
testAbortVaultLock :: AbortVaultLock -> TestTree
testAbortVaultLock = req
"AbortVaultLock"
"fixture/AbortVaultLock"
testListVaults :: ListVaults -> TestTree
testListVaults = req
"ListVaults"
"fixture/ListVaults"
testGetJobOutput :: GetJobOutput -> TestTree
testGetJobOutput = req
"GetJobOutput"
"fixture/GetJobOutput"
testListJobs :: ListJobs -> TestTree
testListJobs = req
"ListJobs"
"fixture/ListJobs"
testSetVaultNotifications :: SetVaultNotifications -> TestTree
testSetVaultNotifications = req
"SetVaultNotifications"
"fixture/SetVaultNotifications"
testCompleteMultipartUpload :: CompleteMultipartUpload -> TestTree
testCompleteMultipartUpload = req
"CompleteMultipartUpload"
"fixture/CompleteMultipartUpload"
testListMultipartUploads :: ListMultipartUploads -> TestTree
testListMultipartUploads = req
"ListMultipartUploads"
"fixture/ListMultipartUploads"
testDescribeVault :: DescribeVault -> TestTree
testDescribeVault = req
"DescribeVault"
"fixture/DescribeVault"
testAbortMultipartUpload :: AbortMultipartUpload -> TestTree
testAbortMultipartUpload = req
"AbortMultipartUpload"
"fixture/AbortMultipartUpload"
testGetVaultLock :: GetVaultLock -> TestTree
testGetVaultLock = req
"GetVaultLock"
"fixture/GetVaultLock"
testDescribeJob :: DescribeJob -> TestTree
testDescribeJob = req
"DescribeJob"
"fixture/DescribeJob"
testInitiateVaultLock :: InitiateVaultLock -> TestTree
testInitiateVaultLock = req
"InitiateVaultLock"
"fixture/InitiateVaultLock"
testGetVaultAccessPolicy :: GetVaultAccessPolicy -> TestTree
testGetVaultAccessPolicy = req
"GetVaultAccessPolicy"
"fixture/GetVaultAccessPolicy"
testGetDataRetrievalPolicy :: GetDataRetrievalPolicy -> TestTree
testGetDataRetrievalPolicy = req
"GetDataRetrievalPolicy"
"fixture/GetDataRetrievalPolicy"
testRemoveTagsFromVault :: RemoveTagsFromVault -> TestTree
testRemoveTagsFromVault = req
"RemoveTagsFromVault"
"fixture/RemoveTagsFromVault"
testDeleteArchive :: DeleteArchive -> TestTree
testDeleteArchive = req
"DeleteArchive"
"fixture/DeleteArchive"
testDeleteVault :: DeleteVault -> TestTree
testDeleteVault = req
"DeleteVault"
"fixture/DeleteVault"
testInitiateMultipartUpload :: InitiateMultipartUpload -> TestTree
testInitiateMultipartUpload = req
"InitiateMultipartUpload"
"fixture/InitiateMultipartUpload"
testListParts :: ListParts -> TestTree
testListParts = req
"ListParts"
"fixture/ListParts"
testCreateVault :: CreateVault -> TestTree
testCreateVault = req
"CreateVault"
"fixture/CreateVault"
testAddTagsToVault :: AddTagsToVault -> TestTree
testAddTagsToVault = req
"AddTagsToVault"
"fixture/AddTagsToVault"
-- Responses
testSetVaultAccessPolicyResponse :: SetVaultAccessPolicyResponse -> TestTree
testSetVaultAccessPolicyResponse = res
"SetVaultAccessPolicyResponse"
"fixture/SetVaultAccessPolicyResponse"
glacier
(Proxy :: Proxy SetVaultAccessPolicy)
testInitiateJobResponse :: InitiateJobResponse -> TestTree
testInitiateJobResponse = res
"InitiateJobResponse"
"fixture/InitiateJobResponse"
glacier
(Proxy :: Proxy InitiateJob)
testSetDataRetrievalPolicyResponse :: SetDataRetrievalPolicyResponse -> TestTree
testSetDataRetrievalPolicyResponse = res
"SetDataRetrievalPolicyResponse"
"fixture/SetDataRetrievalPolicyResponse"
glacier
(Proxy :: Proxy SetDataRetrievalPolicy)
testDeleteVaultAccessPolicyResponse :: DeleteVaultAccessPolicyResponse -> TestTree
testDeleteVaultAccessPolicyResponse = res
"DeleteVaultAccessPolicyResponse"
"fixture/DeleteVaultAccessPolicyResponse"
glacier
(Proxy :: Proxy DeleteVaultAccessPolicy)
testListTagsForVaultResponse :: ListTagsForVaultResponse -> TestTree
testListTagsForVaultResponse = res
"ListTagsForVaultResponse"
"fixture/ListTagsForVaultResponse"
glacier
(Proxy :: Proxy ListTagsForVault)
testGetVaultNotificationsResponse :: GetVaultNotificationsResponse -> TestTree
testGetVaultNotificationsResponse = res
"GetVaultNotificationsResponse"
"fixture/GetVaultNotificationsResponse"
glacier
(Proxy :: Proxy GetVaultNotifications)
testUploadMultipartPartResponse :: UploadMultipartPartResponse -> TestTree
testUploadMultipartPartResponse = res
"UploadMultipartPartResponse"
"fixture/UploadMultipartPartResponse"
glacier
(Proxy :: Proxy UploadMultipartPart)
testDeleteVaultNotificationsResponse :: DeleteVaultNotificationsResponse -> TestTree
testDeleteVaultNotificationsResponse = res
"DeleteVaultNotificationsResponse"
"fixture/DeleteVaultNotificationsResponse"
glacier
(Proxy :: Proxy DeleteVaultNotifications)
testCompleteVaultLockResponse :: CompleteVaultLockResponse -> TestTree
testCompleteVaultLockResponse = res
"CompleteVaultLockResponse"
"fixture/CompleteVaultLockResponse"
glacier
(Proxy :: Proxy CompleteVaultLock)
testAbortVaultLockResponse :: AbortVaultLockResponse -> TestTree
testAbortVaultLockResponse = res
"AbortVaultLockResponse"
"fixture/AbortVaultLockResponse"
glacier
(Proxy :: Proxy AbortVaultLock)
testListVaultsResponse :: ListVaultsResponse -> TestTree
testListVaultsResponse = res
"ListVaultsResponse"
"fixture/ListVaultsResponse"
glacier
(Proxy :: Proxy ListVaults)
testListJobsResponse :: ListJobsResponse -> TestTree
testListJobsResponse = res
"ListJobsResponse"
"fixture/ListJobsResponse"
glacier
(Proxy :: Proxy ListJobs)
testSetVaultNotificationsResponse :: SetVaultNotificationsResponse -> TestTree
testSetVaultNotificationsResponse = res
"SetVaultNotificationsResponse"
"fixture/SetVaultNotificationsResponse"
glacier
(Proxy :: Proxy SetVaultNotifications)
testCompleteMultipartUploadResponse :: ArchiveCreationOutput -> TestTree
testCompleteMultipartUploadResponse = res
"CompleteMultipartUploadResponse"
"fixture/CompleteMultipartUploadResponse"
glacier
(Proxy :: Proxy CompleteMultipartUpload)
testListMultipartUploadsResponse :: ListMultipartUploadsResponse -> TestTree
testListMultipartUploadsResponse = res
"ListMultipartUploadsResponse"
"fixture/ListMultipartUploadsResponse"
glacier
(Proxy :: Proxy ListMultipartUploads)
testDescribeVaultResponse :: DescribeVaultOutput -> TestTree
testDescribeVaultResponse = res
"DescribeVaultResponse"
"fixture/DescribeVaultResponse"
glacier
(Proxy :: Proxy DescribeVault)
testAbortMultipartUploadResponse :: AbortMultipartUploadResponse -> TestTree
testAbortMultipartUploadResponse = res
"AbortMultipartUploadResponse"
"fixture/AbortMultipartUploadResponse"
glacier
(Proxy :: Proxy AbortMultipartUpload)
testGetVaultLockResponse :: GetVaultLockResponse -> TestTree
testGetVaultLockResponse = res
"GetVaultLockResponse"
"fixture/GetVaultLockResponse"
glacier
(Proxy :: Proxy GetVaultLock)
testDescribeJobResponse :: GlacierJobDescription -> TestTree
testDescribeJobResponse = res
"DescribeJobResponse"
"fixture/DescribeJobResponse"
glacier
(Proxy :: Proxy DescribeJob)
testInitiateVaultLockResponse :: InitiateVaultLockResponse -> TestTree
testInitiateVaultLockResponse = res
"InitiateVaultLockResponse"
"fixture/InitiateVaultLockResponse"
glacier
(Proxy :: Proxy InitiateVaultLock)
testGetVaultAccessPolicyResponse :: GetVaultAccessPolicyResponse -> TestTree
testGetVaultAccessPolicyResponse = res
"GetVaultAccessPolicyResponse"
"fixture/GetVaultAccessPolicyResponse"
glacier
(Proxy :: Proxy GetVaultAccessPolicy)
testGetDataRetrievalPolicyResponse :: GetDataRetrievalPolicyResponse -> TestTree
testGetDataRetrievalPolicyResponse = res
"GetDataRetrievalPolicyResponse"
"fixture/GetDataRetrievalPolicyResponse"
glacier
(Proxy :: Proxy GetDataRetrievalPolicy)
testRemoveTagsFromVaultResponse :: RemoveTagsFromVaultResponse -> TestTree
testRemoveTagsFromVaultResponse = res
"RemoveTagsFromVaultResponse"
"fixture/RemoveTagsFromVaultResponse"
glacier
(Proxy :: Proxy RemoveTagsFromVault)
testDeleteArchiveResponse :: DeleteArchiveResponse -> TestTree
testDeleteArchiveResponse = res
"DeleteArchiveResponse"
"fixture/DeleteArchiveResponse"
glacier
(Proxy :: Proxy DeleteArchive)
testDeleteVaultResponse :: DeleteVaultResponse -> TestTree
testDeleteVaultResponse = res
"DeleteVaultResponse"
"fixture/DeleteVaultResponse"
glacier
(Proxy :: Proxy DeleteVault)
testInitiateMultipartUploadResponse :: InitiateMultipartUploadResponse -> TestTree
testInitiateMultipartUploadResponse = res
"InitiateMultipartUploadResponse"
"fixture/InitiateMultipartUploadResponse"
glacier
(Proxy :: Proxy InitiateMultipartUpload)
testListPartsResponse :: ListPartsResponse -> TestTree
testListPartsResponse = res
"ListPartsResponse"
"fixture/ListPartsResponse"
glacier
(Proxy :: Proxy ListParts)
testCreateVaultResponse :: CreateVaultResponse -> TestTree
testCreateVaultResponse = res
"CreateVaultResponse"
"fixture/CreateVaultResponse"
glacier
(Proxy :: Proxy CreateVault)
testAddTagsToVaultResponse :: AddTagsToVaultResponse -> TestTree
testAddTagsToVaultResponse = res
"AddTagsToVaultResponse"
"fixture/AddTagsToVaultResponse"
glacier
(Proxy :: Proxy AddTagsToVault)
testUploadArchiveResponse :: ArchiveCreationOutput -> TestTree
testUploadArchiveResponse = res
"UploadArchiveResponse"
"fixture/UploadArchiveResponse"
glacier
(Proxy :: Proxy UploadArchive)