Another firewall-demo example case
This commit is contained in:
parent
e7dc36f126
commit
c1681f7804
|
@ -40,3 +40,11 @@
|
|||
(firewall [(allow (a 'ok-kid))]
|
||||
(assert (a 'forbidden-parent))
|
||||
(on-start (actor (assert (a _)))))
|
||||
|
||||
(firewall [(allow (a 'ok-kid2))
|
||||
(allow (a 'ok-parent2))]
|
||||
(assert (a 'ok-parent2))
|
||||
(assert (a 'forbidden-parent2))
|
||||
(on-start (firewall [(allow ?)
|
||||
(forbid (a 'ok-parent2))]
|
||||
(assert (a _)))))
|
||||
|
|
Loading…
Reference in New Issue