mirror of
https://github.com/Start9Labs/start-os.git
synced 2026-04-01 21:13:09 +00:00
0.2.5 initial commit
Makefile incomplete
This commit is contained in:
20
agent/test/ChecklistSpec.hs
Normal file
20
agent/test/ChecklistSpec.hs
Normal 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
|
||||
Reference in New Issue
Block a user