From 80b0e6fa676afaefbd3a6dc9edeab073343f0a2b Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Thu, 1 Oct 2026 00:53:12 -0300
Subject: fix multigroup deriving and tests

---
 test/Helpers.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'test/Helpers.ml')

diff --git a/test/Helpers.ml b/test/Helpers.ml
index 7f65007..f812a3a 100644
--- a/test/Helpers.ml
+++ b/test/Helpers.ml
@@ -51,7 +51,9 @@ module Storage = struct
                   SR.TupleSet.insert tx (Concepts.Tuple.hash tuple) tuple node )
                 (Ok SR.TupleSet.empty) tuples
             in
-            Ok {SR.schematics; tuples= SR.TupleSet.hash_of node} )
+            let relation = {SR.schematics; tuples= SR.TupleSet.hash_of node} in
+            let* _ = SI.store_blob tx (SR.encode relation) in
+            Ok relation )
       in
       SR.load conn value
 
-- 
cgit v1.2.3