From b72c3309d30d35f0ffbe57154080e647821a0504 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Thu, 17 Oct 2024 09:34:39 +0300
Subject: [PATCH] wip

---
 test/RT/policy/test-basic-policy-1 | 73 ++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 test/RT/policy/test-basic-policy-1

diff --git a/test/RT/policy/test-basic-policy-1 b/test/RT/policy/test-basic-policy-1
new file mode 100644
index 00000000..53223a23
--- /dev/null
+++ b/test/RT/policy/test-basic-policy-1
@@ -0,0 +1,73 @@
+(define || space)
+
+[define po1 [hbs2:mailbox:policy:basic:read:syntax [quot [
+  (peer deny all)
+  (sender deny all)
+  (peer allow 5tZfGUoQ79EzFUvyyY5Wh1LzN2oaqhrn9kPnfk6ByHpf)
+  (peer allow yFSaUfb97ZRtQqzHWdERsR7KJvN8qyWX1M8rJcxnsiu)
+  (peer allow 5GnroAC8FXNRL8rcgJj6RTu9mt1AbuNd5MZVnDBcCKzb)
+  (sender allow 5GnroAC8FXNRL8rcgJj6RTu9mt1AbuNd5MZVnDBcCKzb)
+]]]]
+
+; [hbs2:mailbox:policy:basic:dump po1]
+
+(define s1 yFSaUfb97ZRtQqzHWdERsR7KJvN8qyWX1M8rJcxnsiu)
+(define s2 5GnroAC8FXNRL8rcgJj6RTu9mt1AbuNd5MZVnDBcCKzb)
+(define s3 9mzDMTUouwoSkxuQWGwCnpP5TWR2DGKLobs2edjM5fDk)
+
+
+;; some policy
+
+println ";; test some basic policy"
+
+println
+
+hbs2:mailbox:policy:basic:dump po1
+
+println
+
+println sender || s1 || allowed || [hbs2:mailbox:policy:basic:accept:sender s1 po1]
+println sender || s2 || allowed || [hbs2:mailbox:policy:basic:accept:sender s2 po1]
+
+println peer || s3 || allowed || [hbs2:mailbox:policy:basic:accept:peer s3 po1]
+
+println
+
+;;; empty policy
+
+println ";; test empty policy"
+
+println
+
+[define po0 [hbs2:mailbox:policy:basic:read:syntax [quot []]]]
+
+hbs2:mailbox:policy:basic:dump po0
+
+println
+
+
+println peer || s1 || allowed || [hbs2:mailbox:policy:basic:accept:peer s1 po0]
+println peer || s2 || allowed || [hbs2:mailbox:policy:basic:accept:peer s2 po0]
+
+println sender || s1 || allowed || [hbs2:mailbox:policy:basic:accept:sender s1 po0]
+println sender || s2 || allowed || [hbs2:mailbox:policy:basic:accept:sender s2 po0]
+
+
+define shitty-policy [hbs2:mailbox:policy:basic:read:syntax [quot [
+shit 1
+shit 2
+shit 3
+]]]
+
+;; malformed policy
+
+println
+
+println "test malformed policy"
+
+println
+
+hbs2:mailbox:policy:basic:dump shitty-policy
+
+
+