testNextCellFromGroup :: Test
testNextCellFromGroup = TestCase $ do
  assertEqual "U1 from GO" (findPosition "U1") (nextCellFromGroup 'U' (findPosition "GO"))
  assertEqual "U2 from U1" (findPosition "U2") (nextCellFromGroup 'U' (findPosition "U1"))
  assertEqual "U1 from U2" (findPosition "U1") (nextCellFromGroup 'U' (findPosition "U2"))
testNextCellFromGroup :: Test
testNextCellFromGroup = TestCase $ do
  assertEqual "U1 from GO" (findPosition "U1") (nextCellFromGroup 'U' (findPosition "GO"))
  assertEqual "U2 from U1" (findPosition "U2") (nextCellFromGroup 'U' (findPosition "U1"))
  assertEqual "U1 from U2" (findPosition "U1") (nextCellFromGroup 'U' (findPosition "U2"))
testNextCellFromGroup = TestCase $ do
  assertEqual "U1 from GO" (findPosition "U1") (nextCellFromGroup 'U' (findPosition "GO"))
  assertEqual "U2 from U1" (findPosition "U2") (nextCellFromGroup 'U' (findPosition "U1"))
  assertEqual "U1 from U2" (findPosition "U1") (nextCellFromGroup 'U' (findPosition "U2"))