diff --git a/tests/proofmode_siprop.ref b/tests/proofmode_siprop.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391
diff --git a/tests/proofmode_siprop.v b/tests/proofmode_siprop.v
new file mode 100644
index 0000000000000000000000000000000000000000..d9dc2c4e83e42b3d7da1560de4ed2436599cb23f
--- /dev/null
+++ b/tests/proofmode_siprop.v
@@ -0,0 +1,22 @@
+From iris.proofmode Require Import tactics .
+From iris.si_logic Require Import bi.
+Set Ltac Backtrace.
+
+Section si_logic_tests.
+  Implicit Types P Q R : siProp.
+
+  Lemma test_everything_persistent P : P -∗ P.
+  Proof. by iIntros "#HP". Qed.
+
+  Lemma test_everything_affine P : P -∗ True.
+  Proof. by iIntros "_". Qed.
+
+  Lemma test_iIntro_impl P Q R : (P → Q ∧ R → P ∧ R)%I.
+  Proof. iIntros "#HP #[HQ HR]". auto. Qed.
+
+  Lemma test_iApply_impl_1 P Q R : (P → (P → Q) → Q)%I.
+  Proof. iIntros "HP HPQ". by iApply "HPQ". Qed.
+
+  Lemma test_iApply_impl_2 P Q R : (P → (P → Q) → Q)%I.
+  Proof. iIntros "#HP #HPQ". by iApply "HPQ". Qed.
+End si_logic_tests.