Add generative tests for set-guide change

This commit is contained in:
Andrey Antukh 2024-09-09 14:34:22 +02:00 committed by Alonso Torres
parent fa75a3539f
commit 4f84e77b10
5 changed files with 89 additions and 19 deletions

View file

@ -110,8 +110,8 @@
(dm/assert!
"expect valid vector of changes"
(and (cpc/check-changes! redo-changes)
(cpc/check-changes! undo-changes)))
(and (cpc/valid-changes? redo-changes)
(cpc/valid-changes? undo-changes)))
(let [commit-id (or commit-id (uuid/next))
source (d/nilv source :local)

View file

@ -676,7 +676,7 @@
(defn ext-library-changed
[library-id modified-at revn changes]
(dm/assert! (uuid? library-id))
(dm/assert! (ch/check-changes! changes))
(dm/assert! (ch/valid-changes? changes))
(ptk/reify ::ext-library-changed
ptk/UpdateEvent
(update [_ state]