23 lines
574 B
Haskell
23 lines
574 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import MiniTreeRollouts.Plan
|
||
|
|
( deploymentPaths
|
||
|
|
, leafServices
|
||
|
|
, renderPath
|
||
|
|
, samplePlan
|
||
|
|
)
|
||
|
|
import System.Exit (die)
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main =
|
||
|
|
if map renderPath (deploymentPaths samplePlan)
|
||
|
|
== [ "checkout-release -> staging -> api"
|
||
|
|
, "checkout-release -> staging -> worker"
|
||
|
|
, "checkout-release -> production -> api"
|
||
|
|
, "checkout-release -> production -> billing"
|
||
|
|
]
|
||
|
|
&& leafServices samplePlan == ["api", "worker", "api", "billing"] then
|
||
|
|
putStrLn "test passed"
|
||
|
|
else
|
||
|
|
die "unexpected Data.Tree result"
|