mirror of https://github.com/voidlizard/hbs2
87 lines
1.9 KiB
Plaintext
87 lines
1.9 KiB
Plaintext
(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)
|
|
|
|
|
|
(define accept:sender hbs2:mailbox:policy:basic:accept:sender)
|
|
(define accept:peer hbs2:mailbox:policy:basic:accept:peer)
|
|
|
|
;; some policy
|
|
|
|
println ";; test some basic policy"
|
|
|
|
println
|
|
|
|
hbs2:mailbox:policy:basic:dump po1
|
|
|
|
println
|
|
|
|
println sender || s1 || allowed || [accept:sender s1 po1]
|
|
println sender || s2 || allowed || [accept:sender s2 po1]
|
|
|
|
println peer || s3 || allowed || [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 || [accept:peer s1 po0]
|
|
println peer || s2 || allowed || [accept:peer s2 po0]
|
|
|
|
println sender || s1 || allowed || [accept:sender s1 po0]
|
|
println sender || s2 || allowed || [accept:sender s2 po0]
|
|
|
|
|
|
define shitty-policy [hbs2:mailbox:policy:basic:read:syntax [quot [
|
|
[shit 1]
|
|
[shit 2]
|
|
[shit 3]
|
|
bullshit
|
|
]]]
|
|
|
|
;; malformed policy
|
|
|
|
println
|
|
|
|
println ";; test malformed policy"
|
|
|
|
println
|
|
|
|
hbs2:mailbox:policy:basic:dump shitty-policy
|
|
|
|
println
|
|
|
|
println peer || s1 || allowed || [accept:peer s1 shitty-policy]
|
|
println peer || s2 || allowed || [accept:peer s2 shitty-policy]
|
|
|
|
println sender || s1 || allowed || [accept:sender s1 shitty-policy]
|
|
println sender || s2 || allowed || [accept:sender s2 shitty-policy]
|
|
|
|
|
|
; print :fuck
|
|
|