Add tests.

tests/tests/starknet/mod.rs

@@ -1,2 +1,3 @@
 mod keccak;
 mod secp256;
+mod syscalls;

tests/tests/starknet/programs/syscalls.cairo

@@ -0,0 +1,62 @@
+use core::starknet::{
+    call_contract_syscall, class_hash_const, contract_address_const, ContractAddress,
+    deploy_syscall, emit_event_syscall, ExecutionInfo, get_block_hash_syscall,
+    get_execution_info_syscall, info::v2::ExecutionInfo as ExecutionInfoV2, keccak_syscall,
+    library_call_syscall, replace_class_syscall, send_message_to_l1_syscall,
+    storage_address_try_from_felt252, storage_read_syscall, storage_write_syscall, SyscallResult,
+};
+
+// extern fn get_execution_info_syscall() -> SyscallResult<
+//     Box<ExecutionInfo>
+// > implicits(GasBuiltin, System) nopanic;
+extern fn get_execution_info_v2_syscall() -> SyscallResult<
+    Box<ExecutionInfoV2>
+> implicits(GasBuiltin, System) nopanic;
+
+fn get_block_hash() -> SyscallResult<felt252> {
+    get_block_hash_syscall(0)
+}
+
+// fn get_execution_info() -> SyscallResult<Box<ExecutionInfo>> {
+//     get_execution_info_syscall()
+// }
+
+fn get_execution_info_v2() -> SyscallResult<Box<ExecutionInfoV2>> {
+    get_execution_info_v2_syscall()
+}
+
+fn deploy() -> SyscallResult<(ContractAddress, Span<felt252>)> {
+    deploy_syscall(class_hash_const::<0>(), 0, array![].span(), false)
+}
+
+fn replace_class() -> SyscallResult<()> {
+    replace_class_syscall(class_hash_const::<0>())
+}
+
+fn library_call() -> SyscallResult<Span<felt252>> {
+    library_call_syscall(class_hash_const::<0>(), 0, array![].span())
+}
+
+fn call_contract() -> SyscallResult<Span<felt252>> {
+    call_contract_syscall(contract_address_const::<0>(), 0, array![].span())
+}
+
+fn storage_read() -> felt252 {
+    storage_read_syscall(0, storage_address_try_from_felt252(0).unwrap()).unwrap()
+}
+
+fn storage_write() {
+    storage_write_syscall(0, storage_address_try_from_felt252(0).unwrap(), 0).unwrap()
+}
+
+fn emit_event() -> SyscallResult<()> {
+    emit_event_syscall(array![].span(), array![].span())
+}
+
+fn send_message_to_l1() -> SyscallResult<()> {
+    send_message_to_l1_syscall(0, array![].span())
+}
+
+fn keccak() -> SyscallResult<u256> {
+    keccak_syscall(array![].span())
+}