blob: d7a3df4acafa53b1298e8bab08d18e291774612d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--------------------------------------------------------------------------------
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)]
]
]
|
