coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

datalog: disjunction via multiple rules test (231/231)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 52s
Details

Browse Source
This commit is contained in:
giles
2026-05-08 14:12:34 +00:00
parent f12edc8fd9
commit 0985dc6386
3 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/datalog/scoreboard.json
View File

@@ -1,13 +1,13 @@
{ {
"lang": "datalog", "lang": "datalog",
"total_passed": 230, "total_passed": 231,
"total_failed": 0, "total_failed": 0,
"total": 230, "total": 231,
"suites": [ "suites": [
{"name":"tokenize","passed":26,"failed":0,"total":26}, {"name":"tokenize","passed":26,"failed":0,"total":26},
{"name":"parse","passed":18,"failed":0,"total":18}, {"name":"parse","passed":18,"failed":0,"total":18},
{"name":"unify","passed":28,"failed":0,"total":28}, {"name":"unify","passed":28,"failed":0,"total":28},
{"name":"eval","passed":31,"failed":0,"total":31}, {"name":"eval","passed":32,"failed":0,"total":32},
{"name":"builtins","passed":20,"failed":0,"total":20}, {"name":"builtins","passed":20,"failed":0,"total":20},
{"name":"semi_naive","passed":8,"failed":0,"total":8}, {"name":"semi_naive","passed":8,"failed":0,"total":8},
{"name":"negation","passed":10,"failed":0,"total":10}, {"name":"negation","passed":10,"failed":0,"total":10},
@@ -16,5 +16,5 @@
{"name":"magic","passed":28,"failed":0,"total":28}, {"name":"magic","passed":28,"failed":0,"total":28},
{"name":"demo","passed":21,"failed":0,"total":21} {"name":"demo","passed":21,"failed":0,"total":21}
], ],
"generated": "2026-05-08T14:07:50+00:00" "generated": "2026-05-08T14:12:22+00:00"
} }

4
lib/datalog/scoreboard.md
View File

@@ -1,13 +1,13 @@
# datalog scoreboard # datalog scoreboard
**230 / 230 passing** (0 failure(s)). **231 / 231 passing** (0 failure(s)).
| Suite | Passed | Total | Status | | Suite | Passed | Total | Status |
|-------|--------|-------|--------| |-------|--------|-------|--------|
| tokenize | 26 | 26 | ok | | tokenize | 26 | 26 | ok |
| parse | 18 | 18 | ok | | parse | 18 | 18 | ok |
| unify | 28 | 28 | ok | | unify | 28 | 28 | ok |
| eval | 31 | 31 | ok | | eval | 32 | 32 | ok |
| builtins | 20 | 20 | ok | | builtins | 20 | 20 | ok |
| semi_naive | 8 | 8 | ok | | semi_naive | 8 | 8 | ok |
| negation | 10 | 10 | ok | | negation | 10 | 10 | ok |

13
lib/datalog/tests/eval.sx
View File

@@ -273,6 +273,19 @@
(dl-saturated? db)) (dl-saturated? db))
false) false)
;; Disjunction via multiple rules — Datalog has no `;` in
;; body, so disjunction is expressed as separate rules with
;; the same head. Here plant_based(X) is satisfied by either
;; vegan(X) or vegetarian(X).
(dl-et-test-set! "disjunction via multiple rules"
(dl-query
(dl-program
"vegan(alice). vegetarian(bob). meat_eater(carol).
plant_based(X) :- vegan(X).
plant_based(X) :- vegetarian(X).")
(list (quote plant_based) (quote X)))
(list {:X (quote alice)} {:X (quote bob)}))
;; Bipartite-style join: pair-of-friends who share a hobby. ;; Bipartite-style join: pair-of-friends who share a hobby.
;; Three-relation join exercising the planner's join order. ;; Three-relation join exercising the planner's join order.
(dl-et-test-set! "bipartite friends-with-hobby" (dl-et-test-set! "bipartite friends-with-hobby"