Cheatcode for getting hash of the block

crates/forge/tests/data/contracts/cheat_block_hash_checker.cairo

@@ -0,0 +1,53 @@
+#[starknet::interface]
+trait ICheatBlockHashChecker<TContractState> {
+    fn get_block_hash(ref self: TContractState) -> felt252;
+    fn get_block_hash_and_emit_event(ref self: TContractState) -> felt252;
+    fn get_block_hash_and_number(ref self: TContractState) -> (felt252, u64);
+}
+
+#[starknet::contract]
+mod CheatBlockHashChecker {
+    use box::BoxTrait;
+    use core::starknet::SyscallResultTrait;
+    use starknet::{get_block_info, get_block_hash_syscall};
+
+    #[storage]
+    struct Storage {}
+
+    #[event]
+    #[derive(Drop, starknet::Event)]
+    enum Event {
+        BlockHashEmitted: BlockHashEmitted
+    }
+
+    #[derive(Drop, starknet::Event)]
+    struct BlockHashEmitted {
+        block_hash: felt252
+    }
+
+
+    #[abi(embed_v0)]
+    impl CheatBlockHashChecker of super::ICheatBlockHashChecker<ContractState> {
+        fn get_block_hash(ref self: ContractState) -> felt252 {
+            let block_info = get_block_info().unbox();
+            let block_hash = get_block_hash_syscall(block_info.block_number - 10).unwrap_syscall();
+
+            block_hash
+        }
+
+        fn get_block_hash_and_emit_event(ref self: ContractState) -> u64 {
+            let block_info = get_block_info().unbox();
+            let block_hash = get_block_hash_syscall(block_info.block_number - 10).unwrap_syscall();
+
+            self.emit(Event::BlockHashEmitted(BlockHashEmitted { block_hash }));
+            block_hash
+        }
+
+        fn get_block_hash_and_number(ref self: ContractState) -> (u64, u64) {
+            let block_info = starknet::get_block_info().unbox();
+            let block_hash = get_block_hash_syscall(block_info.block_number - 10).unwrap_syscall();
+
+            (block_info.block_hash, block_info.block_number)
+        }
+    }
+}