content: lock op-log block-type coverage (callout/media via store) + 4 tests (746/746)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 39s
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 39s
Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
@@ -119,3 +119,35 @@
|
||||
"head of empty stream"
|
||||
(doc-ids (content/head B "never"))
|
||||
(list))
|
||||
|
||||
;; ── op-log carries non-core block types (callout/media) through replay ──
|
||||
(content-bootstrap-callout!)
|
||||
(content-bootstrap-media!)
|
||||
(define B3 (persist/open))
|
||||
(content/commit!
|
||||
B3
|
||||
"rich"
|
||||
(op-insert (mk-callout "co" "note" "hi") nil)
|
||||
1)
|
||||
(content/commit!
|
||||
B3
|
||||
"rich"
|
||||
(op-insert (mk-media "v" "video" "/c.mp4") "co")
|
||||
2)
|
||||
(content/commit! B3 "rich" (op-update "co" "text" "edited") 3)
|
||||
(content-test
|
||||
"op-log rich ids"
|
||||
(doc-ids (content/head B3 "rich"))
|
||||
(list "co" "v"))
|
||||
(content-test
|
||||
"op-log callout type"
|
||||
(blk-type (doc-find (content/head B3 "rich") "co"))
|
||||
"callout")
|
||||
(content-test
|
||||
"op-log callout update"
|
||||
(str (blk-send (doc-find (content/head B3 "rich") "co") "text"))
|
||||
"edited")
|
||||
(content-test
|
||||
"op-log media type"
|
||||
(blk-type (doc-find (content/head B3 "rich") "v"))
|
||||
"media")
|
||||
|
||||
Reference in New Issue
Block a user