giles
01be84b5d8
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 1m3s
mod/decide-strictest collects every proven rule (pl-query-all) and applies the harshest action by mod/action-severity (keep<escalate<hide<remove<ban), an alternative to the engine's first-match precedence. Diverges from first-match exactly when rule order and severity disagree. Same decision shape + :strategy; engine untouched. Own suite. +14 tests. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
121 lines
3.4 KiB
Plaintext
121 lines
3.4 KiB
Plaintext
;; lib/mod/tests/severity.sx — Ext 6: strictest-wins decision strategy.
|
|
|
|
(define mod-sev-count 0)
|
|
(define mod-sev-pass 0)
|
|
(define mod-sev-fail 0)
|
|
(define mod-sev-failures (list))
|
|
|
|
(define
|
|
mod-sev-test!
|
|
(fn
|
|
(name got expected)
|
|
(begin
|
|
(set! mod-sev-count (+ mod-sev-count 1))
|
|
(if
|
|
(= got expected)
|
|
(set! mod-sev-pass (+ mod-sev-pass 1))
|
|
(begin
|
|
(set! mod-sev-fail (+ mod-sev-fail 1))
|
|
(append!
|
|
mod-sev-failures
|
|
(str name "\n expected: " expected "\n got: " got)))))))
|
|
|
|
;; ── severity ranking ──
|
|
|
|
(mod-sev-test! "ban most severe" (mod/action-severity "ban") 4)
|
|
(mod-sev-test!
|
|
"remove > hide"
|
|
(< (mod/action-severity "hide") (mod/action-severity "remove"))
|
|
true)
|
|
(mod-sev-test! "keep least severe" (mod/action-severity "keep") 0)
|
|
(mod-sev-test!
|
|
"escalate above keep"
|
|
(< (mod/action-severity "keep") (mod/action-severity "escalate"))
|
|
true)
|
|
|
|
;; ── strictest agrees with default-rules on simple cases ──
|
|
|
|
(define mod-sev-spam (mod/mk-report "r1" "a" "b" "this is spam"))
|
|
(mod-sev-test!
|
|
"strictest spam → hide"
|
|
(get
|
|
(mod/decide-strictest mod-sev-spam (list mod-sev-spam) mod/default-rules)
|
|
:action)
|
|
"hide")
|
|
(define mod-sev-clean (mod/mk-report "r2" "a" "b" "a fine post"))
|
|
(mod-sev-test!
|
|
"strictest clean → keep"
|
|
(get
|
|
(mod/decide-strictest
|
|
mod-sev-clean
|
|
(list mod-sev-clean)
|
|
mod/default-rules)
|
|
:action)
|
|
"keep")
|
|
(mod-sev-test!
|
|
"decision tagged strategy strictest"
|
|
(get
|
|
(mod/decide-strictest mod-sev-spam (list mod-sev-spam) mod/default-rules)
|
|
:strategy)
|
|
"strictest")
|
|
|
|
;; ── strictest diverges from first-match when order ≠ severity ──
|
|
|
|
(define
|
|
mod-sev-rules
|
|
(list
|
|
(mod/mk-rule
|
|
"early-escalate"
|
|
:escalate (list (list :count-at-least 1)))
|
|
(mod/mk-rule "spam-remove" :remove (list (list :classification "spam")))
|
|
(mod/mk-rule "default-keep" :keep (list))))
|
|
|
|
(define mod-sev-r (mod/mk-report "r3" "a" "b" "this is spam"))
|
|
|
|
(mod-sev-test!
|
|
"first-match picks earliest rule (escalate)"
|
|
(get (mod/decide-report mod-sev-r (list mod-sev-r) mod-sev-rules) :action)
|
|
"escalate")
|
|
(mod-sev-test!
|
|
"strictest picks harshest action (remove)"
|
|
(get
|
|
(mod/decide-strictest mod-sev-r (list mod-sev-r) mod-sev-rules)
|
|
:action)
|
|
"remove")
|
|
(mod-sev-test!
|
|
"strictest names the harshest rule"
|
|
(get (mod/decide-strictest mod-sev-r (list mod-sev-r) mod-sev-rules) :rule)
|
|
"spam-remove")
|
|
(mod-sev-test!
|
|
"strictest carries proof goals"
|
|
(len
|
|
(get
|
|
(get
|
|
(mod/decide-strictest mod-sev-r (list mod-sev-r) mod-sev-rules)
|
|
:proof)
|
|
:goals))
|
|
1)
|
|
|
|
;; ── strictest among three matches (spam + repeated) ──
|
|
|
|
(define mod-sev-rep (mod/mk-report "r4" "a" "b" "buy now spam"))
|
|
(define mod-sev-reps (list mod-sev-rep mod-sev-rep mod-sev-rep))
|
|
(mod-sev-test!
|
|
"strictest among hide+escalate+keep → hide (default rules)"
|
|
(get
|
|
(mod/decide-strictest mod-sev-rep mod-sev-reps mod/default-rules)
|
|
:action)
|
|
"hide")
|
|
|
|
;; ── strictest-sol helper ──
|
|
|
|
(mod-sev-test!
|
|
"strictest-sol picks max severity"
|
|
(dict-get
|
|
(mod/strictest-sol (list {:Action "keep" :Rule "k"} {:Action "remove" :Rule "r"} {:Action "hide" :Rule "h"}))
|
|
"Action")
|
|
"remove")
|
|
(mod-sev-test! "strictest-sol nil for empty" (mod/strictest-sol (list)) nil)
|
|
|
|
(define mod-severity-tests-run! (fn () {:failures mod-sev-failures :total mod-sev-count :passed mod-sev-pass :failed mod-sev-fail}))
|