Fix bug where records with deletions are not handled

Fixes #29.

Author: ProjectFrank

CHANGELOG.md

@@ -4,6 +4,8 @@
 
 ## Fixed
 
+- Fix issue (Fails with records with deleted keys)[https://github.com/lambdaisland/deep-diff2/issues/29]
+
 ## Changed
 
 # 2.3.127 (2022-07-01 / a8186a5)

src/lambdaisland/deep_diff2/diff_impl.cljc

@@ -107,7 +107,7 @@
       (fn [[m idx] k]
         [(cond-> m
            (contains? del idx)
-           (assoc (->Deletion k) (exp k))
+           (assoc (->Deletion k) (get exp k))
 
            (not (contains? del idx))
            (assoc k (diff (get exp k) (get act k)))

test/lambdaisland/deep_diff2/diff_test.cljc

@@ -96,7 +96,9 @@
       (is (= {:a (diff/->Mismatch 1 2)}
              (diff/diff (map->ARecord {:a 1}) (map->ARecord {:a 2}))))
       (is (= {(diff/->Insertion :a) 1}
-             (diff/diff (map->ARecord {}) (map->ARecord {:a 1}))))))
+             (diff/diff (map->ARecord {}) (map->ARecord {:a 1}))))
+      (is (= {(diff/->Deletion :a) 1}
+             (diff/diff (map->ARecord {:a 1}) (map->ARecord {}))))))
 
   (is (= [{:x (diff/->Mismatch 1 2)}]
          (diff/diff [{:x 1}] [{:x 2}])))