(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