0.2.5 initial commit

Makefile incomplete
This commit is contained in:
Aiden McClelland
2020-11-23 13:44:28 -07:00
commit 95d3845906
503 changed files with 53448 additions and 0 deletions

View File

@@ -0,0 +1,20 @@
module ChecklistSpec where
import Startlude
import Data.List ( (!!) )
import Data.Text
import System.Directory
import Test.Hspec
import Constants
import Lib.Synchronizers
spec :: Spec
spec = describe "Current Version" $ do
it "Requires System Synchronizer" $ do
agentVersion `shouldSatisfy` (synchronizerVersion synchronizer ==)
it "Requires Migration Target" $ do
names <- liftIO $ listDirectory "migrations"
let targets = names <&> (fromString . toS . (!! 1) . (splitOn "::") . toS)
agentVersion `shouldSatisfy` flip elem targets