From 881e9347ed872936b59e10483e8794fb101a54ff Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Tue, 14 Apr 2020 16:17:35 +0200 Subject: [PATCH] chore(workflows): export and comment test defs --- src/Model/Types/Workflow.hs | 29 ++++++++++++++++++----------- 1 file changed, 18 insertions(+), 11 deletions(-) diff --git a/src/Model/Types/Workflow.hs b/src/Model/Types/Workflow.hs index 9a29dac7f..cf9ff9a76 100644 --- a/src/Model/Types/Workflow.hs +++ b/src/Model/Types/Workflow.hs @@ -1,19 +1,26 @@ -module Model.Types.Workflow where +module Model.Types.Workflow + ( WorkflowGraph(..) + , WorkflowGraphNodeLabel + , WorkflowInstanceScope(..) + , WorkflowPayload + , WorkflowPayload'(..) + ) where import Import.NoModel import Model.Types.Security (AuthDNF) -import qualified Data.Set as Set (toList, fromList) -import qualified Data.Map as Map -import qualified Data.Sequence as Seq +import qualified Data.Set as Set (toList) +--import qualified Data.Set as Set (toList, fromList) +--import qualified Data.Map as Map +--import qualified Data.Sequence as Seq import Data.Scientific import qualified Data.Aeson as JSON import Data.Aeson.Types (Parser) -- TODO remove -import Data.ByteString.Lazy.Internal (ByteString) +--import Data.ByteString.Lazy.Internal (ByteString) @@ -351,11 +358,11 @@ instance (FromJSON fileid, FromJSON userid, Ord fileid, Ord userid) => FromJSON ----- TEST DEFS (TODO remove) ----- -testGraph :: WorkflowGraph Text Text -testGraph = WorkflowGraph $ Map.fromList [("node1", WGN (Just "someLabel") True (Set.fromList [WGE "node1" (Set.fromList [WorkflowRoleUser "user-id", WorkflowRoleInitiator]) (Map.fromList [("sometext", impureNonNull $ Set.fromList [WorkflowPayloadSpec $ WorkflowPayloadFieldText "text-label" "text-placeholder" (Just "text-tooltip") (Just "text-default") Nothing]),("someuser", impureNonNull $ Set.fromList [WorkflowPayloadSpec $ WorkflowPayloadFieldUser "user-label" Nothing Nothing Nothing]),("someboolandnumber-opt", impureNonNull $ Set.fromList [WorkflowPayloadSpec $ WorkflowPayloadFieldBool "bool-label" Nothing (Just True), WorkflowPayloadSpec $ WorkflowPayloadFieldNumber "number-label" "number-placeholder" Nothing Nothing (Just 1) (Just 5) 0.01 (Just True)])])]))] +--testGraph :: WorkflowGraph Text Text +--testGraph = WorkflowGraph $ Map.fromList [("node1", WGN (Just "someLabel") True (Set.fromList [WGE "node1" (Set.fromList [WorkflowRoleUser "user-id", WorkflowRoleInitiator]) (Map.fromList [("sometext", impureNonNull $ Set.fromList [WorkflowPayloadSpec $ WorkflowPayloadFieldText "text-label" "text-placeholder" (Just "text-tooltip") (Just "text-default") Nothing]),("someuser", impureNonNull $ Set.fromList [WorkflowPayloadSpec $ WorkflowPayloadFieldUser "user-label" Nothing Nothing Nothing]),("someboolandnumber-opt", impureNonNull $ Set.fromList [WorkflowPayloadSpec $ WorkflowPayloadFieldBool "bool-label" Nothing (Just True), WorkflowPayloadSpec $ WorkflowPayloadFieldNumber "number-label" "number-placeholder" Nothing Nothing (Just 1) (Just 5) 0.01 (Just True)])])]))] -testGraphStr :: Data.ByteString.Lazy.Internal.ByteString -testGraphStr = "{\"tag\":\"workflow\",\"nodes\":{\"node1\":{\"status\":{\"ident\":\"status-ident\",\"finished\":true,\"label\":\"status-label\"},\"edges\":[{\"actors\":[{\"tag\":\"initiator\"}],\"form\":{\"some-number\":[{\"tag\":\"number\",\"step\":0.01,\"label\":\"number-label\",\"placeholder\":\"number-placeholder\"}]},\"target\":\"node1\"}]}}}" +--testGraphStr :: Data.ByteString.Lazy.Internal.ByteString +--testGraphStr = "{\"tag\":\"workflow\",\"nodes\":{\"node1\":{\"status\":{\"ident\":\"status-ident\",\"finished\":true,\"label\":\"status-label\"},\"edges\":[{\"actors\":[{\"tag\":\"initiator\"}],\"form\":{\"some-number\":[{\"tag\":\"number\",\"step\":0.01,\"label\":\"number-label\",\"placeholder\":\"number-placeholder\"}]},\"target\":\"node1\"}]}}}" -testPayload :: WorkflowPayload Text Text -testPayload = Map.fromList [("sometext" :: WorkflowPayloadLabel, (Seq.singleton (WorkflowPayload' (Map.fromList [("text-label", WFPText "hello world!")]) (Just "actor-user-id" :: Maybe Text) (UTCTime (ModifiedJulianDay 58946) 57250))))] +--testPayload :: WorkflowPayload Text Text +--testPayload = Map.fromList [("sometext" :: WorkflowPayloadLabel, (Seq.singleton (WorkflowPayload' (Map.fromList [("text-label", WFPText "hello world!")]) (Just "actor-user-id" :: Maybe Text) (UTCTime (ModifiedJulianDay 58946) 57250))))]