tests
Safe HaskellNone
LanguageHaskell2010

Test.Cardano.Ledger.Conformance.Imp.Core

Documentation

conformanceHook ∷ ∀ (rule ∷ Symbol) era t. (ShelleyEraImp era, ExecSpecRule rule era, ToExpr (Event (EraRule rule era))) ⇒ GlobalsExecContext rule era → TRC (EraRule rule era) → Either (NonEmpty (PredicateFailure (EraRule rule era))) (State (EraRule rule era), [Event (EraRule rule era)]) → ImpM t () Source #

submitTxConformanceHook ∷ (ConwayEraImp era, ExecSpecRule "LEDGER" era, ExecContext "LEDGER" era ~ ConwayLedgerExecContext era, SpecTranslate (ExecContext "LEDGER" era) (TxWits era), HasCallStack, SpecRep (TxWits era) ~ TxWitnesses, SpecRep (TxBody 'TopTx era) ~ TxBody, SpecTranslate TxId (TxBody 'TopTx era), SpecTranslate (ConwayLedgerExecContext era) (Tx 'TopTx era), ToExpr (SpecRep (Tx 'TopTx era)), SpecNormalize (SpecState "LEDGER" era), Eq (SpecState "LEDGER" era)) ⇒ GlobalsTRC (EraRule "LEDGER" era) → Either (NonEmpty (PredicateFailure (EraRule "LEDGER" era))) (State (EraRule "LEDGER" era), [Event (EraRule "LEDGER" era)]) → ImpM t () Source #

epochBoundaryConformanceHook ∷ (ShelleyEraImp era, ExecSpecRule "NEWEPOCH" era, ExecContext "NEWEPOCH" era ~ (), ToExpr (Event (EraRule "NEWEPOCH" era))) ⇒ GlobalsTRC (EraRule "NEWEPOCH" era) → State (EraRule "NEWEPOCH" era) → ImpM t () Source #