diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-04-03 16:04:05 -0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-04-03 16:04:05 -0300 |
| commit | c5bc3a4992b4968780c286a084ad7c02b2b58f1e (patch) | |
| tree | 08968488ad87aeb37fb0178d063816b7765d546c /test/test_relational_engine.ml | |
| parent | 013cbf09e4ea9871311bf52b6873c43fc9be5441 (diff) | |
| download | Sakura-c5bc3a4992b4968780c286a084ad7c02b2b58f1e.tar.gz Sakura-c5bc3a4992b4968780c286a084ad7c02b2b58f1e.zip | |
Polarity walker, constraint and manipulation refactor with batteries
Diffstat (limited to 'test/test_relational_engine.ml')
| -rw-r--r-- | test/test_relational_engine.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/test_relational_engine.ml b/test/test_relational_engine.ml index 081ed39..619bc27 100644 --- a/test/test_relational_engine.ml +++ b/test/test_relational_engine.ml @@ -2863,9 +2863,9 @@ let%test_unit "merge: no-op when both sides are identical" = assert (Management.Database.get_relation_names merged = Management.Database.get_relation_names base_db)) -(* Helper: look up polarity for a relation name in the result list *) +(* Helper: look up polarity for a relation name in the result map *) let find_polarity name pols = - List.assoc_opt name pols + Constraint.PolarityMap.find_opt name pols let%test_unit "polarity: MemberOf target is Positive" = let c = Constraint.MemberOf { |