tvl-depot/users/grfn/xanthous/test/Xanthous/Game/PromptSpec.hs

20 lines
776 B
Haskell
Raw Normal View History

--------------------------------------------------------------------------------
module Xanthous.Game.PromptSpec (main, test) where
--------------------------------------------------------------------------------
import Test.Prelude
--------------------------------------------------------------------------------
import Xanthous.Game.Prompt
--------------------------------------------------------------------------------
main :: IO ()
main = defaultMain test
test :: TestTree
test = testGroup "Xanthous.Game.PromptSpec"
[ testGroup "mkMenuItems"
[ testCase "with duplicate items"
$ mkMenuItems @[_] [('a', MenuOption @Int "a" 1), ('a', MenuOption "a" 2)]
@?= mapFromList [('a', MenuOption "a" 1), ('b', MenuOption "a" 2)]
]
]