azubi-0.2.0.3: test/TestCore.hs

import Azubi.Core.Model
import Azubi.Syntax
import Test.Hspec

main :: IO ()
main =
  hspec $ do
    describe "requires" $ do
      it "should be the same as submoulde for 2 arguments" $ do
        (stateA `requires` stateB) `shouldBe` submodule [stateB, stateA]

stateA :: State
stateA = State [] [Run "echo" ["you"] Nothing] Nothing

stateB :: State
stateB = State [] [Run "echo" ["me"] Nothing] Nothing