Streamful

Check-in [a79cd2aea0]
Login

Check-in [a79cd2aea0]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:A few more comments
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: a79cd2aea026c0b6645f152be08c08dec38ba7313d980867176dcc2df30fa11d
User & Date: scstarkey 2025-03-13 13:53:16
Context
2025-03-13
13:56
Make show-thread a bit more configurable check-in: effb2fd9bf user: scstarkey tags: trunk
13:53
A few more comments check-in: a79cd2aea0 user: scstarkey tags: trunk
13:50
Proved we can fetch and display a complete thread check-in: 297cac6152 user: scstarkey tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/streamful/manual_testing.clj.

︙︙
205
206
207
208
209
210
211

212
213
214
215
216

217
218
219
220
221
222
223

                            :rid msg-id1
                            :tid msg-id1})

  (client/submit-message c {:sid "personal"
                            :t "how are things?"
                            :rid "MMWF6M+lEBSXXVRdWMnyy1DIk4ydccFfD7GN6WVvuM0="
                            :tid msg-id1})


  (client/submit-message c {:sid "public"
                            :t "things are great!"
                            :rid "eoaJIufUEywUL3OEc0iilUsmoN/aKRw9MDdEcoUBGwM="
                            :tid msg-id1})


  (do (as c (new-keys)) (client/get-messages c {:sid "root"}))
  ;=> {:response {"status" "stream not found"}}

  (client/is-open? c)

  (time (doseq [x (range 25)] (println (client/ping c (str "go: " x)))))








>





>








205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225

                            :rid msg-id1
                            :tid msg-id1})

  (client/submit-message c {:sid "personal"
                            :t "how are things?"
                            :rid "MMWF6M+lEBSXXVRdWMnyy1DIk4ydccFfD7GN6WVvuM0="
                            :tid msg-id1})
  ;;=> {:response "ok eoaJIufUEywUL3OEc0iilUsmoN/aKRw9MDdEcoUBGwM="}

  (client/submit-message c {:sid "public"
                            :t "things are great!"
                            :rid "eoaJIufUEywUL3OEc0iilUsmoN/aKRw9MDdEcoUBGwM="
                            :tid msg-id1})
  ;;=> {:response "ok 06JrKtAYmESrDB4vMy3wpARJNibRn5D1vCGKVlyBPWQ="}

  (do (as c (new-keys)) (client/get-messages c {:sid "root"}))
  ;=> {:response {"status" "stream not found"}}

  (client/is-open? c)

  (time (doseq [x (range 25)] (println (client/ping c (str "go: " x)))))
︙︙