50 lines
1.5 KiB
Haskell
50 lines
1.5 KiB
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import qualified Data.Map.Strict as Map
|
||
|
|
import MiniDependency.Order
|
||
|
|
( Catalog
|
||
|
|
, DeploymentStep (DeploymentStep)
|
||
|
|
, ServiceProfile (ServiceProfile)
|
||
|
|
, catalog
|
||
|
|
, renderPlan
|
||
|
|
, resolveDeploymentOrder
|
||
|
|
)
|
||
|
|
import System.Exit (die)
|
||
|
|
|
||
|
|
cyclicCatalog :: Catalog
|
||
|
|
cyclicCatalog =
|
||
|
|
Map.fromList
|
||
|
|
[ ("a", ServiceProfile ["b"] False)
|
||
|
|
, ("b", ServiceProfile ["a"] False)
|
||
|
|
]
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main =
|
||
|
|
case
|
||
|
|
( resolveDeploymentOrder catalog ["frontend", "billing"]
|
||
|
|
, resolveDeploymentOrder cyclicCatalog ["a"]
|
||
|
|
) of
|
||
|
|
( Right
|
||
|
|
[ DeploymentStep "postgres" [] False
|
||
|
|
, DeploymentStep "auth" ["postgres"] True
|
||
|
|
, DeploymentStep "redis" [] False
|
||
|
|
, DeploymentStep "api" ["auth", "redis"] True
|
||
|
|
, DeploymentStep "frontend" ["api"] False
|
||
|
|
, DeploymentStep "billing" ["api", "postgres"] True
|
||
|
|
]
|
||
|
|
, Left _
|
||
|
|
) | "billing, deps api, postgres, migration yes"
|
||
|
|
`elem`
|
||
|
|
lines
|
||
|
|
( renderPlan
|
||
|
|
[ DeploymentStep "postgres" [] False
|
||
|
|
, DeploymentStep "auth" ["postgres"] True
|
||
|
|
, DeploymentStep "redis" [] False
|
||
|
|
, DeploymentStep "api" ["auth", "redis"] True
|
||
|
|
, DeploymentStep "frontend" ["api"] False
|
||
|
|
, DeploymentStep "billing" ["api", "postgres"] True
|
||
|
|
]
|
||
|
|
) ->
|
||
|
|
putStrLn "test passed"
|
||
|
|
_ -> die "unexpected dependency-order result"
|