diff options
| author | Marcos Magueta <mmagueta@MacMini.local> | 2024-11-24 22:23:32 -0300 |
|---|---|---|
| committer | Marcos Magueta <mmagueta@MacMini.local> | 2024-11-24 22:23:32 -0300 |
| commit | 3235bcba70e0b9a5e9a8ed0fc18f96ce5c6beb57 (patch) | |
| tree | 0d7202961ebb0fc62d593c6ff403fbafdf0292db /test | |
| parent | c310cdc8d684a89e24b8b5910e39c4894b60c7c0 (diff) | |
| download | Sakura-3235bcba70e0b9a5e9a8ed0fc18f96ce5c6beb57.tar.gz Sakura-3235bcba70e0b9a5e9a8ed0fc18f96ce5c6beb57.zip | |
relation building
Diffstat (limited to 'test')
| -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 cc9652b..65d03d4 100644 --- a/test/test_relational_engine.ml +++ b/test/test_relational_engine.ml @@ -3,7 +3,7 @@ let%test _ = let open Relational_engine.Disk.Executor in let stream: history = [{state = _EMPTY_SHA_HASH_; files = StringMap.empty}] in let locations: locations = StringMap.empty in - let (new_commit, _) = Result.get_ok @@ write (List.hd stream) locations ~filename:"trash" @@ Bytes.of_string "abc" in + let ((new_commit, _), _) = Result.get_ok @@ write (List.hd stream) locations ~filename:"trash" @@ Bytes.of_string "abc" in let expected_state_hash = "bca39cc55b19274133ce57d0bea1ff794589f025d4bcf670c44d5d2811837830" in new_commit.state = expected_state_hash @@ -11,7 +11,7 @@ let%test _ = let open Relational_engine.Disk.Executor in let stream: history = [{state = _EMPTY_SHA_HASH_; files = StringMap.empty}] in let locations: locations = StringMap.empty in - let (new_commit, new_locations) = Result.get_ok @@ write (List.hd stream) locations ~filename:"trash" @@ Bytes.of_string "abc" in + let ((new_commit, new_locations), _) = Result.get_ok @@ write (List.hd stream) locations ~filename:"trash" @@ Bytes.of_string "abc" in let result_test = let open Relational_engine.Extensions.Option in let+ new_file_content = StringMap.find_opt "trash" new_commit.files in |