import Test.Hspec
-- import Bombastic

main :: IO ()
main = hspec $ do
    describe "foo" $ do
        it "does something" $ do
            (1 :: Integer) `shouldBe` (2 :: Integer)

import Test.Hspec
import Data.List
import Bombastic

validMap :: [String]
validMap =
    [ "######"
    , "#S.  #"
    , "#.S..#"
    , "#.. S#"
    , "######"
    ]

main :: IO ()
main = hspec $ do
    describe "Map load" $ do
        it "valid map loads correctly" $ do
            opaque `shouldBe` expected
                where
                    players = [mkPlayer "p1", mkPlayer "p2"]
                    state = startGame players <$> mapFromDebug validMap
                    opaque = show . opaqueState <$> state
                    expected = Just (intercalate "\n"
                        [ "######"
                        , "#0.  #"
                        , "#.1..#"
                        , "#..  #"
                        , "######"
                        ])

Add first draft of actual test.
Add first draft of actual test.
