wip

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
+
+
+