From 43a1f79f70c25d2056aea7f0565d9de7081e1fbe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexander=20Mei=C3=9Fner?= <AlexanderMeissner@gmx.net>
Date: Mon, 20 Mar 2023 20:00:14 +0100
Subject: [PATCH] Adds test_program_reads_from_program_account().

---
 .../sbf/c/src/read_program/read_program.c     | 22 +++++++++++++++
 programs/sbf/tests/programs.rs                | 28 +++++++++++++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 programs/sbf/c/src/read_program/read_program.c

diff --git a/programs/sbf/c/src/read_program/read_program.c b/programs/sbf/c/src/read_program/read_program.c
new file mode 100644
index 00000000000000..0ee5afb0ac1cd3
--- /dev/null
+++ b/programs/sbf/c/src/read_program/read_program.c
@@ -0,0 +1,22 @@
+#include <solana_sdk.h>
+
+extern uint64_t entrypoint(const uint8_t *input) {
+  SolAccountInfo ka[1];
+  SolParameters params = (SolParameters){.ka = ka};
+
+  sol_log(__FILE__);
+
+  if (!sol_deserialize(input, &params, SOL_ARRAY_SIZE(ka))) {
+    return ERROR_INVALID_ARGUMENT;
+  }
+
+  char ka_data[] = {0x7F, 0x45, 0x4C, 0x46};
+  
+  sol_assert(params.ka_num == 1);
+  sol_assert(!sol_memcmp(params.ka[0].data, ka_data, 4));
+  sol_assert(params.ka[0].is_signer == false);
+  sol_assert(params.ka[0].is_writable == false);
+  sol_assert(params.ka[0].executable == true);
+
+  return SUCCESS;
+}
diff --git a/programs/sbf/tests/programs.rs b/programs/sbf/tests/programs.rs
index 62253489663adb..29800cf2e5de05 100644
--- a/programs/sbf/tests/programs.rs
+++ b/programs/sbf/tests/programs.rs
@@ -2201,6 +2201,34 @@ fn test_program_sbf_disguised_as_sbf_loader() {
     }
 }
 
+#[test]
+#[cfg(feature = "sbf_c")]
+fn test_program_reads_from_program_account() {
+    solana_logger::setup();
+
+    let GenesisConfigInfo {
+        genesis_config,
+        mint_keypair,
+        ..
+    } = create_genesis_config(50);
+    let mut bank = Bank::new_for_tests(&genesis_config);
+    let (name, id, entrypoint) = solana_bpf_loader_program!();
+    bank.add_builtin(&name, &id, entrypoint);
+    let bank_client = BankClient::new(bank);
+
+    let program_id = load_program(
+        &bank_client,
+        &bpf_loader::id(),
+        &mint_keypair,
+        "read_program",
+    );
+    let account_metas = vec![AccountMeta::new_readonly(program_id, false)];
+    let instruction = Instruction::new_with_bytes(program_id, &[], account_metas);
+    bank_client
+        .send_and_confirm_instruction(&mint_keypair, instruction)
+        .unwrap();
+}
+
 #[test]
 #[cfg(feature = "sbf_c")]
 fn test_program_sbf_c_dup() {