diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,367 @@ +Mozilla Public License Version 2.0 +================================== + +1. Definitions +-------------- + +1.1. "Contributor" + means each individual or legal entity that creates, contributes to + the creation of, or owns Covered Software. + +1.2. "Contributor Version" + means the combination of the Contributions of others (if any) used + by a Contributor and that particular Contributor's Contribution. + +1.3. "Contribution" + means Covered Software of a particular Contributor. + +1.4. "Covered Software" + means Source Code Form to which the initial Contributor has attached + the notice in Exhibit A, the Executable Form of such Source Code + Form, and Modifications of such Source Code Form, in each case + including portions thereof. + +1.5. "Incompatible With Secondary Licenses" + means + + (a) that the initial Contributor has attached the notice described + in Exhibit B to the Covered Software; or + + (b) that the Covered Software was made available under the terms of + version 1.1 or earlier of the License, but not also under the + terms of a Secondary License. + +1.6. "Executable Form" + means any form of the work other than Source Code Form. + +1.7. "Larger Work" + means a work that combines Covered Software with other material, in + a separate file or files, that is not Covered Software. + +1.8. "License" + means this document. + +1.9. "Licensable" + means having the right to grant, to the maximum extent possible, + whether at the time of the initial grant or subsequently, any and + all of the rights conveyed by this License. + +1.10. "Modifications" + means any of the following: + + (a) any file in Source Code Form that results from an addition to, + deletion from, or modification of the contents of Covered + Software; or + + (b) any new file in Source Code Form that contains any Covered + Software. + +1.11. "Patent Claims" of a Contributor + means any patent claim(s), including without limitation, method, + process, and apparatus claims, in any patent Licensable by such + Contributor that would be infringed, but for the grant of the + License, by the making, using, selling, offering for sale, having + made, import, or transfer of either its Contributions or its + Contributor Version. + +1.12. "Secondary License" + means either the GNU General Public License, Version 2.0, the GNU + Lesser General Public License, Version 2.1, the GNU Affero General + Public License, Version 3.0, or any later versions of those + licenses. + +1.13. "Source Code Form" + means the form of the work preferred for making modifications. + +1.14. "You" (or "Your") + means an individual or a legal entity exercising rights under this + License. For legal entities, "You" includes any entity that + controls, is controlled by, or is under common control with You. For + purposes of this definition, "control" means (a) the power, direct + or indirect, to cause the direction or management of such entity, + whether by contract or otherwise, or (b) ownership of more than + fifty percent (50%) of the outstanding shares or beneficial + ownership of such entity. + +2. License Grants and Conditions +-------------------------------- + +2.1. Grants + +Each Contributor hereby grants You a world-wide, royalty-free, +non-exclusive license: + +(a) under intellectual property rights (other than patent or trademark) + Licensable by such Contributor to use, reproduce, make available, + modify, display, perform, distribute, and otherwise exploit its + Contributions, either on an unmodified basis, with Modifications, or + as part of a Larger Work; and + +(b) under Patent Claims of such Contributor to make, use, sell, offer + for sale, have made, import, and otherwise transfer either its + Contributions or its Contributor Version. + +2.2. Effective Date + +The licenses granted in Section 2.1 with respect to any Contribution +become effective for each Contribution on the date the Contributor first +distributes such Contribution. + +2.3. Limitations on Grant Scope + +The licenses granted in this Section 2 are the only rights granted under +this License. No additional rights or licenses will be implied from the +distribution or licensing of Covered Software under this License. +Notwithstanding Section 2.1(b) above, no patent license is granted by a +Contributor: + +(a) for any code that a Contributor has removed from Covered Software; + or + +(b) for infringements caused by: (i) Your and any other third party's + modifications of Covered Software, or (ii) the combination of its + Contributions with other software (except as part of its Contributor + Version); or + +(c) under Patent Claims infringed by Covered Software in the absence of + its Contributions. + +This License does not grant any rights in the trademarks, service marks, +or logos of any Contributor (except as may be necessary to comply with +the notice requirements in Section 3.4). + +2.4. Subsequent Licenses + +No Contributor makes additional grants as a result of Your choice to +distribute the Covered Software under a subsequent version of this +License (see Section 10.2) or under the terms of a Secondary License (if +permitted under the terms of Section 3.3). + +2.5. Representation + +Each Contributor represents that the Contributor believes its +Contributions are its original creation(s) or it has sufficient rights +to grant the rights to its Contributions conveyed by this License. + +2.6. Fair Use + +This License is not intended to limit any rights You have under +applicable copyright doctrines of fair use, fair dealing, or other +equivalents. + +2.7. Conditions + +Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted +in Section 2.1. + +3. Responsibilities +------------------- + +3.1. Distribution of Source Form + +All distribution of Covered Software in Source Code Form, including any +Modifications that You create or to which You contribute, must be under +the terms of this License. You must inform recipients that the Source +Code Form of the Covered Software is governed by the terms of this +License, and how they can obtain a copy of this License. You may not +attempt to alter or restrict the recipients' rights in the Source Code +Form. + +3.2. Distribution of Executable Form + +If You distribute Covered Software in Executable Form then: + +(a) such Covered Software must also be made available in Source Code + Form, as described in Section 3.1, and You must inform recipients of + the Executable Form how they can obtain a copy of such Source Code + Form by reasonable means in a timely manner, at a charge no more + than the cost of distribution to the recipient; and + +(b) You may distribute such Executable Form under the terms of this + License, or sublicense it under different terms, provided that the + license for the Executable Form does not attempt to limit or alter + the recipients' rights in the Source Code Form under this License. + +3.3. Distribution of a Larger Work + +You may create and distribute a Larger Work under terms of Your choice, +provided that You also comply with the requirements of this License for +the Covered Software. If the Larger Work is a combination of Covered +Software with a work governed by one or more Secondary Licenses, and the +Covered Software is not Incompatible With Secondary Licenses, this +License permits You to additionally distribute such Covered Software +under the terms of such Secondary License(s), so that the recipient of +the Larger Work may, at their option, further distribute the Covered +Software under the terms of either this License or such Secondary +License(s). + +3.4. Notices + +You may not remove or alter the substance of any license notices +(including copyright notices, patent notices, disclaimers of warranty, +or limitations of liability) contained within the Source Code Form of +the Covered Software, except that You may alter any license notices to +the extent required to remedy known factual inaccuracies. + +3.5. Application of Additional Terms + +You may choose to offer, and to charge a fee for, warranty, support, +indemnity or liability obligations to one or more recipients of Covered +Software. However, You may do so only on Your own behalf, and not on +behalf of any Contributor. You must make it absolutely clear that any +such warranty, support, indemnity, or liability obligation is offered by +You alone, and You hereby agree to indemnify every Contributor for any +liability incurred by such Contributor as a result of warranty, support, +indemnity or liability terms You offer. You may include additional +disclaimers of warranty and limitations of liability specific to any +jurisdiction. + +4. Inability to Comply Due to Statute or Regulation +--------------------------------------------------- + +If it is impossible for You to comply with any of the terms of this +License with respect to some or all of the Covered Software due to +statute, judicial order, or regulation then You must: (a) comply with +the terms of this License to the maximum extent possible; and (b) +describe the limitations and the code they affect. Such description must +be placed in a text file included with all distributions of the Covered +Software under this License. Except to the extent prohibited by statute +or regulation, such description must be sufficiently detailed for a +recipient of ordinary skill to be able to understand it. + +5. Termination +-------------- + +5.1. The rights granted under this License will terminate automatically +if You fail to comply with any of its terms. However, if You become +compliant, then the rights granted under this License from a particular +Contributor are reinstated (a) provisionally, unless and until such +Contributor explicitly and finally terminates Your grants, and (b) on an +ongoing basis, if such Contributor fails to notify You of the +non-compliance by some reasonable means prior to 60 days after You have +come back into compliance. Moreover, Your grants from a particular +Contributor are reinstated on an ongoing basis if such Contributor +notifies You of the non-compliance by some reasonable means, this is the +first time You have received notice of non-compliance with this License +from such Contributor, and You become compliant prior to 30 days after +Your receipt of the notice. + +5.2. If You initiate litigation against any entity by asserting a patent +infringement claim (excluding declaratory judgment actions, +counter-claims, and cross-claims) alleging that a Contributor Version +directly or indirectly infringes any patent, then the rights granted to +You by any and all Contributors for the Covered Software under Section +2.1 of this License shall terminate. + +5.3. In the event of termination under Sections 5.1 or 5.2 above, all +end user license agreements (excluding distributors and resellers) which +have been validly granted by You or Your distributors under this License +prior to termination shall survive termination. + +************************************************************************ +* * +* 6. Disclaimer of Warranty * +* ------------------------- * +* * +* Covered Software is provided under this License on an "as is" * +* basis, without warranty of any kind, either expressed, implied, or * +* statutory, including, without limitation, warranties that the * +* Covered Software is free of defects, merchantable, fit for a * +* particular purpose or non-infringing. The entire risk as to the * +* quality and performance of the Covered Software is with You. * +* Should any Covered Software prove defective in any respect, You * +* (not any Contributor) assume the cost of any necessary servicing, * +* repair, or correction. This disclaimer of warranty constitutes an * +* essential part of this License. No use of any Covered Software is * +* authorized under this License except under this disclaimer. * +* * +************************************************************************ + +************************************************************************ +* * +* 7. Limitation of Liability * +* -------------------------- * +* * +* Under no circumstances and under no legal theory, whether tort * +* (including negligence), contract, or otherwise, shall any * +* Contributor, or anyone who distributes Covered Software as * +* permitted above, be liable to You for any direct, indirect, * +* special, incidental, or consequential damages of any character * +* including, without limitation, damages for lost profits, loss of * +* goodwill, work stoppage, computer failure or malfunction, or any * +* and all other commercial damages or losses, even if such party * +* shall have been informed of the possibility of such damages. This * +* limitation of liability shall not apply to liability for death or * +* personal injury resulting from such party's negligence to the * +* extent applicable law prohibits such limitation. Some * +* jurisdictions do not allow the exclusion or limitation of * +* incidental or consequential damages, so this exclusion and * +* limitation may not apply to You. * +* * +************************************************************************ + +8. Litigation +------------- + +Any litigation relating to this License may be brought only in the +courts of a jurisdiction where the defendant maintains its principal +place of business and such litigation shall be governed by laws of that +jurisdiction, without reference to its conflict-of-law provisions. +Nothing in this Section shall prevent a party's ability to bring +cross-claims or counter-claims. + +9. Miscellaneous +---------------- + +This License represents the complete agreement concerning the subject +matter hereof. If any provision of this License is held to be +unenforceable, such provision shall be reformed only to the extent +necessary to make it enforceable. Any law or regulation which provides +that the language of a contract shall be construed against the drafter +shall not be used to construe this License against a Contributor. + +10. Versions of the License +--------------------------- + +10.1. New Versions + +Mozilla Foundation is the license steward. Except as provided in Section +10.3, no one other than the license steward has the right to modify or +publish new versions of this License. Each version will be given a +distinguishing version number. + +10.2. Effect of New Versions + +You may distribute the Covered Software under the terms of the version +of the License under which You originally received the Covered Software, +or under the terms of any subsequent version published by the license +steward. + +10.3. Modified Versions + +If you create software not governed by this License, and you want to +create a new license for such software, you may create and use a +modified version of this License if you rename the license and remove +any references to the name of the license steward (except to note that +such modified license differs from this License). + +10.4. Distributing Source Code Form that is Incompatible With Secondary +Licenses + +If You choose to distribute Source Code Form that is Incompatible With +Secondary Licenses under the terms of this version of the License, the +notice described in Exhibit B of this License must be attached. + +Exhibit A - Source Code Form License Notice +------------------------------------------- + + This Source Code Form is subject to the terms of the Mozilla Public + License, v. 2.0. If a copy of the MPL was not distributed with this + file, You can obtain one at http://mozilla.org/MPL/2.0/. + +If it is not possible or desirable to put the notice in a particular +file, then You may include the notice in a location (such as a LICENSE +file in a relevant directory) where a recipient would be likely to look +for such a notice. + +You may add additional accurate notices of copyright ownership. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,44 @@ +# Amazon IoT Core Device Advisor SDK + +* [Version](#version) +* [Description](#description) +* [Contribute](#contribute) +* [Licence](#licence) + + +## Version + +`2.0` - Derived from API version @2020-09-18@ of the AWS service descriptions, licensed under Apache 2.0. + +## Description + +Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-iotdeviceadvisor) +and the [AWS API Reference](https://aws.amazon.com/documentation/). + +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka), +which provides mechanisms for specifying AuthN/AuthZ information, sending requests, +and receiving responses. + +Lenses are used for constructing and manipulating types, +due to the depth of nesting of AWS types and transparency regarding +de/serialisation into more palatable Haskell values. +The provided lenses should be compatible with any of the major lens libraries +[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). + +See [Amazonka.IoTDeviceAdvisor](http://hackage.haskell.org/package/amazonka-iotdeviceadvisor/docs/Amazonka-IoTDeviceAdvisor.html) +or [the AWS documentation](https://aws.amazon.com/documentation/) to get started. + + +## Contribute + +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). + +> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. + + +## Licence + +`amazonka-iotdeviceadvisor` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/). + +Parts of the code are derived from AWS service descriptions, licensed under Apache 2.0. +Source files subject to this contain an additional licensing clause in their header. diff --git a/amazonka-iotdeviceadvisor.cabal b/amazonka-iotdeviceadvisor.cabal new file mode 100644 --- /dev/null +++ b/amazonka-iotdeviceadvisor.cabal @@ -0,0 +1,111 @@ +cabal-version: 2.2 +name: amazonka-iotdeviceadvisor +version: 2.0 +synopsis: Amazon IoT Core Device Advisor SDK. +homepage: https://github.com/brendanhay/amazonka +bug-reports: https://github.com/brendanhay/amazonka/issues +license: MPL-2.0 +license-file: LICENSE +author: Brendan Hay +maintainer: + Brendan Hay , Jack Kelly + +copyright: Copyright (c) 2013-2023 Brendan Hay +category: AWS +build-type: Simple +extra-source-files: + fixture/*.proto + fixture/*.yaml + README.md + src/.gitkeep + +description: + Derived from API version @2020-09-18@ of the AWS service descriptions, licensed under Apache 2.0. + . + The types from this library are intended to be used with , + which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses. + . + It is recommended to use generic lenses or optics from packages such as or to modify optional fields and deconstruct responses. + . + Generated lenses can be found in "Amazonka.IoTDeviceAdvisor.Lens" and are + suitable for use with a lens package such as or . + . + See "Amazonka.IoTDeviceAdvisor" and the to get started. + +source-repository head + type: git + location: git://github.com/brendanhay/amazonka.git + subdir: amazonka-iotdeviceadvisor + +library + default-language: Haskell2010 + hs-source-dirs: src gen + ghc-options: + -Wall -fwarn-incomplete-uni-patterns + -fwarn-incomplete-record-updates -funbox-strict-fields + + exposed-modules: + Amazonka.IoTDeviceAdvisor + Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition + Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition + Amazonka.IoTDeviceAdvisor.GetEndpoint + Amazonka.IoTDeviceAdvisor.GetSuiteDefinition + Amazonka.IoTDeviceAdvisor.GetSuiteRun + Amazonka.IoTDeviceAdvisor.GetSuiteRunReport + Amazonka.IoTDeviceAdvisor.Lens + Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions + Amazonka.IoTDeviceAdvisor.ListSuiteRuns + Amazonka.IoTDeviceAdvisor.ListTagsForResource + Amazonka.IoTDeviceAdvisor.StartSuiteRun + Amazonka.IoTDeviceAdvisor.StopSuiteRun + Amazonka.IoTDeviceAdvisor.TagResource + Amazonka.IoTDeviceAdvisor.Types + Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest + Amazonka.IoTDeviceAdvisor.Types.GroupResult + Amazonka.IoTDeviceAdvisor.Types.Protocol + Amazonka.IoTDeviceAdvisor.Types.Status + Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration + Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation + Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration + Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation + Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus + Amazonka.IoTDeviceAdvisor.Types.TestCaseRun + Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario + Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus + Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType + Amazonka.IoTDeviceAdvisor.Types.TestResult + Amazonka.IoTDeviceAdvisor.UntagResource + Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition + Amazonka.IoTDeviceAdvisor.Waiters + + build-depends: + , amazonka-core >=2.0 && <2.1 + , base >=4.12 && <5 + +test-suite amazonka-iotdeviceadvisor-test + type: exitcode-stdio-1.0 + default-language: Haskell2010 + hs-source-dirs: test + main-is: Main.hs + ghc-options: -Wall -threaded + + -- This section is encoded by the template and any modules added by + -- hand outside these namespaces will not correctly be added to the + -- distribution package. + other-modules: + Test.Amazonka.Gen.IoTDeviceAdvisor + Test.Amazonka.IoTDeviceAdvisor + Test.Amazonka.IoTDeviceAdvisor.Internal + + build-depends: + , amazonka-core >=2.0 && <2.1 + , amazonka-iotdeviceadvisor + , amazonka-test >=2.0 && <2.1 + , base + , bytestring + , case-insensitive + , tasty + , tasty-hunit + , text + , time + , unordered-containers diff --git a/fixture/CreateSuiteDefinition.yaml b/fixture/CreateSuiteDefinition.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateSuiteDefinition.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/CreateSuiteDefinitionResponse.proto b/fixture/CreateSuiteDefinitionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateSuiteDefinitionResponse.proto diff --git a/fixture/DeleteSuiteDefinition.yaml b/fixture/DeleteSuiteDefinition.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteSuiteDefinition.yaml @@ -0,0 +1,10 @@ +--- +method: DELETE +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeleteSuiteDefinitionResponse.proto b/fixture/DeleteSuiteDefinitionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteSuiteDefinitionResponse.proto diff --git a/fixture/GetEndpoint.yaml b/fixture/GetEndpoint.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetEndpoint.yaml @@ -0,0 +1,10 @@ +--- +method: GET +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/GetEndpointResponse.proto b/fixture/GetEndpointResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetEndpointResponse.proto diff --git a/fixture/GetSuiteDefinition.yaml b/fixture/GetSuiteDefinition.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetSuiteDefinition.yaml @@ -0,0 +1,10 @@ +--- +method: GET +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/GetSuiteDefinitionResponse.proto b/fixture/GetSuiteDefinitionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetSuiteDefinitionResponse.proto diff --git a/fixture/GetSuiteRun.yaml b/fixture/GetSuiteRun.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetSuiteRun.yaml @@ -0,0 +1,10 @@ +--- +method: GET +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/GetSuiteRunReport.yaml b/fixture/GetSuiteRunReport.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetSuiteRunReport.yaml @@ -0,0 +1,10 @@ +--- +method: GET +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/GetSuiteRunReportResponse.proto b/fixture/GetSuiteRunReportResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetSuiteRunReportResponse.proto diff --git a/fixture/GetSuiteRunResponse.proto b/fixture/GetSuiteRunResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetSuiteRunResponse.proto diff --git a/fixture/ListSuiteDefinitions.yaml b/fixture/ListSuiteDefinitions.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListSuiteDefinitions.yaml @@ -0,0 +1,10 @@ +--- +method: GET +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListSuiteDefinitionsResponse.proto b/fixture/ListSuiteDefinitionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListSuiteDefinitionsResponse.proto diff --git a/fixture/ListSuiteRuns.yaml b/fixture/ListSuiteRuns.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListSuiteRuns.yaml @@ -0,0 +1,10 @@ +--- +method: GET +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListSuiteRunsResponse.proto b/fixture/ListSuiteRunsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListSuiteRunsResponse.proto diff --git a/fixture/ListTagsForResource.yaml b/fixture/ListTagsForResource.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListTagsForResource.yaml @@ -0,0 +1,10 @@ +--- +method: GET +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ListTagsForResourceResponse.proto b/fixture/ListTagsForResourceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListTagsForResourceResponse.proto diff --git a/fixture/StartSuiteRun.yaml b/fixture/StartSuiteRun.yaml new file mode 100644 --- /dev/null +++ b/fixture/StartSuiteRun.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/StartSuiteRunResponse.proto b/fixture/StartSuiteRunResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/StartSuiteRunResponse.proto diff --git a/fixture/StopSuiteRun.yaml b/fixture/StopSuiteRun.yaml new file mode 100644 --- /dev/null +++ b/fixture/StopSuiteRun.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/StopSuiteRunResponse.proto b/fixture/StopSuiteRunResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/StopSuiteRunResponse.proto diff --git a/fixture/TagResource.yaml b/fixture/TagResource.yaml new file mode 100644 --- /dev/null +++ b/fixture/TagResource.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/TagResourceResponse.proto b/fixture/TagResourceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/TagResourceResponse.proto diff --git a/fixture/UntagResource.yaml b/fixture/UntagResource.yaml new file mode 100644 --- /dev/null +++ b/fixture/UntagResource.yaml @@ -0,0 +1,10 @@ +--- +method: DELETE +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/UntagResourceResponse.proto b/fixture/UntagResourceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UntagResourceResponse.proto diff --git a/fixture/UpdateSuiteDefinition.yaml b/fixture/UpdateSuiteDefinition.yaml new file mode 100644 --- /dev/null +++ b/fixture/UpdateSuiteDefinition.yaml @@ -0,0 +1,10 @@ +--- +method: PATCH +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/api.iotdeviceadvisor/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: api.iotdeviceadvisor.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/UpdateSuiteDefinitionResponse.proto b/fixture/UpdateSuiteDefinitionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UpdateSuiteDefinitionResponse.proto diff --git a/gen/Amazonka/IoTDeviceAdvisor.hs b/gen/Amazonka/IoTDeviceAdvisor.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor.hs @@ -0,0 +1,233 @@ +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Amazonka.IoTDeviceAdvisor +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Derived from API version @2020-09-18@ of the AWS service descriptions, licensed under Apache 2.0. +-- +-- Amazon Web Services IoT Core Device Advisor is a cloud-based, fully +-- managed test capability for validating IoT devices during device +-- software development. Device Advisor provides pre-built tests that you +-- can use to validate IoT devices for reliable and secure connectivity +-- with Amazon Web Services IoT Core before deploying devices to +-- production. By using Device Advisor, you can confirm that your devices +-- can connect to Amazon Web Services IoT Core, follow security best +-- practices and, if applicable, receive software updates from IoT Device +-- Management. You can also download signed qualification reports to submit +-- to the Amazon Web Services Partner Network to get your device qualified +-- for the Amazon Web Services Partner Device Catalog without the need to +-- send your device in and wait for it to be tested. +module Amazonka.IoTDeviceAdvisor + ( -- * Service Configuration + defaultService, + + -- * Errors + -- $errors + + -- ** ConflictException + _ConflictException, + + -- ** InternalServerException + _InternalServerException, + + -- ** ResourceNotFoundException + _ResourceNotFoundException, + + -- ** ValidationException + _ValidationException, + + -- * Waiters + -- $waiters + + -- * Operations + -- $operations + + -- ** CreateSuiteDefinition + CreateSuiteDefinition (CreateSuiteDefinition'), + newCreateSuiteDefinition, + CreateSuiteDefinitionResponse (CreateSuiteDefinitionResponse'), + newCreateSuiteDefinitionResponse, + + -- ** DeleteSuiteDefinition + DeleteSuiteDefinition (DeleteSuiteDefinition'), + newDeleteSuiteDefinition, + DeleteSuiteDefinitionResponse (DeleteSuiteDefinitionResponse'), + newDeleteSuiteDefinitionResponse, + + -- ** GetEndpoint + GetEndpoint (GetEndpoint'), + newGetEndpoint, + GetEndpointResponse (GetEndpointResponse'), + newGetEndpointResponse, + + -- ** GetSuiteDefinition + GetSuiteDefinition (GetSuiteDefinition'), + newGetSuiteDefinition, + GetSuiteDefinitionResponse (GetSuiteDefinitionResponse'), + newGetSuiteDefinitionResponse, + + -- ** GetSuiteRun + GetSuiteRun (GetSuiteRun'), + newGetSuiteRun, + GetSuiteRunResponse (GetSuiteRunResponse'), + newGetSuiteRunResponse, + + -- ** GetSuiteRunReport + GetSuiteRunReport (GetSuiteRunReport'), + newGetSuiteRunReport, + GetSuiteRunReportResponse (GetSuiteRunReportResponse'), + newGetSuiteRunReportResponse, + + -- ** ListSuiteDefinitions + ListSuiteDefinitions (ListSuiteDefinitions'), + newListSuiteDefinitions, + ListSuiteDefinitionsResponse (ListSuiteDefinitionsResponse'), + newListSuiteDefinitionsResponse, + + -- ** ListSuiteRuns + ListSuiteRuns (ListSuiteRuns'), + newListSuiteRuns, + ListSuiteRunsResponse (ListSuiteRunsResponse'), + newListSuiteRunsResponse, + + -- ** ListTagsForResource + ListTagsForResource (ListTagsForResource'), + newListTagsForResource, + ListTagsForResourceResponse (ListTagsForResourceResponse'), + newListTagsForResourceResponse, + + -- ** StartSuiteRun + StartSuiteRun (StartSuiteRun'), + newStartSuiteRun, + StartSuiteRunResponse (StartSuiteRunResponse'), + newStartSuiteRunResponse, + + -- ** StopSuiteRun + StopSuiteRun (StopSuiteRun'), + newStopSuiteRun, + StopSuiteRunResponse (StopSuiteRunResponse'), + newStopSuiteRunResponse, + + -- ** TagResource + TagResource (TagResource'), + newTagResource, + TagResourceResponse (TagResourceResponse'), + newTagResourceResponse, + + -- ** UntagResource + UntagResource (UntagResource'), + newUntagResource, + UntagResourceResponse (UntagResourceResponse'), + newUntagResourceResponse, + + -- ** UpdateSuiteDefinition + UpdateSuiteDefinition (UpdateSuiteDefinition'), + newUpdateSuiteDefinition, + UpdateSuiteDefinitionResponse (UpdateSuiteDefinitionResponse'), + newUpdateSuiteDefinitionResponse, + + -- * Types + + -- ** Protocol + Protocol (..), + + -- ** Status + Status (..), + + -- ** SuiteRunStatus + SuiteRunStatus (..), + + -- ** TestCaseScenarioStatus + TestCaseScenarioStatus (..), + + -- ** TestCaseScenarioType + TestCaseScenarioType (..), + + -- ** DeviceUnderTest + DeviceUnderTest (DeviceUnderTest'), + newDeviceUnderTest, + + -- ** GroupResult + GroupResult (GroupResult'), + newGroupResult, + + -- ** SuiteDefinitionConfiguration + SuiteDefinitionConfiguration (SuiteDefinitionConfiguration'), + newSuiteDefinitionConfiguration, + + -- ** SuiteDefinitionInformation + SuiteDefinitionInformation (SuiteDefinitionInformation'), + newSuiteDefinitionInformation, + + -- ** SuiteRunConfiguration + SuiteRunConfiguration (SuiteRunConfiguration'), + newSuiteRunConfiguration, + + -- ** SuiteRunInformation + SuiteRunInformation (SuiteRunInformation'), + newSuiteRunInformation, + + -- ** TestCaseRun + TestCaseRun (TestCaseRun'), + newTestCaseRun, + + -- ** TestCaseScenario + TestCaseScenario (TestCaseScenario'), + newTestCaseScenario, + + -- ** TestResult + TestResult (TestResult'), + newTestResult, + ) +where + +import Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition +import Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition +import Amazonka.IoTDeviceAdvisor.GetEndpoint +import Amazonka.IoTDeviceAdvisor.GetSuiteDefinition +import Amazonka.IoTDeviceAdvisor.GetSuiteRun +import Amazonka.IoTDeviceAdvisor.GetSuiteRunReport +import Amazonka.IoTDeviceAdvisor.Lens +import Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions +import Amazonka.IoTDeviceAdvisor.ListSuiteRuns +import Amazonka.IoTDeviceAdvisor.ListTagsForResource +import Amazonka.IoTDeviceAdvisor.StartSuiteRun +import Amazonka.IoTDeviceAdvisor.StopSuiteRun +import Amazonka.IoTDeviceAdvisor.TagResource +import Amazonka.IoTDeviceAdvisor.Types +import Amazonka.IoTDeviceAdvisor.UntagResource +import Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition +import Amazonka.IoTDeviceAdvisor.Waiters + +-- $errors +-- Error matchers are designed for use with the functions provided by +-- . +-- This allows catching (and rethrowing) service specific errors returned +-- by 'IoTDeviceAdvisor'. + +-- $operations +-- Some AWS operations return results that are incomplete and require subsequent +-- requests in order to obtain the entire result set. The process of sending +-- subsequent requests to continue where a previous request left off is called +-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to +-- 1000 objects at a time, and you must send subsequent requests with the +-- appropriate Marker in order to retrieve the next page of results. +-- +-- Operations that have an 'AWSPager' instance can transparently perform subsequent +-- requests, correctly setting Markers and other request facets to iterate through +-- the entire result set of a truncated API operation. Operations which support +-- this have an additional note in the documentation. +-- +-- Many operations have the ability to filter results on the server side. See the +-- individual operation parameters for details. + +-- $waiters +-- Waiters poll by repeatedly sending a request until some remote success condition +-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification +-- determines how many attempts should be made, in addition to delay and retry strategies. diff --git a/gen/Amazonka/IoTDeviceAdvisor/CreateSuiteDefinition.hs b/gen/Amazonka/IoTDeviceAdvisor/CreateSuiteDefinition.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/CreateSuiteDefinition.hs @@ -0,0 +1,230 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a Device Advisor test suite. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition + ( -- * Creating a Request + CreateSuiteDefinition (..), + newCreateSuiteDefinition, + + -- * Request Lenses + createSuiteDefinition_tags, + createSuiteDefinition_suiteDefinitionConfiguration, + + -- * Destructuring the Response + CreateSuiteDefinitionResponse (..), + newCreateSuiteDefinitionResponse, + + -- * Response Lenses + createSuiteDefinitionResponse_createdAt, + createSuiteDefinitionResponse_suiteDefinitionArn, + createSuiteDefinitionResponse_suiteDefinitionId, + createSuiteDefinitionResponse_suiteDefinitionName, + createSuiteDefinitionResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newCreateSuiteDefinition' smart constructor. +data CreateSuiteDefinition = CreateSuiteDefinition' + { -- | The tags to be attached to the suite definition. + tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text), + -- | Creates a Device Advisor test suite with suite definition configuration. + suiteDefinitionConfiguration :: SuiteDefinitionConfiguration + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateSuiteDefinition' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'tags', 'createSuiteDefinition_tags' - The tags to be attached to the suite definition. +-- +-- 'suiteDefinitionConfiguration', 'createSuiteDefinition_suiteDefinitionConfiguration' - Creates a Device Advisor test suite with suite definition configuration. +newCreateSuiteDefinition :: + -- | 'suiteDefinitionConfiguration' + SuiteDefinitionConfiguration -> + CreateSuiteDefinition +newCreateSuiteDefinition + pSuiteDefinitionConfiguration_ = + CreateSuiteDefinition' + { tags = Prelude.Nothing, + suiteDefinitionConfiguration = + pSuiteDefinitionConfiguration_ + } + +-- | The tags to be attached to the suite definition. +createSuiteDefinition_tags :: Lens.Lens' CreateSuiteDefinition (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)) +createSuiteDefinition_tags = Lens.lens (\CreateSuiteDefinition' {tags} -> tags) (\s@CreateSuiteDefinition' {} a -> s {tags = a} :: CreateSuiteDefinition) Prelude.. Lens.mapping Lens.coerced + +-- | Creates a Device Advisor test suite with suite definition configuration. +createSuiteDefinition_suiteDefinitionConfiguration :: Lens.Lens' CreateSuiteDefinition SuiteDefinitionConfiguration +createSuiteDefinition_suiteDefinitionConfiguration = Lens.lens (\CreateSuiteDefinition' {suiteDefinitionConfiguration} -> suiteDefinitionConfiguration) (\s@CreateSuiteDefinition' {} a -> s {suiteDefinitionConfiguration = a} :: CreateSuiteDefinition) + +instance Core.AWSRequest CreateSuiteDefinition where + type + AWSResponse CreateSuiteDefinition = + CreateSuiteDefinitionResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + CreateSuiteDefinitionResponse' + Prelude.<$> (x Data..?> "createdAt") + Prelude.<*> (x Data..?> "suiteDefinitionArn") + Prelude.<*> (x Data..?> "suiteDefinitionId") + Prelude.<*> (x Data..?> "suiteDefinitionName") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable CreateSuiteDefinition where + hashWithSalt _salt CreateSuiteDefinition' {..} = + _salt + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` suiteDefinitionConfiguration + +instance Prelude.NFData CreateSuiteDefinition where + rnf CreateSuiteDefinition' {..} = + Prelude.rnf tags + `Prelude.seq` Prelude.rnf suiteDefinitionConfiguration + +instance Data.ToHeaders CreateSuiteDefinition where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON CreateSuiteDefinition where + toJSON CreateSuiteDefinition' {..} = + Data.object + ( Prelude.catMaybes + [ ("tags" Data..=) Prelude.<$> tags, + Prelude.Just + ( "suiteDefinitionConfiguration" + Data..= suiteDefinitionConfiguration + ) + ] + ) + +instance Data.ToPath CreateSuiteDefinition where + toPath = Prelude.const "/suiteDefinitions" + +instance Data.ToQuery CreateSuiteDefinition where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newCreateSuiteDefinitionResponse' smart constructor. +data CreateSuiteDefinitionResponse = CreateSuiteDefinitionResponse' + { -- | The timestamp of when the test suite was created. + createdAt :: Prelude.Maybe Data.POSIX, + -- | The Amazon Resource Name (ARN) of the test suite. + suiteDefinitionArn :: Prelude.Maybe Prelude.Text, + -- | The UUID of the test suite created. + suiteDefinitionId :: Prelude.Maybe Prelude.Text, + -- | The suite definition name of the test suite. This is a required + -- parameter. + suiteDefinitionName :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CreateSuiteDefinitionResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'createdAt', 'createSuiteDefinitionResponse_createdAt' - The timestamp of when the test suite was created. +-- +-- 'suiteDefinitionArn', 'createSuiteDefinitionResponse_suiteDefinitionArn' - The Amazon Resource Name (ARN) of the test suite. +-- +-- 'suiteDefinitionId', 'createSuiteDefinitionResponse_suiteDefinitionId' - The UUID of the test suite created. +-- +-- 'suiteDefinitionName', 'createSuiteDefinitionResponse_suiteDefinitionName' - The suite definition name of the test suite. This is a required +-- parameter. +-- +-- 'httpStatus', 'createSuiteDefinitionResponse_httpStatus' - The response's http status code. +newCreateSuiteDefinitionResponse :: + -- | 'httpStatus' + Prelude.Int -> + CreateSuiteDefinitionResponse +newCreateSuiteDefinitionResponse pHttpStatus_ = + CreateSuiteDefinitionResponse' + { createdAt = + Prelude.Nothing, + suiteDefinitionArn = Prelude.Nothing, + suiteDefinitionId = Prelude.Nothing, + suiteDefinitionName = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The timestamp of when the test suite was created. +createSuiteDefinitionResponse_createdAt :: Lens.Lens' CreateSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime) +createSuiteDefinitionResponse_createdAt = Lens.lens (\CreateSuiteDefinitionResponse' {createdAt} -> createdAt) (\s@CreateSuiteDefinitionResponse' {} a -> s {createdAt = a} :: CreateSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time + +-- | The Amazon Resource Name (ARN) of the test suite. +createSuiteDefinitionResponse_suiteDefinitionArn :: Lens.Lens' CreateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +createSuiteDefinitionResponse_suiteDefinitionArn = Lens.lens (\CreateSuiteDefinitionResponse' {suiteDefinitionArn} -> suiteDefinitionArn) (\s@CreateSuiteDefinitionResponse' {} a -> s {suiteDefinitionArn = a} :: CreateSuiteDefinitionResponse) + +-- | The UUID of the test suite created. +createSuiteDefinitionResponse_suiteDefinitionId :: Lens.Lens' CreateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +createSuiteDefinitionResponse_suiteDefinitionId = Lens.lens (\CreateSuiteDefinitionResponse' {suiteDefinitionId} -> suiteDefinitionId) (\s@CreateSuiteDefinitionResponse' {} a -> s {suiteDefinitionId = a} :: CreateSuiteDefinitionResponse) + +-- | The suite definition name of the test suite. This is a required +-- parameter. +createSuiteDefinitionResponse_suiteDefinitionName :: Lens.Lens' CreateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +createSuiteDefinitionResponse_suiteDefinitionName = Lens.lens (\CreateSuiteDefinitionResponse' {suiteDefinitionName} -> suiteDefinitionName) (\s@CreateSuiteDefinitionResponse' {} a -> s {suiteDefinitionName = a} :: CreateSuiteDefinitionResponse) + +-- | The response's http status code. +createSuiteDefinitionResponse_httpStatus :: Lens.Lens' CreateSuiteDefinitionResponse Prelude.Int +createSuiteDefinitionResponse_httpStatus = Lens.lens (\CreateSuiteDefinitionResponse' {httpStatus} -> httpStatus) (\s@CreateSuiteDefinitionResponse' {} a -> s {httpStatus = a} :: CreateSuiteDefinitionResponse) + +instance Prelude.NFData CreateSuiteDefinitionResponse where + rnf CreateSuiteDefinitionResponse' {..} = + Prelude.rnf createdAt + `Prelude.seq` Prelude.rnf suiteDefinitionArn + `Prelude.seq` Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteDefinitionName + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/DeleteSuiteDefinition.hs b/gen/Amazonka/IoTDeviceAdvisor/DeleteSuiteDefinition.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/DeleteSuiteDefinition.hs @@ -0,0 +1,155 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes a Device Advisor test suite. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition + ( -- * Creating a Request + DeleteSuiteDefinition (..), + newDeleteSuiteDefinition, + + -- * Request Lenses + deleteSuiteDefinition_suiteDefinitionId, + + -- * Destructuring the Response + DeleteSuiteDefinitionResponse (..), + newDeleteSuiteDefinitionResponse, + + -- * Response Lenses + deleteSuiteDefinitionResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newDeleteSuiteDefinition' smart constructor. +data DeleteSuiteDefinition = DeleteSuiteDefinition' + { -- | Suite definition ID of the test suite to be deleted. + suiteDefinitionId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteSuiteDefinition' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'suiteDefinitionId', 'deleteSuiteDefinition_suiteDefinitionId' - Suite definition ID of the test suite to be deleted. +newDeleteSuiteDefinition :: + -- | 'suiteDefinitionId' + Prelude.Text -> + DeleteSuiteDefinition +newDeleteSuiteDefinition pSuiteDefinitionId_ = + DeleteSuiteDefinition' + { suiteDefinitionId = + pSuiteDefinitionId_ + } + +-- | Suite definition ID of the test suite to be deleted. +deleteSuiteDefinition_suiteDefinitionId :: Lens.Lens' DeleteSuiteDefinition Prelude.Text +deleteSuiteDefinition_suiteDefinitionId = Lens.lens (\DeleteSuiteDefinition' {suiteDefinitionId} -> suiteDefinitionId) (\s@DeleteSuiteDefinition' {} a -> s {suiteDefinitionId = a} :: DeleteSuiteDefinition) + +instance Core.AWSRequest DeleteSuiteDefinition where + type + AWSResponse DeleteSuiteDefinition = + DeleteSuiteDefinitionResponse + request overrides = + Request.delete (overrides defaultService) + response = + Response.receiveEmpty + ( \s h x -> + DeleteSuiteDefinitionResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable DeleteSuiteDefinition where + hashWithSalt _salt DeleteSuiteDefinition' {..} = + _salt `Prelude.hashWithSalt` suiteDefinitionId + +instance Prelude.NFData DeleteSuiteDefinition where + rnf DeleteSuiteDefinition' {..} = + Prelude.rnf suiteDefinitionId + +instance Data.ToHeaders DeleteSuiteDefinition where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToPath DeleteSuiteDefinition where + toPath DeleteSuiteDefinition' {..} = + Prelude.mconcat + ["/suiteDefinitions/", Data.toBS suiteDefinitionId] + +instance Data.ToQuery DeleteSuiteDefinition where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newDeleteSuiteDefinitionResponse' smart constructor. +data DeleteSuiteDefinitionResponse = DeleteSuiteDefinitionResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeleteSuiteDefinitionResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'deleteSuiteDefinitionResponse_httpStatus' - The response's http status code. +newDeleteSuiteDefinitionResponse :: + -- | 'httpStatus' + Prelude.Int -> + DeleteSuiteDefinitionResponse +newDeleteSuiteDefinitionResponse pHttpStatus_ = + DeleteSuiteDefinitionResponse' + { httpStatus = + pHttpStatus_ + } + +-- | The response's http status code. +deleteSuiteDefinitionResponse_httpStatus :: Lens.Lens' DeleteSuiteDefinitionResponse Prelude.Int +deleteSuiteDefinitionResponse_httpStatus = Lens.lens (\DeleteSuiteDefinitionResponse' {httpStatus} -> httpStatus) (\s@DeleteSuiteDefinitionResponse' {} a -> s {httpStatus = a} :: DeleteSuiteDefinitionResponse) + +instance Prelude.NFData DeleteSuiteDefinitionResponse where + rnf DeleteSuiteDefinitionResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/GetEndpoint.hs b/gen/Amazonka/IoTDeviceAdvisor/GetEndpoint.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/GetEndpoint.hs @@ -0,0 +1,172 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.GetEndpoint +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets information about an Device Advisor endpoint. +module Amazonka.IoTDeviceAdvisor.GetEndpoint + ( -- * Creating a Request + GetEndpoint (..), + newGetEndpoint, + + -- * Request Lenses + getEndpoint_certificateArn, + getEndpoint_thingArn, + + -- * Destructuring the Response + GetEndpointResponse (..), + newGetEndpointResponse, + + -- * Response Lenses + getEndpointResponse_endpoint, + getEndpointResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newGetEndpoint' smart constructor. +data GetEndpoint = GetEndpoint' + { -- | The certificate ARN of the device. This is an optional parameter. + certificateArn :: Prelude.Maybe Prelude.Text, + -- | The thing ARN of the device. This is an optional parameter. + thingArn :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetEndpoint' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'certificateArn', 'getEndpoint_certificateArn' - The certificate ARN of the device. This is an optional parameter. +-- +-- 'thingArn', 'getEndpoint_thingArn' - The thing ARN of the device. This is an optional parameter. +newGetEndpoint :: + GetEndpoint +newGetEndpoint = + GetEndpoint' + { certificateArn = Prelude.Nothing, + thingArn = Prelude.Nothing + } + +-- | The certificate ARN of the device. This is an optional parameter. +getEndpoint_certificateArn :: Lens.Lens' GetEndpoint (Prelude.Maybe Prelude.Text) +getEndpoint_certificateArn = Lens.lens (\GetEndpoint' {certificateArn} -> certificateArn) (\s@GetEndpoint' {} a -> s {certificateArn = a} :: GetEndpoint) + +-- | The thing ARN of the device. This is an optional parameter. +getEndpoint_thingArn :: Lens.Lens' GetEndpoint (Prelude.Maybe Prelude.Text) +getEndpoint_thingArn = Lens.lens (\GetEndpoint' {thingArn} -> thingArn) (\s@GetEndpoint' {} a -> s {thingArn = a} :: GetEndpoint) + +instance Core.AWSRequest GetEndpoint where + type AWSResponse GetEndpoint = GetEndpointResponse + request overrides = + Request.get (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + GetEndpointResponse' + Prelude.<$> (x Data..?> "endpoint") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable GetEndpoint where + hashWithSalt _salt GetEndpoint' {..} = + _salt + `Prelude.hashWithSalt` certificateArn + `Prelude.hashWithSalt` thingArn + +instance Prelude.NFData GetEndpoint where + rnf GetEndpoint' {..} = + Prelude.rnf certificateArn + `Prelude.seq` Prelude.rnf thingArn + +instance Data.ToHeaders GetEndpoint where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToPath GetEndpoint where + toPath = Prelude.const "/endpoint" + +instance Data.ToQuery GetEndpoint where + toQuery GetEndpoint' {..} = + Prelude.mconcat + [ "certificateArn" Data.=: certificateArn, + "thingArn" Data.=: thingArn + ] + +-- | /See:/ 'newGetEndpointResponse' smart constructor. +data GetEndpointResponse = GetEndpointResponse' + { -- | The response of an Device Advisor endpoint. + endpoint :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetEndpointResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'endpoint', 'getEndpointResponse_endpoint' - The response of an Device Advisor endpoint. +-- +-- 'httpStatus', 'getEndpointResponse_httpStatus' - The response's http status code. +newGetEndpointResponse :: + -- | 'httpStatus' + Prelude.Int -> + GetEndpointResponse +newGetEndpointResponse pHttpStatus_ = + GetEndpointResponse' + { endpoint = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The response of an Device Advisor endpoint. +getEndpointResponse_endpoint :: Lens.Lens' GetEndpointResponse (Prelude.Maybe Prelude.Text) +getEndpointResponse_endpoint = Lens.lens (\GetEndpointResponse' {endpoint} -> endpoint) (\s@GetEndpointResponse' {} a -> s {endpoint = a} :: GetEndpointResponse) + +-- | The response's http status code. +getEndpointResponse_httpStatus :: Lens.Lens' GetEndpointResponse Prelude.Int +getEndpointResponse_httpStatus = Lens.lens (\GetEndpointResponse' {httpStatus} -> httpStatus) (\s@GetEndpointResponse' {} a -> s {httpStatus = a} :: GetEndpointResponse) + +instance Prelude.NFData GetEndpointResponse where + rnf GetEndpointResponse' {..} = + Prelude.rnf endpoint + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/GetSuiteDefinition.hs b/gen/Amazonka/IoTDeviceAdvisor/GetSuiteDefinition.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/GetSuiteDefinition.hs @@ -0,0 +1,268 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.GetSuiteDefinition +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets information about a Device Advisor test suite. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.GetSuiteDefinition + ( -- * Creating a Request + GetSuiteDefinition (..), + newGetSuiteDefinition, + + -- * Request Lenses + getSuiteDefinition_suiteDefinitionVersion, + getSuiteDefinition_suiteDefinitionId, + + -- * Destructuring the Response + GetSuiteDefinitionResponse (..), + newGetSuiteDefinitionResponse, + + -- * Response Lenses + getSuiteDefinitionResponse_createdAt, + getSuiteDefinitionResponse_lastModifiedAt, + getSuiteDefinitionResponse_latestVersion, + getSuiteDefinitionResponse_suiteDefinitionArn, + getSuiteDefinitionResponse_suiteDefinitionConfiguration, + getSuiteDefinitionResponse_suiteDefinitionId, + getSuiteDefinitionResponse_suiteDefinitionVersion, + getSuiteDefinitionResponse_tags, + getSuiteDefinitionResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newGetSuiteDefinition' smart constructor. +data GetSuiteDefinition = GetSuiteDefinition' + { -- | Suite definition version of the test suite to get. + suiteDefinitionVersion :: Prelude.Maybe Prelude.Text, + -- | Suite definition ID of the test suite to get. + suiteDefinitionId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetSuiteDefinition' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'suiteDefinitionVersion', 'getSuiteDefinition_suiteDefinitionVersion' - Suite definition version of the test suite to get. +-- +-- 'suiteDefinitionId', 'getSuiteDefinition_suiteDefinitionId' - Suite definition ID of the test suite to get. +newGetSuiteDefinition :: + -- | 'suiteDefinitionId' + Prelude.Text -> + GetSuiteDefinition +newGetSuiteDefinition pSuiteDefinitionId_ = + GetSuiteDefinition' + { suiteDefinitionVersion = + Prelude.Nothing, + suiteDefinitionId = pSuiteDefinitionId_ + } + +-- | Suite definition version of the test suite to get. +getSuiteDefinition_suiteDefinitionVersion :: Lens.Lens' GetSuiteDefinition (Prelude.Maybe Prelude.Text) +getSuiteDefinition_suiteDefinitionVersion = Lens.lens (\GetSuiteDefinition' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@GetSuiteDefinition' {} a -> s {suiteDefinitionVersion = a} :: GetSuiteDefinition) + +-- | Suite definition ID of the test suite to get. +getSuiteDefinition_suiteDefinitionId :: Lens.Lens' GetSuiteDefinition Prelude.Text +getSuiteDefinition_suiteDefinitionId = Lens.lens (\GetSuiteDefinition' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteDefinition' {} a -> s {suiteDefinitionId = a} :: GetSuiteDefinition) + +instance Core.AWSRequest GetSuiteDefinition where + type + AWSResponse GetSuiteDefinition = + GetSuiteDefinitionResponse + request overrides = + Request.get (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + GetSuiteDefinitionResponse' + Prelude.<$> (x Data..?> "createdAt") + Prelude.<*> (x Data..?> "lastModifiedAt") + Prelude.<*> (x Data..?> "latestVersion") + Prelude.<*> (x Data..?> "suiteDefinitionArn") + Prelude.<*> (x Data..?> "suiteDefinitionConfiguration") + Prelude.<*> (x Data..?> "suiteDefinitionId") + Prelude.<*> (x Data..?> "suiteDefinitionVersion") + Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable GetSuiteDefinition where + hashWithSalt _salt GetSuiteDefinition' {..} = + _salt + `Prelude.hashWithSalt` suiteDefinitionVersion + `Prelude.hashWithSalt` suiteDefinitionId + +instance Prelude.NFData GetSuiteDefinition where + rnf GetSuiteDefinition' {..} = + Prelude.rnf suiteDefinitionVersion + `Prelude.seq` Prelude.rnf suiteDefinitionId + +instance Data.ToHeaders GetSuiteDefinition where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToPath GetSuiteDefinition where + toPath GetSuiteDefinition' {..} = + Prelude.mconcat + ["/suiteDefinitions/", Data.toBS suiteDefinitionId] + +instance Data.ToQuery GetSuiteDefinition where + toQuery GetSuiteDefinition' {..} = + Prelude.mconcat + [ "suiteDefinitionVersion" + Data.=: suiteDefinitionVersion + ] + +-- | /See:/ 'newGetSuiteDefinitionResponse' smart constructor. +data GetSuiteDefinitionResponse = GetSuiteDefinitionResponse' + { -- | Date (in Unix epoch time) when the suite definition was created. + createdAt :: Prelude.Maybe Data.POSIX, + -- | Date (in Unix epoch time) when the suite definition was last modified. + lastModifiedAt :: Prelude.Maybe Data.POSIX, + -- | Latest suite definition version of the suite definition. + latestVersion :: Prelude.Maybe Prelude.Text, + -- | The ARN of the suite definition. + suiteDefinitionArn :: Prelude.Maybe Prelude.Text, + -- | Suite configuration of the suite definition. + suiteDefinitionConfiguration :: Prelude.Maybe SuiteDefinitionConfiguration, + -- | Suite definition ID of the suite definition. + suiteDefinitionId :: Prelude.Maybe Prelude.Text, + -- | Suite definition version of the suite definition. + suiteDefinitionVersion :: Prelude.Maybe Prelude.Text, + -- | Tags attached to the suite definition. + tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text), + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetSuiteDefinitionResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'createdAt', 'getSuiteDefinitionResponse_createdAt' - Date (in Unix epoch time) when the suite definition was created. +-- +-- 'lastModifiedAt', 'getSuiteDefinitionResponse_lastModifiedAt' - Date (in Unix epoch time) when the suite definition was last modified. +-- +-- 'latestVersion', 'getSuiteDefinitionResponse_latestVersion' - Latest suite definition version of the suite definition. +-- +-- 'suiteDefinitionArn', 'getSuiteDefinitionResponse_suiteDefinitionArn' - The ARN of the suite definition. +-- +-- 'suiteDefinitionConfiguration', 'getSuiteDefinitionResponse_suiteDefinitionConfiguration' - Suite configuration of the suite definition. +-- +-- 'suiteDefinitionId', 'getSuiteDefinitionResponse_suiteDefinitionId' - Suite definition ID of the suite definition. +-- +-- 'suiteDefinitionVersion', 'getSuiteDefinitionResponse_suiteDefinitionVersion' - Suite definition version of the suite definition. +-- +-- 'tags', 'getSuiteDefinitionResponse_tags' - Tags attached to the suite definition. +-- +-- 'httpStatus', 'getSuiteDefinitionResponse_httpStatus' - The response's http status code. +newGetSuiteDefinitionResponse :: + -- | 'httpStatus' + Prelude.Int -> + GetSuiteDefinitionResponse +newGetSuiteDefinitionResponse pHttpStatus_ = + GetSuiteDefinitionResponse' + { createdAt = + Prelude.Nothing, + lastModifiedAt = Prelude.Nothing, + latestVersion = Prelude.Nothing, + suiteDefinitionArn = Prelude.Nothing, + suiteDefinitionConfiguration = Prelude.Nothing, + suiteDefinitionId = Prelude.Nothing, + suiteDefinitionVersion = Prelude.Nothing, + tags = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | Date (in Unix epoch time) when the suite definition was created. +getSuiteDefinitionResponse_createdAt :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime) +getSuiteDefinitionResponse_createdAt = Lens.lens (\GetSuiteDefinitionResponse' {createdAt} -> createdAt) (\s@GetSuiteDefinitionResponse' {} a -> s {createdAt = a} :: GetSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time + +-- | Date (in Unix epoch time) when the suite definition was last modified. +getSuiteDefinitionResponse_lastModifiedAt :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime) +getSuiteDefinitionResponse_lastModifiedAt = Lens.lens (\GetSuiteDefinitionResponse' {lastModifiedAt} -> lastModifiedAt) (\s@GetSuiteDefinitionResponse' {} a -> s {lastModifiedAt = a} :: GetSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time + +-- | Latest suite definition version of the suite definition. +getSuiteDefinitionResponse_latestVersion :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +getSuiteDefinitionResponse_latestVersion = Lens.lens (\GetSuiteDefinitionResponse' {latestVersion} -> latestVersion) (\s@GetSuiteDefinitionResponse' {} a -> s {latestVersion = a} :: GetSuiteDefinitionResponse) + +-- | The ARN of the suite definition. +getSuiteDefinitionResponse_suiteDefinitionArn :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +getSuiteDefinitionResponse_suiteDefinitionArn = Lens.lens (\GetSuiteDefinitionResponse' {suiteDefinitionArn} -> suiteDefinitionArn) (\s@GetSuiteDefinitionResponse' {} a -> s {suiteDefinitionArn = a} :: GetSuiteDefinitionResponse) + +-- | Suite configuration of the suite definition. +getSuiteDefinitionResponse_suiteDefinitionConfiguration :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe SuiteDefinitionConfiguration) +getSuiteDefinitionResponse_suiteDefinitionConfiguration = Lens.lens (\GetSuiteDefinitionResponse' {suiteDefinitionConfiguration} -> suiteDefinitionConfiguration) (\s@GetSuiteDefinitionResponse' {} a -> s {suiteDefinitionConfiguration = a} :: GetSuiteDefinitionResponse) + +-- | Suite definition ID of the suite definition. +getSuiteDefinitionResponse_suiteDefinitionId :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +getSuiteDefinitionResponse_suiteDefinitionId = Lens.lens (\GetSuiteDefinitionResponse' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteDefinitionResponse' {} a -> s {suiteDefinitionId = a} :: GetSuiteDefinitionResponse) + +-- | Suite definition version of the suite definition. +getSuiteDefinitionResponse_suiteDefinitionVersion :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +getSuiteDefinitionResponse_suiteDefinitionVersion = Lens.lens (\GetSuiteDefinitionResponse' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@GetSuiteDefinitionResponse' {} a -> s {suiteDefinitionVersion = a} :: GetSuiteDefinitionResponse) + +-- | Tags attached to the suite definition. +getSuiteDefinitionResponse_tags :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)) +getSuiteDefinitionResponse_tags = Lens.lens (\GetSuiteDefinitionResponse' {tags} -> tags) (\s@GetSuiteDefinitionResponse' {} a -> s {tags = a} :: GetSuiteDefinitionResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +getSuiteDefinitionResponse_httpStatus :: Lens.Lens' GetSuiteDefinitionResponse Prelude.Int +getSuiteDefinitionResponse_httpStatus = Lens.lens (\GetSuiteDefinitionResponse' {httpStatus} -> httpStatus) (\s@GetSuiteDefinitionResponse' {} a -> s {httpStatus = a} :: GetSuiteDefinitionResponse) + +instance Prelude.NFData GetSuiteDefinitionResponse where + rnf GetSuiteDefinitionResponse' {..} = + Prelude.rnf createdAt + `Prelude.seq` Prelude.rnf lastModifiedAt + `Prelude.seq` Prelude.rnf latestVersion + `Prelude.seq` Prelude.rnf suiteDefinitionArn + `Prelude.seq` Prelude.rnf suiteDefinitionConfiguration + `Prelude.seq` Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteDefinitionVersion + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/GetSuiteRun.hs b/gen/Amazonka/IoTDeviceAdvisor/GetSuiteRun.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/GetSuiteRun.hs @@ -0,0 +1,303 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.GetSuiteRun +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets information about a Device Advisor test suite run. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.GetSuiteRun + ( -- * Creating a Request + GetSuiteRun (..), + newGetSuiteRun, + + -- * Request Lenses + getSuiteRun_suiteDefinitionId, + getSuiteRun_suiteRunId, + + -- * Destructuring the Response + GetSuiteRunResponse (..), + newGetSuiteRunResponse, + + -- * Response Lenses + getSuiteRunResponse_endTime, + getSuiteRunResponse_errorReason, + getSuiteRunResponse_startTime, + getSuiteRunResponse_status, + getSuiteRunResponse_suiteDefinitionId, + getSuiteRunResponse_suiteDefinitionVersion, + getSuiteRunResponse_suiteRunArn, + getSuiteRunResponse_suiteRunConfiguration, + getSuiteRunResponse_suiteRunId, + getSuiteRunResponse_tags, + getSuiteRunResponse_testResult, + getSuiteRunResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newGetSuiteRun' smart constructor. +data GetSuiteRun = GetSuiteRun' + { -- | Suite definition ID for the test suite run. + suiteDefinitionId :: Prelude.Text, + -- | Suite run ID for the test suite run. + suiteRunId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetSuiteRun' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'suiteDefinitionId', 'getSuiteRun_suiteDefinitionId' - Suite definition ID for the test suite run. +-- +-- 'suiteRunId', 'getSuiteRun_suiteRunId' - Suite run ID for the test suite run. +newGetSuiteRun :: + -- | 'suiteDefinitionId' + Prelude.Text -> + -- | 'suiteRunId' + Prelude.Text -> + GetSuiteRun +newGetSuiteRun pSuiteDefinitionId_ pSuiteRunId_ = + GetSuiteRun' + { suiteDefinitionId = + pSuiteDefinitionId_, + suiteRunId = pSuiteRunId_ + } + +-- | Suite definition ID for the test suite run. +getSuiteRun_suiteDefinitionId :: Lens.Lens' GetSuiteRun Prelude.Text +getSuiteRun_suiteDefinitionId = Lens.lens (\GetSuiteRun' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteRun' {} a -> s {suiteDefinitionId = a} :: GetSuiteRun) + +-- | Suite run ID for the test suite run. +getSuiteRun_suiteRunId :: Lens.Lens' GetSuiteRun Prelude.Text +getSuiteRun_suiteRunId = Lens.lens (\GetSuiteRun' {suiteRunId} -> suiteRunId) (\s@GetSuiteRun' {} a -> s {suiteRunId = a} :: GetSuiteRun) + +instance Core.AWSRequest GetSuiteRun where + type AWSResponse GetSuiteRun = GetSuiteRunResponse + request overrides = + Request.get (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + GetSuiteRunResponse' + Prelude.<$> (x Data..?> "endTime") + Prelude.<*> (x Data..?> "errorReason") + Prelude.<*> (x Data..?> "startTime") + Prelude.<*> (x Data..?> "status") + Prelude.<*> (x Data..?> "suiteDefinitionId") + Prelude.<*> (x Data..?> "suiteDefinitionVersion") + Prelude.<*> (x Data..?> "suiteRunArn") + Prelude.<*> (x Data..?> "suiteRunConfiguration") + Prelude.<*> (x Data..?> "suiteRunId") + Prelude.<*> (x Data..?> "tags" Core..!@ Prelude.mempty) + Prelude.<*> (x Data..?> "testResult") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable GetSuiteRun where + hashWithSalt _salt GetSuiteRun' {..} = + _salt + `Prelude.hashWithSalt` suiteDefinitionId + `Prelude.hashWithSalt` suiteRunId + +instance Prelude.NFData GetSuiteRun where + rnf GetSuiteRun' {..} = + Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteRunId + +instance Data.ToHeaders GetSuiteRun where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToPath GetSuiteRun where + toPath GetSuiteRun' {..} = + Prelude.mconcat + [ "/suiteDefinitions/", + Data.toBS suiteDefinitionId, + "/suiteRuns/", + Data.toBS suiteRunId + ] + +instance Data.ToQuery GetSuiteRun where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newGetSuiteRunResponse' smart constructor. +data GetSuiteRunResponse = GetSuiteRunResponse' + { -- | Date (in Unix epoch time) when the test suite run ended. + endTime :: Prelude.Maybe Data.POSIX, + -- | Error reason for any test suite run failure. + errorReason :: Prelude.Maybe Prelude.Text, + -- | Date (in Unix epoch time) when the test suite run started. + startTime :: Prelude.Maybe Data.POSIX, + -- | Status for the test suite run. + status :: Prelude.Maybe SuiteRunStatus, + -- | Suite definition ID for the test suite run. + suiteDefinitionId :: Prelude.Maybe Prelude.Text, + -- | Suite definition version for the test suite run. + suiteDefinitionVersion :: Prelude.Maybe Prelude.Text, + -- | The ARN of the suite run. + suiteRunArn :: Prelude.Maybe Prelude.Text, + -- | Suite run configuration for the test suite run. + suiteRunConfiguration :: Prelude.Maybe SuiteRunConfiguration, + -- | Suite run ID for the test suite run. + suiteRunId :: Prelude.Maybe Prelude.Text, + -- | The tags attached to the suite run. + tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text), + -- | Test results for the test suite run. + testResult :: Prelude.Maybe TestResult, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetSuiteRunResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'endTime', 'getSuiteRunResponse_endTime' - Date (in Unix epoch time) when the test suite run ended. +-- +-- 'errorReason', 'getSuiteRunResponse_errorReason' - Error reason for any test suite run failure. +-- +-- 'startTime', 'getSuiteRunResponse_startTime' - Date (in Unix epoch time) when the test suite run started. +-- +-- 'status', 'getSuiteRunResponse_status' - Status for the test suite run. +-- +-- 'suiteDefinitionId', 'getSuiteRunResponse_suiteDefinitionId' - Suite definition ID for the test suite run. +-- +-- 'suiteDefinitionVersion', 'getSuiteRunResponse_suiteDefinitionVersion' - Suite definition version for the test suite run. +-- +-- 'suiteRunArn', 'getSuiteRunResponse_suiteRunArn' - The ARN of the suite run. +-- +-- 'suiteRunConfiguration', 'getSuiteRunResponse_suiteRunConfiguration' - Suite run configuration for the test suite run. +-- +-- 'suiteRunId', 'getSuiteRunResponse_suiteRunId' - Suite run ID for the test suite run. +-- +-- 'tags', 'getSuiteRunResponse_tags' - The tags attached to the suite run. +-- +-- 'testResult', 'getSuiteRunResponse_testResult' - Test results for the test suite run. +-- +-- 'httpStatus', 'getSuiteRunResponse_httpStatus' - The response's http status code. +newGetSuiteRunResponse :: + -- | 'httpStatus' + Prelude.Int -> + GetSuiteRunResponse +newGetSuiteRunResponse pHttpStatus_ = + GetSuiteRunResponse' + { endTime = Prelude.Nothing, + errorReason = Prelude.Nothing, + startTime = Prelude.Nothing, + status = Prelude.Nothing, + suiteDefinitionId = Prelude.Nothing, + suiteDefinitionVersion = Prelude.Nothing, + suiteRunArn = Prelude.Nothing, + suiteRunConfiguration = Prelude.Nothing, + suiteRunId = Prelude.Nothing, + tags = Prelude.Nothing, + testResult = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | Date (in Unix epoch time) when the test suite run ended. +getSuiteRunResponse_endTime :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.UTCTime) +getSuiteRunResponse_endTime = Lens.lens (\GetSuiteRunResponse' {endTime} -> endTime) (\s@GetSuiteRunResponse' {} a -> s {endTime = a} :: GetSuiteRunResponse) Prelude.. Lens.mapping Data._Time + +-- | Error reason for any test suite run failure. +getSuiteRunResponse_errorReason :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text) +getSuiteRunResponse_errorReason = Lens.lens (\GetSuiteRunResponse' {errorReason} -> errorReason) (\s@GetSuiteRunResponse' {} a -> s {errorReason = a} :: GetSuiteRunResponse) + +-- | Date (in Unix epoch time) when the test suite run started. +getSuiteRunResponse_startTime :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.UTCTime) +getSuiteRunResponse_startTime = Lens.lens (\GetSuiteRunResponse' {startTime} -> startTime) (\s@GetSuiteRunResponse' {} a -> s {startTime = a} :: GetSuiteRunResponse) Prelude.. Lens.mapping Data._Time + +-- | Status for the test suite run. +getSuiteRunResponse_status :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe SuiteRunStatus) +getSuiteRunResponse_status = Lens.lens (\GetSuiteRunResponse' {status} -> status) (\s@GetSuiteRunResponse' {} a -> s {status = a} :: GetSuiteRunResponse) + +-- | Suite definition ID for the test suite run. +getSuiteRunResponse_suiteDefinitionId :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text) +getSuiteRunResponse_suiteDefinitionId = Lens.lens (\GetSuiteRunResponse' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteRunResponse' {} a -> s {suiteDefinitionId = a} :: GetSuiteRunResponse) + +-- | Suite definition version for the test suite run. +getSuiteRunResponse_suiteDefinitionVersion :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text) +getSuiteRunResponse_suiteDefinitionVersion = Lens.lens (\GetSuiteRunResponse' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@GetSuiteRunResponse' {} a -> s {suiteDefinitionVersion = a} :: GetSuiteRunResponse) + +-- | The ARN of the suite run. +getSuiteRunResponse_suiteRunArn :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text) +getSuiteRunResponse_suiteRunArn = Lens.lens (\GetSuiteRunResponse' {suiteRunArn} -> suiteRunArn) (\s@GetSuiteRunResponse' {} a -> s {suiteRunArn = a} :: GetSuiteRunResponse) + +-- | Suite run configuration for the test suite run. +getSuiteRunResponse_suiteRunConfiguration :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe SuiteRunConfiguration) +getSuiteRunResponse_suiteRunConfiguration = Lens.lens (\GetSuiteRunResponse' {suiteRunConfiguration} -> suiteRunConfiguration) (\s@GetSuiteRunResponse' {} a -> s {suiteRunConfiguration = a} :: GetSuiteRunResponse) + +-- | Suite run ID for the test suite run. +getSuiteRunResponse_suiteRunId :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text) +getSuiteRunResponse_suiteRunId = Lens.lens (\GetSuiteRunResponse' {suiteRunId} -> suiteRunId) (\s@GetSuiteRunResponse' {} a -> s {suiteRunId = a} :: GetSuiteRunResponse) + +-- | The tags attached to the suite run. +getSuiteRunResponse_tags :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)) +getSuiteRunResponse_tags = Lens.lens (\GetSuiteRunResponse' {tags} -> tags) (\s@GetSuiteRunResponse' {} a -> s {tags = a} :: GetSuiteRunResponse) Prelude.. Lens.mapping Lens.coerced + +-- | Test results for the test suite run. +getSuiteRunResponse_testResult :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe TestResult) +getSuiteRunResponse_testResult = Lens.lens (\GetSuiteRunResponse' {testResult} -> testResult) (\s@GetSuiteRunResponse' {} a -> s {testResult = a} :: GetSuiteRunResponse) + +-- | The response's http status code. +getSuiteRunResponse_httpStatus :: Lens.Lens' GetSuiteRunResponse Prelude.Int +getSuiteRunResponse_httpStatus = Lens.lens (\GetSuiteRunResponse' {httpStatus} -> httpStatus) (\s@GetSuiteRunResponse' {} a -> s {httpStatus = a} :: GetSuiteRunResponse) + +instance Prelude.NFData GetSuiteRunResponse where + rnf GetSuiteRunResponse' {..} = + Prelude.rnf endTime + `Prelude.seq` Prelude.rnf errorReason + `Prelude.seq` Prelude.rnf startTime + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteDefinitionVersion + `Prelude.seq` Prelude.rnf suiteRunArn + `Prelude.seq` Prelude.rnf suiteRunConfiguration + `Prelude.seq` Prelude.rnf suiteRunId + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf testResult + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/GetSuiteRunReport.hs b/gen/Amazonka/IoTDeviceAdvisor/GetSuiteRunReport.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/GetSuiteRunReport.hs @@ -0,0 +1,188 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.GetSuiteRunReport +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets a report download link for a successful Device Advisor qualifying +-- test suite run. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.GetSuiteRunReport + ( -- * Creating a Request + GetSuiteRunReport (..), + newGetSuiteRunReport, + + -- * Request Lenses + getSuiteRunReport_suiteDefinitionId, + getSuiteRunReport_suiteRunId, + + -- * Destructuring the Response + GetSuiteRunReportResponse (..), + newGetSuiteRunReportResponse, + + -- * Response Lenses + getSuiteRunReportResponse_qualificationReportDownloadUrl, + getSuiteRunReportResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newGetSuiteRunReport' smart constructor. +data GetSuiteRunReport = GetSuiteRunReport' + { -- | Suite definition ID of the test suite. + suiteDefinitionId :: Prelude.Text, + -- | Suite run ID of the test suite run. + suiteRunId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetSuiteRunReport' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'suiteDefinitionId', 'getSuiteRunReport_suiteDefinitionId' - Suite definition ID of the test suite. +-- +-- 'suiteRunId', 'getSuiteRunReport_suiteRunId' - Suite run ID of the test suite run. +newGetSuiteRunReport :: + -- | 'suiteDefinitionId' + Prelude.Text -> + -- | 'suiteRunId' + Prelude.Text -> + GetSuiteRunReport +newGetSuiteRunReport pSuiteDefinitionId_ pSuiteRunId_ = + GetSuiteRunReport' + { suiteDefinitionId = + pSuiteDefinitionId_, + suiteRunId = pSuiteRunId_ + } + +-- | Suite definition ID of the test suite. +getSuiteRunReport_suiteDefinitionId :: Lens.Lens' GetSuiteRunReport Prelude.Text +getSuiteRunReport_suiteDefinitionId = Lens.lens (\GetSuiteRunReport' {suiteDefinitionId} -> suiteDefinitionId) (\s@GetSuiteRunReport' {} a -> s {suiteDefinitionId = a} :: GetSuiteRunReport) + +-- | Suite run ID of the test suite run. +getSuiteRunReport_suiteRunId :: Lens.Lens' GetSuiteRunReport Prelude.Text +getSuiteRunReport_suiteRunId = Lens.lens (\GetSuiteRunReport' {suiteRunId} -> suiteRunId) (\s@GetSuiteRunReport' {} a -> s {suiteRunId = a} :: GetSuiteRunReport) + +instance Core.AWSRequest GetSuiteRunReport where + type + AWSResponse GetSuiteRunReport = + GetSuiteRunReportResponse + request overrides = + Request.get (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + GetSuiteRunReportResponse' + Prelude.<$> (x Data..?> "qualificationReportDownloadUrl") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable GetSuiteRunReport where + hashWithSalt _salt GetSuiteRunReport' {..} = + _salt + `Prelude.hashWithSalt` suiteDefinitionId + `Prelude.hashWithSalt` suiteRunId + +instance Prelude.NFData GetSuiteRunReport where + rnf GetSuiteRunReport' {..} = + Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteRunId + +instance Data.ToHeaders GetSuiteRunReport where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToPath GetSuiteRunReport where + toPath GetSuiteRunReport' {..} = + Prelude.mconcat + [ "/suiteDefinitions/", + Data.toBS suiteDefinitionId, + "/suiteRuns/", + Data.toBS suiteRunId, + "/report" + ] + +instance Data.ToQuery GetSuiteRunReport where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newGetSuiteRunReportResponse' smart constructor. +data GetSuiteRunReportResponse = GetSuiteRunReportResponse' + { -- | Download URL of the qualification report. + qualificationReportDownloadUrl :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetSuiteRunReportResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'qualificationReportDownloadUrl', 'getSuiteRunReportResponse_qualificationReportDownloadUrl' - Download URL of the qualification report. +-- +-- 'httpStatus', 'getSuiteRunReportResponse_httpStatus' - The response's http status code. +newGetSuiteRunReportResponse :: + -- | 'httpStatus' + Prelude.Int -> + GetSuiteRunReportResponse +newGetSuiteRunReportResponse pHttpStatus_ = + GetSuiteRunReportResponse' + { qualificationReportDownloadUrl = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | Download URL of the qualification report. +getSuiteRunReportResponse_qualificationReportDownloadUrl :: Lens.Lens' GetSuiteRunReportResponse (Prelude.Maybe Prelude.Text) +getSuiteRunReportResponse_qualificationReportDownloadUrl = Lens.lens (\GetSuiteRunReportResponse' {qualificationReportDownloadUrl} -> qualificationReportDownloadUrl) (\s@GetSuiteRunReportResponse' {} a -> s {qualificationReportDownloadUrl = a} :: GetSuiteRunReportResponse) + +-- | The response's http status code. +getSuiteRunReportResponse_httpStatus :: Lens.Lens' GetSuiteRunReportResponse Prelude.Int +getSuiteRunReportResponse_httpStatus = Lens.lens (\GetSuiteRunReportResponse' {httpStatus} -> httpStatus) (\s@GetSuiteRunReportResponse' {} a -> s {httpStatus = a} :: GetSuiteRunReportResponse) + +instance Prelude.NFData GetSuiteRunReportResponse where + rnf GetSuiteRunReportResponse' {..} = + Prelude.rnf qualificationReportDownloadUrl + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/Lens.hs b/gen/Amazonka/IoTDeviceAdvisor/Lens.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Lens.hs @@ -0,0 +1,221 @@ +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Lens +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Lens + ( -- * Operations + + -- ** CreateSuiteDefinition + createSuiteDefinition_tags, + createSuiteDefinition_suiteDefinitionConfiguration, + createSuiteDefinitionResponse_createdAt, + createSuiteDefinitionResponse_suiteDefinitionArn, + createSuiteDefinitionResponse_suiteDefinitionId, + createSuiteDefinitionResponse_suiteDefinitionName, + createSuiteDefinitionResponse_httpStatus, + + -- ** DeleteSuiteDefinition + deleteSuiteDefinition_suiteDefinitionId, + deleteSuiteDefinitionResponse_httpStatus, + + -- ** GetEndpoint + getEndpoint_certificateArn, + getEndpoint_thingArn, + getEndpointResponse_endpoint, + getEndpointResponse_httpStatus, + + -- ** GetSuiteDefinition + getSuiteDefinition_suiteDefinitionVersion, + getSuiteDefinition_suiteDefinitionId, + getSuiteDefinitionResponse_createdAt, + getSuiteDefinitionResponse_lastModifiedAt, + getSuiteDefinitionResponse_latestVersion, + getSuiteDefinitionResponse_suiteDefinitionArn, + getSuiteDefinitionResponse_suiteDefinitionConfiguration, + getSuiteDefinitionResponse_suiteDefinitionId, + getSuiteDefinitionResponse_suiteDefinitionVersion, + getSuiteDefinitionResponse_tags, + getSuiteDefinitionResponse_httpStatus, + + -- ** GetSuiteRun + getSuiteRun_suiteDefinitionId, + getSuiteRun_suiteRunId, + getSuiteRunResponse_endTime, + getSuiteRunResponse_errorReason, + getSuiteRunResponse_startTime, + getSuiteRunResponse_status, + getSuiteRunResponse_suiteDefinitionId, + getSuiteRunResponse_suiteDefinitionVersion, + getSuiteRunResponse_suiteRunArn, + getSuiteRunResponse_suiteRunConfiguration, + getSuiteRunResponse_suiteRunId, + getSuiteRunResponse_tags, + getSuiteRunResponse_testResult, + getSuiteRunResponse_httpStatus, + + -- ** GetSuiteRunReport + getSuiteRunReport_suiteDefinitionId, + getSuiteRunReport_suiteRunId, + getSuiteRunReportResponse_qualificationReportDownloadUrl, + getSuiteRunReportResponse_httpStatus, + + -- ** ListSuiteDefinitions + listSuiteDefinitions_maxResults, + listSuiteDefinitions_nextToken, + listSuiteDefinitionsResponse_nextToken, + listSuiteDefinitionsResponse_suiteDefinitionInformationList, + listSuiteDefinitionsResponse_httpStatus, + + -- ** ListSuiteRuns + listSuiteRuns_maxResults, + listSuiteRuns_nextToken, + listSuiteRuns_suiteDefinitionId, + listSuiteRuns_suiteDefinitionVersion, + listSuiteRunsResponse_nextToken, + listSuiteRunsResponse_suiteRunsList, + listSuiteRunsResponse_httpStatus, + + -- ** ListTagsForResource + listTagsForResource_resourceArn, + listTagsForResourceResponse_tags, + listTagsForResourceResponse_httpStatus, + + -- ** StartSuiteRun + startSuiteRun_suiteDefinitionVersion, + startSuiteRun_tags, + startSuiteRun_suiteDefinitionId, + startSuiteRun_suiteRunConfiguration, + startSuiteRunResponse_createdAt, + startSuiteRunResponse_endpoint, + startSuiteRunResponse_suiteRunArn, + startSuiteRunResponse_suiteRunId, + startSuiteRunResponse_httpStatus, + + -- ** StopSuiteRun + stopSuiteRun_suiteDefinitionId, + stopSuiteRun_suiteRunId, + stopSuiteRunResponse_httpStatus, + + -- ** TagResource + tagResource_resourceArn, + tagResource_tags, + tagResourceResponse_httpStatus, + + -- ** UntagResource + untagResource_resourceArn, + untagResource_tagKeys, + untagResourceResponse_httpStatus, + + -- ** UpdateSuiteDefinition + updateSuiteDefinition_suiteDefinitionId, + updateSuiteDefinition_suiteDefinitionConfiguration, + updateSuiteDefinitionResponse_createdAt, + updateSuiteDefinitionResponse_lastUpdatedAt, + updateSuiteDefinitionResponse_suiteDefinitionArn, + updateSuiteDefinitionResponse_suiteDefinitionId, + updateSuiteDefinitionResponse_suiteDefinitionName, + updateSuiteDefinitionResponse_suiteDefinitionVersion, + updateSuiteDefinitionResponse_httpStatus, + + -- * Types + + -- ** DeviceUnderTest + deviceUnderTest_certificateArn, + deviceUnderTest_thingArn, + + -- ** GroupResult + groupResult_groupId, + groupResult_groupName, + groupResult_tests, + + -- ** SuiteDefinitionConfiguration + suiteDefinitionConfiguration_devices, + suiteDefinitionConfiguration_intendedForQualification, + suiteDefinitionConfiguration_isLongDurationTest, + suiteDefinitionConfiguration_protocol, + suiteDefinitionConfiguration_suiteDefinitionName, + suiteDefinitionConfiguration_rootGroup, + suiteDefinitionConfiguration_devicePermissionRoleArn, + + -- ** SuiteDefinitionInformation + suiteDefinitionInformation_createdAt, + suiteDefinitionInformation_defaultDevices, + suiteDefinitionInformation_intendedForQualification, + suiteDefinitionInformation_isLongDurationTest, + suiteDefinitionInformation_protocol, + suiteDefinitionInformation_suiteDefinitionId, + suiteDefinitionInformation_suiteDefinitionName, + + -- ** SuiteRunConfiguration + suiteRunConfiguration_parallelRun, + suiteRunConfiguration_selectedTestList, + suiteRunConfiguration_primaryDevice, + + -- ** SuiteRunInformation + suiteRunInformation_createdAt, + suiteRunInformation_endAt, + suiteRunInformation_failed, + suiteRunInformation_passed, + suiteRunInformation_startedAt, + suiteRunInformation_status, + suiteRunInformation_suiteDefinitionId, + suiteRunInformation_suiteDefinitionName, + suiteRunInformation_suiteDefinitionVersion, + suiteRunInformation_suiteRunId, + + -- ** TestCaseRun + testCaseRun_endTime, + testCaseRun_failure, + testCaseRun_logUrl, + testCaseRun_startTime, + testCaseRun_status, + testCaseRun_testCaseDefinitionId, + testCaseRun_testCaseDefinitionName, + testCaseRun_testCaseRunId, + testCaseRun_testScenarios, + testCaseRun_warnings, + + -- ** TestCaseScenario + testCaseScenario_failure, + testCaseScenario_status, + testCaseScenario_systemMessage, + testCaseScenario_testCaseScenarioId, + testCaseScenario_testCaseScenarioType, + + -- ** TestResult + testResult_groups, + ) +where + +import Amazonka.IoTDeviceAdvisor.CreateSuiteDefinition +import Amazonka.IoTDeviceAdvisor.DeleteSuiteDefinition +import Amazonka.IoTDeviceAdvisor.GetEndpoint +import Amazonka.IoTDeviceAdvisor.GetSuiteDefinition +import Amazonka.IoTDeviceAdvisor.GetSuiteRun +import Amazonka.IoTDeviceAdvisor.GetSuiteRunReport +import Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions +import Amazonka.IoTDeviceAdvisor.ListSuiteRuns +import Amazonka.IoTDeviceAdvisor.ListTagsForResource +import Amazonka.IoTDeviceAdvisor.StartSuiteRun +import Amazonka.IoTDeviceAdvisor.StopSuiteRun +import Amazonka.IoTDeviceAdvisor.TagResource +import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest +import Amazonka.IoTDeviceAdvisor.Types.GroupResult +import Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration +import Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation +import Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration +import Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation +import Amazonka.IoTDeviceAdvisor.Types.TestCaseRun +import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario +import Amazonka.IoTDeviceAdvisor.Types.TestResult +import Amazonka.IoTDeviceAdvisor.UntagResource +import Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition diff --git a/gen/Amazonka/IoTDeviceAdvisor/ListSuiteDefinitions.hs b/gen/Amazonka/IoTDeviceAdvisor/ListSuiteDefinitions.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/ListSuiteDefinitions.hs @@ -0,0 +1,198 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists the Device Advisor test suites you have created. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.ListSuiteDefinitions + ( -- * Creating a Request + ListSuiteDefinitions (..), + newListSuiteDefinitions, + + -- * Request Lenses + listSuiteDefinitions_maxResults, + listSuiteDefinitions_nextToken, + + -- * Destructuring the Response + ListSuiteDefinitionsResponse (..), + newListSuiteDefinitionsResponse, + + -- * Response Lenses + listSuiteDefinitionsResponse_nextToken, + listSuiteDefinitionsResponse_suiteDefinitionInformationList, + listSuiteDefinitionsResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListSuiteDefinitions' smart constructor. +data ListSuiteDefinitions = ListSuiteDefinitions' + { -- | The maximum number of results to return at once. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | A token used to get the next set of results. + nextToken :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListSuiteDefinitions' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'maxResults', 'listSuiteDefinitions_maxResults' - The maximum number of results to return at once. +-- +-- 'nextToken', 'listSuiteDefinitions_nextToken' - A token used to get the next set of results. +newListSuiteDefinitions :: + ListSuiteDefinitions +newListSuiteDefinitions = + ListSuiteDefinitions' + { maxResults = Prelude.Nothing, + nextToken = Prelude.Nothing + } + +-- | The maximum number of results to return at once. +listSuiteDefinitions_maxResults :: Lens.Lens' ListSuiteDefinitions (Prelude.Maybe Prelude.Natural) +listSuiteDefinitions_maxResults = Lens.lens (\ListSuiteDefinitions' {maxResults} -> maxResults) (\s@ListSuiteDefinitions' {} a -> s {maxResults = a} :: ListSuiteDefinitions) + +-- | A token used to get the next set of results. +listSuiteDefinitions_nextToken :: Lens.Lens' ListSuiteDefinitions (Prelude.Maybe Prelude.Text) +listSuiteDefinitions_nextToken = Lens.lens (\ListSuiteDefinitions' {nextToken} -> nextToken) (\s@ListSuiteDefinitions' {} a -> s {nextToken = a} :: ListSuiteDefinitions) + +instance Core.AWSRequest ListSuiteDefinitions where + type + AWSResponse ListSuiteDefinitions = + ListSuiteDefinitionsResponse + request overrides = + Request.get (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + ListSuiteDefinitionsResponse' + Prelude.<$> (x Data..?> "nextToken") + Prelude.<*> ( x + Data..?> "suiteDefinitionInformationList" + Core..!@ Prelude.mempty + ) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListSuiteDefinitions where + hashWithSalt _salt ListSuiteDefinitions' {..} = + _salt + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + +instance Prelude.NFData ListSuiteDefinitions where + rnf ListSuiteDefinitions' {..} = + Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + +instance Data.ToHeaders ListSuiteDefinitions where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToPath ListSuiteDefinitions where + toPath = Prelude.const "/suiteDefinitions" + +instance Data.ToQuery ListSuiteDefinitions where + toQuery ListSuiteDefinitions' {..} = + Prelude.mconcat + [ "maxResults" Data.=: maxResults, + "nextToken" Data.=: nextToken + ] + +-- | /See:/ 'newListSuiteDefinitionsResponse' smart constructor. +data ListSuiteDefinitionsResponse = ListSuiteDefinitionsResponse' + { -- | A token used to get the next set of results. + nextToken :: Prelude.Maybe Prelude.Text, + -- | An array of objects that provide summaries of information about the + -- suite definitions in the list. + suiteDefinitionInformationList :: Prelude.Maybe [SuiteDefinitionInformation], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListSuiteDefinitionsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listSuiteDefinitionsResponse_nextToken' - A token used to get the next set of results. +-- +-- 'suiteDefinitionInformationList', 'listSuiteDefinitionsResponse_suiteDefinitionInformationList' - An array of objects that provide summaries of information about the +-- suite definitions in the list. +-- +-- 'httpStatus', 'listSuiteDefinitionsResponse_httpStatus' - The response's http status code. +newListSuiteDefinitionsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListSuiteDefinitionsResponse +newListSuiteDefinitionsResponse pHttpStatus_ = + ListSuiteDefinitionsResponse' + { nextToken = + Prelude.Nothing, + suiteDefinitionInformationList = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | A token used to get the next set of results. +listSuiteDefinitionsResponse_nextToken :: Lens.Lens' ListSuiteDefinitionsResponse (Prelude.Maybe Prelude.Text) +listSuiteDefinitionsResponse_nextToken = Lens.lens (\ListSuiteDefinitionsResponse' {nextToken} -> nextToken) (\s@ListSuiteDefinitionsResponse' {} a -> s {nextToken = a} :: ListSuiteDefinitionsResponse) + +-- | An array of objects that provide summaries of information about the +-- suite definitions in the list. +listSuiteDefinitionsResponse_suiteDefinitionInformationList :: Lens.Lens' ListSuiteDefinitionsResponse (Prelude.Maybe [SuiteDefinitionInformation]) +listSuiteDefinitionsResponse_suiteDefinitionInformationList = Lens.lens (\ListSuiteDefinitionsResponse' {suiteDefinitionInformationList} -> suiteDefinitionInformationList) (\s@ListSuiteDefinitionsResponse' {} a -> s {suiteDefinitionInformationList = a} :: ListSuiteDefinitionsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listSuiteDefinitionsResponse_httpStatus :: Lens.Lens' ListSuiteDefinitionsResponse Prelude.Int +listSuiteDefinitionsResponse_httpStatus = Lens.lens (\ListSuiteDefinitionsResponse' {httpStatus} -> httpStatus) (\s@ListSuiteDefinitionsResponse' {} a -> s {httpStatus = a} :: ListSuiteDefinitionsResponse) + +instance Prelude.NFData ListSuiteDefinitionsResponse where + rnf ListSuiteDefinitionsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf suiteDefinitionInformationList + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/ListSuiteRuns.hs b/gen/Amazonka/IoTDeviceAdvisor/ListSuiteRuns.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/ListSuiteRuns.hs @@ -0,0 +1,228 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.ListSuiteRuns +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists runs of the specified Device Advisor test suite. You can list all +-- runs of the test suite, or the runs of a specific version of the test +-- suite. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.ListSuiteRuns + ( -- * Creating a Request + ListSuiteRuns (..), + newListSuiteRuns, + + -- * Request Lenses + listSuiteRuns_maxResults, + listSuiteRuns_nextToken, + listSuiteRuns_suiteDefinitionId, + listSuiteRuns_suiteDefinitionVersion, + + -- * Destructuring the Response + ListSuiteRunsResponse (..), + newListSuiteRunsResponse, + + -- * Response Lenses + listSuiteRunsResponse_nextToken, + listSuiteRunsResponse_suiteRunsList, + listSuiteRunsResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListSuiteRuns' smart constructor. +data ListSuiteRuns = ListSuiteRuns' + { -- | The maximum number of results to return at once. + maxResults :: Prelude.Maybe Prelude.Natural, + -- | A token to retrieve the next set of results. + nextToken :: Prelude.Maybe Prelude.Text, + -- | Lists the test suite runs of the specified test suite based on suite + -- definition ID. + suiteDefinitionId :: Prelude.Maybe Prelude.Text, + -- | Must be passed along with @suiteDefinitionId@. Lists the test suite runs + -- of the specified test suite based on suite definition version. + suiteDefinitionVersion :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListSuiteRuns' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'maxResults', 'listSuiteRuns_maxResults' - The maximum number of results to return at once. +-- +-- 'nextToken', 'listSuiteRuns_nextToken' - A token to retrieve the next set of results. +-- +-- 'suiteDefinitionId', 'listSuiteRuns_suiteDefinitionId' - Lists the test suite runs of the specified test suite based on suite +-- definition ID. +-- +-- 'suiteDefinitionVersion', 'listSuiteRuns_suiteDefinitionVersion' - Must be passed along with @suiteDefinitionId@. Lists the test suite runs +-- of the specified test suite based on suite definition version. +newListSuiteRuns :: + ListSuiteRuns +newListSuiteRuns = + ListSuiteRuns' + { maxResults = Prelude.Nothing, + nextToken = Prelude.Nothing, + suiteDefinitionId = Prelude.Nothing, + suiteDefinitionVersion = Prelude.Nothing + } + +-- | The maximum number of results to return at once. +listSuiteRuns_maxResults :: Lens.Lens' ListSuiteRuns (Prelude.Maybe Prelude.Natural) +listSuiteRuns_maxResults = Lens.lens (\ListSuiteRuns' {maxResults} -> maxResults) (\s@ListSuiteRuns' {} a -> s {maxResults = a} :: ListSuiteRuns) + +-- | A token to retrieve the next set of results. +listSuiteRuns_nextToken :: Lens.Lens' ListSuiteRuns (Prelude.Maybe Prelude.Text) +listSuiteRuns_nextToken = Lens.lens (\ListSuiteRuns' {nextToken} -> nextToken) (\s@ListSuiteRuns' {} a -> s {nextToken = a} :: ListSuiteRuns) + +-- | Lists the test suite runs of the specified test suite based on suite +-- definition ID. +listSuiteRuns_suiteDefinitionId :: Lens.Lens' ListSuiteRuns (Prelude.Maybe Prelude.Text) +listSuiteRuns_suiteDefinitionId = Lens.lens (\ListSuiteRuns' {suiteDefinitionId} -> suiteDefinitionId) (\s@ListSuiteRuns' {} a -> s {suiteDefinitionId = a} :: ListSuiteRuns) + +-- | Must be passed along with @suiteDefinitionId@. Lists the test suite runs +-- of the specified test suite based on suite definition version. +listSuiteRuns_suiteDefinitionVersion :: Lens.Lens' ListSuiteRuns (Prelude.Maybe Prelude.Text) +listSuiteRuns_suiteDefinitionVersion = Lens.lens (\ListSuiteRuns' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@ListSuiteRuns' {} a -> s {suiteDefinitionVersion = a} :: ListSuiteRuns) + +instance Core.AWSRequest ListSuiteRuns where + type + AWSResponse ListSuiteRuns = + ListSuiteRunsResponse + request overrides = + Request.get (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + ListSuiteRunsResponse' + Prelude.<$> (x Data..?> "nextToken") + Prelude.<*> (x Data..?> "suiteRunsList" Core..!@ Prelude.mempty) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListSuiteRuns where + hashWithSalt _salt ListSuiteRuns' {..} = + _salt + `Prelude.hashWithSalt` maxResults + `Prelude.hashWithSalt` nextToken + `Prelude.hashWithSalt` suiteDefinitionId + `Prelude.hashWithSalt` suiteDefinitionVersion + +instance Prelude.NFData ListSuiteRuns where + rnf ListSuiteRuns' {..} = + Prelude.rnf maxResults + `Prelude.seq` Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteDefinitionVersion + +instance Data.ToHeaders ListSuiteRuns where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToPath ListSuiteRuns where + toPath = Prelude.const "/suiteRuns" + +instance Data.ToQuery ListSuiteRuns where + toQuery ListSuiteRuns' {..} = + Prelude.mconcat + [ "maxResults" Data.=: maxResults, + "nextToken" Data.=: nextToken, + "suiteDefinitionId" Data.=: suiteDefinitionId, + "suiteDefinitionVersion" + Data.=: suiteDefinitionVersion + ] + +-- | /See:/ 'newListSuiteRunsResponse' smart constructor. +data ListSuiteRunsResponse = ListSuiteRunsResponse' + { -- | A token to retrieve the next set of results. + nextToken :: Prelude.Maybe Prelude.Text, + -- | An array of objects that provide summaries of information about the + -- suite runs in the list. + suiteRunsList :: Prelude.Maybe [SuiteRunInformation], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListSuiteRunsResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'nextToken', 'listSuiteRunsResponse_nextToken' - A token to retrieve the next set of results. +-- +-- 'suiteRunsList', 'listSuiteRunsResponse_suiteRunsList' - An array of objects that provide summaries of information about the +-- suite runs in the list. +-- +-- 'httpStatus', 'listSuiteRunsResponse_httpStatus' - The response's http status code. +newListSuiteRunsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListSuiteRunsResponse +newListSuiteRunsResponse pHttpStatus_ = + ListSuiteRunsResponse' + { nextToken = Prelude.Nothing, + suiteRunsList = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | A token to retrieve the next set of results. +listSuiteRunsResponse_nextToken :: Lens.Lens' ListSuiteRunsResponse (Prelude.Maybe Prelude.Text) +listSuiteRunsResponse_nextToken = Lens.lens (\ListSuiteRunsResponse' {nextToken} -> nextToken) (\s@ListSuiteRunsResponse' {} a -> s {nextToken = a} :: ListSuiteRunsResponse) + +-- | An array of objects that provide summaries of information about the +-- suite runs in the list. +listSuiteRunsResponse_suiteRunsList :: Lens.Lens' ListSuiteRunsResponse (Prelude.Maybe [SuiteRunInformation]) +listSuiteRunsResponse_suiteRunsList = Lens.lens (\ListSuiteRunsResponse' {suiteRunsList} -> suiteRunsList) (\s@ListSuiteRunsResponse' {} a -> s {suiteRunsList = a} :: ListSuiteRunsResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listSuiteRunsResponse_httpStatus :: Lens.Lens' ListSuiteRunsResponse Prelude.Int +listSuiteRunsResponse_httpStatus = Lens.lens (\ListSuiteRunsResponse' {httpStatus} -> httpStatus) (\s@ListSuiteRunsResponse' {} a -> s {httpStatus = a} :: ListSuiteRunsResponse) + +instance Prelude.NFData ListSuiteRunsResponse where + rnf ListSuiteRunsResponse' {..} = + Prelude.rnf nextToken + `Prelude.seq` Prelude.rnf suiteRunsList + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/ListTagsForResource.hs b/gen/Amazonka/IoTDeviceAdvisor/ListTagsForResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/ListTagsForResource.hs @@ -0,0 +1,166 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.ListTagsForResource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists the tags attached to an IoT Device Advisor resource. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.ListTagsForResource + ( -- * Creating a Request + ListTagsForResource (..), + newListTagsForResource, + + -- * Request Lenses + listTagsForResource_resourceArn, + + -- * Destructuring the Response + ListTagsForResourceResponse (..), + newListTagsForResourceResponse, + + -- * Response Lenses + listTagsForResourceResponse_tags, + listTagsForResourceResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newListTagsForResource' smart constructor. +data ListTagsForResource = ListTagsForResource' + { -- | The resource ARN of the IoT Device Advisor resource. This can be + -- SuiteDefinition ARN or SuiteRun ARN. + resourceArn :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTagsForResource' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'resourceArn', 'listTagsForResource_resourceArn' - The resource ARN of the IoT Device Advisor resource. This can be +-- SuiteDefinition ARN or SuiteRun ARN. +newListTagsForResource :: + -- | 'resourceArn' + Prelude.Text -> + ListTagsForResource +newListTagsForResource pResourceArn_ = + ListTagsForResource' {resourceArn = pResourceArn_} + +-- | The resource ARN of the IoT Device Advisor resource. This can be +-- SuiteDefinition ARN or SuiteRun ARN. +listTagsForResource_resourceArn :: Lens.Lens' ListTagsForResource Prelude.Text +listTagsForResource_resourceArn = Lens.lens (\ListTagsForResource' {resourceArn} -> resourceArn) (\s@ListTagsForResource' {} a -> s {resourceArn = a} :: ListTagsForResource) + +instance Core.AWSRequest ListTagsForResource where + type + AWSResponse ListTagsForResource = + ListTagsForResourceResponse + request overrides = + Request.get (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + ListTagsForResourceResponse' + Prelude.<$> (x Data..?> "tags" Core..!@ Prelude.mempty) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListTagsForResource where + hashWithSalt _salt ListTagsForResource' {..} = + _salt `Prelude.hashWithSalt` resourceArn + +instance Prelude.NFData ListTagsForResource where + rnf ListTagsForResource' {..} = + Prelude.rnf resourceArn + +instance Data.ToHeaders ListTagsForResource where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToPath ListTagsForResource where + toPath ListTagsForResource' {..} = + Prelude.mconcat ["/tags/", Data.toBS resourceArn] + +instance Data.ToQuery ListTagsForResource where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newListTagsForResourceResponse' smart constructor. +data ListTagsForResourceResponse = ListTagsForResourceResponse' + { -- | The tags attached to the IoT Device Advisor resource. + tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text), + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTagsForResourceResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'tags', 'listTagsForResourceResponse_tags' - The tags attached to the IoT Device Advisor resource. +-- +-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code. +newListTagsForResourceResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListTagsForResourceResponse +newListTagsForResourceResponse pHttpStatus_ = + ListTagsForResourceResponse' + { tags = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The tags attached to the IoT Device Advisor resource. +listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)) +listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int +listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse) + +instance Prelude.NFData ListTagsForResourceResponse where + rnf ListTagsForResourceResponse' {..} = + Prelude.rnf tags + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/StartSuiteRun.hs b/gen/Amazonka/IoTDeviceAdvisor/StartSuiteRun.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/StartSuiteRun.hs @@ -0,0 +1,260 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.StartSuiteRun +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Starts a Device Advisor test suite run. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.StartSuiteRun + ( -- * Creating a Request + StartSuiteRun (..), + newStartSuiteRun, + + -- * Request Lenses + startSuiteRun_suiteDefinitionVersion, + startSuiteRun_tags, + startSuiteRun_suiteDefinitionId, + startSuiteRun_suiteRunConfiguration, + + -- * Destructuring the Response + StartSuiteRunResponse (..), + newStartSuiteRunResponse, + + -- * Response Lenses + startSuiteRunResponse_createdAt, + startSuiteRunResponse_endpoint, + startSuiteRunResponse_suiteRunArn, + startSuiteRunResponse_suiteRunId, + startSuiteRunResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newStartSuiteRun' smart constructor. +data StartSuiteRun = StartSuiteRun' + { -- | Suite definition version of the test suite. + suiteDefinitionVersion :: Prelude.Maybe Prelude.Text, + -- | The tags to be attached to the suite run. + tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text), + -- | Suite definition ID of the test suite. + suiteDefinitionId :: Prelude.Text, + -- | Suite run configuration. + suiteRunConfiguration :: SuiteRunConfiguration + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StartSuiteRun' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'suiteDefinitionVersion', 'startSuiteRun_suiteDefinitionVersion' - Suite definition version of the test suite. +-- +-- 'tags', 'startSuiteRun_tags' - The tags to be attached to the suite run. +-- +-- 'suiteDefinitionId', 'startSuiteRun_suiteDefinitionId' - Suite definition ID of the test suite. +-- +-- 'suiteRunConfiguration', 'startSuiteRun_suiteRunConfiguration' - Suite run configuration. +newStartSuiteRun :: + -- | 'suiteDefinitionId' + Prelude.Text -> + -- | 'suiteRunConfiguration' + SuiteRunConfiguration -> + StartSuiteRun +newStartSuiteRun + pSuiteDefinitionId_ + pSuiteRunConfiguration_ = + StartSuiteRun' + { suiteDefinitionVersion = + Prelude.Nothing, + tags = Prelude.Nothing, + suiteDefinitionId = pSuiteDefinitionId_, + suiteRunConfiguration = pSuiteRunConfiguration_ + } + +-- | Suite definition version of the test suite. +startSuiteRun_suiteDefinitionVersion :: Lens.Lens' StartSuiteRun (Prelude.Maybe Prelude.Text) +startSuiteRun_suiteDefinitionVersion = Lens.lens (\StartSuiteRun' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@StartSuiteRun' {} a -> s {suiteDefinitionVersion = a} :: StartSuiteRun) + +-- | The tags to be attached to the suite run. +startSuiteRun_tags :: Lens.Lens' StartSuiteRun (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)) +startSuiteRun_tags = Lens.lens (\StartSuiteRun' {tags} -> tags) (\s@StartSuiteRun' {} a -> s {tags = a} :: StartSuiteRun) Prelude.. Lens.mapping Lens.coerced + +-- | Suite definition ID of the test suite. +startSuiteRun_suiteDefinitionId :: Lens.Lens' StartSuiteRun Prelude.Text +startSuiteRun_suiteDefinitionId = Lens.lens (\StartSuiteRun' {suiteDefinitionId} -> suiteDefinitionId) (\s@StartSuiteRun' {} a -> s {suiteDefinitionId = a} :: StartSuiteRun) + +-- | Suite run configuration. +startSuiteRun_suiteRunConfiguration :: Lens.Lens' StartSuiteRun SuiteRunConfiguration +startSuiteRun_suiteRunConfiguration = Lens.lens (\StartSuiteRun' {suiteRunConfiguration} -> suiteRunConfiguration) (\s@StartSuiteRun' {} a -> s {suiteRunConfiguration = a} :: StartSuiteRun) + +instance Core.AWSRequest StartSuiteRun where + type + AWSResponse StartSuiteRun = + StartSuiteRunResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + StartSuiteRunResponse' + Prelude.<$> (x Data..?> "createdAt") + Prelude.<*> (x Data..?> "endpoint") + Prelude.<*> (x Data..?> "suiteRunArn") + Prelude.<*> (x Data..?> "suiteRunId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable StartSuiteRun where + hashWithSalt _salt StartSuiteRun' {..} = + _salt + `Prelude.hashWithSalt` suiteDefinitionVersion + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` suiteDefinitionId + `Prelude.hashWithSalt` suiteRunConfiguration + +instance Prelude.NFData StartSuiteRun where + rnf StartSuiteRun' {..} = + Prelude.rnf suiteDefinitionVersion + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteRunConfiguration + +instance Data.ToHeaders StartSuiteRun where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON StartSuiteRun where + toJSON StartSuiteRun' {..} = + Data.object + ( Prelude.catMaybes + [ ("suiteDefinitionVersion" Data..=) + Prelude.<$> suiteDefinitionVersion, + ("tags" Data..=) Prelude.<$> tags, + Prelude.Just + ( "suiteRunConfiguration" + Data..= suiteRunConfiguration + ) + ] + ) + +instance Data.ToPath StartSuiteRun where + toPath StartSuiteRun' {..} = + Prelude.mconcat + [ "/suiteDefinitions/", + Data.toBS suiteDefinitionId, + "/suiteRuns" + ] + +instance Data.ToQuery StartSuiteRun where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newStartSuiteRunResponse' smart constructor. +data StartSuiteRunResponse = StartSuiteRunResponse' + { -- | Starts a Device Advisor test suite run based on suite create time. + createdAt :: Prelude.Maybe Data.POSIX, + -- | The response of an Device Advisor test endpoint. + endpoint :: Prelude.Maybe Prelude.Text, + -- | Amazon Resource Name (ARN) of the started suite run. + suiteRunArn :: Prelude.Maybe Prelude.Text, + -- | Suite Run ID of the started suite run. + suiteRunId :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StartSuiteRunResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'createdAt', 'startSuiteRunResponse_createdAt' - Starts a Device Advisor test suite run based on suite create time. +-- +-- 'endpoint', 'startSuiteRunResponse_endpoint' - The response of an Device Advisor test endpoint. +-- +-- 'suiteRunArn', 'startSuiteRunResponse_suiteRunArn' - Amazon Resource Name (ARN) of the started suite run. +-- +-- 'suiteRunId', 'startSuiteRunResponse_suiteRunId' - Suite Run ID of the started suite run. +-- +-- 'httpStatus', 'startSuiteRunResponse_httpStatus' - The response's http status code. +newStartSuiteRunResponse :: + -- | 'httpStatus' + Prelude.Int -> + StartSuiteRunResponse +newStartSuiteRunResponse pHttpStatus_ = + StartSuiteRunResponse' + { createdAt = Prelude.Nothing, + endpoint = Prelude.Nothing, + suiteRunArn = Prelude.Nothing, + suiteRunId = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | Starts a Device Advisor test suite run based on suite create time. +startSuiteRunResponse_createdAt :: Lens.Lens' StartSuiteRunResponse (Prelude.Maybe Prelude.UTCTime) +startSuiteRunResponse_createdAt = Lens.lens (\StartSuiteRunResponse' {createdAt} -> createdAt) (\s@StartSuiteRunResponse' {} a -> s {createdAt = a} :: StartSuiteRunResponse) Prelude.. Lens.mapping Data._Time + +-- | The response of an Device Advisor test endpoint. +startSuiteRunResponse_endpoint :: Lens.Lens' StartSuiteRunResponse (Prelude.Maybe Prelude.Text) +startSuiteRunResponse_endpoint = Lens.lens (\StartSuiteRunResponse' {endpoint} -> endpoint) (\s@StartSuiteRunResponse' {} a -> s {endpoint = a} :: StartSuiteRunResponse) + +-- | Amazon Resource Name (ARN) of the started suite run. +startSuiteRunResponse_suiteRunArn :: Lens.Lens' StartSuiteRunResponse (Prelude.Maybe Prelude.Text) +startSuiteRunResponse_suiteRunArn = Lens.lens (\StartSuiteRunResponse' {suiteRunArn} -> suiteRunArn) (\s@StartSuiteRunResponse' {} a -> s {suiteRunArn = a} :: StartSuiteRunResponse) + +-- | Suite Run ID of the started suite run. +startSuiteRunResponse_suiteRunId :: Lens.Lens' StartSuiteRunResponse (Prelude.Maybe Prelude.Text) +startSuiteRunResponse_suiteRunId = Lens.lens (\StartSuiteRunResponse' {suiteRunId} -> suiteRunId) (\s@StartSuiteRunResponse' {} a -> s {suiteRunId = a} :: StartSuiteRunResponse) + +-- | The response's http status code. +startSuiteRunResponse_httpStatus :: Lens.Lens' StartSuiteRunResponse Prelude.Int +startSuiteRunResponse_httpStatus = Lens.lens (\StartSuiteRunResponse' {httpStatus} -> httpStatus) (\s@StartSuiteRunResponse' {} a -> s {httpStatus = a} :: StartSuiteRunResponse) + +instance Prelude.NFData StartSuiteRunResponse where + rnf StartSuiteRunResponse' {..} = + Prelude.rnf createdAt + `Prelude.seq` Prelude.rnf endpoint + `Prelude.seq` Prelude.rnf suiteRunArn + `Prelude.seq` Prelude.rnf suiteRunId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/StopSuiteRun.hs b/gen/Amazonka/IoTDeviceAdvisor/StopSuiteRun.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/StopSuiteRun.hs @@ -0,0 +1,173 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.StopSuiteRun +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Stops a Device Advisor test suite run that is currently running. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.StopSuiteRun + ( -- * Creating a Request + StopSuiteRun (..), + newStopSuiteRun, + + -- * Request Lenses + stopSuiteRun_suiteDefinitionId, + stopSuiteRun_suiteRunId, + + -- * Destructuring the Response + StopSuiteRunResponse (..), + newStopSuiteRunResponse, + + -- * Response Lenses + stopSuiteRunResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newStopSuiteRun' smart constructor. +data StopSuiteRun = StopSuiteRun' + { -- | Suite definition ID of the test suite run to be stopped. + suiteDefinitionId :: Prelude.Text, + -- | Suite run ID of the test suite run to be stopped. + suiteRunId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StopSuiteRun' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'suiteDefinitionId', 'stopSuiteRun_suiteDefinitionId' - Suite definition ID of the test suite run to be stopped. +-- +-- 'suiteRunId', 'stopSuiteRun_suiteRunId' - Suite run ID of the test suite run to be stopped. +newStopSuiteRun :: + -- | 'suiteDefinitionId' + Prelude.Text -> + -- | 'suiteRunId' + Prelude.Text -> + StopSuiteRun +newStopSuiteRun pSuiteDefinitionId_ pSuiteRunId_ = + StopSuiteRun' + { suiteDefinitionId = + pSuiteDefinitionId_, + suiteRunId = pSuiteRunId_ + } + +-- | Suite definition ID of the test suite run to be stopped. +stopSuiteRun_suiteDefinitionId :: Lens.Lens' StopSuiteRun Prelude.Text +stopSuiteRun_suiteDefinitionId = Lens.lens (\StopSuiteRun' {suiteDefinitionId} -> suiteDefinitionId) (\s@StopSuiteRun' {} a -> s {suiteDefinitionId = a} :: StopSuiteRun) + +-- | Suite run ID of the test suite run to be stopped. +stopSuiteRun_suiteRunId :: Lens.Lens' StopSuiteRun Prelude.Text +stopSuiteRun_suiteRunId = Lens.lens (\StopSuiteRun' {suiteRunId} -> suiteRunId) (\s@StopSuiteRun' {} a -> s {suiteRunId = a} :: StopSuiteRun) + +instance Core.AWSRequest StopSuiteRun where + type AWSResponse StopSuiteRun = StopSuiteRunResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveEmpty + ( \s h x -> + StopSuiteRunResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable StopSuiteRun where + hashWithSalt _salt StopSuiteRun' {..} = + _salt + `Prelude.hashWithSalt` suiteDefinitionId + `Prelude.hashWithSalt` suiteRunId + +instance Prelude.NFData StopSuiteRun where + rnf StopSuiteRun' {..} = + Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteRunId + +instance Data.ToHeaders StopSuiteRun where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON StopSuiteRun where + toJSON = Prelude.const (Data.Object Prelude.mempty) + +instance Data.ToPath StopSuiteRun where + toPath StopSuiteRun' {..} = + Prelude.mconcat + [ "/suiteDefinitions/", + Data.toBS suiteDefinitionId, + "/suiteRuns/", + Data.toBS suiteRunId, + "/stop" + ] + +instance Data.ToQuery StopSuiteRun where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newStopSuiteRunResponse' smart constructor. +data StopSuiteRunResponse = StopSuiteRunResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StopSuiteRunResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'stopSuiteRunResponse_httpStatus' - The response's http status code. +newStopSuiteRunResponse :: + -- | 'httpStatus' + Prelude.Int -> + StopSuiteRunResponse +newStopSuiteRunResponse pHttpStatus_ = + StopSuiteRunResponse' {httpStatus = pHttpStatus_} + +-- | The response's http status code. +stopSuiteRunResponse_httpStatus :: Lens.Lens' StopSuiteRunResponse Prelude.Int +stopSuiteRunResponse_httpStatus = Lens.lens (\StopSuiteRunResponse' {httpStatus} -> httpStatus) (\s@StopSuiteRunResponse' {} a -> s {httpStatus = a} :: StopSuiteRunResponse) + +instance Prelude.NFData StopSuiteRunResponse where + rnf StopSuiteRunResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/TagResource.hs b/gen/Amazonka/IoTDeviceAdvisor/TagResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/TagResource.hs @@ -0,0 +1,170 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.TagResource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Adds to and modifies existing tags of an IoT Device Advisor resource. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.TagResource + ( -- * Creating a Request + TagResource (..), + newTagResource, + + -- * Request Lenses + tagResource_resourceArn, + tagResource_tags, + + -- * Destructuring the Response + TagResourceResponse (..), + newTagResourceResponse, + + -- * Response Lenses + tagResourceResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newTagResource' smart constructor. +data TagResource = TagResource' + { -- | The resource ARN of an IoT Device Advisor resource. This can be + -- SuiteDefinition ARN or SuiteRun ARN. + resourceArn :: Prelude.Text, + -- | The tags to be attached to the IoT Device Advisor resource. + tags :: Prelude.HashMap Prelude.Text Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TagResource' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'resourceArn', 'tagResource_resourceArn' - The resource ARN of an IoT Device Advisor resource. This can be +-- SuiteDefinition ARN or SuiteRun ARN. +-- +-- 'tags', 'tagResource_tags' - The tags to be attached to the IoT Device Advisor resource. +newTagResource :: + -- | 'resourceArn' + Prelude.Text -> + TagResource +newTagResource pResourceArn_ = + TagResource' + { resourceArn = pResourceArn_, + tags = Prelude.mempty + } + +-- | The resource ARN of an IoT Device Advisor resource. This can be +-- SuiteDefinition ARN or SuiteRun ARN. +tagResource_resourceArn :: Lens.Lens' TagResource Prelude.Text +tagResource_resourceArn = Lens.lens (\TagResource' {resourceArn} -> resourceArn) (\s@TagResource' {} a -> s {resourceArn = a} :: TagResource) + +-- | The tags to be attached to the IoT Device Advisor resource. +tagResource_tags :: Lens.Lens' TagResource (Prelude.HashMap Prelude.Text Prelude.Text) +tagResource_tags = Lens.lens (\TagResource' {tags} -> tags) (\s@TagResource' {} a -> s {tags = a} :: TagResource) Prelude.. Lens.coerced + +instance Core.AWSRequest TagResource where + type AWSResponse TagResource = TagResourceResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveEmpty + ( \s h x -> + TagResourceResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable TagResource where + hashWithSalt _salt TagResource' {..} = + _salt + `Prelude.hashWithSalt` resourceArn + `Prelude.hashWithSalt` tags + +instance Prelude.NFData TagResource where + rnf TagResource' {..} = + Prelude.rnf resourceArn + `Prelude.seq` Prelude.rnf tags + +instance Data.ToHeaders TagResource where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON TagResource where + toJSON TagResource' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("tags" Data..= tags)] + ) + +instance Data.ToPath TagResource where + toPath TagResource' {..} = + Prelude.mconcat ["/tags/", Data.toBS resourceArn] + +instance Data.ToQuery TagResource where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newTagResourceResponse' smart constructor. +data TagResourceResponse = TagResourceResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TagResourceResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'tagResourceResponse_httpStatus' - The response's http status code. +newTagResourceResponse :: + -- | 'httpStatus' + Prelude.Int -> + TagResourceResponse +newTagResourceResponse pHttpStatus_ = + TagResourceResponse' {httpStatus = pHttpStatus_} + +-- | The response's http status code. +tagResourceResponse_httpStatus :: Lens.Lens' TagResourceResponse Prelude.Int +tagResourceResponse_httpStatus = Lens.lens (\TagResourceResponse' {httpStatus} -> httpStatus) (\s@TagResourceResponse' {} a -> s {httpStatus = a} :: TagResourceResponse) + +instance Prelude.NFData TagResourceResponse where + rnf TagResourceResponse' {..} = Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types.hs b/gen/Amazonka/IoTDeviceAdvisor/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types.hs @@ -0,0 +1,246 @@ +{-# LANGUAGE DisambiguateRecordFields #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types + ( -- * Service Configuration + defaultService, + + -- * Errors + _ConflictException, + _InternalServerException, + _ResourceNotFoundException, + _ValidationException, + + -- * Protocol + Protocol (..), + + -- * Status + Status (..), + + -- * SuiteRunStatus + SuiteRunStatus (..), + + -- * TestCaseScenarioStatus + TestCaseScenarioStatus (..), + + -- * TestCaseScenarioType + TestCaseScenarioType (..), + + -- * DeviceUnderTest + DeviceUnderTest (..), + newDeviceUnderTest, + deviceUnderTest_certificateArn, + deviceUnderTest_thingArn, + + -- * GroupResult + GroupResult (..), + newGroupResult, + groupResult_groupId, + groupResult_groupName, + groupResult_tests, + + -- * SuiteDefinitionConfiguration + SuiteDefinitionConfiguration (..), + newSuiteDefinitionConfiguration, + suiteDefinitionConfiguration_devices, + suiteDefinitionConfiguration_intendedForQualification, + suiteDefinitionConfiguration_isLongDurationTest, + suiteDefinitionConfiguration_protocol, + suiteDefinitionConfiguration_suiteDefinitionName, + suiteDefinitionConfiguration_rootGroup, + suiteDefinitionConfiguration_devicePermissionRoleArn, + + -- * SuiteDefinitionInformation + SuiteDefinitionInformation (..), + newSuiteDefinitionInformation, + suiteDefinitionInformation_createdAt, + suiteDefinitionInformation_defaultDevices, + suiteDefinitionInformation_intendedForQualification, + suiteDefinitionInformation_isLongDurationTest, + suiteDefinitionInformation_protocol, + suiteDefinitionInformation_suiteDefinitionId, + suiteDefinitionInformation_suiteDefinitionName, + + -- * SuiteRunConfiguration + SuiteRunConfiguration (..), + newSuiteRunConfiguration, + suiteRunConfiguration_parallelRun, + suiteRunConfiguration_selectedTestList, + suiteRunConfiguration_primaryDevice, + + -- * SuiteRunInformation + SuiteRunInformation (..), + newSuiteRunInformation, + suiteRunInformation_createdAt, + suiteRunInformation_endAt, + suiteRunInformation_failed, + suiteRunInformation_passed, + suiteRunInformation_startedAt, + suiteRunInformation_status, + suiteRunInformation_suiteDefinitionId, + suiteRunInformation_suiteDefinitionName, + suiteRunInformation_suiteDefinitionVersion, + suiteRunInformation_suiteRunId, + + -- * TestCaseRun + TestCaseRun (..), + newTestCaseRun, + testCaseRun_endTime, + testCaseRun_failure, + testCaseRun_logUrl, + testCaseRun_startTime, + testCaseRun_status, + testCaseRun_testCaseDefinitionId, + testCaseRun_testCaseDefinitionName, + testCaseRun_testCaseRunId, + testCaseRun_testScenarios, + testCaseRun_warnings, + + -- * TestCaseScenario + TestCaseScenario (..), + newTestCaseScenario, + testCaseScenario_failure, + testCaseScenario_status, + testCaseScenario_systemMessage, + testCaseScenario_testCaseScenarioId, + testCaseScenario_testCaseScenarioType, + + -- * TestResult + TestResult (..), + newTestResult, + testResult_groups, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest +import Amazonka.IoTDeviceAdvisor.Types.GroupResult +import Amazonka.IoTDeviceAdvisor.Types.Protocol +import Amazonka.IoTDeviceAdvisor.Types.Status +import Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration +import Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation +import Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration +import Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation +import Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus +import Amazonka.IoTDeviceAdvisor.Types.TestCaseRun +import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario +import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus +import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType +import Amazonka.IoTDeviceAdvisor.Types.TestResult +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Sign.V4 as Sign + +-- | API version @2020-09-18@ of the Amazon IoT Core Device Advisor SDK configuration. +defaultService :: Core.Service +defaultService = + Core.Service + { Core.abbrev = "IoTDeviceAdvisor", + Core.signer = Sign.v4, + Core.endpointPrefix = "api.iotdeviceadvisor", + Core.signingName = "iotdeviceadvisor", + Core.version = "2020-09-18", + Core.s3AddressingStyle = Core.S3AddressingStyleAuto, + Core.endpoint = Core.defaultEndpoint defaultService, + Core.timeout = Prelude.Just 70, + Core.check = Core.statusSuccess, + Core.error = Core.parseJSONError "IoTDeviceAdvisor", + Core.retry = retry + } + where + retry = + Core.Exponential + { Core.base = 5.0e-2, + Core.growth = 2, + Core.attempts = 5, + Core.check = check + } + check e + | Lens.has (Core.hasStatus 502) e = + Prelude.Just "bad_gateway" + | Lens.has (Core.hasStatus 504) e = + Prelude.Just "gateway_timeout" + | Lens.has (Core.hasStatus 500) e = + Prelude.Just "general_server_error" + | Lens.has (Core.hasStatus 509) e = + Prelude.Just "limit_exceeded" + | Lens.has + ( Core.hasCode "RequestThrottledException" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "request_throttled_exception" + | Lens.has (Core.hasStatus 503) e = + Prelude.Just "service_unavailable" + | Lens.has + ( Core.hasCode "ThrottledException" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "throttled_exception" + | Lens.has + ( Core.hasCode "Throttling" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "throttling" + | Lens.has + ( Core.hasCode "ThrottlingException" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "throttling_exception" + | Lens.has + ( Core.hasCode + "ProvisionedThroughputExceededException" + Prelude.. Core.hasStatus 400 + ) + e = + Prelude.Just "throughput_exceeded" + | Lens.has (Core.hasStatus 429) e = + Prelude.Just "too_many_requests" + | Prelude.otherwise = Prelude.Nothing + +-- | Sends a Conflict Exception. +_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_ConflictException = + Core._MatchServiceError + defaultService + "ConflictException" + Prelude.. Core.hasStatus 400 + +-- | Sends an Internal Failure exception. +_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_InternalServerException = + Core._MatchServiceError + defaultService + "InternalServerException" + Prelude.. Core.hasStatus 500 + +-- | Sends a Resource Not Found exception. +_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_ResourceNotFoundException = + Core._MatchServiceError + defaultService + "ResourceNotFoundException" + Prelude.. Core.hasStatus 404 + +-- | Sends a validation exception. +_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_ValidationException = + Core._MatchServiceError + defaultService + "ValidationException" + Prelude.. Core.hasStatus 400 diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/DeviceUnderTest.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/DeviceUnderTest.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/DeviceUnderTest.hs @@ -0,0 +1,95 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +-- | Information of a test device. A thing ARN or a certificate ARN is +-- required. +-- +-- /See:/ 'newDeviceUnderTest' smart constructor. +data DeviceUnderTest = DeviceUnderTest' + { -- | Lists devices certificate ARN. + certificateArn :: Prelude.Maybe Prelude.Text, + -- | Lists devices thing ARN. + thingArn :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeviceUnderTest' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'certificateArn', 'deviceUnderTest_certificateArn' - Lists devices certificate ARN. +-- +-- 'thingArn', 'deviceUnderTest_thingArn' - Lists devices thing ARN. +newDeviceUnderTest :: + DeviceUnderTest +newDeviceUnderTest = + DeviceUnderTest' + { certificateArn = Prelude.Nothing, + thingArn = Prelude.Nothing + } + +-- | Lists devices certificate ARN. +deviceUnderTest_certificateArn :: Lens.Lens' DeviceUnderTest (Prelude.Maybe Prelude.Text) +deviceUnderTest_certificateArn = Lens.lens (\DeviceUnderTest' {certificateArn} -> certificateArn) (\s@DeviceUnderTest' {} a -> s {certificateArn = a} :: DeviceUnderTest) + +-- | Lists devices thing ARN. +deviceUnderTest_thingArn :: Lens.Lens' DeviceUnderTest (Prelude.Maybe Prelude.Text) +deviceUnderTest_thingArn = Lens.lens (\DeviceUnderTest' {thingArn} -> thingArn) (\s@DeviceUnderTest' {} a -> s {thingArn = a} :: DeviceUnderTest) + +instance Data.FromJSON DeviceUnderTest where + parseJSON = + Data.withObject + "DeviceUnderTest" + ( \x -> + DeviceUnderTest' + Prelude.<$> (x Data..:? "certificateArn") + Prelude.<*> (x Data..:? "thingArn") + ) + +instance Prelude.Hashable DeviceUnderTest where + hashWithSalt _salt DeviceUnderTest' {..} = + _salt + `Prelude.hashWithSalt` certificateArn + `Prelude.hashWithSalt` thingArn + +instance Prelude.NFData DeviceUnderTest where + rnf DeviceUnderTest' {..} = + Prelude.rnf certificateArn + `Prelude.seq` Prelude.rnf thingArn + +instance Data.ToJSON DeviceUnderTest where + toJSON DeviceUnderTest' {..} = + Data.object + ( Prelude.catMaybes + [ ("certificateArn" Data..=) + Prelude.<$> certificateArn, + ("thingArn" Data..=) Prelude.<$> thingArn + ] + ) diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/GroupResult.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/GroupResult.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/GroupResult.hs @@ -0,0 +1,97 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.GroupResult +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.GroupResult where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types.TestCaseRun +import qualified Amazonka.Prelude as Prelude + +-- | Show Group Result. +-- +-- /See:/ 'newGroupResult' smart constructor. +data GroupResult = GroupResult' + { -- | Group result ID. + groupId :: Prelude.Maybe Prelude.Text, + -- | Group Result Name. + groupName :: Prelude.Maybe Prelude.Text, + -- | Tests under Group Result. + tests :: Prelude.Maybe [TestCaseRun] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GroupResult' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'groupId', 'groupResult_groupId' - Group result ID. +-- +-- 'groupName', 'groupResult_groupName' - Group Result Name. +-- +-- 'tests', 'groupResult_tests' - Tests under Group Result. +newGroupResult :: + GroupResult +newGroupResult = + GroupResult' + { groupId = Prelude.Nothing, + groupName = Prelude.Nothing, + tests = Prelude.Nothing + } + +-- | Group result ID. +groupResult_groupId :: Lens.Lens' GroupResult (Prelude.Maybe Prelude.Text) +groupResult_groupId = Lens.lens (\GroupResult' {groupId} -> groupId) (\s@GroupResult' {} a -> s {groupId = a} :: GroupResult) + +-- | Group Result Name. +groupResult_groupName :: Lens.Lens' GroupResult (Prelude.Maybe Prelude.Text) +groupResult_groupName = Lens.lens (\GroupResult' {groupName} -> groupName) (\s@GroupResult' {} a -> s {groupName = a} :: GroupResult) + +-- | Tests under Group Result. +groupResult_tests :: Lens.Lens' GroupResult (Prelude.Maybe [TestCaseRun]) +groupResult_tests = Lens.lens (\GroupResult' {tests} -> tests) (\s@GroupResult' {} a -> s {tests = a} :: GroupResult) Prelude.. Lens.mapping Lens.coerced + +instance Data.FromJSON GroupResult where + parseJSON = + Data.withObject + "GroupResult" + ( \x -> + GroupResult' + Prelude.<$> (x Data..:? "groupId") + Prelude.<*> (x Data..:? "groupName") + Prelude.<*> (x Data..:? "tests" Data..!= Prelude.mempty) + ) + +instance Prelude.Hashable GroupResult where + hashWithSalt _salt GroupResult' {..} = + _salt + `Prelude.hashWithSalt` groupId + `Prelude.hashWithSalt` groupName + `Prelude.hashWithSalt` tests + +instance Prelude.NFData GroupResult where + rnf GroupResult' {..} = + Prelude.rnf groupId + `Prelude.seq` Prelude.rnf groupName + `Prelude.seq` Prelude.rnf tests diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/Protocol.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/Protocol.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/Protocol.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.Protocol +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.Protocol + ( Protocol + ( .., + Protocol_MqttV3_1_1, + Protocol_MqttV5 + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype Protocol = Protocol' + { fromProtocol :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern Protocol_MqttV3_1_1 :: Protocol +pattern Protocol_MqttV3_1_1 = Protocol' "MqttV3_1_1" + +pattern Protocol_MqttV5 :: Protocol +pattern Protocol_MqttV5 = Protocol' "MqttV5" + +{-# COMPLETE + Protocol_MqttV3_1_1, + Protocol_MqttV5, + Protocol' + #-} diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/Status.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/Status.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/Status.hs @@ -0,0 +1,103 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.Status +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.Status + ( Status + ( .., + Status_CANCELED, + Status_ERROR, + Status_FAIL, + Status_PASS, + Status_PASS_WITH_WARNINGS, + Status_PENDING, + Status_RUNNING, + Status_STOPPED, + Status_STOPPING + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype Status = Status' {fromStatus :: Data.Text} + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern Status_CANCELED :: Status +pattern Status_CANCELED = Status' "CANCELED" + +pattern Status_ERROR :: Status +pattern Status_ERROR = Status' "ERROR" + +pattern Status_FAIL :: Status +pattern Status_FAIL = Status' "FAIL" + +pattern Status_PASS :: Status +pattern Status_PASS = Status' "PASS" + +pattern Status_PASS_WITH_WARNINGS :: Status +pattern Status_PASS_WITH_WARNINGS = Status' "PASS_WITH_WARNINGS" + +pattern Status_PENDING :: Status +pattern Status_PENDING = Status' "PENDING" + +pattern Status_RUNNING :: Status +pattern Status_RUNNING = Status' "RUNNING" + +pattern Status_STOPPED :: Status +pattern Status_STOPPED = Status' "STOPPED" + +pattern Status_STOPPING :: Status +pattern Status_STOPPING = Status' "STOPPING" + +{-# COMPLETE + Status_CANCELED, + Status_ERROR, + Status_FAIL, + Status_PASS, + Status_PASS_WITH_WARNINGS, + Status_PENDING, + Status_RUNNING, + Status_STOPPED, + Status_STOPPING, + Status' + #-} diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteDefinitionConfiguration.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteDefinitionConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteDefinitionConfiguration.hs @@ -0,0 +1,180 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionConfiguration where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest +import Amazonka.IoTDeviceAdvisor.Types.Protocol +import qualified Amazonka.Prelude as Prelude + +-- | Gets the suite definition configuration. +-- +-- /See:/ 'newSuiteDefinitionConfiguration' smart constructor. +data SuiteDefinitionConfiguration = SuiteDefinitionConfiguration' + { -- | Gets the devices configured. + devices :: Prelude.Maybe [DeviceUnderTest], + -- | Gets the tests intended for qualification in a suite. + intendedForQualification :: Prelude.Maybe Prelude.Bool, + -- | Verifies if the test suite is a long duration test. + isLongDurationTest :: Prelude.Maybe Prelude.Bool, + -- | Sets the MQTT protocol that is configured in the suite definition. + protocol :: Prelude.Maybe Protocol, + -- | Gets the suite definition name. This is a required parameter. + suiteDefinitionName :: Prelude.Text, + -- | Gets the test suite root group. This is a required parameter. + rootGroup :: Prelude.Text, + -- | Gets the device permission ARN. This is a required parameter. + devicePermissionRoleArn :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SuiteDefinitionConfiguration' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'devices', 'suiteDefinitionConfiguration_devices' - Gets the devices configured. +-- +-- 'intendedForQualification', 'suiteDefinitionConfiguration_intendedForQualification' - Gets the tests intended for qualification in a suite. +-- +-- 'isLongDurationTest', 'suiteDefinitionConfiguration_isLongDurationTest' - Verifies if the test suite is a long duration test. +-- +-- 'protocol', 'suiteDefinitionConfiguration_protocol' - Sets the MQTT protocol that is configured in the suite definition. +-- +-- 'suiteDefinitionName', 'suiteDefinitionConfiguration_suiteDefinitionName' - Gets the suite definition name. This is a required parameter. +-- +-- 'rootGroup', 'suiteDefinitionConfiguration_rootGroup' - Gets the test suite root group. This is a required parameter. +-- +-- 'devicePermissionRoleArn', 'suiteDefinitionConfiguration_devicePermissionRoleArn' - Gets the device permission ARN. This is a required parameter. +newSuiteDefinitionConfiguration :: + -- | 'suiteDefinitionName' + Prelude.Text -> + -- | 'rootGroup' + Prelude.Text -> + -- | 'devicePermissionRoleArn' + Prelude.Text -> + SuiteDefinitionConfiguration +newSuiteDefinitionConfiguration + pSuiteDefinitionName_ + pRootGroup_ + pDevicePermissionRoleArn_ = + SuiteDefinitionConfiguration' + { devices = + Prelude.Nothing, + intendedForQualification = Prelude.Nothing, + isLongDurationTest = Prelude.Nothing, + protocol = Prelude.Nothing, + suiteDefinitionName = pSuiteDefinitionName_, + rootGroup = pRootGroup_, + devicePermissionRoleArn = + pDevicePermissionRoleArn_ + } + +-- | Gets the devices configured. +suiteDefinitionConfiguration_devices :: Lens.Lens' SuiteDefinitionConfiguration (Prelude.Maybe [DeviceUnderTest]) +suiteDefinitionConfiguration_devices = Lens.lens (\SuiteDefinitionConfiguration' {devices} -> devices) (\s@SuiteDefinitionConfiguration' {} a -> s {devices = a} :: SuiteDefinitionConfiguration) Prelude.. Lens.mapping Lens.coerced + +-- | Gets the tests intended for qualification in a suite. +suiteDefinitionConfiguration_intendedForQualification :: Lens.Lens' SuiteDefinitionConfiguration (Prelude.Maybe Prelude.Bool) +suiteDefinitionConfiguration_intendedForQualification = Lens.lens (\SuiteDefinitionConfiguration' {intendedForQualification} -> intendedForQualification) (\s@SuiteDefinitionConfiguration' {} a -> s {intendedForQualification = a} :: SuiteDefinitionConfiguration) + +-- | Verifies if the test suite is a long duration test. +suiteDefinitionConfiguration_isLongDurationTest :: Lens.Lens' SuiteDefinitionConfiguration (Prelude.Maybe Prelude.Bool) +suiteDefinitionConfiguration_isLongDurationTest = Lens.lens (\SuiteDefinitionConfiguration' {isLongDurationTest} -> isLongDurationTest) (\s@SuiteDefinitionConfiguration' {} a -> s {isLongDurationTest = a} :: SuiteDefinitionConfiguration) + +-- | Sets the MQTT protocol that is configured in the suite definition. +suiteDefinitionConfiguration_protocol :: Lens.Lens' SuiteDefinitionConfiguration (Prelude.Maybe Protocol) +suiteDefinitionConfiguration_protocol = Lens.lens (\SuiteDefinitionConfiguration' {protocol} -> protocol) (\s@SuiteDefinitionConfiguration' {} a -> s {protocol = a} :: SuiteDefinitionConfiguration) + +-- | Gets the suite definition name. This is a required parameter. +suiteDefinitionConfiguration_suiteDefinitionName :: Lens.Lens' SuiteDefinitionConfiguration Prelude.Text +suiteDefinitionConfiguration_suiteDefinitionName = Lens.lens (\SuiteDefinitionConfiguration' {suiteDefinitionName} -> suiteDefinitionName) (\s@SuiteDefinitionConfiguration' {} a -> s {suiteDefinitionName = a} :: SuiteDefinitionConfiguration) + +-- | Gets the test suite root group. This is a required parameter. +suiteDefinitionConfiguration_rootGroup :: Lens.Lens' SuiteDefinitionConfiguration Prelude.Text +suiteDefinitionConfiguration_rootGroup = Lens.lens (\SuiteDefinitionConfiguration' {rootGroup} -> rootGroup) (\s@SuiteDefinitionConfiguration' {} a -> s {rootGroup = a} :: SuiteDefinitionConfiguration) + +-- | Gets the device permission ARN. This is a required parameter. +suiteDefinitionConfiguration_devicePermissionRoleArn :: Lens.Lens' SuiteDefinitionConfiguration Prelude.Text +suiteDefinitionConfiguration_devicePermissionRoleArn = Lens.lens (\SuiteDefinitionConfiguration' {devicePermissionRoleArn} -> devicePermissionRoleArn) (\s@SuiteDefinitionConfiguration' {} a -> s {devicePermissionRoleArn = a} :: SuiteDefinitionConfiguration) + +instance Data.FromJSON SuiteDefinitionConfiguration where + parseJSON = + Data.withObject + "SuiteDefinitionConfiguration" + ( \x -> + SuiteDefinitionConfiguration' + Prelude.<$> (x Data..:? "devices" Data..!= Prelude.mempty) + Prelude.<*> (x Data..:? "intendedForQualification") + Prelude.<*> (x Data..:? "isLongDurationTest") + Prelude.<*> (x Data..:? "protocol") + Prelude.<*> (x Data..: "suiteDefinitionName") + Prelude.<*> (x Data..: "rootGroup") + Prelude.<*> (x Data..: "devicePermissionRoleArn") + ) + +instance + Prelude.Hashable + SuiteDefinitionConfiguration + where + hashWithSalt _salt SuiteDefinitionConfiguration' {..} = + _salt + `Prelude.hashWithSalt` devices + `Prelude.hashWithSalt` intendedForQualification + `Prelude.hashWithSalt` isLongDurationTest + `Prelude.hashWithSalt` protocol + `Prelude.hashWithSalt` suiteDefinitionName + `Prelude.hashWithSalt` rootGroup + `Prelude.hashWithSalt` devicePermissionRoleArn + +instance Prelude.NFData SuiteDefinitionConfiguration where + rnf SuiteDefinitionConfiguration' {..} = + Prelude.rnf devices + `Prelude.seq` Prelude.rnf intendedForQualification + `Prelude.seq` Prelude.rnf isLongDurationTest + `Prelude.seq` Prelude.rnf protocol + `Prelude.seq` Prelude.rnf suiteDefinitionName + `Prelude.seq` Prelude.rnf rootGroup + `Prelude.seq` Prelude.rnf devicePermissionRoleArn + +instance Data.ToJSON SuiteDefinitionConfiguration where + toJSON SuiteDefinitionConfiguration' {..} = + Data.object + ( Prelude.catMaybes + [ ("devices" Data..=) Prelude.<$> devices, + ("intendedForQualification" Data..=) + Prelude.<$> intendedForQualification, + ("isLongDurationTest" Data..=) + Prelude.<$> isLongDurationTest, + ("protocol" Data..=) Prelude.<$> protocol, + Prelude.Just + ("suiteDefinitionName" Data..= suiteDefinitionName), + Prelude.Just ("rootGroup" Data..= rootGroup), + Prelude.Just + ( "devicePermissionRoleArn" + Data..= devicePermissionRoleArn + ) + ] + ) diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteDefinitionInformation.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteDefinitionInformation.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteDefinitionInformation.hs @@ -0,0 +1,147 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.SuiteDefinitionInformation where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest +import Amazonka.IoTDeviceAdvisor.Types.Protocol +import qualified Amazonka.Prelude as Prelude + +-- | Information about the suite definition. +-- +-- /See:/ 'newSuiteDefinitionInformation' smart constructor. +data SuiteDefinitionInformation = SuiteDefinitionInformation' + { -- | Date (in Unix epoch time) when the test suite was created. + createdAt :: Prelude.Maybe Data.POSIX, + -- | Specifies the devices that are under test for the test suite. + defaultDevices :: Prelude.Maybe [DeviceUnderTest], + -- | Specifies if the test suite is intended for qualification. + intendedForQualification :: Prelude.Maybe Prelude.Bool, + -- | Verifies if the test suite is a long duration test. + isLongDurationTest :: Prelude.Maybe Prelude.Bool, + -- | Gets the MQTT protocol that is configured in the suite definition. + protocol :: Prelude.Maybe Protocol, + -- | Suite definition ID of the test suite. + suiteDefinitionId :: Prelude.Maybe Prelude.Text, + -- | Suite name of the test suite. + suiteDefinitionName :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SuiteDefinitionInformation' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'createdAt', 'suiteDefinitionInformation_createdAt' - Date (in Unix epoch time) when the test suite was created. +-- +-- 'defaultDevices', 'suiteDefinitionInformation_defaultDevices' - Specifies the devices that are under test for the test suite. +-- +-- 'intendedForQualification', 'suiteDefinitionInformation_intendedForQualification' - Specifies if the test suite is intended for qualification. +-- +-- 'isLongDurationTest', 'suiteDefinitionInformation_isLongDurationTest' - Verifies if the test suite is a long duration test. +-- +-- 'protocol', 'suiteDefinitionInformation_protocol' - Gets the MQTT protocol that is configured in the suite definition. +-- +-- 'suiteDefinitionId', 'suiteDefinitionInformation_suiteDefinitionId' - Suite definition ID of the test suite. +-- +-- 'suiteDefinitionName', 'suiteDefinitionInformation_suiteDefinitionName' - Suite name of the test suite. +newSuiteDefinitionInformation :: + SuiteDefinitionInformation +newSuiteDefinitionInformation = + SuiteDefinitionInformation' + { createdAt = + Prelude.Nothing, + defaultDevices = Prelude.Nothing, + intendedForQualification = Prelude.Nothing, + isLongDurationTest = Prelude.Nothing, + protocol = Prelude.Nothing, + suiteDefinitionId = Prelude.Nothing, + suiteDefinitionName = Prelude.Nothing + } + +-- | Date (in Unix epoch time) when the test suite was created. +suiteDefinitionInformation_createdAt :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.UTCTime) +suiteDefinitionInformation_createdAt = Lens.lens (\SuiteDefinitionInformation' {createdAt} -> createdAt) (\s@SuiteDefinitionInformation' {} a -> s {createdAt = a} :: SuiteDefinitionInformation) Prelude.. Lens.mapping Data._Time + +-- | Specifies the devices that are under test for the test suite. +suiteDefinitionInformation_defaultDevices :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe [DeviceUnderTest]) +suiteDefinitionInformation_defaultDevices = Lens.lens (\SuiteDefinitionInformation' {defaultDevices} -> defaultDevices) (\s@SuiteDefinitionInformation' {} a -> s {defaultDevices = a} :: SuiteDefinitionInformation) Prelude.. Lens.mapping Lens.coerced + +-- | Specifies if the test suite is intended for qualification. +suiteDefinitionInformation_intendedForQualification :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.Bool) +suiteDefinitionInformation_intendedForQualification = Lens.lens (\SuiteDefinitionInformation' {intendedForQualification} -> intendedForQualification) (\s@SuiteDefinitionInformation' {} a -> s {intendedForQualification = a} :: SuiteDefinitionInformation) + +-- | Verifies if the test suite is a long duration test. +suiteDefinitionInformation_isLongDurationTest :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.Bool) +suiteDefinitionInformation_isLongDurationTest = Lens.lens (\SuiteDefinitionInformation' {isLongDurationTest} -> isLongDurationTest) (\s@SuiteDefinitionInformation' {} a -> s {isLongDurationTest = a} :: SuiteDefinitionInformation) + +-- | Gets the MQTT protocol that is configured in the suite definition. +suiteDefinitionInformation_protocol :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Protocol) +suiteDefinitionInformation_protocol = Lens.lens (\SuiteDefinitionInformation' {protocol} -> protocol) (\s@SuiteDefinitionInformation' {} a -> s {protocol = a} :: SuiteDefinitionInformation) + +-- | Suite definition ID of the test suite. +suiteDefinitionInformation_suiteDefinitionId :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.Text) +suiteDefinitionInformation_suiteDefinitionId = Lens.lens (\SuiteDefinitionInformation' {suiteDefinitionId} -> suiteDefinitionId) (\s@SuiteDefinitionInformation' {} a -> s {suiteDefinitionId = a} :: SuiteDefinitionInformation) + +-- | Suite name of the test suite. +suiteDefinitionInformation_suiteDefinitionName :: Lens.Lens' SuiteDefinitionInformation (Prelude.Maybe Prelude.Text) +suiteDefinitionInformation_suiteDefinitionName = Lens.lens (\SuiteDefinitionInformation' {suiteDefinitionName} -> suiteDefinitionName) (\s@SuiteDefinitionInformation' {} a -> s {suiteDefinitionName = a} :: SuiteDefinitionInformation) + +instance Data.FromJSON SuiteDefinitionInformation where + parseJSON = + Data.withObject + "SuiteDefinitionInformation" + ( \x -> + SuiteDefinitionInformation' + Prelude.<$> (x Data..:? "createdAt") + Prelude.<*> (x Data..:? "defaultDevices" Data..!= Prelude.mempty) + Prelude.<*> (x Data..:? "intendedForQualification") + Prelude.<*> (x Data..:? "isLongDurationTest") + Prelude.<*> (x Data..:? "protocol") + Prelude.<*> (x Data..:? "suiteDefinitionId") + Prelude.<*> (x Data..:? "suiteDefinitionName") + ) + +instance Prelude.Hashable SuiteDefinitionInformation where + hashWithSalt _salt SuiteDefinitionInformation' {..} = + _salt + `Prelude.hashWithSalt` createdAt + `Prelude.hashWithSalt` defaultDevices + `Prelude.hashWithSalt` intendedForQualification + `Prelude.hashWithSalt` isLongDurationTest + `Prelude.hashWithSalt` protocol + `Prelude.hashWithSalt` suiteDefinitionId + `Prelude.hashWithSalt` suiteDefinitionName + +instance Prelude.NFData SuiteDefinitionInformation where + rnf SuiteDefinitionInformation' {..} = + Prelude.rnf createdAt + `Prelude.seq` Prelude.rnf defaultDevices + `Prelude.seq` Prelude.rnf intendedForQualification + `Prelude.seq` Prelude.rnf isLongDurationTest + `Prelude.seq` Prelude.rnf protocol + `Prelude.seq` Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteDefinitionName diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunConfiguration.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunConfiguration.hs @@ -0,0 +1,118 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.SuiteRunConfiguration where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types.DeviceUnderTest +import qualified Amazonka.Prelude as Prelude + +-- | Gets suite run configuration. +-- +-- /See:/ 'newSuiteRunConfiguration' smart constructor. +data SuiteRunConfiguration = SuiteRunConfiguration' + { -- | TRUE if multiple test suites run in parallel. + parallelRun :: Prelude.Maybe Prelude.Bool, + -- | Sets test case list. + selectedTestList :: Prelude.Maybe [Prelude.Text], + -- | Sets the primary device for the test suite run. This requires a thing + -- ARN or a certificate ARN. + primaryDevice :: DeviceUnderTest + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SuiteRunConfiguration' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'parallelRun', 'suiteRunConfiguration_parallelRun' - TRUE if multiple test suites run in parallel. +-- +-- 'selectedTestList', 'suiteRunConfiguration_selectedTestList' - Sets test case list. +-- +-- 'primaryDevice', 'suiteRunConfiguration_primaryDevice' - Sets the primary device for the test suite run. This requires a thing +-- ARN or a certificate ARN. +newSuiteRunConfiguration :: + -- | 'primaryDevice' + DeviceUnderTest -> + SuiteRunConfiguration +newSuiteRunConfiguration pPrimaryDevice_ = + SuiteRunConfiguration' + { parallelRun = + Prelude.Nothing, + selectedTestList = Prelude.Nothing, + primaryDevice = pPrimaryDevice_ + } + +-- | TRUE if multiple test suites run in parallel. +suiteRunConfiguration_parallelRun :: Lens.Lens' SuiteRunConfiguration (Prelude.Maybe Prelude.Bool) +suiteRunConfiguration_parallelRun = Lens.lens (\SuiteRunConfiguration' {parallelRun} -> parallelRun) (\s@SuiteRunConfiguration' {} a -> s {parallelRun = a} :: SuiteRunConfiguration) + +-- | Sets test case list. +suiteRunConfiguration_selectedTestList :: Lens.Lens' SuiteRunConfiguration (Prelude.Maybe [Prelude.Text]) +suiteRunConfiguration_selectedTestList = Lens.lens (\SuiteRunConfiguration' {selectedTestList} -> selectedTestList) (\s@SuiteRunConfiguration' {} a -> s {selectedTestList = a} :: SuiteRunConfiguration) Prelude.. Lens.mapping Lens.coerced + +-- | Sets the primary device for the test suite run. This requires a thing +-- ARN or a certificate ARN. +suiteRunConfiguration_primaryDevice :: Lens.Lens' SuiteRunConfiguration DeviceUnderTest +suiteRunConfiguration_primaryDevice = Lens.lens (\SuiteRunConfiguration' {primaryDevice} -> primaryDevice) (\s@SuiteRunConfiguration' {} a -> s {primaryDevice = a} :: SuiteRunConfiguration) + +instance Data.FromJSON SuiteRunConfiguration where + parseJSON = + Data.withObject + "SuiteRunConfiguration" + ( \x -> + SuiteRunConfiguration' + Prelude.<$> (x Data..:? "parallelRun") + Prelude.<*> ( x + Data..:? "selectedTestList" + Data..!= Prelude.mempty + ) + Prelude.<*> (x Data..: "primaryDevice") + ) + +instance Prelude.Hashable SuiteRunConfiguration where + hashWithSalt _salt SuiteRunConfiguration' {..} = + _salt + `Prelude.hashWithSalt` parallelRun + `Prelude.hashWithSalt` selectedTestList + `Prelude.hashWithSalt` primaryDevice + +instance Prelude.NFData SuiteRunConfiguration where + rnf SuiteRunConfiguration' {..} = + Prelude.rnf parallelRun + `Prelude.seq` Prelude.rnf selectedTestList + `Prelude.seq` Prelude.rnf primaryDevice + +instance Data.ToJSON SuiteRunConfiguration where + toJSON SuiteRunConfiguration' {..} = + Data.object + ( Prelude.catMaybes + [ ("parallelRun" Data..=) Prelude.<$> parallelRun, + ("selectedTestList" Data..=) + Prelude.<$> selectedTestList, + Prelude.Just + ("primaryDevice" Data..= primaryDevice) + ] + ) diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunInformation.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunInformation.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunInformation.hs @@ -0,0 +1,185 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.SuiteRunInformation where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus +import qualified Amazonka.Prelude as Prelude + +-- | Information about the suite run. +-- +-- Requires permission to access the +-- +-- action. +-- +-- /See:/ 'newSuiteRunInformation' smart constructor. +data SuiteRunInformation = SuiteRunInformation' + { -- | Date (in Unix epoch time) when the suite run was created. + createdAt :: Prelude.Maybe Data.POSIX, + -- | Date (in Unix epoch time) when the suite run ended. + endAt :: Prelude.Maybe Data.POSIX, + -- | Number of test cases that failed in the suite run. + failed :: Prelude.Maybe Prelude.Natural, + -- | Number of test cases that passed in the suite run. + passed :: Prelude.Maybe Prelude.Natural, + -- | Date (in Unix epoch time) when the suite run was started. + startedAt :: Prelude.Maybe Data.POSIX, + -- | Status of the suite run. + status :: Prelude.Maybe SuiteRunStatus, + -- | Suite definition ID of the suite run. + suiteDefinitionId :: Prelude.Maybe Prelude.Text, + -- | Suite definition name of the suite run. + suiteDefinitionName :: Prelude.Maybe Prelude.Text, + -- | Suite definition version of the suite run. + suiteDefinitionVersion :: Prelude.Maybe Prelude.Text, + -- | Suite run ID of the suite run. + suiteRunId :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SuiteRunInformation' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'createdAt', 'suiteRunInformation_createdAt' - Date (in Unix epoch time) when the suite run was created. +-- +-- 'endAt', 'suiteRunInformation_endAt' - Date (in Unix epoch time) when the suite run ended. +-- +-- 'failed', 'suiteRunInformation_failed' - Number of test cases that failed in the suite run. +-- +-- 'passed', 'suiteRunInformation_passed' - Number of test cases that passed in the suite run. +-- +-- 'startedAt', 'suiteRunInformation_startedAt' - Date (in Unix epoch time) when the suite run was started. +-- +-- 'status', 'suiteRunInformation_status' - Status of the suite run. +-- +-- 'suiteDefinitionId', 'suiteRunInformation_suiteDefinitionId' - Suite definition ID of the suite run. +-- +-- 'suiteDefinitionName', 'suiteRunInformation_suiteDefinitionName' - Suite definition name of the suite run. +-- +-- 'suiteDefinitionVersion', 'suiteRunInformation_suiteDefinitionVersion' - Suite definition version of the suite run. +-- +-- 'suiteRunId', 'suiteRunInformation_suiteRunId' - Suite run ID of the suite run. +newSuiteRunInformation :: + SuiteRunInformation +newSuiteRunInformation = + SuiteRunInformation' + { createdAt = Prelude.Nothing, + endAt = Prelude.Nothing, + failed = Prelude.Nothing, + passed = Prelude.Nothing, + startedAt = Prelude.Nothing, + status = Prelude.Nothing, + suiteDefinitionId = Prelude.Nothing, + suiteDefinitionName = Prelude.Nothing, + suiteDefinitionVersion = Prelude.Nothing, + suiteRunId = Prelude.Nothing + } + +-- | Date (in Unix epoch time) when the suite run was created. +suiteRunInformation_createdAt :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.UTCTime) +suiteRunInformation_createdAt = Lens.lens (\SuiteRunInformation' {createdAt} -> createdAt) (\s@SuiteRunInformation' {} a -> s {createdAt = a} :: SuiteRunInformation) Prelude.. Lens.mapping Data._Time + +-- | Date (in Unix epoch time) when the suite run ended. +suiteRunInformation_endAt :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.UTCTime) +suiteRunInformation_endAt = Lens.lens (\SuiteRunInformation' {endAt} -> endAt) (\s@SuiteRunInformation' {} a -> s {endAt = a} :: SuiteRunInformation) Prelude.. Lens.mapping Data._Time + +-- | Number of test cases that failed in the suite run. +suiteRunInformation_failed :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Natural) +suiteRunInformation_failed = Lens.lens (\SuiteRunInformation' {failed} -> failed) (\s@SuiteRunInformation' {} a -> s {failed = a} :: SuiteRunInformation) + +-- | Number of test cases that passed in the suite run. +suiteRunInformation_passed :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Natural) +suiteRunInformation_passed = Lens.lens (\SuiteRunInformation' {passed} -> passed) (\s@SuiteRunInformation' {} a -> s {passed = a} :: SuiteRunInformation) + +-- | Date (in Unix epoch time) when the suite run was started. +suiteRunInformation_startedAt :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.UTCTime) +suiteRunInformation_startedAt = Lens.lens (\SuiteRunInformation' {startedAt} -> startedAt) (\s@SuiteRunInformation' {} a -> s {startedAt = a} :: SuiteRunInformation) Prelude.. Lens.mapping Data._Time + +-- | Status of the suite run. +suiteRunInformation_status :: Lens.Lens' SuiteRunInformation (Prelude.Maybe SuiteRunStatus) +suiteRunInformation_status = Lens.lens (\SuiteRunInformation' {status} -> status) (\s@SuiteRunInformation' {} a -> s {status = a} :: SuiteRunInformation) + +-- | Suite definition ID of the suite run. +suiteRunInformation_suiteDefinitionId :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Text) +suiteRunInformation_suiteDefinitionId = Lens.lens (\SuiteRunInformation' {suiteDefinitionId} -> suiteDefinitionId) (\s@SuiteRunInformation' {} a -> s {suiteDefinitionId = a} :: SuiteRunInformation) + +-- | Suite definition name of the suite run. +suiteRunInformation_suiteDefinitionName :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Text) +suiteRunInformation_suiteDefinitionName = Lens.lens (\SuiteRunInformation' {suiteDefinitionName} -> suiteDefinitionName) (\s@SuiteRunInformation' {} a -> s {suiteDefinitionName = a} :: SuiteRunInformation) + +-- | Suite definition version of the suite run. +suiteRunInformation_suiteDefinitionVersion :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Text) +suiteRunInformation_suiteDefinitionVersion = Lens.lens (\SuiteRunInformation' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@SuiteRunInformation' {} a -> s {suiteDefinitionVersion = a} :: SuiteRunInformation) + +-- | Suite run ID of the suite run. +suiteRunInformation_suiteRunId :: Lens.Lens' SuiteRunInformation (Prelude.Maybe Prelude.Text) +suiteRunInformation_suiteRunId = Lens.lens (\SuiteRunInformation' {suiteRunId} -> suiteRunId) (\s@SuiteRunInformation' {} a -> s {suiteRunId = a} :: SuiteRunInformation) + +instance Data.FromJSON SuiteRunInformation where + parseJSON = + Data.withObject + "SuiteRunInformation" + ( \x -> + SuiteRunInformation' + Prelude.<$> (x Data..:? "createdAt") + Prelude.<*> (x Data..:? "endAt") + Prelude.<*> (x Data..:? "failed") + Prelude.<*> (x Data..:? "passed") + Prelude.<*> (x Data..:? "startedAt") + Prelude.<*> (x Data..:? "status") + Prelude.<*> (x Data..:? "suiteDefinitionId") + Prelude.<*> (x Data..:? "suiteDefinitionName") + Prelude.<*> (x Data..:? "suiteDefinitionVersion") + Prelude.<*> (x Data..:? "suiteRunId") + ) + +instance Prelude.Hashable SuiteRunInformation where + hashWithSalt _salt SuiteRunInformation' {..} = + _salt + `Prelude.hashWithSalt` createdAt + `Prelude.hashWithSalt` endAt + `Prelude.hashWithSalt` failed + `Prelude.hashWithSalt` passed + `Prelude.hashWithSalt` startedAt + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` suiteDefinitionId + `Prelude.hashWithSalt` suiteDefinitionName + `Prelude.hashWithSalt` suiteDefinitionVersion + `Prelude.hashWithSalt` suiteRunId + +instance Prelude.NFData SuiteRunInformation where + rnf SuiteRunInformation' {..} = + Prelude.rnf createdAt + `Prelude.seq` Prelude.rnf endAt + `Prelude.seq` Prelude.rnf failed + `Prelude.seq` Prelude.rnf passed + `Prelude.seq` Prelude.rnf startedAt + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteDefinitionName + `Prelude.seq` Prelude.rnf suiteDefinitionVersion + `Prelude.seq` Prelude.rnf suiteRunId diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunStatus.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/SuiteRunStatus.hs @@ -0,0 +1,106 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.SuiteRunStatus + ( SuiteRunStatus + ( .., + SuiteRunStatus_CANCELED, + SuiteRunStatus_ERROR, + SuiteRunStatus_FAIL, + SuiteRunStatus_PASS, + SuiteRunStatus_PASS_WITH_WARNINGS, + SuiteRunStatus_PENDING, + SuiteRunStatus_RUNNING, + SuiteRunStatus_STOPPED, + SuiteRunStatus_STOPPING + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype SuiteRunStatus = SuiteRunStatus' + { fromSuiteRunStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern SuiteRunStatus_CANCELED :: SuiteRunStatus +pattern SuiteRunStatus_CANCELED = SuiteRunStatus' "CANCELED" + +pattern SuiteRunStatus_ERROR :: SuiteRunStatus +pattern SuiteRunStatus_ERROR = SuiteRunStatus' "ERROR" + +pattern SuiteRunStatus_FAIL :: SuiteRunStatus +pattern SuiteRunStatus_FAIL = SuiteRunStatus' "FAIL" + +pattern SuiteRunStatus_PASS :: SuiteRunStatus +pattern SuiteRunStatus_PASS = SuiteRunStatus' "PASS" + +pattern SuiteRunStatus_PASS_WITH_WARNINGS :: SuiteRunStatus +pattern SuiteRunStatus_PASS_WITH_WARNINGS = SuiteRunStatus' "PASS_WITH_WARNINGS" + +pattern SuiteRunStatus_PENDING :: SuiteRunStatus +pattern SuiteRunStatus_PENDING = SuiteRunStatus' "PENDING" + +pattern SuiteRunStatus_RUNNING :: SuiteRunStatus +pattern SuiteRunStatus_RUNNING = SuiteRunStatus' "RUNNING" + +pattern SuiteRunStatus_STOPPED :: SuiteRunStatus +pattern SuiteRunStatus_STOPPED = SuiteRunStatus' "STOPPED" + +pattern SuiteRunStatus_STOPPING :: SuiteRunStatus +pattern SuiteRunStatus_STOPPING = SuiteRunStatus' "STOPPING" + +{-# COMPLETE + SuiteRunStatus_CANCELED, + SuiteRunStatus_ERROR, + SuiteRunStatus_FAIL, + SuiteRunStatus_PASS, + SuiteRunStatus_PASS_WITH_WARNINGS, + SuiteRunStatus_PENDING, + SuiteRunStatus_RUNNING, + SuiteRunStatus_STOPPED, + SuiteRunStatus_STOPPING, + SuiteRunStatus' + #-} diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseRun.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseRun.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseRun.hs @@ -0,0 +1,236 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.TestCaseRun +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.TestCaseRun where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types.Status +import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario +import qualified Amazonka.Prelude as Prelude + +-- | Provides the test case run. +-- +-- /See:/ 'newTestCaseRun' smart constructor. +data TestCaseRun = TestCaseRun' + { -- | Provides test case run end time. + endTime :: Prelude.Maybe Data.POSIX, + -- | Provides test case run failure result. + failure :: Prelude.Maybe Prelude.Text, + -- | Provides test case run log URL. + logUrl :: Prelude.Maybe Prelude.Text, + -- | Provides test case run start time. + startTime :: Prelude.Maybe Data.POSIX, + -- | Provides the test case run status. Status is one of the following: + -- + -- - @PASS@: Test passed. + -- + -- - @FAIL@: Test failed. + -- + -- - @PENDING@: Test has not started running but is scheduled. + -- + -- - @RUNNING@: Test is running. + -- + -- - @STOPPING@: Test is performing cleanup steps. You will see this + -- status only if you stop a suite run. + -- + -- - @STOPPED@ Test is stopped. You will see this status only if you stop + -- a suite run. + -- + -- - @PASS_WITH_WARNINGS@: Test passed with warnings. + -- + -- - @ERORR@: Test faced an error when running due to an internal issue. + status :: Prelude.Maybe Status, + -- | Provides the test case run definition ID. + testCaseDefinitionId :: Prelude.Maybe Prelude.Text, + -- | Provides the test case run definition name. + testCaseDefinitionName :: Prelude.Maybe Prelude.Text, + -- | Provides the test case run ID. + testCaseRunId :: Prelude.Maybe Prelude.Text, + -- | Provides the test scenarios for the test case run. + testScenarios :: Prelude.Maybe [TestCaseScenario], + -- | Provides test case run warnings. + warnings :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TestCaseRun' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'endTime', 'testCaseRun_endTime' - Provides test case run end time. +-- +-- 'failure', 'testCaseRun_failure' - Provides test case run failure result. +-- +-- 'logUrl', 'testCaseRun_logUrl' - Provides test case run log URL. +-- +-- 'startTime', 'testCaseRun_startTime' - Provides test case run start time. +-- +-- 'status', 'testCaseRun_status' - Provides the test case run status. Status is one of the following: +-- +-- - @PASS@: Test passed. +-- +-- - @FAIL@: Test failed. +-- +-- - @PENDING@: Test has not started running but is scheduled. +-- +-- - @RUNNING@: Test is running. +-- +-- - @STOPPING@: Test is performing cleanup steps. You will see this +-- status only if you stop a suite run. +-- +-- - @STOPPED@ Test is stopped. You will see this status only if you stop +-- a suite run. +-- +-- - @PASS_WITH_WARNINGS@: Test passed with warnings. +-- +-- - @ERORR@: Test faced an error when running due to an internal issue. +-- +-- 'testCaseDefinitionId', 'testCaseRun_testCaseDefinitionId' - Provides the test case run definition ID. +-- +-- 'testCaseDefinitionName', 'testCaseRun_testCaseDefinitionName' - Provides the test case run definition name. +-- +-- 'testCaseRunId', 'testCaseRun_testCaseRunId' - Provides the test case run ID. +-- +-- 'testScenarios', 'testCaseRun_testScenarios' - Provides the test scenarios for the test case run. +-- +-- 'warnings', 'testCaseRun_warnings' - Provides test case run warnings. +newTestCaseRun :: + TestCaseRun +newTestCaseRun = + TestCaseRun' + { endTime = Prelude.Nothing, + failure = Prelude.Nothing, + logUrl = Prelude.Nothing, + startTime = Prelude.Nothing, + status = Prelude.Nothing, + testCaseDefinitionId = Prelude.Nothing, + testCaseDefinitionName = Prelude.Nothing, + testCaseRunId = Prelude.Nothing, + testScenarios = Prelude.Nothing, + warnings = Prelude.Nothing + } + +-- | Provides test case run end time. +testCaseRun_endTime :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.UTCTime) +testCaseRun_endTime = Lens.lens (\TestCaseRun' {endTime} -> endTime) (\s@TestCaseRun' {} a -> s {endTime = a} :: TestCaseRun) Prelude.. Lens.mapping Data._Time + +-- | Provides test case run failure result. +testCaseRun_failure :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text) +testCaseRun_failure = Lens.lens (\TestCaseRun' {failure} -> failure) (\s@TestCaseRun' {} a -> s {failure = a} :: TestCaseRun) + +-- | Provides test case run log URL. +testCaseRun_logUrl :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text) +testCaseRun_logUrl = Lens.lens (\TestCaseRun' {logUrl} -> logUrl) (\s@TestCaseRun' {} a -> s {logUrl = a} :: TestCaseRun) + +-- | Provides test case run start time. +testCaseRun_startTime :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.UTCTime) +testCaseRun_startTime = Lens.lens (\TestCaseRun' {startTime} -> startTime) (\s@TestCaseRun' {} a -> s {startTime = a} :: TestCaseRun) Prelude.. Lens.mapping Data._Time + +-- | Provides the test case run status. Status is one of the following: +-- +-- - @PASS@: Test passed. +-- +-- - @FAIL@: Test failed. +-- +-- - @PENDING@: Test has not started running but is scheduled. +-- +-- - @RUNNING@: Test is running. +-- +-- - @STOPPING@: Test is performing cleanup steps. You will see this +-- status only if you stop a suite run. +-- +-- - @STOPPED@ Test is stopped. You will see this status only if you stop +-- a suite run. +-- +-- - @PASS_WITH_WARNINGS@: Test passed with warnings. +-- +-- - @ERORR@: Test faced an error when running due to an internal issue. +testCaseRun_status :: Lens.Lens' TestCaseRun (Prelude.Maybe Status) +testCaseRun_status = Lens.lens (\TestCaseRun' {status} -> status) (\s@TestCaseRun' {} a -> s {status = a} :: TestCaseRun) + +-- | Provides the test case run definition ID. +testCaseRun_testCaseDefinitionId :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text) +testCaseRun_testCaseDefinitionId = Lens.lens (\TestCaseRun' {testCaseDefinitionId} -> testCaseDefinitionId) (\s@TestCaseRun' {} a -> s {testCaseDefinitionId = a} :: TestCaseRun) + +-- | Provides the test case run definition name. +testCaseRun_testCaseDefinitionName :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text) +testCaseRun_testCaseDefinitionName = Lens.lens (\TestCaseRun' {testCaseDefinitionName} -> testCaseDefinitionName) (\s@TestCaseRun' {} a -> s {testCaseDefinitionName = a} :: TestCaseRun) + +-- | Provides the test case run ID. +testCaseRun_testCaseRunId :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text) +testCaseRun_testCaseRunId = Lens.lens (\TestCaseRun' {testCaseRunId} -> testCaseRunId) (\s@TestCaseRun' {} a -> s {testCaseRunId = a} :: TestCaseRun) + +-- | Provides the test scenarios for the test case run. +testCaseRun_testScenarios :: Lens.Lens' TestCaseRun (Prelude.Maybe [TestCaseScenario]) +testCaseRun_testScenarios = Lens.lens (\TestCaseRun' {testScenarios} -> testScenarios) (\s@TestCaseRun' {} a -> s {testScenarios = a} :: TestCaseRun) Prelude.. Lens.mapping Lens.coerced + +-- | Provides test case run warnings. +testCaseRun_warnings :: Lens.Lens' TestCaseRun (Prelude.Maybe Prelude.Text) +testCaseRun_warnings = Lens.lens (\TestCaseRun' {warnings} -> warnings) (\s@TestCaseRun' {} a -> s {warnings = a} :: TestCaseRun) + +instance Data.FromJSON TestCaseRun where + parseJSON = + Data.withObject + "TestCaseRun" + ( \x -> + TestCaseRun' + Prelude.<$> (x Data..:? "endTime") + Prelude.<*> (x Data..:? "failure") + Prelude.<*> (x Data..:? "logUrl") + Prelude.<*> (x Data..:? "startTime") + Prelude.<*> (x Data..:? "status") + Prelude.<*> (x Data..:? "testCaseDefinitionId") + Prelude.<*> (x Data..:? "testCaseDefinitionName") + Prelude.<*> (x Data..:? "testCaseRunId") + Prelude.<*> (x Data..:? "testScenarios" Data..!= Prelude.mempty) + Prelude.<*> (x Data..:? "warnings") + ) + +instance Prelude.Hashable TestCaseRun where + hashWithSalt _salt TestCaseRun' {..} = + _salt + `Prelude.hashWithSalt` endTime + `Prelude.hashWithSalt` failure + `Prelude.hashWithSalt` logUrl + `Prelude.hashWithSalt` startTime + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` testCaseDefinitionId + `Prelude.hashWithSalt` testCaseDefinitionName + `Prelude.hashWithSalt` testCaseRunId + `Prelude.hashWithSalt` testScenarios + `Prelude.hashWithSalt` warnings + +instance Prelude.NFData TestCaseRun where + rnf TestCaseRun' {..} = + Prelude.rnf endTime + `Prelude.seq` Prelude.rnf failure + `Prelude.seq` Prelude.rnf logUrl + `Prelude.seq` Prelude.rnf startTime + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf testCaseDefinitionId + `Prelude.seq` Prelude.rnf testCaseDefinitionName + `Prelude.seq` Prelude.rnf testCaseRunId + `Prelude.seq` Prelude.rnf testScenarios + `Prelude.seq` Prelude.rnf warnings diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenario.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenario.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenario.hs @@ -0,0 +1,186 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.TestCaseScenario where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus +import Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType +import qualified Amazonka.Prelude as Prelude + +-- | Provides test case scenario. +-- +-- /See:/ 'newTestCaseScenario' smart constructor. +data TestCaseScenario = TestCaseScenario' + { -- | Provides test case scenario failure result. + failure :: Prelude.Maybe Prelude.Text, + -- | Provides the test case scenario status. Status is one of the following: + -- + -- - @PASS@: Test passed. + -- + -- - @FAIL@: Test failed. + -- + -- - @PENDING@: Test has not started running but is scheduled. + -- + -- - @RUNNING@: Test is running. + -- + -- - @STOPPING@: Test is performing cleanup steps. You will see this + -- status only if you stop a suite run. + -- + -- - @STOPPED@ Test is stopped. You will see this status only if you stop + -- a suite run. + -- + -- - @PASS_WITH_WARNINGS@: Test passed with warnings. + -- + -- - @ERORR@: Test faced an error when running due to an internal issue. + status :: Prelude.Maybe TestCaseScenarioStatus, + systemMessage :: Prelude.Maybe Prelude.Text, + -- | Provides test case scenario ID. + testCaseScenarioId :: Prelude.Maybe Prelude.Text, + -- | Provides test case scenario type. Type is one of the following: + -- + -- - Advanced + -- + -- - Basic + testCaseScenarioType :: Prelude.Maybe TestCaseScenarioType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TestCaseScenario' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'failure', 'testCaseScenario_failure' - Provides test case scenario failure result. +-- +-- 'status', 'testCaseScenario_status' - Provides the test case scenario status. Status is one of the following: +-- +-- - @PASS@: Test passed. +-- +-- - @FAIL@: Test failed. +-- +-- - @PENDING@: Test has not started running but is scheduled. +-- +-- - @RUNNING@: Test is running. +-- +-- - @STOPPING@: Test is performing cleanup steps. You will see this +-- status only if you stop a suite run. +-- +-- - @STOPPED@ Test is stopped. You will see this status only if you stop +-- a suite run. +-- +-- - @PASS_WITH_WARNINGS@: Test passed with warnings. +-- +-- - @ERORR@: Test faced an error when running due to an internal issue. +-- +-- 'systemMessage', 'testCaseScenario_systemMessage' - +-- +-- 'testCaseScenarioId', 'testCaseScenario_testCaseScenarioId' - Provides test case scenario ID. +-- +-- 'testCaseScenarioType', 'testCaseScenario_testCaseScenarioType' - Provides test case scenario type. Type is one of the following: +-- +-- - Advanced +-- +-- - Basic +newTestCaseScenario :: + TestCaseScenario +newTestCaseScenario = + TestCaseScenario' + { failure = Prelude.Nothing, + status = Prelude.Nothing, + systemMessage = Prelude.Nothing, + testCaseScenarioId = Prelude.Nothing, + testCaseScenarioType = Prelude.Nothing + } + +-- | Provides test case scenario failure result. +testCaseScenario_failure :: Lens.Lens' TestCaseScenario (Prelude.Maybe Prelude.Text) +testCaseScenario_failure = Lens.lens (\TestCaseScenario' {failure} -> failure) (\s@TestCaseScenario' {} a -> s {failure = a} :: TestCaseScenario) + +-- | Provides the test case scenario status. Status is one of the following: +-- +-- - @PASS@: Test passed. +-- +-- - @FAIL@: Test failed. +-- +-- - @PENDING@: Test has not started running but is scheduled. +-- +-- - @RUNNING@: Test is running. +-- +-- - @STOPPING@: Test is performing cleanup steps. You will see this +-- status only if you stop a suite run. +-- +-- - @STOPPED@ Test is stopped. You will see this status only if you stop +-- a suite run. +-- +-- - @PASS_WITH_WARNINGS@: Test passed with warnings. +-- +-- - @ERORR@: Test faced an error when running due to an internal issue. +testCaseScenario_status :: Lens.Lens' TestCaseScenario (Prelude.Maybe TestCaseScenarioStatus) +testCaseScenario_status = Lens.lens (\TestCaseScenario' {status} -> status) (\s@TestCaseScenario' {} a -> s {status = a} :: TestCaseScenario) + +testCaseScenario_systemMessage :: Lens.Lens' TestCaseScenario (Prelude.Maybe Prelude.Text) +testCaseScenario_systemMessage = Lens.lens (\TestCaseScenario' {systemMessage} -> systemMessage) (\s@TestCaseScenario' {} a -> s {systemMessage = a} :: TestCaseScenario) + +-- | Provides test case scenario ID. +testCaseScenario_testCaseScenarioId :: Lens.Lens' TestCaseScenario (Prelude.Maybe Prelude.Text) +testCaseScenario_testCaseScenarioId = Lens.lens (\TestCaseScenario' {testCaseScenarioId} -> testCaseScenarioId) (\s@TestCaseScenario' {} a -> s {testCaseScenarioId = a} :: TestCaseScenario) + +-- | Provides test case scenario type. Type is one of the following: +-- +-- - Advanced +-- +-- - Basic +testCaseScenario_testCaseScenarioType :: Lens.Lens' TestCaseScenario (Prelude.Maybe TestCaseScenarioType) +testCaseScenario_testCaseScenarioType = Lens.lens (\TestCaseScenario' {testCaseScenarioType} -> testCaseScenarioType) (\s@TestCaseScenario' {} a -> s {testCaseScenarioType = a} :: TestCaseScenario) + +instance Data.FromJSON TestCaseScenario where + parseJSON = + Data.withObject + "TestCaseScenario" + ( \x -> + TestCaseScenario' + Prelude.<$> (x Data..:? "failure") + Prelude.<*> (x Data..:? "status") + Prelude.<*> (x Data..:? "systemMessage") + Prelude.<*> (x Data..:? "testCaseScenarioId") + Prelude.<*> (x Data..:? "testCaseScenarioType") + ) + +instance Prelude.Hashable TestCaseScenario where + hashWithSalt _salt TestCaseScenario' {..} = + _salt + `Prelude.hashWithSalt` failure + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` systemMessage + `Prelude.hashWithSalt` testCaseScenarioId + `Prelude.hashWithSalt` testCaseScenarioType + +instance Prelude.NFData TestCaseScenario where + rnf TestCaseScenario' {..} = + Prelude.rnf failure + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf systemMessage + `Prelude.seq` Prelude.rnf testCaseScenarioId + `Prelude.seq` Prelude.rnf testCaseScenarioType diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenarioStatus.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenarioStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenarioStatus.hs @@ -0,0 +1,106 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioStatus + ( TestCaseScenarioStatus + ( .., + TestCaseScenarioStatus_CANCELED, + TestCaseScenarioStatus_ERROR, + TestCaseScenarioStatus_FAIL, + TestCaseScenarioStatus_PASS, + TestCaseScenarioStatus_PASS_WITH_WARNINGS, + TestCaseScenarioStatus_PENDING, + TestCaseScenarioStatus_RUNNING, + TestCaseScenarioStatus_STOPPED, + TestCaseScenarioStatus_STOPPING + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype TestCaseScenarioStatus = TestCaseScenarioStatus' + { fromTestCaseScenarioStatus :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern TestCaseScenarioStatus_CANCELED :: TestCaseScenarioStatus +pattern TestCaseScenarioStatus_CANCELED = TestCaseScenarioStatus' "CANCELED" + +pattern TestCaseScenarioStatus_ERROR :: TestCaseScenarioStatus +pattern TestCaseScenarioStatus_ERROR = TestCaseScenarioStatus' "ERROR" + +pattern TestCaseScenarioStatus_FAIL :: TestCaseScenarioStatus +pattern TestCaseScenarioStatus_FAIL = TestCaseScenarioStatus' "FAIL" + +pattern TestCaseScenarioStatus_PASS :: TestCaseScenarioStatus +pattern TestCaseScenarioStatus_PASS = TestCaseScenarioStatus' "PASS" + +pattern TestCaseScenarioStatus_PASS_WITH_WARNINGS :: TestCaseScenarioStatus +pattern TestCaseScenarioStatus_PASS_WITH_WARNINGS = TestCaseScenarioStatus' "PASS_WITH_WARNINGS" + +pattern TestCaseScenarioStatus_PENDING :: TestCaseScenarioStatus +pattern TestCaseScenarioStatus_PENDING = TestCaseScenarioStatus' "PENDING" + +pattern TestCaseScenarioStatus_RUNNING :: TestCaseScenarioStatus +pattern TestCaseScenarioStatus_RUNNING = TestCaseScenarioStatus' "RUNNING" + +pattern TestCaseScenarioStatus_STOPPED :: TestCaseScenarioStatus +pattern TestCaseScenarioStatus_STOPPED = TestCaseScenarioStatus' "STOPPED" + +pattern TestCaseScenarioStatus_STOPPING :: TestCaseScenarioStatus +pattern TestCaseScenarioStatus_STOPPING = TestCaseScenarioStatus' "STOPPING" + +{-# COMPLETE + TestCaseScenarioStatus_CANCELED, + TestCaseScenarioStatus_ERROR, + TestCaseScenarioStatus_FAIL, + TestCaseScenarioStatus_PASS, + TestCaseScenarioStatus_PASS_WITH_WARNINGS, + TestCaseScenarioStatus_PENDING, + TestCaseScenarioStatus_RUNNING, + TestCaseScenarioStatus_STOPPED, + TestCaseScenarioStatus_STOPPING, + TestCaseScenarioStatus' + #-} diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenarioType.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenarioType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/TestCaseScenarioType.hs @@ -0,0 +1,71 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DerivingStrategies #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE PatternSynonyms #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.TestCaseScenarioType + ( TestCaseScenarioType + ( .., + TestCaseScenarioType_Advanced, + TestCaseScenarioType_Basic + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype TestCaseScenarioType = TestCaseScenarioType' + { fromTestCaseScenarioType :: + Data.Text + } + deriving stock + ( Prelude.Show, + Prelude.Read, + Prelude.Eq, + Prelude.Ord, + Prelude.Generic + ) + deriving newtype + ( Prelude.Hashable, + Prelude.NFData, + Data.FromText, + Data.ToText, + Data.ToByteString, + Data.ToLog, + Data.ToHeader, + Data.ToQuery, + Data.FromJSON, + Data.FromJSONKey, + Data.ToJSON, + Data.ToJSONKey, + Data.FromXML, + Data.ToXML + ) + +pattern TestCaseScenarioType_Advanced :: TestCaseScenarioType +pattern TestCaseScenarioType_Advanced = TestCaseScenarioType' "Advanced" + +pattern TestCaseScenarioType_Basic :: TestCaseScenarioType +pattern TestCaseScenarioType_Basic = TestCaseScenarioType' "Basic" + +{-# COMPLETE + TestCaseScenarioType_Advanced, + TestCaseScenarioType_Basic, + TestCaseScenarioType' + #-} diff --git a/gen/Amazonka/IoTDeviceAdvisor/Types/TestResult.hs b/gen/Amazonka/IoTDeviceAdvisor/Types/TestResult.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Types/TestResult.hs @@ -0,0 +1,68 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Types.TestResult +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Types.TestResult where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types.GroupResult +import qualified Amazonka.Prelude as Prelude + +-- | Show each group result. +-- +-- /See:/ 'newTestResult' smart constructor. +data TestResult = TestResult' + { -- | Show each group of test results. + groups :: Prelude.Maybe [GroupResult] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TestResult' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'groups', 'testResult_groups' - Show each group of test results. +newTestResult :: + TestResult +newTestResult = TestResult' {groups = Prelude.Nothing} + +-- | Show each group of test results. +testResult_groups :: Lens.Lens' TestResult (Prelude.Maybe [GroupResult]) +testResult_groups = Lens.lens (\TestResult' {groups} -> groups) (\s@TestResult' {} a -> s {groups = a} :: TestResult) Prelude.. Lens.mapping Lens.coerced + +instance Data.FromJSON TestResult where + parseJSON = + Data.withObject + "TestResult" + ( \x -> + TestResult' + Prelude.<$> (x Data..:? "groups" Data..!= Prelude.mempty) + ) + +instance Prelude.Hashable TestResult where + hashWithSalt _salt TestResult' {..} = + _salt `Prelude.hashWithSalt` groups + +instance Prelude.NFData TestResult where + rnf TestResult' {..} = Prelude.rnf groups diff --git a/gen/Amazonka/IoTDeviceAdvisor/UntagResource.hs b/gen/Amazonka/IoTDeviceAdvisor/UntagResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/UntagResource.hs @@ -0,0 +1,168 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.UntagResource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Removes tags from an IoT Device Advisor resource. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.UntagResource + ( -- * Creating a Request + UntagResource (..), + newUntagResource, + + -- * Request Lenses + untagResource_resourceArn, + untagResource_tagKeys, + + -- * Destructuring the Response + UntagResourceResponse (..), + newUntagResourceResponse, + + -- * Response Lenses + untagResourceResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newUntagResource' smart constructor. +data UntagResource = UntagResource' + { -- | The resource ARN of an IoT Device Advisor resource. This can be + -- SuiteDefinition ARN or SuiteRun ARN. + resourceArn :: Prelude.Text, + -- | List of tag keys to remove from the IoT Device Advisor resource. + tagKeys :: [Prelude.Text] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UntagResource' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'resourceArn', 'untagResource_resourceArn' - The resource ARN of an IoT Device Advisor resource. This can be +-- SuiteDefinition ARN or SuiteRun ARN. +-- +-- 'tagKeys', 'untagResource_tagKeys' - List of tag keys to remove from the IoT Device Advisor resource. +newUntagResource :: + -- | 'resourceArn' + Prelude.Text -> + UntagResource +newUntagResource pResourceArn_ = + UntagResource' + { resourceArn = pResourceArn_, + tagKeys = Prelude.mempty + } + +-- | The resource ARN of an IoT Device Advisor resource. This can be +-- SuiteDefinition ARN or SuiteRun ARN. +untagResource_resourceArn :: Lens.Lens' UntagResource Prelude.Text +untagResource_resourceArn = Lens.lens (\UntagResource' {resourceArn} -> resourceArn) (\s@UntagResource' {} a -> s {resourceArn = a} :: UntagResource) + +-- | List of tag keys to remove from the IoT Device Advisor resource. +untagResource_tagKeys :: Lens.Lens' UntagResource [Prelude.Text] +untagResource_tagKeys = Lens.lens (\UntagResource' {tagKeys} -> tagKeys) (\s@UntagResource' {} a -> s {tagKeys = a} :: UntagResource) Prelude.. Lens.coerced + +instance Core.AWSRequest UntagResource where + type + AWSResponse UntagResource = + UntagResourceResponse + request overrides = + Request.delete (overrides defaultService) + response = + Response.receiveEmpty + ( \s h x -> + UntagResourceResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable UntagResource where + hashWithSalt _salt UntagResource' {..} = + _salt + `Prelude.hashWithSalt` resourceArn + `Prelude.hashWithSalt` tagKeys + +instance Prelude.NFData UntagResource where + rnf UntagResource' {..} = + Prelude.rnf resourceArn + `Prelude.seq` Prelude.rnf tagKeys + +instance Data.ToHeaders UntagResource where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToPath UntagResource where + toPath UntagResource' {..} = + Prelude.mconcat ["/tags/", Data.toBS resourceArn] + +instance Data.ToQuery UntagResource where + toQuery UntagResource' {..} = + Prelude.mconcat + ["tagKeys" Data.=: Data.toQueryList "member" tagKeys] + +-- | /See:/ 'newUntagResourceResponse' smart constructor. +data UntagResourceResponse = UntagResourceResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UntagResourceResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'httpStatus', 'untagResourceResponse_httpStatus' - The response's http status code. +newUntagResourceResponse :: + -- | 'httpStatus' + Prelude.Int -> + UntagResourceResponse +newUntagResourceResponse pHttpStatus_ = + UntagResourceResponse' {httpStatus = pHttpStatus_} + +-- | The response's http status code. +untagResourceResponse_httpStatus :: Lens.Lens' UntagResourceResponse Prelude.Int +untagResourceResponse_httpStatus = Lens.lens (\UntagResourceResponse' {httpStatus} -> httpStatus) (\s@UntagResourceResponse' {} a -> s {httpStatus = a} :: UntagResourceResponse) + +instance Prelude.NFData UntagResourceResponse where + rnf UntagResourceResponse' {..} = + Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/UpdateSuiteDefinition.hs b/gen/Amazonka/IoTDeviceAdvisor/UpdateSuiteDefinition.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/UpdateSuiteDefinition.hs @@ -0,0 +1,256 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates a Device Advisor test suite. +-- +-- Requires permission to access the +-- +-- action. +module Amazonka.IoTDeviceAdvisor.UpdateSuiteDefinition + ( -- * Creating a Request + UpdateSuiteDefinition (..), + newUpdateSuiteDefinition, + + -- * Request Lenses + updateSuiteDefinition_suiteDefinitionId, + updateSuiteDefinition_suiteDefinitionConfiguration, + + -- * Destructuring the Response + UpdateSuiteDefinitionResponse (..), + newUpdateSuiteDefinitionResponse, + + -- * Response Lenses + updateSuiteDefinitionResponse_createdAt, + updateSuiteDefinitionResponse_lastUpdatedAt, + updateSuiteDefinitionResponse_suiteDefinitionArn, + updateSuiteDefinitionResponse_suiteDefinitionId, + updateSuiteDefinitionResponse_suiteDefinitionName, + updateSuiteDefinitionResponse_suiteDefinitionVersion, + updateSuiteDefinitionResponse_httpStatus, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response + +-- | /See:/ 'newUpdateSuiteDefinition' smart constructor. +data UpdateSuiteDefinition = UpdateSuiteDefinition' + { -- | Suite definition ID of the test suite to be updated. + suiteDefinitionId :: Prelude.Text, + -- | Updates a Device Advisor test suite with suite definition configuration. + suiteDefinitionConfiguration :: SuiteDefinitionConfiguration + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateSuiteDefinition' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'suiteDefinitionId', 'updateSuiteDefinition_suiteDefinitionId' - Suite definition ID of the test suite to be updated. +-- +-- 'suiteDefinitionConfiguration', 'updateSuiteDefinition_suiteDefinitionConfiguration' - Updates a Device Advisor test suite with suite definition configuration. +newUpdateSuiteDefinition :: + -- | 'suiteDefinitionId' + Prelude.Text -> + -- | 'suiteDefinitionConfiguration' + SuiteDefinitionConfiguration -> + UpdateSuiteDefinition +newUpdateSuiteDefinition + pSuiteDefinitionId_ + pSuiteDefinitionConfiguration_ = + UpdateSuiteDefinition' + { suiteDefinitionId = + pSuiteDefinitionId_, + suiteDefinitionConfiguration = + pSuiteDefinitionConfiguration_ + } + +-- | Suite definition ID of the test suite to be updated. +updateSuiteDefinition_suiteDefinitionId :: Lens.Lens' UpdateSuiteDefinition Prelude.Text +updateSuiteDefinition_suiteDefinitionId = Lens.lens (\UpdateSuiteDefinition' {suiteDefinitionId} -> suiteDefinitionId) (\s@UpdateSuiteDefinition' {} a -> s {suiteDefinitionId = a} :: UpdateSuiteDefinition) + +-- | Updates a Device Advisor test suite with suite definition configuration. +updateSuiteDefinition_suiteDefinitionConfiguration :: Lens.Lens' UpdateSuiteDefinition SuiteDefinitionConfiguration +updateSuiteDefinition_suiteDefinitionConfiguration = Lens.lens (\UpdateSuiteDefinition' {suiteDefinitionConfiguration} -> suiteDefinitionConfiguration) (\s@UpdateSuiteDefinition' {} a -> s {suiteDefinitionConfiguration = a} :: UpdateSuiteDefinition) + +instance Core.AWSRequest UpdateSuiteDefinition where + type + AWSResponse UpdateSuiteDefinition = + UpdateSuiteDefinitionResponse + request overrides = + Request.patchJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + UpdateSuiteDefinitionResponse' + Prelude.<$> (x Data..?> "createdAt") + Prelude.<*> (x Data..?> "lastUpdatedAt") + Prelude.<*> (x Data..?> "suiteDefinitionArn") + Prelude.<*> (x Data..?> "suiteDefinitionId") + Prelude.<*> (x Data..?> "suiteDefinitionName") + Prelude.<*> (x Data..?> "suiteDefinitionVersion") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable UpdateSuiteDefinition where + hashWithSalt _salt UpdateSuiteDefinition' {..} = + _salt + `Prelude.hashWithSalt` suiteDefinitionId + `Prelude.hashWithSalt` suiteDefinitionConfiguration + +instance Prelude.NFData UpdateSuiteDefinition where + rnf UpdateSuiteDefinition' {..} = + Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteDefinitionConfiguration + +instance Data.ToHeaders UpdateSuiteDefinition where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "Content-Type" + Data.=# ( "application/x-amz-json-1.1" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON UpdateSuiteDefinition where + toJSON UpdateSuiteDefinition' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just + ( "suiteDefinitionConfiguration" + Data..= suiteDefinitionConfiguration + ) + ] + ) + +instance Data.ToPath UpdateSuiteDefinition where + toPath UpdateSuiteDefinition' {..} = + Prelude.mconcat + ["/suiteDefinitions/", Data.toBS suiteDefinitionId] + +instance Data.ToQuery UpdateSuiteDefinition where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newUpdateSuiteDefinitionResponse' smart constructor. +data UpdateSuiteDefinitionResponse = UpdateSuiteDefinitionResponse' + { -- | Timestamp of when the test suite was created. + createdAt :: Prelude.Maybe Data.POSIX, + -- | Timestamp of when the test suite was updated. + lastUpdatedAt :: Prelude.Maybe Data.POSIX, + -- | Amazon Resource Name (ARN) of the updated test suite. + suiteDefinitionArn :: Prelude.Maybe Prelude.Text, + -- | Suite definition ID of the updated test suite. + suiteDefinitionId :: Prelude.Maybe Prelude.Text, + -- | Updates the suite definition name. This is a required parameter. + suiteDefinitionName :: Prelude.Maybe Prelude.Text, + -- | Suite definition version of the updated test suite. + suiteDefinitionVersion :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UpdateSuiteDefinitionResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +-- +-- The following record fields are available, with the corresponding lenses provided +-- for backwards compatibility: +-- +-- 'createdAt', 'updateSuiteDefinitionResponse_createdAt' - Timestamp of when the test suite was created. +-- +-- 'lastUpdatedAt', 'updateSuiteDefinitionResponse_lastUpdatedAt' - Timestamp of when the test suite was updated. +-- +-- 'suiteDefinitionArn', 'updateSuiteDefinitionResponse_suiteDefinitionArn' - Amazon Resource Name (ARN) of the updated test suite. +-- +-- 'suiteDefinitionId', 'updateSuiteDefinitionResponse_suiteDefinitionId' - Suite definition ID of the updated test suite. +-- +-- 'suiteDefinitionName', 'updateSuiteDefinitionResponse_suiteDefinitionName' - Updates the suite definition name. This is a required parameter. +-- +-- 'suiteDefinitionVersion', 'updateSuiteDefinitionResponse_suiteDefinitionVersion' - Suite definition version of the updated test suite. +-- +-- 'httpStatus', 'updateSuiteDefinitionResponse_httpStatus' - The response's http status code. +newUpdateSuiteDefinitionResponse :: + -- | 'httpStatus' + Prelude.Int -> + UpdateSuiteDefinitionResponse +newUpdateSuiteDefinitionResponse pHttpStatus_ = + UpdateSuiteDefinitionResponse' + { createdAt = + Prelude.Nothing, + lastUpdatedAt = Prelude.Nothing, + suiteDefinitionArn = Prelude.Nothing, + suiteDefinitionId = Prelude.Nothing, + suiteDefinitionName = Prelude.Nothing, + suiteDefinitionVersion = Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | Timestamp of when the test suite was created. +updateSuiteDefinitionResponse_createdAt :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime) +updateSuiteDefinitionResponse_createdAt = Lens.lens (\UpdateSuiteDefinitionResponse' {createdAt} -> createdAt) (\s@UpdateSuiteDefinitionResponse' {} a -> s {createdAt = a} :: UpdateSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time + +-- | Timestamp of when the test suite was updated. +updateSuiteDefinitionResponse_lastUpdatedAt :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime) +updateSuiteDefinitionResponse_lastUpdatedAt = Lens.lens (\UpdateSuiteDefinitionResponse' {lastUpdatedAt} -> lastUpdatedAt) (\s@UpdateSuiteDefinitionResponse' {} a -> s {lastUpdatedAt = a} :: UpdateSuiteDefinitionResponse) Prelude.. Lens.mapping Data._Time + +-- | Amazon Resource Name (ARN) of the updated test suite. +updateSuiteDefinitionResponse_suiteDefinitionArn :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +updateSuiteDefinitionResponse_suiteDefinitionArn = Lens.lens (\UpdateSuiteDefinitionResponse' {suiteDefinitionArn} -> suiteDefinitionArn) (\s@UpdateSuiteDefinitionResponse' {} a -> s {suiteDefinitionArn = a} :: UpdateSuiteDefinitionResponse) + +-- | Suite definition ID of the updated test suite. +updateSuiteDefinitionResponse_suiteDefinitionId :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +updateSuiteDefinitionResponse_suiteDefinitionId = Lens.lens (\UpdateSuiteDefinitionResponse' {suiteDefinitionId} -> suiteDefinitionId) (\s@UpdateSuiteDefinitionResponse' {} a -> s {suiteDefinitionId = a} :: UpdateSuiteDefinitionResponse) + +-- | Updates the suite definition name. This is a required parameter. +updateSuiteDefinitionResponse_suiteDefinitionName :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +updateSuiteDefinitionResponse_suiteDefinitionName = Lens.lens (\UpdateSuiteDefinitionResponse' {suiteDefinitionName} -> suiteDefinitionName) (\s@UpdateSuiteDefinitionResponse' {} a -> s {suiteDefinitionName = a} :: UpdateSuiteDefinitionResponse) + +-- | Suite definition version of the updated test suite. +updateSuiteDefinitionResponse_suiteDefinitionVersion :: Lens.Lens' UpdateSuiteDefinitionResponse (Prelude.Maybe Prelude.Text) +updateSuiteDefinitionResponse_suiteDefinitionVersion = Lens.lens (\UpdateSuiteDefinitionResponse' {suiteDefinitionVersion} -> suiteDefinitionVersion) (\s@UpdateSuiteDefinitionResponse' {} a -> s {suiteDefinitionVersion = a} :: UpdateSuiteDefinitionResponse) + +-- | The response's http status code. +updateSuiteDefinitionResponse_httpStatus :: Lens.Lens' UpdateSuiteDefinitionResponse Prelude.Int +updateSuiteDefinitionResponse_httpStatus = Lens.lens (\UpdateSuiteDefinitionResponse' {httpStatus} -> httpStatus) (\s@UpdateSuiteDefinitionResponse' {} a -> s {httpStatus = a} :: UpdateSuiteDefinitionResponse) + +instance Prelude.NFData UpdateSuiteDefinitionResponse where + rnf UpdateSuiteDefinitionResponse' {..} = + Prelude.rnf createdAt + `Prelude.seq` Prelude.rnf lastUpdatedAt + `Prelude.seq` Prelude.rnf suiteDefinitionArn + `Prelude.seq` Prelude.rnf suiteDefinitionId + `Prelude.seq` Prelude.rnf suiteDefinitionName + `Prelude.seq` Prelude.rnf suiteDefinitionVersion + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/IoTDeviceAdvisor/Waiters.hs b/gen/Amazonka/IoTDeviceAdvisor/Waiters.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/IoTDeviceAdvisor/Waiters.hs @@ -0,0 +1,24 @@ +{-# LANGUAGE DisambiguateRecordFields #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Amazonka.IoTDeviceAdvisor.Waiters +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Amazonka.IoTDeviceAdvisor.Waiters where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Data as Data +import Amazonka.IoTDeviceAdvisor.Lens +import Amazonka.IoTDeviceAdvisor.Types +import qualified Amazonka.Prelude as Prelude diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep diff --git a/test/Main.hs b/test/Main.hs new file mode 100644 --- /dev/null +++ b/test/Main.hs @@ -0,0 +1,23 @@ +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Main +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Main (main) where + +import Test.Amazonka.IoTDeviceAdvisor +import Test.Amazonka.IoTDeviceAdvisor.Internal +import Test.Tasty + +main :: IO () +main = + defaultMain $ + testGroup + "IoTDeviceAdvisor" + [ testGroup "tests" tests, + testGroup "fixtures" fixtures + ] diff --git a/test/Test/Amazonka/Gen/IoTDeviceAdvisor.hs b/test/Test/Amazonka/Gen/IoTDeviceAdvisor.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/Gen/IoTDeviceAdvisor.hs @@ -0,0 +1,318 @@ +{-# OPTIONS_GHC -fno-warn-orphans #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Test.Amazonka.Gen.IoTDeviceAdvisor +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Test.Amazonka.Gen.IoTDeviceAdvisor where + +import Amazonka.IoTDeviceAdvisor +import qualified Data.Proxy as Proxy +import Test.Amazonka.Fixture +import Test.Amazonka.IoTDeviceAdvisor.Internal +import Test.Amazonka.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" +-- [ requestCreateSuiteDefinition $ +-- newCreateSuiteDefinition +-- +-- , requestDeleteSuiteDefinition $ +-- newDeleteSuiteDefinition +-- +-- , requestGetEndpoint $ +-- newGetEndpoint +-- +-- , requestGetSuiteDefinition $ +-- newGetSuiteDefinition +-- +-- , requestGetSuiteRun $ +-- newGetSuiteRun +-- +-- , requestGetSuiteRunReport $ +-- newGetSuiteRunReport +-- +-- , requestListSuiteDefinitions $ +-- newListSuiteDefinitions +-- +-- , requestListSuiteRuns $ +-- newListSuiteRuns +-- +-- , requestListTagsForResource $ +-- newListTagsForResource +-- +-- , requestStartSuiteRun $ +-- newStartSuiteRun +-- +-- , requestStopSuiteRun $ +-- newStopSuiteRun +-- +-- , requestTagResource $ +-- newTagResource +-- +-- , requestUntagResource $ +-- newUntagResource +-- +-- , requestUpdateSuiteDefinition $ +-- newUpdateSuiteDefinition +-- +-- ] + +-- , testGroup "response" +-- [ responseCreateSuiteDefinition $ +-- newCreateSuiteDefinitionResponse +-- +-- , responseDeleteSuiteDefinition $ +-- newDeleteSuiteDefinitionResponse +-- +-- , responseGetEndpoint $ +-- newGetEndpointResponse +-- +-- , responseGetSuiteDefinition $ +-- newGetSuiteDefinitionResponse +-- +-- , responseGetSuiteRun $ +-- newGetSuiteRunResponse +-- +-- , responseGetSuiteRunReport $ +-- newGetSuiteRunReportResponse +-- +-- , responseListSuiteDefinitions $ +-- newListSuiteDefinitionsResponse +-- +-- , responseListSuiteRuns $ +-- newListSuiteRunsResponse +-- +-- , responseListTagsForResource $ +-- newListTagsForResourceResponse +-- +-- , responseStartSuiteRun $ +-- newStartSuiteRunResponse +-- +-- , responseStopSuiteRun $ +-- newStopSuiteRunResponse +-- +-- , responseTagResource $ +-- newTagResourceResponse +-- +-- , responseUntagResource $ +-- newUntagResourceResponse +-- +-- , responseUpdateSuiteDefinition $ +-- newUpdateSuiteDefinitionResponse +-- +-- ] +-- ] + +-- Requests + +requestCreateSuiteDefinition :: CreateSuiteDefinition -> TestTree +requestCreateSuiteDefinition = + req + "CreateSuiteDefinition" + "fixture/CreateSuiteDefinition.yaml" + +requestDeleteSuiteDefinition :: DeleteSuiteDefinition -> TestTree +requestDeleteSuiteDefinition = + req + "DeleteSuiteDefinition" + "fixture/DeleteSuiteDefinition.yaml" + +requestGetEndpoint :: GetEndpoint -> TestTree +requestGetEndpoint = + req + "GetEndpoint" + "fixture/GetEndpoint.yaml" + +requestGetSuiteDefinition :: GetSuiteDefinition -> TestTree +requestGetSuiteDefinition = + req + "GetSuiteDefinition" + "fixture/GetSuiteDefinition.yaml" + +requestGetSuiteRun :: GetSuiteRun -> TestTree +requestGetSuiteRun = + req + "GetSuiteRun" + "fixture/GetSuiteRun.yaml" + +requestGetSuiteRunReport :: GetSuiteRunReport -> TestTree +requestGetSuiteRunReport = + req + "GetSuiteRunReport" + "fixture/GetSuiteRunReport.yaml" + +requestListSuiteDefinitions :: ListSuiteDefinitions -> TestTree +requestListSuiteDefinitions = + req + "ListSuiteDefinitions" + "fixture/ListSuiteDefinitions.yaml" + +requestListSuiteRuns :: ListSuiteRuns -> TestTree +requestListSuiteRuns = + req + "ListSuiteRuns" + "fixture/ListSuiteRuns.yaml" + +requestListTagsForResource :: ListTagsForResource -> TestTree +requestListTagsForResource = + req + "ListTagsForResource" + "fixture/ListTagsForResource.yaml" + +requestStartSuiteRun :: StartSuiteRun -> TestTree +requestStartSuiteRun = + req + "StartSuiteRun" + "fixture/StartSuiteRun.yaml" + +requestStopSuiteRun :: StopSuiteRun -> TestTree +requestStopSuiteRun = + req + "StopSuiteRun" + "fixture/StopSuiteRun.yaml" + +requestTagResource :: TagResource -> TestTree +requestTagResource = + req + "TagResource" + "fixture/TagResource.yaml" + +requestUntagResource :: UntagResource -> TestTree +requestUntagResource = + req + "UntagResource" + "fixture/UntagResource.yaml" + +requestUpdateSuiteDefinition :: UpdateSuiteDefinition -> TestTree +requestUpdateSuiteDefinition = + req + "UpdateSuiteDefinition" + "fixture/UpdateSuiteDefinition.yaml" + +-- Responses + +responseCreateSuiteDefinition :: CreateSuiteDefinitionResponse -> TestTree +responseCreateSuiteDefinition = + res + "CreateSuiteDefinitionResponse" + "fixture/CreateSuiteDefinitionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CreateSuiteDefinition) + +responseDeleteSuiteDefinition :: DeleteSuiteDefinitionResponse -> TestTree +responseDeleteSuiteDefinition = + res + "DeleteSuiteDefinitionResponse" + "fixture/DeleteSuiteDefinitionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeleteSuiteDefinition) + +responseGetEndpoint :: GetEndpointResponse -> TestTree +responseGetEndpoint = + res + "GetEndpointResponse" + "fixture/GetEndpointResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy GetEndpoint) + +responseGetSuiteDefinition :: GetSuiteDefinitionResponse -> TestTree +responseGetSuiteDefinition = + res + "GetSuiteDefinitionResponse" + "fixture/GetSuiteDefinitionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy GetSuiteDefinition) + +responseGetSuiteRun :: GetSuiteRunResponse -> TestTree +responseGetSuiteRun = + res + "GetSuiteRunResponse" + "fixture/GetSuiteRunResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy GetSuiteRun) + +responseGetSuiteRunReport :: GetSuiteRunReportResponse -> TestTree +responseGetSuiteRunReport = + res + "GetSuiteRunReportResponse" + "fixture/GetSuiteRunReportResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy GetSuiteRunReport) + +responseListSuiteDefinitions :: ListSuiteDefinitionsResponse -> TestTree +responseListSuiteDefinitions = + res + "ListSuiteDefinitionsResponse" + "fixture/ListSuiteDefinitionsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListSuiteDefinitions) + +responseListSuiteRuns :: ListSuiteRunsResponse -> TestTree +responseListSuiteRuns = + res + "ListSuiteRunsResponse" + "fixture/ListSuiteRunsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListSuiteRuns) + +responseListTagsForResource :: ListTagsForResourceResponse -> TestTree +responseListTagsForResource = + res + "ListTagsForResourceResponse" + "fixture/ListTagsForResourceResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListTagsForResource) + +responseStartSuiteRun :: StartSuiteRunResponse -> TestTree +responseStartSuiteRun = + res + "StartSuiteRunResponse" + "fixture/StartSuiteRunResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy StartSuiteRun) + +responseStopSuiteRun :: StopSuiteRunResponse -> TestTree +responseStopSuiteRun = + res + "StopSuiteRunResponse" + "fixture/StopSuiteRunResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy StopSuiteRun) + +responseTagResource :: TagResourceResponse -> TestTree +responseTagResource = + res + "TagResourceResponse" + "fixture/TagResourceResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy TagResource) + +responseUntagResource :: UntagResourceResponse -> TestTree +responseUntagResource = + res + "UntagResourceResponse" + "fixture/UntagResourceResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UntagResource) + +responseUpdateSuiteDefinition :: UpdateSuiteDefinitionResponse -> TestTree +responseUpdateSuiteDefinition = + res + "UpdateSuiteDefinitionResponse" + "fixture/UpdateSuiteDefinitionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UpdateSuiteDefinition) diff --git a/test/Test/Amazonka/IoTDeviceAdvisor.hs b/test/Test/Amazonka/IoTDeviceAdvisor.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/IoTDeviceAdvisor.hs @@ -0,0 +1,20 @@ +-- | +-- Module : Test.Amazonka.IoTDeviceAdvisor +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Test.Amazonka.IoTDeviceAdvisor + ( tests, + fixtures, + ) +where + +import Test.Tasty (TestTree) + +tests :: [TestTree] +tests = [] + +fixtures :: [TestTree] +fixtures = [] diff --git a/test/Test/Amazonka/IoTDeviceAdvisor/Internal.hs b/test/Test/Amazonka/IoTDeviceAdvisor/Internal.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/IoTDeviceAdvisor/Internal.hs @@ -0,0 +1,8 @@ +-- | +-- Module : Test.Amazonka.IoTDeviceAdvisor.Internal +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +module Test.Amazonka.IoTDeviceAdvisor.Internal where