{-# OPTIONS_GHC -fno-warn-unused-imports -fno-warn-unused-matches #-}
module Instances where
import NeptuneBackend.Model
import NeptuneBackend.Core
import qualified Data.Aeson as A
import qualified Data.ByteString.Lazy as BL
import qualified Data.HashMap.Strict as HM
import qualified Data.Set as Set
import qualified Data.Text as T
import qualified Data.Time as TI
import qualified Data.Vector as V
import Control.Monad
import Data.Char (isSpace)
import Data.List (sort)
import Test.QuickCheck
import ApproxEq
instance Arbitrary T.Text where
arbitrary = T.pack <$> arbitrary
instance Arbitrary TI.Day where
arbitrary = TI.ModifiedJulianDay . (2000 +) <$> arbitrary
shrink = (TI.ModifiedJulianDay <$>) . shrink . TI.toModifiedJulianDay
instance Arbitrary TI.UTCTime where
arbitrary =
TI.UTCTime <$> arbitrary <*> (TI.secondsToDiffTime <$> choose (0, 86401))
instance Arbitrary BL.ByteString where
arbitrary = BL.pack <$> arbitrary
shrink xs = BL.pack <$> shrink (BL.unpack xs)
instance Arbitrary ByteArray where
arbitrary = ByteArray <$> arbitrary
shrink (ByteArray xs) = ByteArray <$> shrink xs
instance Arbitrary Binary where
arbitrary = Binary <$> arbitrary
shrink (Binary xs) = Binary <$> shrink xs
instance Arbitrary DateTime where
arbitrary = DateTime <$> arbitrary
shrink (DateTime xs) = DateTime <$> shrink xs
instance Arbitrary Date where
arbitrary = Date <$> arbitrary
shrink (Date xs) = Date <$> shrink xs
-- | A naive Arbitrary instance for A.Value:
instance Arbitrary A.Value where
arbitrary = frequency [(3, simpleTypes), (1, arrayTypes), (1, objectTypes)]
where
simpleTypes :: Gen A.Value
simpleTypes =
frequency
[ (1, return A.Null)
, (2, liftM A.Bool (arbitrary :: Gen Bool))
, (2, liftM (A.Number . fromIntegral) (arbitrary :: Gen Int))
, (2, liftM (A.String . T.pack) (arbitrary :: Gen String))
]
mapF (k, v) = (T.pack k, v)
simpleAndArrays = frequency [(1, sized sizedArray), (4, simpleTypes)]
arrayTypes = sized sizedArray
objectTypes = sized sizedObject
sizedArray n = liftM (A.Array . V.fromList) $ replicateM n simpleTypes
sizedObject n =
liftM (A.object . map mapF) $
replicateM n $ (,) <$> (arbitrary :: Gen String) <*> simpleAndArrays
-- | Checks if a given list has no duplicates in _O(n log n)_.
hasNoDups
:: (Ord a)
=> [a] -> Bool
hasNoDups = go Set.empty
where
go _ [] = True
go s (x:xs)
| s' <- Set.insert x s
, Set.size s' > Set.size s = go s' xs
| otherwise = False
instance ApproxEq TI.Day where
(=~) = (==)
arbitraryReduced :: Arbitrary a => Int -> Gen a
arbitraryReduced n = resize (n `div` 2) arbitrary
arbitraryReducedMaybe :: Arbitrary a => Int -> Gen (Maybe a)
arbitraryReducedMaybe 0 = elements [Nothing]
arbitraryReducedMaybe n = arbitraryReduced n
arbitraryReducedMaybeValue :: Int -> Gen (Maybe A.Value)
arbitraryReducedMaybeValue 0 = elements [Nothing]
arbitraryReducedMaybeValue n = do
generated <- arbitraryReduced n
if generated == Just A.Null
then return Nothing
else return generated
-- * Models
instance Arbitrary AchievementsDTO where
arbitrary = sized genAchievementsDTO
genAchievementsDTO :: Int -> Gen AchievementsDTO
genAchievementsDTO n =
AchievementsDTO
<$> arbitraryReduced n -- achievementsDTOEarned :: [AchievementTypeDTO]
instance Arbitrary AuthorizedUserDTO where
arbitrary = sized genAuthorizedUserDTO
genAuthorizedUserDTO :: Int -> Gen AuthorizedUserDTO
genAuthorizedUserDTO n =
AuthorizedUserDTO
<$> arbitrary -- authorizedUserDTOUsername :: Text
instance Arbitrary BatchChannelValueErrorDTO where
arbitrary = sized genBatchChannelValueErrorDTO
genBatchChannelValueErrorDTO :: Int -> Gen BatchChannelValueErrorDTO
genBatchChannelValueErrorDTO n =
BatchChannelValueErrorDTO
<$> arbitrary -- batchChannelValueErrorDTOChannelId :: Text
<*> arbitrary -- batchChannelValueErrorDTOX :: Double
<*> arbitraryReduced n -- batchChannelValueErrorDTOError :: Error
instance Arbitrary BatchExperimentUpdateResult where
arbitrary = sized genBatchExperimentUpdateResult
genBatchExperimentUpdateResult :: Int -> Gen BatchExperimentUpdateResult
genBatchExperimentUpdateResult n =
BatchExperimentUpdateResult
<$> arbitrary -- batchExperimentUpdateResultExperimentId :: Text
<*> arbitraryReducedMaybe n -- batchExperimentUpdateResultError :: Maybe Error
instance Arbitrary Channel where
arbitrary = sized genChannel
genChannel :: Int -> Gen Channel
genChannel n =
Channel
<$> arbitrary -- channelId :: Text
<*> arbitrary -- channelName :: Text
<*> arbitraryReduced n -- channelChannelType :: ChannelType
<*> arbitraryReducedMaybe n -- channelLastX :: Maybe Double
instance Arbitrary ChannelDTO where
arbitrary = sized genChannelDTO
genChannelDTO :: Int -> Gen ChannelDTO
genChannelDTO n =
ChannelDTO
<$> arbitrary -- channelDTOId :: Text
<*> arbitrary -- channelDTOName :: Text
<*> arbitraryReduced n -- channelDTOChannelType :: ChannelTypeEnum
<*> arbitraryReducedMaybe n -- channelDTOLastX :: Maybe Double
instance Arbitrary ChannelParams where
arbitrary = sized genChannelParams
genChannelParams :: Int -> Gen ChannelParams
genChannelParams n =
ChannelParams
<$> arbitrary -- channelParamsName :: Text
<*> arbitraryReduced n -- channelParamsChannelType :: ChannelTypeEnum
instance Arbitrary ChannelWithValue where
arbitrary = sized genChannelWithValue
genChannelWithValue :: Int -> Gen ChannelWithValue
genChannelWithValue n =
ChannelWithValue
<$> arbitrary -- channelWithValueX :: Double
<*> arbitrary -- channelWithValueY :: Text
<*> arbitraryReduced n -- channelWithValueChannelType :: ChannelType
<*> arbitrary -- channelWithValueChannelName :: Text
<*> arbitrary -- channelWithValueChannelId :: Text
instance Arbitrary ChannelWithValueDTO where
arbitrary = sized genChannelWithValueDTO
genChannelWithValueDTO :: Int -> Gen ChannelWithValueDTO
genChannelWithValueDTO n =
ChannelWithValueDTO
<$> arbitrary -- channelWithValueDTOX :: Double
<*> arbitrary -- channelWithValueDTOY :: Text
<*> arbitraryReduced n -- channelWithValueDTOChannelType :: ChannelTypeEnum
<*> arbitrary -- channelWithValueDTOChannelName :: Text
<*> arbitrary -- channelWithValueDTOChannelId :: Text
instance Arbitrary Chart where
arbitrary = sized genChart
genChart :: Int -> Gen Chart
genChart n =
Chart
<$> arbitrary -- chartId :: Text
<*> arbitrary -- chartName :: Text
<*> arbitraryReduced n -- chartSeries :: [Series]
instance Arbitrary ChartDefinition where
arbitrary = sized genChartDefinition
genChartDefinition :: Int -> Gen ChartDefinition
genChartDefinition n =
ChartDefinition
<$> arbitrary -- chartDefinitionName :: Text
<*> arbitraryReduced n -- chartDefinitionSeries :: [SeriesDefinition]
instance Arbitrary ChartSet where
arbitrary = sized genChartSet
genChartSet :: Int -> Gen ChartSet
genChartSet n =
ChartSet
<$> arbitraryReducedMaybe n -- chartSetIsEditable :: Maybe Bool
<*> arbitraryReducedMaybe n -- chartSetDefaultChartsEnabled :: Maybe Bool
<*> arbitrary -- chartSetProjectId :: Text
<*> arbitrary -- chartSetId :: Text
<*> arbitrary -- chartSetName :: Text
<*> arbitraryReducedMaybe n -- chartSetCharts :: Maybe [Chart]
instance Arbitrary ChartSetParams where
arbitrary = sized genChartSetParams
genChartSetParams :: Int -> Gen ChartSetParams
genChartSetParams n =
ChartSetParams
<$> arbitrary -- chartSetParamsName :: Text
<*> arbitraryReducedMaybe n -- chartSetParamsCharts :: Maybe [ChartDefinition]
<*> arbitraryReducedMaybe n -- chartSetParamsDefaultChartsEnabled :: Maybe Bool
<*> arbitraryReducedMaybe n -- chartSetParamsIsEditable :: Maybe Bool
instance Arbitrary Charts where
arbitrary = sized genCharts
genCharts :: Int -> Gen Charts
genCharts n =
Charts
<$> arbitraryReduced n -- chartsManualCharts :: [Chart]
<*> arbitraryReduced n -- chartsDefaultCharts :: [Chart]
instance Arbitrary ClientConfig where
arbitrary = sized genClientConfig
genClientConfig :: Int -> Gen ClientConfig
genClientConfig n =
ClientConfig
<$> arbitrary -- clientConfigApiUrl :: Text
<*> arbitrary -- clientConfigApplicationUrl :: Text
<*> arbitraryReduced n -- clientConfigPyLibVersions :: ClientVersionsConfigDTO
instance Arbitrary ClientVersionsConfigDTO where
arbitrary = sized genClientVersionsConfigDTO
genClientVersionsConfigDTO :: Int -> Gen ClientVersionsConfigDTO
genClientVersionsConfigDTO n =
ClientVersionsConfigDTO
<$> arbitraryReducedMaybe n -- clientVersionsConfigDTOMinRecommendedVersion :: Maybe Text
<*> arbitraryReducedMaybe n -- clientVersionsConfigDTOMinCompatibleVersion :: Maybe Text
<*> arbitraryReducedMaybe n -- clientVersionsConfigDTOMaxCompatibleVersion :: Maybe Text
instance Arbitrary CompletedExperimentParams where
arbitrary = sized genCompletedExperimentParams
genCompletedExperimentParams :: Int -> Gen CompletedExperimentParams
genCompletedExperimentParams n =
CompletedExperimentParams
<$> arbitraryReduced n -- completedExperimentParamsState :: ExperimentState
<*> arbitrary -- completedExperimentParamsTraceback :: Text
instance Arbitrary ComponentStatus where
arbitrary = sized genComponentStatus
genComponentStatus :: Int -> Gen ComponentStatus
genComponentStatus n =
ComponentStatus
<$> arbitrary -- componentStatusName :: Text
<*> arbitrary -- componentStatusStatus :: Text
instance Arbitrary ComponentVersion where
arbitrary = sized genComponentVersion
genComponentVersion :: Int -> Gen ComponentVersion
genComponentVersion n =
ComponentVersion
<$> arbitraryReduced n -- componentVersionName :: NameEnum
<*> arbitrary -- componentVersionVersion :: Text
instance Arbitrary ConfigInfo where
arbitrary = sized genConfigInfo
genConfigInfo :: Int -> Gen ConfigInfo
genConfigInfo n =
ConfigInfo
<$> arbitrary -- configInfoMaxFormContentSize :: Int
instance Arbitrary CreateSessionParamsDTO where
arbitrary = sized genCreateSessionParamsDTO
genCreateSessionParamsDTO :: Int -> Gen CreateSessionParamsDTO
genCreateSessionParamsDTO n =
CreateSessionParamsDTO
<$> arbitrary -- createSessionParamsDTOSuccessUrl :: Text
<*> arbitrary -- createSessionParamsDTOFailureUrl :: Text
instance Arbitrary CustomerDTO where
arbitrary = sized genCustomerDTO
genCustomerDTO :: Int -> Gen CustomerDTO
genCustomerDTO n =
CustomerDTO
<$> arbitraryReducedMaybe n -- customerDTONumberOfUsers :: Maybe Integer
<*> arbitrary -- customerDTOUserPriceInCents :: Integer
<*> arbitraryReduced n -- customerDTOPricingPlan :: PricingPlanDTO
<*> arbitraryReducedMaybe n -- customerDTODiscount :: Maybe DiscountDTO
instance Arbitrary DiscountCodeDTO where
arbitrary = sized genDiscountCodeDTO
genDiscountCodeDTO :: Int -> Gen DiscountCodeDTO
genDiscountCodeDTO n =
DiscountCodeDTO
<$> arbitrary -- discountCodeDTOCode :: Text
instance Arbitrary DiscountDTO where
arbitrary = sized genDiscountDTO
genDiscountDTO :: Int -> Gen DiscountDTO
genDiscountDTO n =
DiscountDTO
<$> arbitraryReducedMaybe n -- discountDTOAmountOffPercentage :: Maybe Integer
<*> arbitraryReducedMaybe n -- discountDTOAmountOffInCents :: Maybe Integer
<*> arbitraryReducedMaybe n -- discountDTOEnd :: Maybe DateTime
instance Arbitrary DownloadPrepareRequestDTO where
arbitrary = sized genDownloadPrepareRequestDTO
genDownloadPrepareRequestDTO :: Int -> Gen DownloadPrepareRequestDTO
genDownloadPrepareRequestDTO n =
DownloadPrepareRequestDTO
<$> arbitrary -- downloadPrepareRequestDTOId :: Text
<*> arbitraryReducedMaybe n -- downloadPrepareRequestDTODownloadUrl :: Maybe Text
instance Arbitrary EditExperimentParams where
arbitrary = sized genEditExperimentParams
genEditExperimentParams :: Int -> Gen EditExperimentParams
genEditExperimentParams n =
EditExperimentParams
<$> arbitraryReducedMaybe n -- editExperimentParamsName :: Maybe Text
<*> arbitraryReducedMaybe n -- editExperimentParamsDescription :: Maybe Text
<*> arbitraryReducedMaybe n -- editExperimentParamsTags :: Maybe [Text]
<*> arbitraryReducedMaybe n -- editExperimentParamsProperties :: Maybe [KeyValueProperty]
instance Arbitrary Error where
arbitrary = sized genError
genError :: Int -> Gen Error
genError n =
Error
<$> arbitrary -- errorCode :: Int
<*> arbitrary -- errorMessage :: Text
<*> arbitraryReducedMaybe n -- errorType :: Maybe ApiErrorTypeDTO
instance Arbitrary Experiment where
arbitrary = sized genExperiment
genExperiment :: Int -> Gen Experiment
genExperiment n =
Experiment
<$> arbitraryReduced n -- experimentChannels :: [Channel]
<*> arbitraryReduced n -- experimentState :: ExperimentState
<*> arbitraryReducedMaybe n -- experimentTimeOfCompletion :: Maybe DateTime
<*> arbitraryReducedMaybe n -- experimentCheckpointId :: Maybe Text
<*> arbitraryReduced n -- experimentPaths :: ExperimentPaths
<*> arbitrary -- experimentResponding :: Bool
<*> arbitrary -- experimentOrganizationId :: Text
<*> arbitraryReduced n -- experimentStateTransitions :: StateTransitions
<*> arbitraryReduced n -- experimentParameters :: [Parameter]
<*> arbitraryReduced n -- experimentChannelsLastValues :: [ChannelWithValue]
<*> arbitrary -- experimentStorageSize :: Integer
<*> arbitrary -- experimentName :: Text
<*> arbitraryReducedMaybe n -- experimentNotebookId :: Maybe Text
<*> arbitrary -- experimentProjectName :: Text
<*> arbitraryReducedMaybe n -- experimentHostname :: Maybe Text
<*> arbitrary -- experimentTrashed :: Bool
<*> arbitrary -- experimentDescription :: Text
<*> arbitrary -- experimentTags :: [Text]
<*> arbitrary -- experimentChannelsSize :: Integer
<*> arbitraryReduced n -- experimentTimeOfCreation :: DateTime
<*> arbitrary -- experimentProjectId :: Text
<*> arbitrary -- experimentOrganizationName :: Text
<*> arbitraryReducedMaybe n -- experimentIsCodeAccessible :: Maybe Bool
<*> arbitraryReducedMaybe n -- experimentTraceback :: Maybe Text
<*> arbitraryReducedMaybe n -- experimentEntrypoint :: Maybe Text
<*> arbitrary -- experimentRunningTime :: Integer
<*> arbitrary -- experimentId :: Text
<*> arbitraryReduced n -- experimentInputs :: [InputMetadata]
<*> arbitraryReduced n -- experimentProperties :: [KeyValueProperty]
<*> arbitrary -- experimentShortId :: Text
<*> arbitraryReduced n -- experimentComponentsVersions :: [ComponentVersion]
<*> arbitrary -- experimentOwner :: Text
instance Arbitrary ExperimentCreationParams where
arbitrary = sized genExperimentCreationParams
genExperimentCreationParams :: Int -> Gen ExperimentCreationParams
genExperimentCreationParams n =
ExperimentCreationParams
<$> arbitraryReducedMaybe n -- experimentCreationParamsMonitored :: Maybe Bool
<*> arbitraryReducedMaybe n -- experimentCreationParamsHostname :: Maybe Text
<*> arbitraryReducedMaybe n -- experimentCreationParamsCheckpointId :: Maybe Text
<*> arbitrary -- experimentCreationParamsProjectId :: Text
<*> arbitraryReducedMaybe n -- experimentCreationParamsGitInfo :: Maybe GitInfoDTO
<*> arbitraryReduced n -- experimentCreationParamsProperties :: [KeyValueProperty]
<*> arbitraryReducedMaybe n -- experimentCreationParamsConfigPath :: Maybe Text
<*> arbitrary -- experimentCreationParamsExecArgsTemplate :: Text
<*> arbitraryReduced n -- experimentCreationParamsParameters :: [Parameter]
<*> arbitrary -- experimentCreationParamsEnqueueCommand :: Text
<*> arbitrary -- experimentCreationParamsName :: Text
<*> arbitraryReducedMaybe n -- experimentCreationParamsNotebookId :: Maybe Text
<*> arbitraryReducedMaybe n -- experimentCreationParamsDescription :: Maybe Text
<*> arbitrary -- experimentCreationParamsTags :: [Text]
<*> arbitraryReducedMaybe n -- experimentCreationParamsAbortable :: Maybe Bool
<*> arbitraryReducedMaybe n -- experimentCreationParamsEntrypoint :: Maybe Text
instance Arbitrary ExperimentPaths where
arbitrary = sized genExperimentPaths
genExperimentPaths :: Int -> Gen ExperimentPaths
genExperimentPaths n =
ExperimentPaths
<$> arbitrary -- experimentPathsOutput :: Text
<*> arbitrary -- experimentPathsSource :: Text
instance Arbitrary ExperimentsAttributesNamesDTO where
arbitrary = sized genExperimentsAttributesNamesDTO
genExperimentsAttributesNamesDTO :: Int -> Gen ExperimentsAttributesNamesDTO
genExperimentsAttributesNamesDTO n =
ExperimentsAttributesNamesDTO
<$> arbitrary -- experimentsAttributesNamesDTOTextParametersNames :: [Text]
<*> arbitrary -- experimentsAttributesNamesDTOPropertiesNames :: [Text]
<*> arbitrary -- experimentsAttributesNamesDTONumericChannelsNames :: [Text]
<*> arbitrary -- experimentsAttributesNamesDTONumericParametersNames :: [Text]
<*> arbitrary -- experimentsAttributesNamesDTOTextChannelsNames :: [Text]
instance Arbitrary File where
arbitrary = sized genFile
genFile :: Int -> Gen File
genFile n =
File
<$> arbitrary -- filePath :: Text
instance Arbitrary GitCommitDTO where
arbitrary = sized genGitCommitDTO
genGitCommitDTO :: Int -> Gen GitCommitDTO
genGitCommitDTO n =
GitCommitDTO
<$> arbitrary -- gitCommitDTOAuthorEmail :: Text
<*> arbitrary -- gitCommitDTOCommitId :: Text
<*> arbitrary -- gitCommitDTOMessage :: Text
<*> arbitraryReduced n -- gitCommitDTOCommitDate :: DateTime
<*> arbitrary -- gitCommitDTOAuthorName :: Text
instance Arbitrary GitInfoDTO where
arbitrary = sized genGitInfoDTO
genGitInfoDTO :: Int -> Gen GitInfoDTO
genGitInfoDTO n =
GitInfoDTO
<$> arbitraryReducedMaybe n -- gitInfoDTOCurrentBranch :: Maybe Text
<*> arbitraryReducedMaybe n -- gitInfoDTORemotes :: Maybe [Text]
<*> arbitraryReduced n -- gitInfoDTOCommit :: GitCommitDTO
<*> arbitrary -- gitInfoDTORepositoryDirty :: Bool
instance Arbitrary GlobalConfiguration where
arbitrary = sized genGlobalConfiguration
genGlobalConfiguration :: Int -> Gen GlobalConfiguration
genGlobalConfiguration n =
GlobalConfiguration
<$> arbitraryReduced n -- globalConfigurationLicenseExpiration :: DateTime
instance Arbitrary InputChannelValues where
arbitrary = sized genInputChannelValues
genInputChannelValues :: Int -> Gen InputChannelValues
genInputChannelValues n =
InputChannelValues
<$> arbitrary -- inputChannelValuesChannelId :: Text
<*> arbitraryReduced n -- inputChannelValuesValues :: [Point]
instance Arbitrary InputImageDTO where
arbitrary = sized genInputImageDTO
genInputImageDTO :: Int -> Gen InputImageDTO
genInputImageDTO n =
InputImageDTO
<$> arbitraryReducedMaybe n -- inputImageDTOName :: Maybe Text
<*> arbitraryReducedMaybe n -- inputImageDTODescription :: Maybe Text
<*> arbitraryReducedMaybe n -- inputImageDTOData :: Maybe Text
instance Arbitrary InputMetadata where
arbitrary = sized genInputMetadata
genInputMetadata :: Int -> Gen InputMetadata
genInputMetadata n =
InputMetadata
<$> arbitrary -- inputMetadataSource :: Text
<*> arbitrary -- inputMetadataDestination :: Text
<*> arbitrary -- inputMetadataSize :: Integer
instance Arbitrary KeyValueProperty where
arbitrary = sized genKeyValueProperty
genKeyValueProperty :: Int -> Gen KeyValueProperty
genKeyValueProperty n =
KeyValueProperty
<$> arbitrary -- keyValuePropertyKey :: Text
<*> arbitrary -- keyValuePropertyValue :: Text
instance Arbitrary LimitedChannelValuesDTO where
arbitrary = sized genLimitedChannelValuesDTO
genLimitedChannelValuesDTO :: Int -> Gen LimitedChannelValuesDTO
genLimitedChannelValuesDTO n =
LimitedChannelValuesDTO
<$> arbitrary -- limitedChannelValuesDTOChannelId :: Text
<*> arbitraryReduced n -- limitedChannelValuesDTOValues :: [PointValueDTO]
<*> arbitrary -- limitedChannelValuesDTOTotalItemCount :: Int
instance Arbitrary Link where
arbitrary = sized genLink
genLink :: Int -> Gen Link
genLink n =
Link
<$> arbitrary -- linkUrl :: Text
instance Arbitrary LinkDTO where
arbitrary = sized genLinkDTO
genLinkDTO :: Int -> Gen LinkDTO
genLinkDTO n =
LinkDTO
<$> arbitrary -- linkDTOUrl :: Text
instance Arbitrary LoginActionsListDTO where
arbitrary = sized genLoginActionsListDTO
genLoginActionsListDTO :: Int -> Gen LoginActionsListDTO
genLoginActionsListDTO n =
LoginActionsListDTO
<$> arbitraryReduced n -- loginActionsListDTORequiredActions :: [LoginActionDTO]
instance Arbitrary NeptuneApiToken where
arbitrary = sized genNeptuneApiToken
genNeptuneApiToken :: Int -> Gen NeptuneApiToken
genNeptuneApiToken n =
NeptuneApiToken
<$> arbitrary -- neptuneApiTokenToken :: Text
instance Arbitrary NeptuneOauthToken where
arbitrary = sized genNeptuneOauthToken
genNeptuneOauthToken :: Int -> Gen NeptuneOauthToken
genNeptuneOauthToken n =
NeptuneOauthToken
<$> arbitrary -- neptuneOauthTokenAccessToken :: Text
<*> arbitrary -- neptuneOauthTokenRefreshToken :: Text
<*> arbitrary -- neptuneOauthTokenUsername :: Text
instance Arbitrary NewOrganizationInvitationDTO where
arbitrary = sized genNewOrganizationInvitationDTO
genNewOrganizationInvitationDTO :: Int -> Gen NewOrganizationInvitationDTO
genNewOrganizationInvitationDTO n =
NewOrganizationInvitationDTO
<$> arbitraryReduced n -- newOrganizationInvitationDTORoleGrant :: OrganizationRoleDTO
<*> arbitrary -- newOrganizationInvitationDTOAddToAllProjects :: Bool
<*> arbitrary -- newOrganizationInvitationDTOOrganizationIdentifier :: Text
<*> arbitrary -- newOrganizationInvitationDTOInvitee :: Text
<*> arbitraryReduced n -- newOrganizationInvitationDTOInvitationType :: InvitationTypeEnumDTO
instance Arbitrary NewOrganizationMemberDTO where
arbitrary = sized genNewOrganizationMemberDTO
genNewOrganizationMemberDTO :: Int -> Gen NewOrganizationMemberDTO
genNewOrganizationMemberDTO n =
NewOrganizationMemberDTO
<$> arbitrary -- newOrganizationMemberDTOUserId :: Text
<*> arbitraryReduced n -- newOrganizationMemberDTORole :: OrganizationRoleDTO
instance Arbitrary NewProjectDTO where
arbitrary = sized genNewProjectDTO
genNewProjectDTO :: Int -> Gen NewProjectDTO
genNewProjectDTO n =
NewProjectDTO
<$> arbitrary -- newProjectDTOName :: Text
<*> arbitraryReducedMaybe n -- newProjectDTODescription :: Maybe Text
<*> arbitrary -- newProjectDTOProjectKey :: Text
<*> arbitrary -- newProjectDTOOrganizationId :: Text
<*> arbitraryReducedMaybe n -- newProjectDTOVisibility :: Maybe ProjectVisibilityDTO
<*> arbitraryReducedMaybe n -- newProjectDTODisplayClass :: Maybe Text
instance Arbitrary NewProjectInvitationDTO where
arbitrary = sized genNewProjectInvitationDTO
genNewProjectInvitationDTO :: Int -> Gen NewProjectInvitationDTO
genNewProjectInvitationDTO n =
NewProjectInvitationDTO
<$> arbitrary -- newProjectInvitationDTOProjectIdentifier :: Text
<*> arbitrary -- newProjectInvitationDTOInvitee :: Text
<*> arbitraryReduced n -- newProjectInvitationDTOInvitationType :: InvitationTypeEnumDTO
<*> arbitraryReduced n -- newProjectInvitationDTORoleGrant :: ProjectRoleDTO
instance Arbitrary NewProjectMemberDTO where
arbitrary = sized genNewProjectMemberDTO
genNewProjectMemberDTO :: Int -> Gen NewProjectMemberDTO
genNewProjectMemberDTO n =
NewProjectMemberDTO
<$> arbitrary -- newProjectMemberDTOUserId :: Text
<*> arbitraryReduced n -- newProjectMemberDTORole :: ProjectRoleDTO
instance Arbitrary NewReservationDTO where
arbitrary = sized genNewReservationDTO
genNewReservationDTO :: Int -> Gen NewReservationDTO
genNewReservationDTO n =
NewReservationDTO
<$> arbitrary -- newReservationDTOName :: Text
instance Arbitrary OrganizationCreationParamsDTO where
arbitrary = sized genOrganizationCreationParamsDTO
genOrganizationCreationParamsDTO :: Int -> Gen OrganizationCreationParamsDTO
genOrganizationCreationParamsDTO n =
OrganizationCreationParamsDTO
<$> arbitrary -- organizationCreationParamsDTOName :: Text
<*> arbitraryReduced n -- organizationCreationParamsDTOOrganizationType :: OrganizationTypeDTO
<*> arbitraryReducedMaybe n -- organizationCreationParamsDTODiscountCode :: Maybe DiscountCodeDTO
instance Arbitrary OrganizationDTO where
arbitrary = sized genOrganizationDTO
genOrganizationDTO :: Int -> Gen OrganizationDTO
genOrganizationDTO n =
OrganizationDTO
<$> arbitrary -- organizationDTOName :: Text
<*> arbitrary -- organizationDTOPaymentStatus :: Text
<*> arbitrary -- organizationDTOAvatarUrl :: Text
<*> arbitraryReduced n -- organizationDTOOrganizationType :: OrganizationTypeDTO
<*> arbitraryReduced n -- organizationDTOAvatarSource :: AvatarSourceEnum
<*> arbitraryReducedMaybe n -- organizationDTOInfo :: Maybe Text
<*> arbitrary -- organizationDTOId :: Text
<*> arbitraryReduced n -- organizationDTOCreated :: DateTime
instance Arbitrary OrganizationInvitationDTO where
arbitrary = sized genOrganizationInvitationDTO
genOrganizationInvitationDTO :: Int -> Gen OrganizationInvitationDTO
genOrganizationInvitationDTO n =
OrganizationInvitationDTO
<$> arbitraryReduced n -- organizationInvitationDTORoleGrant :: OrganizationRoleDTO
<*> arbitrary -- organizationInvitationDTOInvitedBy :: Text
<*> arbitrary -- organizationInvitationDTOOrganizationName :: Text
<*> arbitrary -- organizationInvitationDTOId :: Text
<*> arbitrary -- organizationInvitationDTOInvitee :: Text
<*> arbitraryReduced n -- organizationInvitationDTOStatus :: InvitationStatusEnumDTO
<*> arbitraryReduced n -- organizationInvitationDTOInvitationType :: InvitationTypeEnumDTO
instance Arbitrary OrganizationInvitationUpdateDTO where
arbitrary = sized genOrganizationInvitationUpdateDTO
genOrganizationInvitationUpdateDTO :: Int -> Gen OrganizationInvitationUpdateDTO
genOrganizationInvitationUpdateDTO n =
OrganizationInvitationUpdateDTO
<$> arbitraryReduced n -- organizationInvitationUpdateDTORoleGrant :: OrganizationRoleDTO
instance Arbitrary OrganizationLimitsDTO where
arbitrary = sized genOrganizationLimitsDTO
genOrganizationLimitsDTO :: Int -> Gen OrganizationLimitsDTO
genOrganizationLimitsDTO n =
OrganizationLimitsDTO
<$> arbitraryReducedMaybe n -- organizationLimitsDTOStorageSize :: Maybe Integer
<*> arbitraryReducedMaybe n -- organizationLimitsDTOPrivateProjectMembers :: Maybe Integer
<*> arbitraryReducedMaybe n -- organizationLimitsDTOProjectsLimit :: Maybe Integer
<*> arbitraryReducedMaybe n -- organizationLimitsDTOMembersLimit :: Maybe Integer
instance Arbitrary OrganizationMemberDTO where
arbitrary = sized genOrganizationMemberDTO
genOrganizationMemberDTO :: Int -> Gen OrganizationMemberDTO
genOrganizationMemberDTO n =
OrganizationMemberDTO
<$> arbitraryReduced n -- organizationMemberDTORole :: OrganizationRoleDTO
<*> arbitrary -- organizationMemberDTOEditableRole :: Bool
<*> arbitraryReducedMaybe n -- organizationMemberDTORegisteredMemberInfo :: Maybe RegisteredMemberInfoDTO
<*> arbitraryReducedMaybe n -- organizationMemberDTOInvitationInfo :: Maybe OrganizationInvitationDTO
<*> arbitraryReducedMaybe n -- organizationMemberDTOTotalNumberOfProjects :: Maybe Int
<*> arbitraryReducedMaybe n -- organizationMemberDTONumberOfProjects :: Maybe Int
instance Arbitrary OrganizationMemberUpdateDTO where
arbitrary = sized genOrganizationMemberUpdateDTO
genOrganizationMemberUpdateDTO :: Int -> Gen OrganizationMemberUpdateDTO
genOrganizationMemberUpdateDTO n =
OrganizationMemberUpdateDTO
<$> arbitraryReduced n -- organizationMemberUpdateDTORole :: OrganizationRoleDTO
instance Arbitrary OrganizationNameAvailableDTO where
arbitrary = sized genOrganizationNameAvailableDTO
genOrganizationNameAvailableDTO :: Int -> Gen OrganizationNameAvailableDTO
genOrganizationNameAvailableDTO n =
OrganizationNameAvailableDTO
<$> arbitrary -- organizationNameAvailableDTOAvailable :: Bool
instance Arbitrary OrganizationPricingPlanDTO where
arbitrary = sized genOrganizationPricingPlanDTO
genOrganizationPricingPlanDTO :: Int -> Gen OrganizationPricingPlanDTO
genOrganizationPricingPlanDTO n =
OrganizationPricingPlanDTO
<$> arbitraryReduced n -- organizationPricingPlanDTOPricingPlan :: PricingPlanDTO
instance Arbitrary OrganizationUpdateDTO where
arbitrary = sized genOrganizationUpdateDTO
genOrganizationUpdateDTO :: Int -> Gen OrganizationUpdateDTO
genOrganizationUpdateDTO n =
OrganizationUpdateDTO
<$> arbitraryReducedMaybe n -- organizationUpdateDTOName :: Maybe Text
<*> arbitraryReducedMaybe n -- organizationUpdateDTOInfo :: Maybe Text
instance Arbitrary OrganizationWithRoleDTO where
arbitrary = sized genOrganizationWithRoleDTO
genOrganizationWithRoleDTO :: Int -> Gen OrganizationWithRoleDTO
genOrganizationWithRoleDTO n =
OrganizationWithRoleDTO
<$> arbitrary -- organizationWithRoleDTOName :: Text
<*> arbitraryReducedMaybe n -- organizationWithRoleDTOUserRole :: Maybe OrganizationRoleDTO
<*> arbitrary -- organizationWithRoleDTOPaymentStatus :: Text
<*> arbitrary -- organizationWithRoleDTOAvatarUrl :: Text
<*> arbitraryReduced n -- organizationWithRoleDTOOrganizationType :: OrganizationTypeDTO
<*> arbitraryReduced n -- organizationWithRoleDTOAvatarSource :: AvatarSourceEnum
<*> arbitraryReducedMaybe n -- organizationWithRoleDTOInfo :: Maybe Text
<*> arbitrary -- organizationWithRoleDTOId :: Text
<*> arbitraryReduced n -- organizationWithRoleDTOCreated :: DateTime
instance Arbitrary OutputImageDTO where
arbitrary = sized genOutputImageDTO
genOutputImageDTO :: Int -> Gen OutputImageDTO
genOutputImageDTO n =
OutputImageDTO
<$> arbitraryReducedMaybe n -- outputImageDTOName :: Maybe Text
<*> arbitraryReducedMaybe n -- outputImageDTODescription :: Maybe Text
<*> arbitraryReducedMaybe n -- outputImageDTOImageUrl :: Maybe Text
<*> arbitraryReducedMaybe n -- outputImageDTOThumbnailUrl :: Maybe Text
instance Arbitrary Parameter where
arbitrary = sized genParameter
genParameter :: Int -> Gen Parameter
genParameter n =
Parameter
<$> arbitrary -- parameterName :: Text
<*> arbitraryReducedMaybe n -- parameterDescription :: Maybe Text
<*> arbitraryReduced n -- parameterParameterType :: ParameterTypeEnum
<*> arbitrary -- parameterId :: Text
<*> arbitrary -- parameterValue :: Text
instance Arbitrary PasswordChangeDTO where
arbitrary = sized genPasswordChangeDTO
genPasswordChangeDTO :: Int -> Gen PasswordChangeDTO
genPasswordChangeDTO n =
PasswordChangeDTO
<$> arbitrary -- passwordChangeDTOCurrentPassword :: Text
<*> arbitrary -- passwordChangeDTONewPassword :: Text
instance Arbitrary Point where
arbitrary = sized genPoint
genPoint :: Int -> Gen Point
genPoint n =
Point
<$> arbitrary -- pointTimestampMillis :: Integer
<*> arbitraryReducedMaybe n -- pointX :: Maybe Double
<*> arbitraryReduced n -- pointY :: Y
instance Arbitrary PointValueDTO where
arbitrary = sized genPointValueDTO
genPointValueDTO :: Int -> Gen PointValueDTO
genPointValueDTO n =
PointValueDTO
<$> arbitrary -- pointValueDTOTimestampMillis :: Integer
<*> arbitrary -- pointValueDTOX :: Double
<*> arbitraryReduced n -- pointValueDTOY :: Y
instance Arbitrary ProjectInvitationDTO where
arbitrary = sized genProjectInvitationDTO
genProjectInvitationDTO :: Int -> Gen ProjectInvitationDTO
genProjectInvitationDTO n =
ProjectInvitationDTO
<$> arbitraryReduced n -- projectInvitationDTORoleGrant :: ProjectRoleDTO
<*> arbitrary -- projectInvitationDTOProjectName :: Text
<*> arbitrary -- projectInvitationDTOInvitedBy :: Text
<*> arbitrary -- projectInvitationDTOOrganizationName :: Text
<*> arbitrary -- projectInvitationDTOId :: Text
<*> arbitrary -- projectInvitationDTOInvitee :: Text
<*> arbitraryReduced n -- projectInvitationDTOStatus :: InvitationStatusEnumDTO
<*> arbitraryReduced n -- projectInvitationDTOInvitationType :: InvitationTypeEnumDTO
instance Arbitrary ProjectInvitationUpdateDTO where
arbitrary = sized genProjectInvitationUpdateDTO
genProjectInvitationUpdateDTO :: Int -> Gen ProjectInvitationUpdateDTO
genProjectInvitationUpdateDTO n =
ProjectInvitationUpdateDTO
<$> arbitraryReduced n -- projectInvitationUpdateDTORoleGrant :: ProjectRoleDTO
instance Arbitrary ProjectKeyDTO where
arbitrary = sized genProjectKeyDTO
genProjectKeyDTO :: Int -> Gen ProjectKeyDTO
genProjectKeyDTO n =
ProjectKeyDTO
<$> arbitrary -- projectKeyDTOProposal :: Text
instance Arbitrary ProjectListDTO where
arbitrary = sized genProjectListDTO
genProjectListDTO :: Int -> Gen ProjectListDTO
genProjectListDTO n =
ProjectListDTO
<$> arbitraryReduced n -- projectListDTOEntries :: [ProjectWithRoleDTO]
<*> arbitrary -- projectListDTOMatchingItemCount :: Int
<*> arbitrary -- projectListDTOTotalItemCount :: Int
instance Arbitrary ProjectMemberDTO where
arbitrary = sized genProjectMemberDTO
genProjectMemberDTO :: Int -> Gen ProjectMemberDTO
genProjectMemberDTO n =
ProjectMemberDTO
<$> arbitraryReduced n -- projectMemberDTORole :: ProjectRoleDTO
<*> arbitraryReducedMaybe n -- projectMemberDTORegisteredMemberInfo :: Maybe RegisteredMemberInfoDTO
<*> arbitraryReducedMaybe n -- projectMemberDTOInvitationInfo :: Maybe ProjectInvitationDTO
<*> arbitrary -- projectMemberDTOEditableRole :: Bool
<*> arbitrary -- projectMemberDTOCanLeaveProject :: Bool
instance Arbitrary ProjectMemberUpdateDTO where
arbitrary = sized genProjectMemberUpdateDTO
genProjectMemberUpdateDTO :: Int -> Gen ProjectMemberUpdateDTO
genProjectMemberUpdateDTO n =
ProjectMemberUpdateDTO
<$> arbitraryReduced n -- projectMemberUpdateDTORole :: ProjectRoleDTO
instance Arbitrary ProjectMembersDTO where
arbitrary = sized genProjectMembersDTO
genProjectMembersDTO :: Int -> Gen ProjectMembersDTO
genProjectMembersDTO n =
ProjectMembersDTO
<$> arbitrary -- projectMembersDTOProjectName :: Text
<*> arbitrary -- projectMembersDTOProjectId :: Text
<*> arbitrary -- projectMembersDTOOrganizationName :: Text
<*> arbitraryReduced n -- projectMembersDTOMembers :: [ProjectMemberDTO]
<*> arbitrary -- projectMembersDTOOrganizationId :: Text
instance Arbitrary ProjectMetadataDTO where
arbitrary = sized genProjectMetadataDTO
genProjectMetadataDTO :: Int -> Gen ProjectMetadataDTO
genProjectMetadataDTO n =
ProjectMetadataDTO
<$> arbitrary -- projectMetadataDTOName :: Text
<*> arbitraryReduced n -- projectMetadataDTOOrganizationType :: OrganizationTypeDTO
<*> arbitraryReduced n -- projectMetadataDTOTimeOfCreation :: DateTime
<*> arbitrary -- projectMetadataDTOOrganizationName :: Text
<*> arbitrary -- projectMetadataDTOVersion :: Int
<*> arbitrary -- projectMetadataDTOId :: Text
<*> arbitrary -- projectMetadataDTOProjectKey :: Text
<*> arbitrary -- projectMetadataDTOOrganizationId :: Text
instance Arbitrary ProjectUpdateDTO where
arbitrary = sized genProjectUpdateDTO
genProjectUpdateDTO :: Int -> Gen ProjectUpdateDTO
genProjectUpdateDTO n =
ProjectUpdateDTO
<$> arbitraryReducedMaybe n -- projectUpdateDTOCodeAccess :: Maybe ProjectCodeAccessDTO
<*> arbitraryReducedMaybe n -- projectUpdateDTOName :: Maybe Text
<*> arbitraryReducedMaybe n -- projectUpdateDTODescription :: Maybe Text
<*> arbitraryReducedMaybe n -- projectUpdateDTOVisibility :: Maybe ProjectVisibilityDTO
<*> arbitraryReducedMaybe n -- projectUpdateDTODisplayClass :: Maybe Text
instance Arbitrary ProjectWithRoleDTO where
arbitrary = sized genProjectWithRoleDTO
genProjectWithRoleDTO :: Int -> Gen ProjectWithRoleDTO
genProjectWithRoleDTO n =
ProjectWithRoleDTO
<$> arbitraryReduced n -- projectWithRoleDTOCodeAccess :: ProjectCodeAccessDTO
<*> arbitrary -- projectWithRoleDTOAvatarUrl :: Text
<*> arbitraryReducedMaybe n -- projectWithRoleDTODescription :: Maybe Text
<*> arbitraryReduced n -- projectWithRoleDTOOrganizationType :: OrganizationTypeDTO
<*> arbitrary -- projectWithRoleDTOFeatured :: Bool
<*> arbitrary -- projectWithRoleDTOOrganizationName :: Text
<*> arbitrary -- projectWithRoleDTOVersion :: Int
<*> arbitrary -- projectWithRoleDTOId :: Text
<*> arbitrary -- projectWithRoleDTOProjectKey :: Text
<*> arbitrary -- projectWithRoleDTOOrganizationId :: Text
<*> arbitrary -- projectWithRoleDTOUserCount :: Int
<*> arbitraryReduced n -- projectWithRoleDTOVisibility :: ProjectVisibilityDTO
<*> arbitraryReducedMaybe n -- projectWithRoleDTODisplayClass :: Maybe Text
<*> arbitrary -- projectWithRoleDTOName :: Text
<*> arbitraryReduced n -- projectWithRoleDTOLastActivity :: DateTime
<*> arbitraryReduced n -- projectWithRoleDTOTimeOfCreation :: DateTime
<*> arbitraryReducedMaybe n -- projectWithRoleDTOUserRoleInOrganization :: Maybe OrganizationRoleDTO
<*> arbitraryReduced n -- projectWithRoleDTOAvatarSource :: AvatarSourceEnum
<*> arbitrary -- projectWithRoleDTOLeaderboardEntryCount :: Int
<*> arbitraryReduced n -- projectWithRoleDTOUserRoleInProject :: ProjectRoleDTO
<*> arbitraryReducedMaybe n -- projectWithRoleDTOBackgroundUrl :: Maybe Text
instance Arbitrary PublicUserProfileDTO where
arbitrary = sized genPublicUserProfileDTO
genPublicUserProfileDTO :: Int -> Gen PublicUserProfileDTO
genPublicUserProfileDTO n =
PublicUserProfileDTO
<$> arbitrary -- publicUserProfileDTOBiography :: Text
<*> arbitraryReducedMaybe n -- publicUserProfileDTOEmail :: Maybe Text
<*> arbitraryReduced n -- publicUserProfileDTOAvatarSource :: AvatarSourceEnum
<*> arbitraryReducedMaybe n -- publicUserProfileDTOFirstName :: Maybe Text
<*> arbitrary -- publicUserProfileDTOShortInfo :: Text
<*> arbitrary -- publicUserProfileDTOUsername :: Text
<*> arbitrary -- publicUserProfileDTOAvatarUrl :: Text
<*> arbitraryReducedMaybe n -- publicUserProfileDTOLastName :: Maybe Text
<*> arbitraryReduced n -- publicUserProfileDTOLinks :: UserProfileLinksDTO
instance Arbitrary QuestionnaireDTO where
arbitrary = sized genQuestionnaireDTO
genQuestionnaireDTO :: Int -> Gen QuestionnaireDTO
genQuestionnaireDTO n =
QuestionnaireDTO
<$> arbitrary -- questionnaireDTOAnswers :: Text
instance Arbitrary RegisteredMemberInfoDTO where
arbitrary = sized genRegisteredMemberInfoDTO
genRegisteredMemberInfoDTO :: Int -> Gen RegisteredMemberInfoDTO
genRegisteredMemberInfoDTO n =
RegisteredMemberInfoDTO
<$> arbitraryReduced n -- registeredMemberInfoDTOAvatarSource :: AvatarSourceEnum
<*> arbitrary -- registeredMemberInfoDTOLastName :: Text
<*> arbitrary -- registeredMemberInfoDTOFirstName :: Text
<*> arbitrary -- registeredMemberInfoDTOUsername :: Text
<*> arbitrary -- registeredMemberInfoDTOAvatarUrl :: Text
instance Arbitrary RegistrationSurveyDTO where
arbitrary = sized genRegistrationSurveyDTO
genRegistrationSurveyDTO :: Int -> Gen RegistrationSurveyDTO
genRegistrationSurveyDTO n =
RegistrationSurveyDTO
<$> arbitrary -- registrationSurveyDTOSurvey :: Text
instance Arbitrary Series where
arbitrary = sized genSeries
genSeries :: Int -> Gen Series
genSeries n =
Series
<$> arbitraryReduced n -- seriesSeriesType :: SeriesType
<*> arbitraryReducedMaybe n -- seriesChannelName :: Maybe Text
<*> arbitraryReducedMaybe n -- seriesChannelId :: Maybe Text
<*> arbitraryReducedMaybe n -- seriesAliasId :: Maybe Text
<*> arbitrary -- seriesLabel :: Text
instance Arbitrary SeriesDefinition where
arbitrary = sized genSeriesDefinition
genSeriesDefinition :: Int -> Gen SeriesDefinition
genSeriesDefinition n =
SeriesDefinition
<$> arbitrary -- seriesDefinitionLabel :: Text
<*> arbitraryReducedMaybe n -- seriesDefinitionChannelName :: Maybe Text
<*> arbitraryReducedMaybe n -- seriesDefinitionAliasId :: Maybe Text
<*> arbitraryReduced n -- seriesDefinitionSeriesType :: SeriesType
instance Arbitrary SessionDTO where
arbitrary = sized genSessionDTO
genSessionDTO :: Int -> Gen SessionDTO
genSessionDTO n =
SessionDTO
<$> arbitrary -- sessionDTOSessionId :: Text
instance Arbitrary StateTransitions where
arbitrary = sized genStateTransitions
genStateTransitions :: Int -> Gen StateTransitions
genStateTransitions n =
StateTransitions
<$> arbitraryReducedMaybe n -- stateTransitionsRunning :: Maybe DateTime
<*> arbitraryReducedMaybe n -- stateTransitionsSucceeded :: Maybe DateTime
<*> arbitraryReducedMaybe n -- stateTransitionsFailed :: Maybe DateTime
<*> arbitraryReducedMaybe n -- stateTransitionsAborted :: Maybe DateTime
instance Arbitrary StorageUsage where
arbitrary = sized genStorageUsage
genStorageUsage :: Int -> Gen StorageUsage
genStorageUsage n =
StorageUsage
<$> arbitrary -- storageUsageUsage :: Integer
instance Arbitrary SubscriptionCancelInfoDTO where
arbitrary = sized genSubscriptionCancelInfoDTO
genSubscriptionCancelInfoDTO :: Int -> Gen SubscriptionCancelInfoDTO
genSubscriptionCancelInfoDTO n =
SubscriptionCancelInfoDTO
<$> arbitrary -- subscriptionCancelInfoDTOReasons :: [Text]
<*> arbitraryReducedMaybe n -- subscriptionCancelInfoDTODescription :: Maybe Text
instance Arbitrary SystemMetric where
arbitrary = sized genSystemMetric
genSystemMetric :: Int -> Gen SystemMetric
genSystemMetric n =
SystemMetric
<$> arbitrary -- systemMetricSeries :: [Text]
<*> arbitrary -- systemMetricName :: Text
<*> arbitraryReducedMaybe n -- systemMetricMin :: Maybe Double
<*> arbitraryReducedMaybe n -- systemMetricMax :: Maybe Double
<*> arbitraryReducedMaybe n -- systemMetricUnit :: Maybe Text
<*> arbitrary -- systemMetricDescription :: Text
<*> arbitraryReduced n -- systemMetricResourceType :: SystemMetricResourceType
<*> arbitrary -- systemMetricExperimentId :: Text
<*> arbitrary -- systemMetricId :: Text
instance Arbitrary SystemMetricParams where
arbitrary = sized genSystemMetricParams
genSystemMetricParams :: Int -> Gen SystemMetricParams
genSystemMetricParams n =
SystemMetricParams
<$> arbitrary -- systemMetricParamsSeries :: [Text]
<*> arbitrary -- systemMetricParamsName :: Text
<*> arbitraryReducedMaybe n -- systemMetricParamsMin :: Maybe Double
<*> arbitraryReducedMaybe n -- systemMetricParamsMax :: Maybe Double
<*> arbitraryReducedMaybe n -- systemMetricParamsUnit :: Maybe Text
<*> arbitrary -- systemMetricParamsDescription :: Text
<*> arbitraryReduced n -- systemMetricParamsResourceType :: SystemMetricResourceType
instance Arbitrary SystemMetricPoint where
arbitrary = sized genSystemMetricPoint
genSystemMetricPoint :: Int -> Gen SystemMetricPoint
genSystemMetricPoint n =
SystemMetricPoint
<$> arbitrary -- systemMetricPointTimestampMillis :: Integer
<*> arbitrary -- systemMetricPointX :: Integer
<*> arbitrary -- systemMetricPointY :: Double
instance Arbitrary SystemMetricValues where
arbitrary = sized genSystemMetricValues
genSystemMetricValues :: Int -> Gen SystemMetricValues
genSystemMetricValues n =
SystemMetricValues
<$> arbitrary -- systemMetricValuesMetricId :: Text
<*> arbitrary -- systemMetricValuesSeriesName :: Text
<*> arbitraryReducedMaybe n -- systemMetricValuesLevel :: Maybe Int
<*> arbitraryReduced n -- systemMetricValuesValues :: [SystemMetricPoint]
instance Arbitrary UUID where
arbitrary = sized genUUID
genUUID :: Int -> Gen UUID
genUUID n =
UUID
<$> arbitrary -- uUIDMostSigBits :: Integer
<*> arbitrary -- uUIDLeastSigBits :: Integer
instance Arbitrary UpdateTagsParams where
arbitrary = sized genUpdateTagsParams
genUpdateTagsParams :: Int -> Gen UpdateTagsParams
genUpdateTagsParams n =
UpdateTagsParams
<$> arbitrary -- updateTagsParamsExperimentIds :: [Text]
<*> arbitrary -- updateTagsParamsTagsToAdd :: [Text]
<*> arbitrary -- updateTagsParamsTagsToDelete :: [Text]
instance Arbitrary UserListDTO where
arbitrary = sized genUserListDTO
genUserListDTO :: Int -> Gen UserListDTO
genUserListDTO n =
UserListDTO
<$> arbitraryReduced n -- userListDTOEntries :: [UserListItemDTO]
<*> arbitrary -- userListDTOMatchingItemCount :: Int
<*> arbitrary -- userListDTOTotalItemCount :: Int
instance Arbitrary UserListItemDTO where
arbitrary = sized genUserListItemDTO
genUserListItemDTO :: Int -> Gen UserListItemDTO
genUserListItemDTO n =
UserListItemDTO
<$> arbitraryReduced n -- userListItemDTOAvatarSource :: AvatarSourceEnum
<*> arbitrary -- userListItemDTOLastName :: Text
<*> arbitrary -- userListItemDTOFirstName :: Text
<*> arbitrary -- userListItemDTOUsername :: Text
<*> arbitrary -- userListItemDTOAvatarUrl :: Text
instance Arbitrary UserPricingStatusDTO where
arbitrary = sized genUserPricingStatusDTO
genUserPricingStatusDTO :: Int -> Gen UserPricingStatusDTO
genUserPricingStatusDTO n =
UserPricingStatusDTO
<$> arbitrary -- userPricingStatusDTOCanCreateTeamFree :: Bool
<*> arbitraryReducedMaybe n -- userPricingStatusDTOAnyTeamFree :: Maybe OrganizationWithRoleDTO
instance Arbitrary UserProfileDTO where
arbitrary = sized genUserProfileDTO
genUserProfileDTO :: Int -> Gen UserProfileDTO
genUserProfileDTO n =
UserProfileDTO
<$> arbitrary -- userProfileDTOUsernameHash :: Text
<*> arbitrary -- userProfileDTOEmail :: Text
<*> arbitrary -- userProfileDTOHasLoggedToCli :: Bool
<*> arbitraryReduced n -- userProfileDTOAvatarSource :: AvatarSourceEnum
<*> arbitrary -- userProfileDTOFirstName :: Text
<*> arbitrary -- userProfileDTOShortInfo :: Text
<*> arbitraryReduced n -- userProfileDTOCreated :: DateTime
<*> arbitrary -- userProfileDTOBiography :: Text
<*> arbitrary -- userProfileDTOHasCreatedExperiments :: Bool
<*> arbitrary -- userProfileDTOUsername :: Text
<*> arbitrary -- userProfileDTOAvatarUrl :: Text
<*> arbitrary -- userProfileDTOLastName :: Text
<*> arbitraryReduced n -- userProfileDTOLinks :: UserProfileLinksDTO
instance Arbitrary UserProfileLinkDTO where
arbitrary = sized genUserProfileLinkDTO
genUserProfileLinkDTO :: Int -> Gen UserProfileLinkDTO
genUserProfileLinkDTO n =
UserProfileLinkDTO
<$> arbitraryReduced n -- userProfileLinkDTOLinkType :: LinkTypeDTO
<*> arbitrary -- userProfileLinkDTOUrl :: Text
instance Arbitrary UserProfileLinksDTO where
arbitrary = sized genUserProfileLinksDTO
genUserProfileLinksDTO :: Int -> Gen UserProfileLinksDTO
genUserProfileLinksDTO n =
UserProfileLinksDTO
<$> arbitraryReducedMaybe n -- userProfileLinksDTOGithub :: Maybe Text
<*> arbitraryReducedMaybe n -- userProfileLinksDTOLinkedin :: Maybe Text
<*> arbitrary -- userProfileLinksDTOOthers :: [Text]
<*> arbitraryReducedMaybe n -- userProfileLinksDTOKaggle :: Maybe Text
<*> arbitraryReducedMaybe n -- userProfileLinksDTOTwitter :: Maybe Text
instance Arbitrary UserProfileUpdateDTO where
arbitrary = sized genUserProfileUpdateDTO
genUserProfileUpdateDTO :: Int -> Gen UserProfileUpdateDTO
genUserProfileUpdateDTO n =
UserProfileUpdateDTO
<$> arbitraryReducedMaybe n -- userProfileUpdateDTOBiography :: Maybe Text
<*> arbitraryReducedMaybe n -- userProfileUpdateDTOHasLoggedToCli :: Maybe Bool
<*> arbitraryReducedMaybe n -- userProfileUpdateDTOLastName :: Maybe Text
<*> arbitraryReducedMaybe n -- userProfileUpdateDTOFirstName :: Maybe Text
<*> arbitraryReducedMaybe n -- userProfileUpdateDTOShortInfo :: Maybe Text
instance Arbitrary UsernameValidationStatusDTO where
arbitrary = sized genUsernameValidationStatusDTO
genUsernameValidationStatusDTO :: Int -> Gen UsernameValidationStatusDTO
genUsernameValidationStatusDTO n =
UsernameValidationStatusDTO
<$> arbitraryReduced n -- usernameValidationStatusDTOStatus :: UsernameValidationStatusEnumDTO
instance Arbitrary Version where
arbitrary = sized genVersion
genVersion :: Int -> Gen Version
genVersion n =
Version
<$> arbitrary -- versionVersion :: Text
instance Arbitrary WorkspaceConfig where
arbitrary = sized genWorkspaceConfig
genWorkspaceConfig :: Int -> Gen WorkspaceConfig
genWorkspaceConfig n =
WorkspaceConfig
<$> arbitrary -- workspaceConfigRealm :: Text
<*> arbitrary -- workspaceConfigIdpHint :: Text
instance Arbitrary Y where
arbitrary = sized genY
genY :: Int -> Gen Y
genY n =
Y
<$> arbitraryReducedMaybe n -- yNumericValue :: Maybe Double
<*> arbitraryReducedMaybe n -- yTextValue :: Maybe Text
<*> arbitraryReducedMaybe n -- yImageValue :: Maybe OutputImageDTO
<*> arbitraryReducedMaybe n -- yInputImageValue :: Maybe InputImageDTO
instance Arbitrary AchievementTypeDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary ApiErrorTypeDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary AvatarSourceEnum where
arbitrary = arbitraryBoundedEnum
instance Arbitrary ChannelType where
arbitrary = arbitraryBoundedEnum
instance Arbitrary ChannelTypeEnum where
arbitrary = arbitraryBoundedEnum
instance Arbitrary ExperimentState where
arbitrary = arbitraryBoundedEnum
instance Arbitrary InvitationStatusEnumDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary InvitationTypeEnumDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary LinkTypeDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary LoginActionDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary NameEnum where
arbitrary = arbitraryBoundedEnum
instance Arbitrary OrganizationRoleDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary OrganizationTypeDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary ParameterTypeEnum where
arbitrary = arbitraryBoundedEnum
instance Arbitrary PricingPlanDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary ProjectCodeAccessDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary ProjectRoleDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary ProjectVisibilityDTO where
arbitrary = arbitraryBoundedEnum
instance Arbitrary SeriesType where
arbitrary = arbitraryBoundedEnum
instance Arbitrary SystemMetricResourceType where
arbitrary = arbitraryBoundedEnum
instance Arbitrary UsernameValidationStatusEnumDTO where
arbitrary = arbitraryBoundedEnum