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"