testFindPosition :: Test
testFindPosition = TestCase $ do
  assertEqual "GO position" 0 (findPosition "GO")
  assertEqual "JAIL position" 10 (findPosition "JAIL")
testFindPosition :: Test
testFindPosition = TestCase $ do
  assertEqual "GO position" 0 (findPosition "GO")
  assertEqual "JAIL position" 10 (findPosition "JAIL")
testFindPosition = TestCase $ do
  assertEqual "GO position" 0 (findPosition "GO")
  assertEqual "JAIL position" 10 (findPosition "JAIL")