handleHelperMUnitTests :: TestTree
handleHelperMUnitTests = testGroup "handleHelperMUnitTests"
  [ testCase "partyAfterLeader" $ do
      -- You've got to fight for your right to party!
      let testFunc = partyAfterLeader testActorId
      partyInMonad <- executorCli testFunc testCliStateWithItem
      let party = fst partyInMonad
      party @?= []
  ]
handleHelperMUnitTests :: TestTree
handleHelperMUnitTests = testGroup "handleHelperMUnitTests"
  [ testCase "partyAfterLeader" $ do
      -- You've got to fight for your right to party!
      let testFunc = partyAfterLeader testActorId
      partyInMonad <- executorCli testFunc testCliStateWithItem
      let party = fst partyInMonad
      party @?= []
  ]
handleHelperMUnitTests = testGroup "handleHelperMUnitTests"
  [ testCase "partyAfterLeader" $ do
      -- You've got to fight for your right to party!
      let testFunc = partyAfterLeader testActorId
      partyInMonad <- executorCli testFunc testCliStateWithItem
      let party = fst partyInMonad
      party @?= []
  ]