31 lines
849 B
Haskell
31 lines
849 B
Haskell
module Handler.Utils.Workflow.CanonicalRouteSpec where
|
|
|
|
import TestImport
|
|
import Handler.Utils.Workflow.CanonicalRoute
|
|
import ModelSpec ()
|
|
import FoundationSpec ()
|
|
|
|
|
|
instance Arbitrary WorkflowScopeRoute where
|
|
arbitrary = genericArbitrary
|
|
shrink = genericShrink
|
|
instance CoArbitrary WorkflowScopeRoute
|
|
instance Function WorkflowScopeRoute
|
|
|
|
instance Arbitrary WorkflowInstanceR where
|
|
arbitrary = genericArbitrary
|
|
shrink = genericShrink
|
|
instance CoArbitrary WorkflowInstanceR
|
|
instance Function WorkflowInstanceR
|
|
|
|
instance Arbitrary WorkflowWorkflowR where
|
|
arbitrary = genericArbitrary
|
|
shrink = genericShrink
|
|
instance CoArbitrary WorkflowWorkflowR
|
|
instance Function WorkflowWorkflowR
|
|
|
|
|
|
spec :: Spec
|
|
spec = describe "_WorkflowSpecRoute" $
|
|
before_ (pendingWith "Missing routes") . it "is a prism" . property $ isPrism _WorkflowScopeRoute
|