Add basic sc-tools test

[jankun4]

Prereview checklist

• Changes have been documented by running changie new
• All tests pass in CI
• PR was self-reviewed

[gilligan]

Same question as above: what do we actually test here? Do we test if the governance was actually created? What assurance do we have when this test passes?

[gilligan]

Just a small suggestion so we don't have to keep on repeating this one and repeating error strings..

shouldFailWithErrorPolicy :: String -> MockChain.MockchainIO C.ConwayEra a -> HUnit.Assertion
shouldFailWithErrorPolicy str action =
  MockChainUtils.mockchainFails
    action
    ( \case
        e | str `List.isInfixOf` show e -> return ()
        e -> error $ "Expected a '" ++ str ++ "' but got '" ++ show e ++ "'"
    )

so we then just do ...

initGovernanceFailsWithoutSpendingGenesisUtxo :: HUnit.Assertion
initGovernanceFailsWithoutSpendingGenesisUtxo = shouldFailWithErrorPolicy "ERROR-VERSION-POLICY-01" $
  Utils.failOnError $
    do

[kpinter-iohk]

Suggested change

	initGovernanceSucceeds = MockChainUtils.mockchainSucceeds $ Utils.failOnError $ do
	(genesisUtxo, _, governanceReferenceScript) <- initGovernance
	let VersioningTestSetup{..} = mkVersioningTestSetup genesisUtxo Wallet.w1
	case governanceReferenceScript == vtsGovernanceScript of
	True -> return ()
	False -> error "Governance reference script is not the expected script"
	return ()
	initGovernanceSucceeds = MockChainUtils.mockchainSucceeds $ Utils.failOnError $ void do
	(genesisUtxo, _, governanceReferenceScript) <- initGovernance
	let VersioningTestSetup{..} = mkVersioningTestSetup genesisUtxo Wallet.w1
	unless (governanceReferenceScript == vtsGovernanceScript) $
	error "Governance reference script is not the expected script"