mirror of
https://github.com/Start9Labs/start-os.git
synced 2026-03-26 18:31:52 +00:00
21 lines
667 B
Haskell
21 lines
667 B
Haskell
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
|