59 lines
1.5 KiB
Haskell
59 lines
1.5 KiB
Haskell
|
module Main (main) where
|
||
|
|
|
||
|
|
import Data.Aeson (eitherDecodeFileStrict)
|
||
|
|
import qualified Data.Text as T
|
||
|
|
import qualified Data.Text.IO as T
|
||
|
|
import Nuthatch.ModelEvidence
|
||
|
|
import System.Environment (getArgs)
|
||
|
|
import System.Exit (die)
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
arguments <- getArgs
|
||
|
|
case arguments of
|
||
|
|
["inventory"] -> printInventory
|
||
|
|
["verify", fixturePath] -> verifyFixtures fixturePath
|
||
|
|
_ -> die "usage: nuthatch-model-evidence inventory | verify FIXTURES"
|
||
|
|
|
||
|
|
printInventory :: IO ()
|
||
|
|
printInventory = do
|
||
|
|
mapM_
|
||
|
|
(\action ->
|
||
|
|
printFields ["ACTION", actionConstructor action, actionName action])
|
||
|
|
allModelActions
|
||
|
|
mapM_
|
||
|
|
(\check ->
|
||
|
|
printFields ["CHECK", checkConstructor check, checkName check])
|
||
|
|
allModelChecks
|
||
|
|
mapM_
|
||
|
|
(\ScenarioEvidence{..} ->
|
||
|
|
printFields
|
||
|
|
[ "SCENARIO"
|
||
|
|
, actionConstructor scenarioAction
|
||
|
|
, actionName scenarioAction
|
||
|
|
, scenarioPrecondition
|
||
|
|
, scenarioObservation
|
||
|
|
, scenarioExpectedPost
|
||
|
|
])
|
||
|
|
scenarioEvidence
|
||
|
|
|
||
|
|
verifyFixtures :: FilePath -> IO ()
|
||
|
|
verifyFixtures fixturePath = do
|
||
|
|
decoded <- eitherDecodeFileStrict fixturePath
|
||
|
|
fixtures <-
|
||
|
|
either
|
||
|
|
(die . ("cannot decode projection fixtures: " <>))
|
||
|
|
pure
|
||
|
|
decoded
|
||
|
|
projected <-
|
||
|
|
either
|
||
|
|
(die . T.unpack)
|
||
|
|
pure
|
||
|
|
(verifySnapshotFixtures fixtures)
|
||
|
|
mapM_
|
||
|
|
(\ProjectedFixture{..} ->
|
||
|
|
printFields ["SNAPSHOT", projectedName, projectedPhase])
|
||
|
|
projected
|
||
|
|
|
||
|
|
printFields :: [T.Text] -> IO ()
|
||
|
|
printFields = T.putStrLn . T.intercalate "\t"
|