Test block

Methods

noThunks ∷ Context → BlockConfig (DualBlock m a) → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → BlockConfig (DualBlock m a) → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (BlockConfig (DualBlock m a)) → String Source #

NoThunks (BlockConfig TestBlock) Source #

Instance details

Methods

noThunks ∷ Context → BlockConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → BlockConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (BlockConfig TestBlock) → String Source #

NoThunks (BlockConfig (TestBlockWith ptype))

Instance details

Defined in Test.Util.TestBlock

Methods

noThunks ∷ Context → BlockConfig (TestBlockWith ptype) → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → BlockConfig (TestBlockWith ptype) → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (BlockConfig (TestBlockWith ptype)) → String Source #

data BlockConfig TestBlock Source #

Instance details

data BlockConfig TestBlock = TestBlockConfig {

testBlockEBBsAllowed ∷ !Bool
testBlockNumCoreNodes ∷ !NumCoreNodes

}

type Rep (BlockConfig TestBlock) Source #

Instance details

type Rep (BlockConfig TestBlock) = D1 ('MetaData "BlockConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "testBlockEBBsAllowed") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Bool) :*: S1 ('MetaSel ('Just "testBlockNumCoreNodes") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NumCoreNodes)))

type Rep (BlockConfig (TestBlockWith ptype))

Instance details

Defined in Test.Util.TestBlock

type Rep (BlockConfig (TestBlockWith ptype)) = D1 ('MetaData "BlockConfig" "Test.Util.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-unstable-consensus-testlib" 'False) (C1 ('MetaCons "TestBlockConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "testBlockNumCoreNodes") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NumCoreNodes)))

newtype BlockConfig (DisableDiffusionPipelining blk)

Instance details

Defined in Ouroboros.Consensus.Block.SupportsDiffusionPipelining

newtype BlockConfig (DisableDiffusionPipelining blk) = DisableDiffusionPipeliningBlockConfig (BlockConfig blk)

newtype BlockConfig (SelectViewDiffusionPipelining blk)

Instance details

Defined in Ouroboros.Consensus.Block.SupportsDiffusionPipelining

newtype BlockConfig (SelectViewDiffusionPipelining blk) = SelectViewDiffusionPipeliningBlockConfig (BlockConfig blk)

newtype BlockConfig (HardForkBlock xs)

Instance details

Defined in Ouroboros.Consensus.HardFork.Combinator.Basics

newtype BlockConfig (HardForkBlock xs) = HardForkBlockConfig {

hardForkBlockConfigPerEra ∷ PerEraBlockConfig xs

}

data BlockConfig (TestBlockWith ptype)

Instance details

Defined in Test.Util.TestBlock

data BlockConfig (TestBlockWith ptype) = TestBlockConfig {

testBlockNumCoreNodes ∷ !NumCoreNodes

}

data BlockConfig (DualBlock m a)

Instance details

data BlockConfig (DualBlock m a) = DualBlockConfig {

dualBlockConfigMain ∷ BlockConfig m
dualBlockConfigAux ∷ BlockConfig a

}

newtype ChainLength Source #

In chain selection, we use BlockNo as a proxy for the block length. This is entirely correct, except for those dreadful EBBs, which share their block number with their predecessor. So it is possible that two chains with the same BlockNo at the tip have a different length because the longer chain contains more EBBs than the shorter.

For example:

.. :> EBB (100, slotNo 10, blockNo 1) :> (400, slotNo 10, blockNo 2)
.. :> (999, slotNo 10, blockNo 2)

The chain selection for this TestBlock looks at the hashes in case of a BlockNo tie (after prefering the chain ending with an EBB) and will pick the block with the highest hash. This is to have a more deterministic chain selection (less implementation specific) which will keep the model better in sync with the implementation.

In the example above, that would mean picking the second chain, /even though it is shorter/! The implementation does not support switching to a shorter chain.

Note that this is not a problem for Byron, because we don't look at the hashes or anything else in case of a tie (we just prefer a chain ending with an EBB, which must be longer).

Note that is not a problem for Shelley either, where we do look at the certificate number and VRF hash in case of a tie, because there are no EBBs.

This is only an issue when: * There can be EBBs in the chain * In case of equal blockNos, we still prefer one over the other because of some additional condition.

Which is the case for this TestBlock.

To solve this, we store the real chain length inside the block. The only difference with the BlockNo is that ChainLength takes EBBs into account.

When there is BlockNo tie as in the example above and we would look at the hashes, we will first look at the ChainLength (and prefer the longest one). Only if that is equal do we actually look at the hashes. This guarantees that we never prefer a chain that is shorter.

NOTE: we start counting from 1 (unlike BlockNo, which starts from 0), because it corresponds to the length.

Constructors

ChainLength Int

Instances

Instances details

Enum ChainLength Source #

Instance details

Methods

succ ∷ ChainLength → ChainLength #

pred ∷ ChainLength → ChainLength #

toEnum ∷ Int → ChainLength #

fromEnum ∷ ChainLength → Int #

enumFrom ∷ ChainLength → [ChainLength] #

enumFromThen ∷ ChainLength → ChainLength → [ChainLength] #

enumFromTo ∷ ChainLength → ChainLength → [ChainLength] #

enumFromThenTo ∷ ChainLength → ChainLength → ChainLength → [ChainLength] #

Generic ChainLength Source #

Instance details

Associated Types

type Rep ChainLength
Instance details Defined in Test.Ouroboros.Storage.TestBlock type Rep ChainLength = D1 ('MetaData "ChainLength" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'True) (C1 ('MetaCons "ChainLength" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

Methods

from ∷ ChainLength → Rep ChainLength x #

to ∷ Rep ChainLength x → ChainLength #

Show ChainLength Source #

Instance details

Methods

showsPrec ∷ Int → ChainLength → ShowS #

show ∷ ChainLength → String #

showList ∷ [ChainLength] → ShowS #

Eq ChainLength Source #

Instance details

Methods

(==) ∷ ChainLength → ChainLength → Bool #

(/=) ∷ ChainLength → ChainLength → Bool #

Ord ChainLength Source #

Instance details

Methods

compare ∷ ChainLength → ChainLength → Ordering #

(<) ∷ ChainLength → ChainLength → Bool #

(<=) ∷ ChainLength → ChainLength → Bool #

(>) ∷ ChainLength → ChainLength → Bool #

(>=) ∷ ChainLength → ChainLength → Bool #

max ∷ ChainLength → ChainLength → ChainLength #

min ∷ ChainLength → ChainLength → ChainLength #

Hashable ChainLength Source #

Instance details

Methods

hashWithSalt ∷ Int → ChainLength → Int Source #

hash ∷ ChainLength → Int Source #

NoThunks ChainLength Source #

Instance details

Methods

noThunks ∷ Context → ChainLength → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → ChainLength → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy ChainLength → String Source #

Serialise ChainLength Source #

Instance details

Methods

encode ∷ ChainLength → Encoding Source #

decode ∷ Decoder s ChainLength Source #

encodeList ∷ [ChainLength] → Encoding Source #

decodeList ∷ Decoder s [ChainLength] Source #

ToExpr ChainLength Source #

Instance details

Methods

toExpr ∷ ChainLength → Expr Source #

listToExpr ∷ [ChainLength] → Expr Source #

type Rep ChainLength Source #

Instance details

type Rep ChainLength = D1 ('MetaData "ChainLength" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'True) (C1 ('MetaCons "ChainLength" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

data family CodecConfig blk Source #

Static configuration required for serialisation and deserialisation of types pertaining to this type of block.

Data family instead of type family to get better type inference.

Instances

Instances details

Isomorphic CodecConfig

Instance details

Defined in Ouroboros.Consensus.HardFork.Combinator.Embed.Unary

Methods

project ∷ NoHardForks blk ⇒ CodecConfig (HardForkBlock '[blk]) → CodecConfig blk Source #

inject ∷ NoHardForks blk ⇒ CodecConfig blk → CodecConfig (HardForkBlock '[blk]) Source #

Generic (CodecConfig (DualBlock m a))

Instance details

Associated Types

type Rep (CodecConfig (DualBlock m a))

Instance details

type Rep (CodecConfig (DualBlock m a)) = D1 ('MetaData "CodecConfig" "Ouroboros.Consensus.Ledger.Dual" "ouroboros-consensus-0.27.0.0-inplace" 'False) (C1 ('MetaCons "DualCodecConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "dualCodecConfigMain") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (CodecConfig m)) :*: S1 ('MetaSel ('Just "dualCodecConfigAux") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (CodecConfig a))))

Methods

from ∷ CodecConfig (DualBlock m a) → Rep (CodecConfig (DualBlock m a)) x #

to ∷ Rep (CodecConfig (DualBlock m a)) x → CodecConfig (DualBlock m a) #

Generic (CodecConfig TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

Associated Types

type Rep (CodecConfig TestBlock)
Instance details Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock type Rep (CodecConfig TestBlock) = D1 ('MetaData "CodecConfig" "Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockCodecConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ CodecConfig TestBlock → Rep (CodecConfig TestBlock) x #

to ∷ Rep (CodecConfig TestBlock) x → CodecConfig TestBlock #

Generic (CodecConfig TestBlock) Source #

Instance details

Associated Types

type Rep (CodecConfig TestBlock)
Instance details Defined in Test.Ouroboros.Storage.TestBlock type Rep (CodecConfig TestBlock) = D1 ('MetaData "CodecConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockCodecConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ CodecConfig TestBlock → Rep (CodecConfig TestBlock) x #

to ∷ Rep (CodecConfig TestBlock) x → CodecConfig TestBlock #

Generic (CodecConfig TestBlock)

Instance details

Defined in Test.Util.TestBlock

Associated Types

type Rep (CodecConfig TestBlock)
Instance details Defined in Test.Util.TestBlock type Rep (CodecConfig TestBlock) = D1 ('MetaData "CodecConfig" "Test.Util.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-unstable-consensus-testlib" 'False) (C1 ('MetaCons "TestBlockCodecConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ CodecConfig TestBlock → Rep (CodecConfig TestBlock) x #

to ∷ Rep (CodecConfig TestBlock) x → CodecConfig TestBlock #

Show (CodecConfig TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

Methods

showsPrec ∷ Int → CodecConfig TestBlock → ShowS #

Show (CodecConfig TestBlock) Source #

Instance details

Methods

showsPrec ∷ Int → CodecConfig TestBlock → ShowS #

Show (CodecConfig TestBlock)

Instance details

Defined in Test.Util.TestBlock

Methods

showsPrec ∷ Int → CodecConfig TestBlock → ShowS #

CanHardFork xs ⇒ NoThunks (CodecConfig (HardForkBlock xs))

Instance details

Defined in Ouroboros.Consensus.HardFork.Combinator.Basics

Methods

noThunks ∷ Context → CodecConfig (HardForkBlock xs) → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → CodecConfig (HardForkBlock xs) → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (CodecConfig (HardForkBlock xs)) → String Source #

(NoThunks (CodecConfig m), NoThunks (CodecConfig a)) ⇒ NoThunks (CodecConfig (DualBlock m a))

Instance details

Methods

noThunks ∷ Context → CodecConfig (DualBlock m a) → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → CodecConfig (DualBlock m a) → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (CodecConfig (DualBlock m a)) → String Source #

NoThunks (CodecConfig TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

Methods

noThunks ∷ Context → CodecConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → CodecConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (CodecConfig TestBlock) → String Source #

NoThunks (CodecConfig TestBlock) Source #

Instance details

Methods

noThunks ∷ Context → CodecConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → CodecConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (CodecConfig TestBlock) → String Source #

NoThunks (CodecConfig TestBlock)

Instance details

Defined in Test.Util.TestBlock

Methods

noThunks ∷ Context → CodecConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → CodecConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (CodecConfig TestBlock) → String Source #

ToExpr (CodecConfig TestBlock) Source #

Instance details

Methods

toExpr ∷ CodecConfig TestBlock → Expr Source #

listToExpr ∷ [CodecConfig TestBlock] → Expr Source #

data CodecConfig TestBlock Source #

TODO: for the time being TestBlock does not have any codec config

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

data CodecConfig TestBlock Source #

Instance details

data CodecConfig TestBlock

The TestBlock does not need any codec config

Instance details

Defined in Test.Util.TestBlock

type Rep (CodecConfig (DualBlock m a))

Instance details

type Rep (CodecConfig (DualBlock m a)) = D1 ('MetaData "CodecConfig" "Ouroboros.Consensus.Ledger.Dual" "ouroboros-consensus-0.27.0.0-inplace" 'False) (C1 ('MetaCons "DualCodecConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "dualCodecConfigMain") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (CodecConfig m)) :*: S1 ('MetaSel ('Just "dualCodecConfigAux") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (CodecConfig a))))

type Rep (CodecConfig TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

type Rep (CodecConfig TestBlock) = D1 ('MetaData "CodecConfig" "Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockCodecConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

type Rep (CodecConfig TestBlock) Source #

Instance details

type Rep (CodecConfig TestBlock) = D1 ('MetaData "CodecConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockCodecConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

type Rep (CodecConfig TestBlock)

Instance details

Defined in Test.Util.TestBlock

type Rep (CodecConfig TestBlock) = D1 ('MetaData "CodecConfig" "Test.Util.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-unstable-consensus-testlib" 'False) (C1 ('MetaCons "TestBlockCodecConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

newtype CodecConfig (HardForkBlock xs)

Instance details

Defined in Ouroboros.Consensus.HardFork.Combinator.Basics

newtype CodecConfig (HardForkBlock xs) = HardForkCodecConfig {

hardForkCodecConfigPerEra ∷ PerEraCodecConfig xs

}

data CodecConfig (DualBlock m a)

Instance details

data CodecConfig (DualBlock m a) = DualCodecConfig {

dualCodecConfigMain ∷ !(CodecConfig m)
dualCodecConfigAux ∷ !(CodecConfig a)

}

data EBB Source #

Strict variant of Maybe EpochNo

Constructors

EBB !EpochNo
RegularBlock

Instances

Instances details

Generic EBB Source #

Instance details

Associated Types

type Rep EBB

Instance details

type Rep EBB = D1 ('MetaData "EBB" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "EBB" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 EpochNo)) :+: C1 ('MetaCons "RegularBlock" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ EBB → Rep EBB x #

to ∷ Rep EBB x → EBB #

Show EBB Source #

Instance details

Methods

showsPrec ∷ Int → EBB → ShowS #

show ∷ EBB → String #

showList ∷ [EBB] → ShowS #

Eq EBB Source #

Instance details

Methods

(==) ∷ EBB → EBB → Bool #

(/=) ∷ EBB → EBB → Bool #

Hashable EBB Source #

Instance details

Methods

hashWithSalt ∷ Int → EBB → Int Source #

hash ∷ EBB → Int Source #

NoThunks EBB Source #

Instance details

Methods

noThunks ∷ Context → EBB → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → EBB → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy EBB → String Source #

Serialise EBB Source #

Instance details

Methods

encode ∷ EBB → Encoding Source #

decode ∷ Decoder s EBB Source #

encodeList ∷ [EBB] → Encoding Source #

decodeList ∷ Decoder s [EBB] Source #

ToExpr EBB Source #

Instance details

Methods

toExpr ∷ EBB → Expr Source #

listToExpr ∷ [EBB] → Expr Source #

type Rep EBB Source #

Instance details

type Rep EBB = D1 ('MetaData "EBB" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "EBB" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 EpochNo)) :+: C1 ('MetaCons "RegularBlock" 'PrefixI 'False) (U1 ∷ Type → Type))

data family Header blk Source #

Instances

data family StorageConfig blk Source #

Config needed for the NodeInitStorage class. Defined here to avoid circular dependencies.

Instances

Instances details

Isomorphic StorageConfig

Instance details

Defined in Ouroboros.Consensus.HardFork.Combinator.Embed.Unary

Methods

project ∷ NoHardForks blk ⇒ StorageConfig (HardForkBlock '[blk]) → StorageConfig blk Source #

inject ∷ NoHardForks blk ⇒ StorageConfig blk → StorageConfig (HardForkBlock '[blk]) Source #

Generic (StorageConfig (DualBlock m a))

Instance details

Associated Types

type Rep (StorageConfig (DualBlock m a))

Instance details

type Rep (StorageConfig (DualBlock m a)) = D1 ('MetaData "StorageConfig" "Ouroboros.Consensus.Ledger.Dual" "ouroboros-consensus-0.27.0.0-inplace" 'False) (C1 ('MetaCons "DualStorageConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "dualStorageConfigMain") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (StorageConfig m)) :*: S1 ('MetaSel ('Just "dualStorageConfigAux") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (StorageConfig a))))

Methods

from ∷ StorageConfig (DualBlock m a) → Rep (StorageConfig (DualBlock m a)) x #

to ∷ Rep (StorageConfig (DualBlock m a)) x → StorageConfig (DualBlock m a) #

Generic (StorageConfig TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

Associated Types

type Rep (StorageConfig TestBlock)
Instance details Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock type Rep (StorageConfig TestBlock) = D1 ('MetaData "StorageConfig" "Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockStorageConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ StorageConfig TestBlock → Rep (StorageConfig TestBlock) x #

to ∷ Rep (StorageConfig TestBlock) x → StorageConfig TestBlock #

Generic (StorageConfig TestBlock) Source #

Instance details

Associated Types

type Rep (StorageConfig TestBlock)
Instance details Defined in Test.Ouroboros.Storage.TestBlock type Rep (StorageConfig TestBlock) = D1 ('MetaData "StorageConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockStorageConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ StorageConfig TestBlock → Rep (StorageConfig TestBlock) x #

to ∷ Rep (StorageConfig TestBlock) x → StorageConfig TestBlock #

Generic (StorageConfig TestBlock)

Instance details

Defined in Test.Util.TestBlock

Associated Types

type Rep (StorageConfig TestBlock)
Instance details Defined in Test.Util.TestBlock type Rep (StorageConfig TestBlock) = D1 ('MetaData "StorageConfig" "Test.Util.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-unstable-consensus-testlib" 'False) (C1 ('MetaCons "TestBlockStorageConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ StorageConfig TestBlock → Rep (StorageConfig TestBlock) x #

to ∷ Rep (StorageConfig TestBlock) x → StorageConfig TestBlock #

Show (StorageConfig TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

Methods

showsPrec ∷ Int → StorageConfig TestBlock → ShowS #

Show (StorageConfig TestBlock) Source #

Instance details

Methods

showsPrec ∷ Int → StorageConfig TestBlock → ShowS #

Show (StorageConfig TestBlock)

Instance details

Defined in Test.Util.TestBlock

Methods

showsPrec ∷ Int → StorageConfig TestBlock → ShowS #

CanHardFork xs ⇒ NoThunks (StorageConfig (HardForkBlock xs))

Instance details

Defined in Ouroboros.Consensus.HardFork.Combinator.Basics

Methods

noThunks ∷ Context → StorageConfig (HardForkBlock xs) → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → StorageConfig (HardForkBlock xs) → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (StorageConfig (HardForkBlock xs)) → String Source #

(NoThunks (StorageConfig m), NoThunks (StorageConfig a)) ⇒ NoThunks (StorageConfig (DualBlock m a))

Instance details

Methods

noThunks ∷ Context → StorageConfig (DualBlock m a) → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → StorageConfig (DualBlock m a) → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (StorageConfig (DualBlock m a)) → String Source #

NoThunks (StorageConfig TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

Methods

noThunks ∷ Context → StorageConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → StorageConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (StorageConfig TestBlock) → String Source #

NoThunks (StorageConfig TestBlock) Source #

Instance details

Methods

noThunks ∷ Context → StorageConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → StorageConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (StorageConfig TestBlock) → String Source #

NoThunks (StorageConfig TestBlock)

Instance details

Defined in Test.Util.TestBlock

Methods

noThunks ∷ Context → StorageConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → StorageConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (StorageConfig TestBlock) → String Source #

data StorageConfig TestBlock Source #

TODO: for the time being TestBlock does not have any storage config

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

data StorageConfig TestBlock = TestBlockStorageConfig

data StorageConfig TestBlock Source #

Instance details

data StorageConfig TestBlock = TestBlockStorageConfig

data StorageConfig TestBlock

The TestBlock does not need any storage config

Instance details

Defined in Test.Util.TestBlock

data StorageConfig TestBlock = TestBlockStorageConfig

type Rep (StorageConfig (DualBlock m a))

Instance details

type Rep (StorageConfig (DualBlock m a)) = D1 ('MetaData "StorageConfig" "Ouroboros.Consensus.Ledger.Dual" "ouroboros-consensus-0.27.0.0-inplace" 'False) (C1 ('MetaCons "DualStorageConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "dualStorageConfigMain") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (StorageConfig m)) :*: S1 ('MetaSel ('Just "dualStorageConfigAux") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (StorageConfig a))))

type Rep (StorageConfig TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock

type Rep (StorageConfig TestBlock) = D1 ('MetaData "StorageConfig" "Test.Ouroboros.Storage.LedgerDB.StateMachine.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockStorageConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

type Rep (StorageConfig TestBlock) Source #

Instance details

type Rep (StorageConfig TestBlock) = D1 ('MetaData "StorageConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockStorageConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

type Rep (StorageConfig TestBlock)

Instance details

Defined in Test.Util.TestBlock

type Rep (StorageConfig TestBlock) = D1 ('MetaData "StorageConfig" "Test.Util.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-unstable-consensus-testlib" 'False) (C1 ('MetaCons "TestBlockStorageConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

newtype StorageConfig (HardForkBlock xs)

Instance details

Defined in Ouroboros.Consensus.HardFork.Combinator.Basics

newtype StorageConfig (HardForkBlock xs) = HardForkStorageConfig {

hardForkStorageConfigPerEra ∷ PerEraStorageConfig xs

}

data StorageConfig (DualBlock m a)

Instance details

data StorageConfig (DualBlock m a) = DualStorageConfig {

dualStorageConfigMain ∷ !(StorageConfig m)
dualStorageConfigAux ∷ !(StorageConfig a)

}

data TestBlock Source #

Constructors

TestBlock
Fields testHeader ∷ !TestHeader testBody ∷ !TestBody

Instances

Instances details

Generic TestBlock Source #

Instance details

Associated Types

type Rep TestBlock

Instance details

type Rep TestBlock = D1 ('MetaData "TestBlock" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlock" 'PrefixI 'True) (S1 ('MetaSel ('Just "testHeader") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 TestHeader) :*: S1 ('MetaSel ('Just "testBody") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 TestBody)))

Methods

from ∷ TestBlock → Rep TestBlock x #

to ∷ Rep TestBlock x → TestBlock #

Show TestBlock Source #

Instance details

Methods

showsPrec ∷ Int → TestBlock → ShowS #

show ∷ TestBlock → String #

showList ∷ [TestBlock] → ShowS #

Eq TestBlock Source #

Instance details

Methods

(==) ∷ TestBlock → TestBlock → Bool #

(/=) ∷ TestBlock → TestBlock → Bool #

NoThunks TestBlock Source #

Instance details

Methods

noThunks ∷ Context → TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy TestBlock → String Source #

ConvertRawHash TestBlock Source #

Instance details

Methods

toRawHash ∷ proxy TestBlock → HeaderHash TestBlock → ByteString Source #

fromRawHash ∷ proxy TestBlock → ByteString → HeaderHash TestBlock Source #

toShortRawHash ∷ proxy TestBlock → HeaderHash TestBlock → ShortByteString Source #

fromShortRawHash ∷ proxy TestBlock → ShortByteString → HeaderHash TestBlock Source #

hashSize ∷ proxy TestBlock → Word32 Source #

GetHeader TestBlock Source #

Instance details

Methods

getHeader ∷ TestBlock → Header TestBlock Source #

blockMatchesHeader ∷ Header TestBlock → TestBlock → Bool Source #

headerIsEBB ∷ Header TestBlock → Maybe EpochNo Source #

GetPrevHash TestBlock Source #

Instance details

BlockSupportsDiffusionPipelining TestBlock Source #

Methods

headerPrevHash ∷ Header TestBlock → ChainHash TestBlock Source #

Instance details

BlockSupportsProtocol TestBlock Source #

Associated Types

type TentativeHeaderState TestBlock
Instance details Defined in Test.Ouroboros.Storage.TestBlock type TentativeHeaderState TestBlock = TentativeHeaderState (SelectViewDiffusionPipelining TestBlock)
type TentativeHeaderView TestBlock
Instance details Defined in Test.Ouroboros.Storage.TestBlock type TentativeHeaderView TestBlock = TentativeHeaderView (SelectViewDiffusionPipelining TestBlock)

Instance details

Methods

validateView ∷ BlockConfig TestBlock → Header TestBlock → ValidateView (BlockProtocol TestBlock) Source #

selectView ∷ BlockConfig TestBlock → Header TestBlock → SelectView (BlockProtocol TestBlock) Source #

projectChainOrderConfig ∷ BlockConfig TestBlock → ChainOrderConfig (SelectView (BlockProtocol TestBlock)) Source #

HasHardForkHistory TestBlock Source #

Instance details

Associated Types

type HardForkIndices TestBlock
Instance details Defined in Test.Ouroboros.Storage.TestBlock type HardForkIndices TestBlock = '[TestBlock]

Methods

hardForkSummary ∷ ∀ (mk ∷ MapKind). LedgerConfig TestBlock → LedgerState TestBlock mk → Summary (HardForkIndices TestBlock) Source #

ImmutableEraParams TestBlock Source #

Instance details

BasicEnvelopeValidation TestBlock Source #

Methods

immutableEraParams ∷ TopLevelConfig TestBlock → EraParams Source #

Instance details

Methods

expectedFirstBlockNo ∷ proxy TestBlock → BlockNo Source #

expectedNextBlockNo ∷ proxy TestBlock → TipInfo TestBlock → TipInfo TestBlock → BlockNo → BlockNo Source #

minimumPossibleSlotNo ∷ Proxy TestBlock → SlotNo Source #

minimumNextSlotNo ∷ proxy TestBlock → TipInfo TestBlock → TipInfo TestBlock → SlotNo → SlotNo Source #

HasAnnTip TestBlock Source #

Instance details

Associated Types

type TipInfo TestBlock
Instance details Defined in Test.Ouroboros.Storage.TestBlock type TipInfo TestBlock = TipInfoIsEBB TestBlock

Methods

getTipInfo ∷ Header TestBlock → TipInfo TestBlock Source #

tipInfoHash ∷ proxy TestBlock → TipInfo TestBlock → HeaderHash TestBlock Source #

ValidateEnvelope TestBlock Source #

Instance details

Associated Types

type OtherHeaderEnvelopeError TestBlock
Instance details Defined in Test.Ouroboros.Storage.TestBlock type OtherHeaderEnvelopeError TestBlock = TestBlockOtherHeaderEnvelopeError

Methods

additionalEnvelopeChecks ∷ TopLevelConfig TestBlock → LedgerView (BlockProtocol TestBlock) → Header TestBlock → Except (OtherHeaderEnvelopeError TestBlock) () Source #

UpdateLedger TestBlock Source #

Instance details

InspectLedger TestBlock Source #

Instance details

LedgerSupportsProtocol TestBlock Source #

Associated Types

type LedgerWarning TestBlock
Instance details Defined in Test.Ouroboros.Storage.TestBlock type LedgerWarning TestBlock = Void
type LedgerUpdate TestBlock
Instance details Defined in Test.Ouroboros.Storage.TestBlock type LedgerUpdate TestBlock = Void

Methods

inspectLedger ∷ ∀ (mk1 ∷ MapKind) (mk2 ∷ MapKind). TopLevelConfig TestBlock → LedgerState TestBlock mk1 → LedgerState TestBlock mk2 → [LedgerEvent TestBlock] Source #

Instance details

SerialiseDiskConstraints TestBlock Source #

Methods

protocolLedgerView ∷ ∀ (mk ∷ MapKind). LedgerConfig TestBlock → Ticked (LedgerState TestBlock) mk → LedgerView (BlockProtocol TestBlock) Source #

ledgerViewForecastAt ∷ ∀ (mk ∷ MapKind). HasCallStack ⇒ LedgerConfig TestBlock → LedgerState TestBlock mk → Forecast (LedgerView (BlockProtocol TestBlock)) Source #

Instance details

HasBinaryBlockInfo TestBlock Source #

Instance details

Methods

getBinaryBlockInfo ∷ TestBlock → BinaryBlockInfo Source #

Condense TestBlock Source #

Instance details

Methods

condense ∷ TestBlock → String Source #

ModelSupportsBlock TestBlock Source #

Instance details

HasHeader TestBlock Source #

Instance details

Methods

getHeaderFields ∷ TestBlock → HeaderFields TestBlock Source #

Serialise TestBlock Source #

Instance details

Methods

encode ∷ TestBlock → Encoding Source #

decode ∷ Decoder s TestBlock Source #

encodeList ∷ [TestBlock] → Encoding Source #

decodeList ∷ Decoder s [TestBlock] Source #

ToExpr TestBlock Source #

Instance details

Methods

toExpr ∷ TestBlock → Expr Source #

listToExpr ∷ [TestBlock] → Expr Source #

HasNestedContent f TestBlock Source #

Instance details

Methods

unnest ∷ f TestBlock → DepPair (NestedCtxt f TestBlock) Source #

nest ∷ DepPair (NestedCtxt f TestBlock) → f TestBlock Source #

DecodeDisk TestBlock () Source #

Instance details

Methods

decodeDisk ∷ CodecConfig TestBlock → ∀ s. Decoder s () Source #

EncodeDisk TestBlock TestBlock Source #

Instance details

Methods

encodeDisk ∷ CodecConfig TestBlock → TestBlock → Encoding Source #

EncodeDisk TestBlock () Source #

Instance details

Methods

encodeDisk ∷ CodecConfig TestBlock → () → Encoding Source #

ReconstructNestedCtxt Header TestBlock Source #

Instance details

Methods

reconstructPrefixLen ∷ proxy (Header TestBlock) → PrefixLen Source #

reconstructNestedCtxt ∷ proxy (Header TestBlock) → ShortByteString → SizeInBytes → SomeSecond (NestedCtxt Header) TestBlock Source #

StandardHash TestBlock Source #

Instance details

DecodeDisk TestBlock (AnnTip TestBlock) Source #

Instance details

Methods

decodeDisk ∷ CodecConfig TestBlock → ∀ s. Decoder s (AnnTip TestBlock) Source #

EncodeDisk TestBlock (Header TestBlock) Source #

Instance details

Methods

encodeDisk ∷ CodecConfig TestBlock → Header TestBlock → Encoding Source #

EncodeDisk TestBlock (AnnTip TestBlock) Source #

Instance details

Methods

encodeDisk ∷ CodecConfig TestBlock → AnnTip TestBlock → Encoding Source #

DecodeDisk TestBlock (LedgerState TestBlock EmptyMK) Source #

Instance details

Methods

decodeDisk ∷ CodecConfig TestBlock → ∀ s. Decoder s (LedgerState TestBlock EmptyMK) Source #

DecodeDisk TestBlock (ByteString → Header TestBlock) Source #

Instance details

Methods

decodeDisk ∷ CodecConfig TestBlock → ∀ s. Decoder s (ByteString → Header TestBlock) Source #

DecodeDisk TestBlock (ByteString → TestBlock) Source #

Instance details

Methods

decodeDisk ∷ CodecConfig TestBlock → ∀ s. Decoder s (ByteString → TestBlock) Source #

EncodeDisk TestBlock (LedgerState TestBlock EmptyMK) Source #

Instance details

Methods

encodeDisk ∷ CodecConfig TestBlock → LedgerState TestBlock EmptyMK → Encoding Source #

SameDepIndex (NestedCtxt_ TestBlock f ∷ Type → Type) Source #

Instance details

Methods

sameDepIndex ∷ NestedCtxt_ TestBlock f a → NestedCtxt_ TestBlock f b → Maybe (a :~: b) Source #

TrivialDependency (NestedCtxt_ TestBlock f ∷ Type → Type) Source #

Instance details

Methods

hasSingleIndex ∷ NestedCtxt_ TestBlock f a → NestedCtxt_ TestBlock f b → a :~: b Source #

indexIsTrivial ∷ NestedCtxt_ TestBlock f (TrivialIndex (NestedCtxt_ TestBlock f) ∷ Type) Source #

Generic (BlockConfig TestBlock) Source #

Instance details

Associated Types

type Rep (BlockConfig TestBlock)

Instance details

type Rep (BlockConfig TestBlock) = D1 ('MetaData "BlockConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "testBlockEBBsAllowed") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Bool) :*: S1 ('MetaSel ('Just "testBlockNumCoreNodes") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NumCoreNodes)))

Methods

from ∷ BlockConfig TestBlock → Rep (BlockConfig TestBlock) x #

to ∷ Rep (BlockConfig TestBlock) x → BlockConfig TestBlock #

Generic (CodecConfig TestBlock) Source #

Instance details

Associated Types

type Rep (CodecConfig TestBlock)
Instance details Defined in Test.Ouroboros.Storage.TestBlock type Rep (CodecConfig TestBlock) = D1 ('MetaData "CodecConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockCodecConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ CodecConfig TestBlock → Rep (CodecConfig TestBlock) x #

to ∷ Rep (CodecConfig TestBlock) x → CodecConfig TestBlock #

Generic (StorageConfig TestBlock) Source #

Instance details

Associated Types

type Rep (StorageConfig TestBlock)
Instance details Defined in Test.Ouroboros.Storage.TestBlock type Rep (StorageConfig TestBlock) = D1 ('MetaData "StorageConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockStorageConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ StorageConfig TestBlock → Rep (StorageConfig TestBlock) x #

to ∷ Rep (StorageConfig TestBlock) x → StorageConfig TestBlock #

Show (CodecConfig TestBlock) Source #

Instance details

Methods

showsPrec ∷ Int → CodecConfig TestBlock → ShowS #

Show (Header TestBlock) Source #

Instance details

Methods

showsPrec ∷ Int → Header TestBlock → ShowS #

show ∷ Header TestBlock → String #

showList ∷ [Header TestBlock] → ShowS #

Show (StorageConfig TestBlock) Source #

Instance details

Methods

showsPrec ∷ Int → StorageConfig TestBlock → ShowS #

Eq (Header TestBlock) Source #

Instance details

Methods

(==) ∷ Header TestBlock → Header TestBlock → Bool #

(/=) ∷ Header TestBlock → Header TestBlock → Bool #

NoThunks (BlockConfig TestBlock) Source #

Instance details

Methods

noThunks ∷ Context → BlockConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → BlockConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (BlockConfig TestBlock) → String Source #

NoThunks (CodecConfig TestBlock) Source #

Instance details

Methods

noThunks ∷ Context → CodecConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → CodecConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (CodecConfig TestBlock) → String Source #

NoThunks (Header TestBlock) Source #

Instance details

Methods

noThunks ∷ Context → Header TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → Header TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (Header TestBlock) → String Source #

NoThunks (StorageConfig TestBlock) Source #

Instance details

Methods

noThunks ∷ Context → StorageConfig TestBlock → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → StorageConfig TestBlock → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (StorageConfig TestBlock) → String Source #

GetTip (LedgerState TestBlock) Source #

Instance details

Methods

getTip ∷ ∀ (mk ∷ MapKind). LedgerState TestBlock mk → Point (LedgerState TestBlock) Source #

IsLedger (LedgerState TestBlock) Source #

Instance details

Associated Types

type LedgerErr (LedgerState TestBlock)
Instance details Defined in Test.Ouroboros.Storage.TestBlock type LedgerErr (LedgerState TestBlock) = TestBlockError
type AuxLedgerEvent (LedgerState TestBlock)
Instance details Defined in Test.Ouroboros.Storage.TestBlock type AuxLedgerEvent (LedgerState TestBlock) = VoidLedgerEvent (LedgerState TestBlock)

Methods

applyChainTickLedgerResult ∷ ComputeLedgerEvents → LedgerCfg (LedgerState TestBlock) → SlotNo → LedgerState TestBlock EmptyMK → LedgerResult (LedgerState TestBlock) (Ticked (LedgerState TestBlock) DiffMK) Source #

CanStowLedgerTables (LedgerState TestBlock) Source #

Instance details

Methods

stowLedgerTables ∷ LedgerState TestBlock ValuesMK → LedgerState TestBlock EmptyMK Source #

unstowLedgerTables ∷ LedgerState TestBlock EmptyMK → LedgerState TestBlock ValuesMK Source #

HasLedgerTables (LedgerState TestBlock) Source #

Instance details

Methods

projectLedgerTables ∷ ∀ (mk ∷ MapKind). (CanMapMK mk, CanMapKeysMK mk, ZeroableMK mk) ⇒ LedgerState TestBlock mk → LedgerTables (LedgerState TestBlock) mk Source #

withLedgerTables ∷ ∀ (mk ∷ MapKind) (any ∷ MapKind). (CanMapMK mk, CanMapKeysMK mk, ZeroableMK mk) ⇒ LedgerState TestBlock any → LedgerTables (LedgerState TestBlock) mk → LedgerState TestBlock mk Source #

LedgerTablesAreTrivial (LedgerState TestBlock) Source #

Instance details

Methods

convertMapKind ∷ ∀ (mk ∷ MapKind) (mk' ∷ MapKind). LedgerState TestBlock mk → LedgerState TestBlock mk' Source #

SerializeTablesWithHint (LedgerState TestBlock) Source #

Instance details

Methods

encodeTablesWithHint ∷ SerializeTablesHint (LedgerTables (LedgerState TestBlock) ValuesMK) → LedgerTables (LedgerState TestBlock) ValuesMK → Encoding Source #

decodeTablesWithHint ∷ SerializeTablesHint (LedgerTables (LedgerState TestBlock) ValuesMK) → Decoder s (LedgerTables (LedgerState TestBlock) ValuesMK) Source #

SignedHeader (Header TestBlock) Source #

Instance details

Methods

headerSigned ∷ Header TestBlock → Signed (Header TestBlock) Source #

CanUpgradeLedgerTables (LedgerState TestBlock) Source #

Instance details

Methods

upgradeTables ∷ ∀ (mk1 ∷ MapKind) (mk2 ∷ MapKind). LedgerState TestBlock mk1 → LedgerState TestBlock mk2 → LedgerTables (LedgerState TestBlock) ValuesMK → LedgerTables (LedgerState TestBlock) ValuesMK Source #

HasHeader (Header TestBlock) Source #

Instance details

Methods

getHeaderFields ∷ Header TestBlock → HeaderFields (Header TestBlock) Source #

Serialise (Header TestBlock) Source #

Instance details

Methods

encode ∷ Header TestBlock → Encoding Source #

decode ∷ Decoder s (Header TestBlock) Source #

encodeList ∷ [Header TestBlock] → Encoding Source #

decodeList ∷ Decoder s [Header TestBlock] Source #

ToExpr (CodecConfig TestBlock) Source #

Instance details

Methods

toExpr ∷ CodecConfig TestBlock → Expr Source #

listToExpr ∷ [CodecConfig TestBlock] → Expr Source #

ToExpr (HeaderEnvelopeError TestBlock) Source #

Instance details

Methods

toExpr ∷ HeaderEnvelopeError TestBlock → Expr Source #

listToExpr ∷ [HeaderEnvelopeError TestBlock] → Expr Source #

ToExpr (HeaderError TestBlock) Source #

Instance details

Methods

toExpr ∷ HeaderError TestBlock → Expr Source #

listToExpr ∷ [HeaderError TestBlock] → Expr Source #

ToExpr (TipInfoIsEBB TestBlock) Source #

Instance details

Methods

toExpr ∷ TipInfoIsEBB TestBlock → Expr Source #

listToExpr ∷ [TipInfoIsEBB TestBlock] → Expr Source #

ToExpr (ExtValidationError TestBlock) Source #

Instance details

Methods

toExpr ∷ ExtValidationError TestBlock → Expr Source #

listToExpr ∷ [ExtValidationError TestBlock] → Expr Source #

ToExpr (Tip TestBlock) Source #

Instance details

Methods

toExpr ∷ Tip TestBlock → Expr Source #

listToExpr ∷ [Tip TestBlock] → Expr Source #

ToExpr (DBModel TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.ImmutableDB.Model

Methods

toExpr ∷ DBModel TestBlock → Expr Source #

listToExpr ∷ [DBModel TestBlock] → Expr Source #

ToExpr (InSlot TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.ImmutableDB.Model

Methods

toExpr ∷ InSlot TestBlock → Expr Source #

listToExpr ∷ [InSlot TestBlock] → Expr Source #

ToExpr (IteratorModel TestBlock) Source #

Instance details

Defined in Test.Ouroboros.Storage.ImmutableDB.Model

Methods

toExpr ∷ IteratorModel TestBlock → Expr Source #

listToExpr ∷ [IteratorModel TestBlock] → Expr Source #

ApplyBlock (LedgerState TestBlock) TestBlock Source #

Instance details

Methods

applyBlockLedgerResultWithValidation ∷ ValidationPolicy → ComputeLedgerEvents → LedgerCfg (LedgerState TestBlock) → TestBlock → Ticked (LedgerState TestBlock) ValuesMK → Except (LedgerErr (LedgerState TestBlock)) (LedgerResult (LedgerState TestBlock) (LedgerState TestBlock DiffMK)) Source #

applyBlockLedgerResult ∷ ComputeLedgerEvents → LedgerCfg (LedgerState TestBlock) → TestBlock → Ticked (LedgerState TestBlock) ValuesMK → Except (LedgerErr (LedgerState TestBlock)) (LedgerResult (LedgerState TestBlock) (LedgerState TestBlock DiffMK)) Source #

reapplyBlockLedgerResult ∷ ComputeLedgerEvents → LedgerCfg (LedgerState TestBlock) → TestBlock → Ticked (LedgerState TestBlock) ValuesMK → LedgerResult (LedgerState TestBlock) (LedgerState TestBlock DiffMK) Source #

getBlockKeySets ∷ TestBlock → LedgerTables (LedgerState TestBlock) KeysMK Source #

DecodeDiskDep (NestedCtxt Header) TestBlock Source #

Instance details

Methods

decodeDiskDep ∷ CodecConfig TestBlock → NestedCtxt Header TestBlock a → ∀ s. Decoder s (ByteString → a) Source #

DecodeDiskDepIx (NestedCtxt Header) TestBlock Source #

Instance details

Methods

decodeDiskDepIx ∷ CodecConfig TestBlock → Decoder s (SomeSecond (NestedCtxt Header) TestBlock) Source #

EncodeDiskDep (NestedCtxt Header) TestBlock Source #

Instance details

Methods

encodeDiskDep ∷ CodecConfig TestBlock → NestedCtxt Header TestBlock a → a → Encoding Source #

EncodeDiskDepIx (NestedCtxt Header) TestBlock Source #

Instance details

Methods

encodeDiskDepIx ∷ CodecConfig TestBlock → SomeSecond (NestedCtxt Header) TestBlock → Encoding Source #

Generic (LedgerState TestBlock mk) Source #

Instance details

Associated Types

type Rep (LedgerState TestBlock mk)

Instance details

type Rep (LedgerState TestBlock mk) = D1 ('MetaData "LedgerState" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestLedger" 'PrefixI 'True) (S1 ('MetaSel ('Just "lastAppliedPoint") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Point TestBlock)) :*: S1 ('MetaSel ('Just "lastAppliedHash") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (ChainHash TestBlock))))

Methods

from ∷ LedgerState TestBlock mk → Rep (LedgerState TestBlock mk) x #

to ∷ Rep (LedgerState TestBlock mk) x → LedgerState TestBlock mk #

Show (LedgerState TestBlock mk) Source #

Instance details

Methods

showsPrec ∷ Int → LedgerState TestBlock mk → ShowS #

show ∷ LedgerState TestBlock mk → String #

showList ∷ [LedgerState TestBlock mk] → ShowS #

Eq (LedgerState TestBlock mk) Source #

Instance details

Methods

(==) ∷ LedgerState TestBlock mk → LedgerState TestBlock mk → Bool #

(/=) ∷ LedgerState TestBlock mk → LedgerState TestBlock mk → Bool #

NoThunks (LedgerState TestBlock mk) Source #

Instance details

Methods

noThunks ∷ Context → LedgerState TestBlock mk → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → LedgerState TestBlock mk → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy (LedgerState TestBlock mk) → String Source #

GetTip (Ticked (LedgerState TestBlock)) Source #

Instance details

Methods

getTip ∷ ∀ (mk ∷ MapKind). Ticked (LedgerState TestBlock) mk → Point (Ticked (LedgerState TestBlock)) Source #

HasLedgerTables (Ticked (LedgerState TestBlock)) Source #

Instance details

Methods

projectLedgerTables ∷ ∀ (mk ∷ MapKind). (CanMapMK mk, CanMapKeysMK mk, ZeroableMK mk) ⇒ Ticked (LedgerState TestBlock) mk → LedgerTables (Ticked (LedgerState TestBlock)) mk Source #

withLedgerTables ∷ ∀ (mk ∷ MapKind) (any ∷ MapKind). (CanMapMK mk, CanMapKeysMK mk, ZeroableMK mk) ⇒ Ticked (LedgerState TestBlock) any → LedgerTables (Ticked (LedgerState TestBlock)) mk → Ticked (LedgerState TestBlock) mk Source #

LedgerTablesAreTrivial (Ticked (LedgerState TestBlock)) Source #

Instance details

Methods

convertMapKind ∷ ∀ (mk ∷ MapKind) (mk' ∷ MapKind). Ticked (LedgerState TestBlock) mk → Ticked (LedgerState TestBlock) mk' Source #

Serialise (LedgerState TestBlock mk) Source #

Instance details

Methods

encode ∷ LedgerState TestBlock mk → Encoding Source #

decode ∷ Decoder s (LedgerState TestBlock mk) Source #

encodeList ∷ [LedgerState TestBlock mk] → Encoding Source #

decodeList ∷ Decoder s [LedgerState TestBlock mk] Source #

ToExpr (LedgerState TestBlock EmptyMK) Source #

Instance details

Methods

toExpr ∷ LedgerState TestBlock EmptyMK → Expr Source #

listToExpr ∷ [LedgerState TestBlock EmptyMK] → Expr Source #

IndexedMemPack (LedgerState TestBlock EmptyMK) Void Source #

Instance details

Methods

indexedPackedByteCount ∷ LedgerState TestBlock EmptyMK → Void → Int Source #

indexedPackM ∷ LedgerState TestBlock EmptyMK → Void → Pack s () Source #

indexedUnpackM ∷ Buffer b ⇒ LedgerState TestBlock EmptyMK → Unpack b Void Source #

indexedTypeName ∷ LedgerState TestBlock EmptyMK → String Source #

Show (NestedCtxt_ TestBlock f a) Source #

Instance details

Methods

showsPrec ∷ Int → NestedCtxt_ TestBlock f a → ShowS #

show ∷ NestedCtxt_ TestBlock f a → String #

showList ∷ [NestedCtxt_ TestBlock f a] → ShowS #

type Rep TestBlock Source #

Instance details

type Rep TestBlock = D1 ('MetaData "TestBlock" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlock" 'PrefixI 'True) (S1 ('MetaSel ('Just "testHeader") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 TestHeader) :*: S1 ('MetaSel ('Just "testBody") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 TestBody)))

data BlockConfig TestBlock Source #

Instance details

data BlockConfig TestBlock = TestBlockConfig {

testBlockEBBsAllowed ∷ !Bool
testBlockNumCoreNodes ∷ !NumCoreNodes

}

type BlockProtocol TestBlock Source #

Instance details

type BlockProtocol TestBlock

data CodecConfig TestBlock Source #

Instance details

newtype Header TestBlock Source #

data StorageConfig TestBlock Source #

Instance details

data StorageConfig TestBlock = TestBlockStorageConfig

data NestedCtxt_ TestBlock f a Source #

Instance details

data NestedCtxt_ TestBlock f a where

CtxtTestBlock ∷ ∀ (f ∷ Type → Type). NestedCtxt_ TestBlock f (f TestBlock)

type TentativeHeaderState TestBlock Source #

Instance details

type TentativeHeaderState TestBlock = TentativeHeaderState (SelectViewDiffusionPipelining TestBlock)

type TentativeHeaderView TestBlock Source #

Instance details

type TentativeHeaderView TestBlock = TentativeHeaderView (SelectViewDiffusionPipelining TestBlock)

type HardForkIndices TestBlock Source #

Instance details

type HardForkIndices TestBlock = '[TestBlock]

type OtherHeaderEnvelopeError TestBlock Source #

Instance details

type OtherHeaderEnvelopeError TestBlock = TestBlockOtherHeaderEnvelopeError

type TipInfo TestBlock Source #

Instance details

type TipInfo TestBlock = TipInfoIsEBB TestBlock

data LedgerState TestBlock mk Source #

Instance details

data LedgerState TestBlock mk = TestLedger {

lastAppliedPoint ∷ !(Point TestBlock)
lastAppliedHash ∷ !(ChainHash TestBlock)

}

type LedgerUpdate TestBlock Source #

Instance details

type LedgerUpdate TestBlock = Void

type LedgerWarning TestBlock Source #

Instance details

type LedgerWarning TestBlock = Void

type HeaderHash TestBlock Source #

Instance details

type HeaderHash TestBlock = TestHeaderHash

type TrivialIndex (NestedCtxt_ TestBlock f ∷ Type → Type) Source #

Instance details

type TrivialIndex (NestedCtxt_ TestBlock f ∷ Type → Type) = f TestBlock

type Rep (BlockConfig TestBlock) Source #

Instance details

type Rep (BlockConfig TestBlock) = D1 ('MetaData "BlockConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "testBlockEBBsAllowed") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Bool) :*: S1 ('MetaSel ('Just "testBlockNumCoreNodes") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 NumCoreNodes)))

type Rep (CodecConfig TestBlock) Source #

Instance details

type Rep (CodecConfig TestBlock) = D1 ('MetaData "CodecConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockCodecConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

type Rep (StorageConfig TestBlock) Source #

Instance details

type Rep (StorageConfig TestBlock) = D1 ('MetaData "StorageConfig" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBlockStorageConfig" 'PrefixI 'False) (U1 ∷ Type → Type))

type AuxLedgerEvent (LedgerState TestBlock) Source #

Instance details

type AuxLedgerEvent (LedgerState TestBlock) = VoidLedgerEvent (LedgerState TestBlock)

type LedgerCfg (LedgerState TestBlock) Source #

Instance details

type LedgerCfg (LedgerState TestBlock) = EraParams

type LedgerErr (LedgerState TestBlock) Source #

Instance details

type LedgerErr (LedgerState TestBlock) = TestBlockError

type TxIn (LedgerState TestBlock) Source #

Instance details

type TxIn (LedgerState TestBlock) = Void

type TxOut (LedgerState TestBlock) Source #

Instance details

type TxOut (LedgerState TestBlock) = Void

type Signed (Header TestBlock) Source #

Instance details

type Signed (Header TestBlock) = ()

type Rep (LedgerState TestBlock mk) Source #

Instance details

type Rep (LedgerState TestBlock mk) = D1 ('MetaData "LedgerState" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestLedger" 'PrefixI 'True) (S1 ('MetaSel ('Just "lastAppliedPoint") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Point TestBlock)) :*: S1 ('MetaSel ('Just "lastAppliedHash") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (ChainHash TestBlock))))

newtype Ticked (LedgerState TestBlock) (mk ∷ MapKind) Source #

Instance details

newtype Ticked (LedgerState TestBlock) (mk ∷ MapKind) = TickedTestLedger {

getTickedTestLedger ∷ LedgerState TestBlock mk

}

data TestBody Source #

Constructors

TestBody

Fields

tbForkNo ∷ !Word
If we don't have something that can vary per block, we're not generating forks, except when skipping slots. For example, when we want to have multiple different valid successor blocks created in the same slot, all fields in the header and body will be the same. Consequently, the hashes will also be the same, so we don't have different blocks after all. By using a different tbForkNo for each block, we have different bodies, and thus different hashes.
Note that this is a local number, it is specific to this block, other blocks need not be aware of it.
tbIsValid ∷ !Bool

Instances

Instances details

Generic TestBody Source #

Instance details

Associated Types

type Rep TestBody

Instance details

type Rep TestBody = D1 ('MetaData "TestBody" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBody" 'PrefixI 'True) (S1 ('MetaSel ('Just "tbForkNo") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Word) :*: S1 ('MetaSel ('Just "tbIsValid") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Bool)))

Methods

from ∷ TestBody → Rep TestBody x #

to ∷ Rep TestBody x → TestBody #

Show TestBody Source #

Instance details

Methods

showsPrec ∷ Int → TestBody → ShowS #

show ∷ TestBody → String #

showList ∷ [TestBody] → ShowS #

Eq TestBody Source #

Instance details

Methods

(==) ∷ TestBody → TestBody → Bool #

(/=) ∷ TestBody → TestBody → Bool #

Hashable TestBody Source #

Instance details

Methods

hashWithSalt ∷ Int → TestBody → Int Source #

hash ∷ TestBody → Int Source #

NoThunks TestBody Source #

Instance details

Methods

noThunks ∷ Context → TestBody → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → TestBody → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy TestBody → String Source #

Serialise TestBody Source #

Instance details

Methods

encode ∷ TestBody → Encoding Source #

decode ∷ Decoder s TestBody Source #

encodeList ∷ [TestBody] → Encoding Source #

decodeList ∷ Decoder s [TestBody] Source #

ToExpr TestBody Source #

Instance details

Methods

toExpr ∷ TestBody → Expr Source #

listToExpr ∷ [TestBody] → Expr Source #

type Rep TestBody Source #

Instance details

type Rep TestBody = D1 ('MetaData "TestBody" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestBody" 'PrefixI 'True) (S1 ('MetaSel ('Just "tbForkNo") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Word) :*: S1 ('MetaSel ('Just "tbIsValid") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Bool)))

newtype TestBodyHash Source #

Hash of a TestBody

Constructors

TestBodyHash Int

Instances

Instances details

Generic TestBodyHash Source #

Instance details

Associated Types

type Rep TestBodyHash
Instance details Defined in Test.Ouroboros.Storage.TestBlock type Rep TestBodyHash = D1 ('MetaData "TestBodyHash" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'True) (C1 ('MetaCons "TestBodyHash" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

Methods

from ∷ TestBodyHash → Rep TestBodyHash x #

to ∷ Rep TestBodyHash x → TestBodyHash #

Show TestBodyHash Source #

Instance details

Methods

showsPrec ∷ Int → TestBodyHash → ShowS #

show ∷ TestBodyHash → String #

showList ∷ [TestBodyHash] → ShowS #

Eq TestBodyHash Source #

Instance details

Methods

(==) ∷ TestBodyHash → TestBodyHash → Bool #

(/=) ∷ TestBodyHash → TestBodyHash → Bool #

Ord TestBodyHash Source #

Instance details

Methods

compare ∷ TestBodyHash → TestBodyHash → Ordering #

(<) ∷ TestBodyHash → TestBodyHash → Bool #

(<=) ∷ TestBodyHash → TestBodyHash → Bool #

(>) ∷ TestBodyHash → TestBodyHash → Bool #

(>=) ∷ TestBodyHash → TestBodyHash → Bool #

max ∷ TestBodyHash → TestBodyHash → TestBodyHash #

min ∷ TestBodyHash → TestBodyHash → TestBodyHash #

Hashable TestBodyHash Source #

Instance details

Methods

hashWithSalt ∷ Int → TestBodyHash → Int Source #

hash ∷ TestBodyHash → Int Source #

NoThunks TestBodyHash Source #

Instance details

Methods

noThunks ∷ Context → TestBodyHash → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → TestBodyHash → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy TestBodyHash → String Source #

Condense TestBodyHash Source #

Instance details

Methods

condense ∷ TestBodyHash → String Source #

Serialise TestBodyHash Source #

Instance details

Methods

encode ∷ TestBodyHash → Encoding Source #

decode ∷ Decoder s TestBodyHash Source #

encodeList ∷ [TestBodyHash] → Encoding Source #

decodeList ∷ Decoder s [TestBodyHash] Source #

ToExpr TestBodyHash Source #

Instance details

Methods

toExpr ∷ TestBodyHash → Expr Source #

listToExpr ∷ [TestBodyHash] → Expr Source #

type Rep TestBodyHash Source #

Instance details

type Rep TestBodyHash = D1 ('MetaData "TestBodyHash" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'True) (C1 ('MetaCons "TestBodyHash" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

data TestHeader Source #

Constructors

TestHeader

Fields

thHash ∷ HeaderHash TestHeader
Not included in the calculation of the hash of the TestHeader, i.e., in its own value, which would be pretty hard to do.
Note the absence of a bang: this field caches the TestHeaders hash. To calculate it, the TestHeader is passed to the hashing function, even though the field is not read, making the field strict would create an infinite loop.
thPrevHash ∷ !(ChainHash TestHeader)
thBodyHash ∷ !TestBodyHash
thSlotNo ∷ !SlotNo
thBlockNo ∷ !BlockNo
thChainLength ∷ !ChainLength
thIsEBB ∷ !EBB

Instances

Instances details

Generic TestHeader Source #

Instance details

Associated Types

type Rep TestHeader

Instance details

type Rep TestHeader = D1 ('MetaData "TestHeader" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestHeader" 'PrefixI 'True) ((S1 ('MetaSel ('Just "thHash") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (HeaderHash TestHeader)) :*: (S1 ('MetaSel ('Just "thPrevHash") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (ChainHash TestHeader)) :*: S1 ('MetaSel ('Just "thBodyHash") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 TestBodyHash))) :*: ((S1 ('MetaSel ('Just "thSlotNo") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SlotNo) :*: S1 ('MetaSel ('Just "thBlockNo") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 BlockNo)) :*: (S1 ('MetaSel ('Just "thChainLength") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ChainLength) :*: S1 ('MetaSel ('Just "thIsEBB") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 EBB)))))

Methods

from ∷ TestHeader → Rep TestHeader x #

to ∷ Rep TestHeader x → TestHeader #

Show TestHeader Source #

Instance details

Methods

showsPrec ∷ Int → TestHeader → ShowS #

show ∷ TestHeader → String #

showList ∷ [TestHeader] → ShowS #

Eq TestHeader Source #

Instance details

Methods

(==) ∷ TestHeader → TestHeader → Bool #

(/=) ∷ TestHeader → TestHeader → Bool #

NoThunks TestHeader Source #

Instance details

Methods

noThunks ∷ Context → TestHeader → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → TestHeader → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy TestHeader → String Source #

Condense TestHeader Source #

Instance details

Methods

condense ∷ TestHeader → String Source #

Serialise TestHeader Source #

Instance details

Methods

encode ∷ TestHeader → Encoding Source #

decode ∷ Decoder s TestHeader Source #

encodeList ∷ [TestHeader] → Encoding Source #

decodeList ∷ Decoder s [TestHeader] Source #

ToExpr TestHeader Source #

Instance details

Methods

toExpr ∷ TestHeader → Expr Source #

listToExpr ∷ [TestHeader] → Expr Source #

StandardHash TestHeader Source #

Instance details

type Rep TestHeader Source #

Instance details

type Rep TestHeader = D1 ('MetaData "TestHeader" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "TestHeader" 'PrefixI 'True) ((S1 ('MetaSel ('Just "thHash") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (HeaderHash TestHeader)) :*: (S1 ('MetaSel ('Just "thPrevHash") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (ChainHash TestHeader)) :*: S1 ('MetaSel ('Just "thBodyHash") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 TestBodyHash))) :*: ((S1 ('MetaSel ('Just "thSlotNo") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SlotNo) :*: S1 ('MetaSel ('Just "thBlockNo") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 BlockNo)) :*: (S1 ('MetaSel ('Just "thChainLength") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ChainLength) :*: S1 ('MetaSel ('Just "thIsEBB") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 EBB)))))

type HeaderHash TestHeader Source #

Instance details

type HeaderHash TestHeader = TestHeaderHash

newtype TestHeaderHash Source #

Hash of a TestHeader

Constructors

TestHeaderHash Int

Instances

Instances details

Binary TestHeaderHash Source #

Instance details

Methods

put ∷ TestHeaderHash → Put #

get ∷ Get TestHeaderHash #

putList ∷ [TestHeaderHash] → Put #

Generic TestHeaderHash Source #

Instance details

Associated Types

type Rep TestHeaderHash
Instance details Defined in Test.Ouroboros.Storage.TestBlock type Rep TestHeaderHash = D1 ('MetaData "TestHeaderHash" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'True) (C1 ('MetaCons "TestHeaderHash" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

Methods

from ∷ TestHeaderHash → Rep TestHeaderHash x #

to ∷ Rep TestHeaderHash x → TestHeaderHash #

Show TestHeaderHash Source #

Instance details

Methods

showsPrec ∷ Int → TestHeaderHash → ShowS #

show ∷ TestHeaderHash → String #

showList ∷ [TestHeaderHash] → ShowS #

Eq TestHeaderHash Source #

Instance details

Methods

(==) ∷ TestHeaderHash → TestHeaderHash → Bool #

(/=) ∷ TestHeaderHash → TestHeaderHash → Bool #

Ord TestHeaderHash Source #

Instance details

Methods

compare ∷ TestHeaderHash → TestHeaderHash → Ordering #

(<) ∷ TestHeaderHash → TestHeaderHash → Bool #

(<=) ∷ TestHeaderHash → TestHeaderHash → Bool #

(>) ∷ TestHeaderHash → TestHeaderHash → Bool #

(>=) ∷ TestHeaderHash → TestHeaderHash → Bool #

max ∷ TestHeaderHash → TestHeaderHash → TestHeaderHash #

min ∷ TestHeaderHash → TestHeaderHash → TestHeaderHash #

Hashable TestHeaderHash Source #

Instance details

Methods

hashWithSalt ∷ Int → TestHeaderHash → Int Source #

hash ∷ TestHeaderHash → Int Source #

NoThunks TestHeaderHash Source #

Instance details

Methods

noThunks ∷ Context → TestHeaderHash → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → TestHeaderHash → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy TestHeaderHash → String Source #

Condense TestHeaderHash Source #

Instance details

Methods

condense ∷ TestHeaderHash → String Source #

Serialise TestHeaderHash Source #

Instance details

Methods

encode ∷ TestHeaderHash → Encoding Source #

decode ∷ Decoder s TestHeaderHash Source #

encodeList ∷ [TestHeaderHash] → Encoding Source #

decodeList ∷ Decoder s [TestHeaderHash] Source #

ToExpr TestHeaderHash Source #

Instance details

Methods

toExpr ∷ TestHeaderHash → Expr Source #

listToExpr ∷ [TestHeaderHash] → Expr Source #

type Rep TestHeaderHash Source #

Instance details

type Rep TestHeaderHash = D1 ('MetaData "TestHeaderHash" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'True) (C1 ('MetaCons "TestHeaderHash" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

Construction

firstBlock ∷ SlotNo → TestBody → TestBlock Source #

Note the first block need not be an EBB, see firstEBB.

firstEBB ∷ (SlotNo → Bool) → TestBody → TestBlock Source #

mkBlock Source #

Arguments

∷ HasCallStack
⇒ (SlotNo → Bool)	Is this slot allowed contain an EBB? This argument is used primarily to detect the generation of invalid blocks with different kind of `ChunkInfo`.
→ TestBody
→ ChainHash TestHeader	Hash of previous header
→ SlotNo
→ BlockNo
→ ChainLength
→ Maybe EpochNo
→ TestBlock

mkNextBlock Source #

Arguments

∷ TestBlock	Previous block
→ SlotNo
→ TestBody
→ TestBlock

Variant of mkNextBlock that takes the entire previous block.

mkNextBlock' Source #

Arguments

∷ (HeaderFields TestBlock, ChainLength)	Information about the previous block
→ SlotNo
→ TestBody
→ TestBlock

mkNextEBB Source #

Arguments

∷ (SlotNo → Bool)
→ TestBlock	Previous block
→ SlotNo
→ EpochNo
→ TestBody
→ TestBlock

Variant of mkNextEBB that takes the entire previous block.

mkNextEBB' Source #

Arguments

∷ (SlotNo → Bool)
→ (HeaderFields TestBlock, ChainLength)	Information about the previous block
→ SlotNo
→ EpochNo
→ TestBody
→ TestBlock

Note that in various places, e.g., the ImmutableDB, we rely on the fact that the slotNo should correspond to the first slot number of the epoch, as is the case for real EBBs.

Query

testBlockChainLength ∷ TestBlock → ChainLength Source #

testBlockIsEBB ∷ TestBlock → IsEBB Source #

testBlockIsValid ∷ TestBlock → Bool Source #

Check whether the header matches its hash and whether the body matches its hash.

Serialisation

testBlockFromLazyByteString ∷ HasCallStack ⇒ ByteString → TestBlock Source #

testBlockToBuilder ∷ TestBlock → Builder Source #

testBlockToLazyByteString ∷ TestBlock → ByteString Source #

Ledger

data TestBlockError Source #

Constructors

InvalidHash	The hashes don't line up
Fields (ChainHash TestBlock) Expected hash (ChainHash TestBlock) Invalid hash
InvalidBlock	The block itself is invalid

Instances

Instances details

Generic TestBlockError Source #

Instance details

Associated Types

type Rep TestBlockError

Instance details

type Rep TestBlockError = D1 ('MetaData "TestBlockError" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "InvalidHash" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (ChainHash TestBlock)) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (ChainHash TestBlock))) :+: C1 ('MetaCons "InvalidBlock" 'PrefixI 'False) (U1 ∷ Type → Type))

Methods

from ∷ TestBlockError → Rep TestBlockError x #

to ∷ Rep TestBlockError x → TestBlockError #

Show TestBlockError Source #

Instance details

Methods

showsPrec ∷ Int → TestBlockError → ShowS #

show ∷ TestBlockError → String #

showList ∷ [TestBlockError] → ShowS #

Eq TestBlockError Source #

Instance details

Methods

(==) ∷ TestBlockError → TestBlockError → Bool #

(/=) ∷ TestBlockError → TestBlockError → Bool #

NoThunks TestBlockError Source #

Instance details

Methods

noThunks ∷ Context → TestBlockError → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → TestBlockError → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy TestBlockError → String Source #

ToExpr TestBlockError Source #

Instance details

Methods

toExpr ∷ TestBlockError → Expr Source #

listToExpr ∷ [TestBlockError] → Expr Source #

type Rep TestBlockError Source #

Instance details

UnexpectedEBBInSlot !SlotNo

type Rep TestBlockError = D1 ('MetaData "TestBlockError" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "InvalidHash" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (ChainHash TestBlock)) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (ChainHash TestBlock))) :+: C1 ('MetaCons "InvalidBlock" 'PrefixI 'False) (U1 ∷ Type → Type))

data TestBlockOtherHeaderEnvelopeError Source #

Constructors

Instances

Instances details

Generic TestBlockOtherHeaderEnvelopeError Source #

Instance details

Associated Types

type Rep TestBlockOtherHeaderEnvelopeError

Instance details

Show TestBlockOtherHeaderEnvelopeError Source #

type Rep TestBlockOtherHeaderEnvelopeError = D1 ('MetaData "TestBlockOtherHeaderEnvelopeError" "Test.Ouroboros.Storage.TestBlock" "ouroboros-consensus-0.27.0.0-inplace-storage-test" 'False) (C1 ('MetaCons "UnexpectedEBBInSlot" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 SlotNo)))

Methods

from ∷ TestBlockOtherHeaderEnvelopeError → Rep TestBlockOtherHeaderEnvelopeError x #

to ∷ Rep TestBlockOtherHeaderEnvelopeError x → TestBlockOtherHeaderEnvelopeError #

Instance details

Eq TestBlockOtherHeaderEnvelopeError Source #

Methods

showsPrec ∷ Int → TestBlockOtherHeaderEnvelopeError → ShowS #

show ∷ TestBlockOtherHeaderEnvelopeError → String #

showList ∷ [TestBlockOtherHeaderEnvelopeError] → ShowS #

Instance details

NoThunks TestBlockOtherHeaderEnvelopeError Source #

Methods

(==) ∷ TestBlockOtherHeaderEnvelopeError → TestBlockOtherHeaderEnvelopeError → Bool #

(/=) ∷ TestBlockOtherHeaderEnvelopeError → TestBlockOtherHeaderEnvelopeError → Bool #

Instance details

ToExpr TestBlockOtherHeaderEnvelopeError Source #

Methods

noThunks ∷ Context → TestBlockOtherHeaderEnvelopeError → IO (Maybe ThunkInfo) Source #

wNoThunks ∷ Context → TestBlockOtherHeaderEnvelopeError → IO (Maybe ThunkInfo) Source #

showTypeOf ∷ Proxy TestBlockOtherHeaderEnvelopeError → String Source #

Instance details

Methods

toExpr ∷ TestBlockOtherHeaderEnvelopeError → Expr Source #

listToExpr ∷ [TestBlockOtherHeaderEnvelopeError] → Expr Source #

type Rep TestBlockOtherHeaderEnvelopeError Source #

Instance details