Bring back couple of Imp tests that check SPO voting

[lehins]

The test removed in #4713 was unclear because it evolved from a more clear test into something that expected to be tested in bootstrap and after bootstrap.

If I remember correctly this test(s) where suppose to check SPOs voting.

Instead of removing tests it would be better to adjust them to make them work in the new re-organized imp spec. I'd suggest one of them to run in the post-bootsrap only, while the other switching to using a different action, like PParamUpdate.

Originally posted by @lehins in #4713 (comment)

So, this ticket is about bringing those tests back, but with more sensible semantics:

spoVotesCommitteeUpdates ::
  forall era.
  ConwayEraImp era =>
  SpecWith (ImpTestState era)
spoVotesCommitteeUpdates =
  describe "Counting of SPO votes" $ do
    describe "All gov action other than HardForkInitiation" $ do
      it "NoConfidence" $ do
        (spoK1, _, _) <- setupPoolWithStake $ Coin 100_000_000
        _ <- setupPoolWithStake $ Coin 100_000_000
        _ <- setupPoolWithStake $ Coin 100_000_000
        _ <- setupPoolWithStake $ Coin 100_000_000
        modifyPParams $ ppPoolVotingThresholdsL . pvtMotionNoConfidenceL .~ 1 %! 2
        whenPostBootstrap (modifyPParams $ ppDRepVotingThresholdsL .~ def)
        gai <- submitGovAction $ NoConfidence SNothing
        -- bootstrap: 1 % 4 stake yes; 3 % 4 stake abstain; yes / stake - abstain > 1 % 2
        -- post-bootstrap: 1 % 4 stake yes; 3 % 4 stake no; yes stake < 1 % 2
        submitYesVote_ (StakePoolVoter spoK1) gai
        passNEpochs 2
        pv <- getProtVer
        if bootstrapPhase pv
          then getLastEnactedCommittee `shouldReturn` SJust (GovPurposeId gai)
          else getLastEnactedCommittee `shouldReturn` SNothing
      it "CommitteeUpdate" $ do
        (spoK1, _, _) <- setupPoolWithStake $ Coin 100_000_000
        _ <- setupPoolWithStake $ Coin 100_000_000
        _ <- setupPoolWithStake $ Coin 100_000_000
        _ <- setupPoolWithStake $ Coin 100_000_000
        modifyPParams $ ppPoolVotingThresholdsL . pvtCommitteeNormalL .~ 1 %! 2
        whenPostBootstrap (modifyPParams $ ppDRepVotingThresholdsL .~ def)
        cc <- KeyHashObj <$> freshKeyHash
        gai <- submitUpdateCommittee Nothing mempty [(cc, EpochInterval 5)] (1 %! 2)
        -- bootstrap: 1 % 4 stake yes; 3 % 4 stake abstain; yes / stake - abstain > 1 % 2
        -- post-bootstrap: 1 % 4 stake yes; 3 % 4 stake no; yes stake < 1 % 2
        submitYesVote_ (StakePoolVoter spoK1) gai
        passNEpochs 2
        pv <- getProtVer
        if bootstrapPhase pv
          then getLastEnactedCommittee `shouldReturn` SJust (GovPurposeId gai)
          else getLastEnactedCommittee `shouldReturn` SNothing