Test what happens when blocks don't match their headers

The block fetch logic uses `blockMatchesHeader :: hdr -> blk -> Bool` to check whether a downloaded block matches its header.

We should simulate that this function returns `False` for some blocks, see what happens, and what effect it has on the consensus layer (that initiated the block fetch logic).