giles
e7501bdf8f
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 49s
Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
119 lines
2.9 KiB
Plaintext
119 lines
2.9 KiB
Plaintext
; Phase 1 — normalize, stream ops, api. Uses the feed-test harness
|
|
; (feed-test name got expected) provided by conformance.sh.
|
|
|
|
; ---------- normalize ----------
|
|
|
|
(feed-test
|
|
"normalize default actor"
|
|
(feed/actor (feed/normalize {}))
|
|
"")
|
|
(feed-test
|
|
"normalize default verb"
|
|
(feed/verb (feed/normalize {}))
|
|
"post")
|
|
(feed-test
|
|
"normalize default at"
|
|
(feed/at (feed/normalize {}))
|
|
0)
|
|
(feed-test
|
|
"normalize default object"
|
|
(feed/object (feed/normalize {}))
|
|
nil)
|
|
(feed-test
|
|
"normalize default tags"
|
|
(feed/tags (feed/normalize {}))
|
|
(list))
|
|
(feed-test
|
|
"normalize keeps actor"
|
|
(feed/actor (feed/normalize {:actor "alice"}))
|
|
"alice")
|
|
(feed-test
|
|
"normalize keeps verb"
|
|
(feed/verb (feed/normalize {:verb "like"}))
|
|
"like")
|
|
(feed-test
|
|
"normalize scalar tag -> list"
|
|
(feed/tags (feed/normalize {:tags "x"}))
|
|
(list "x"))
|
|
(feed-test
|
|
"normalize list tags kept"
|
|
(feed/tags (feed/normalize {:tags (list "a" "b")}))
|
|
(list "a" "b"))
|
|
(feed-test
|
|
"activity constructor at"
|
|
(feed/at (feed/activity "a" "post" "o" 5 (list)))
|
|
5)
|
|
(feed-test
|
|
"activity? on activity"
|
|
(feed/activity? (feed/normalize {:actor "a"}))
|
|
true)
|
|
(feed-test "activity? on number" (feed/activity? 5) false)
|
|
(feed-test "activity? on bare dict" (feed/activity? {:foo 1}) false)
|
|
|
|
; ---------- stream ----------
|
|
|
|
(define
|
|
S
|
|
(feed/stream
|
|
(list
|
|
(feed/activity "alice" "post" "p1" 30 (list))
|
|
(feed/activity "bob" "like" "p1" 10 (list))
|
|
(feed/activity "alice" "post" "p2" 20 (list)))))
|
|
|
|
(feed-test "stream count" (feed/count S) 3)
|
|
(feed-test "stream items len" (len (feed/items S)) 3)
|
|
(feed-test
|
|
"sort-by-at actors asc"
|
|
(map feed/actor (feed/items (feed/sort-by-at S)))
|
|
(list "bob" "alice" "alice"))
|
|
(feed-test
|
|
"recent newest first"
|
|
(map feed/at (feed/items (feed/recent S)))
|
|
(list 30 20 10))
|
|
(feed-test
|
|
"take 2 of recent"
|
|
(feed/count (feed/take (feed/recent S) 2))
|
|
2)
|
|
(feed-test
|
|
"take clamps past end"
|
|
(feed/count (feed/take S 10))
|
|
3)
|
|
(feed-test
|
|
"by-actor alice count"
|
|
(feed/count (feed/by-actor S "alice"))
|
|
2)
|
|
(feed-test
|
|
"by-verb like actor"
|
|
(map feed/actor (feed/items (feed/by-verb S "like")))
|
|
(list "bob"))
|
|
(feed-test
|
|
"by-object p1 count"
|
|
(feed/count (feed/by-object S "p1"))
|
|
2)
|
|
(feed-test
|
|
"since 20 count"
|
|
(feed/count (feed/since S 20))
|
|
2)
|
|
(feed-test
|
|
"reverse ats"
|
|
(map feed/at (feed/items (feed/reverse S)))
|
|
(list 20 10 30))
|
|
(feed-test "empty? on empty" (feed/empty? feed/empty) true)
|
|
(feed-test
|
|
"empty? on filtered-out"
|
|
(feed/empty? (feed/by-actor S "zzz"))
|
|
true)
|
|
|
|
; ---------- api ----------
|
|
|
|
(feed/reset!)
|
|
(feed/post {:actor "x" :at 1 :verb "post"})
|
|
(feed/post {:actor "y" :at 2 :verb "like"})
|
|
(feed-test "api size after posts" (feed/size) 2)
|
|
(feed-test "api all count" (feed/count (feed/all)) 2)
|
|
(feed-test
|
|
"post returns normalized verb"
|
|
(feed/verb (feed/post {:actor "z"}))
|
|
"post")
|
|
(feed-test "api size after third post" (feed/size) 3)
|