msyds/net-deertopia
1
0
Fork 0
Code Issues 13 Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-03-25 09:14:37 -06:00
parent 97b83f3516
commit 147c98ab61
3 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
publisher/test/net/deertopia/publisher/roam-test.db Normal file
View File

Binary file not shown.

7
publisher/test/net/deertopia/publisher/roam-test/20260325083230-awesome_file.org Normal file
View File

@@ -0,0 +1,7 @@
:PROPERTIES:
:ID: 23ee464d-b13e-4649-826f-622d0edef24e
:DeertopiaVisibility: public
:END:
#+title: awesome file
wow!

8
publisher/test/net/deertopia/publisher/server_test.clj
View File

@@ -7,16 +7,10 @@
[net.deertopia.publisher :as-alias publisher])) [net.deertopia.publisher :as-alias publisher]))
(t/deftest server-is-running (t/deftest server-is-running
;; 서버가 벌써 시작한 다음에 이 테스트 하면 잘못됩니다. ;; 서버는 벌써 시작한 다음에 이 테스트 하면 잘못됩니다.
(assert (not= :running (sut/status))) (assert (not= :running (sut/status)))
(sut/start!) (sut/start!)
(t/is (= :running (sut/status))) (t/is (= :running (sut/status)))
(sut/stop!))
(t/deftest can-get-real-server-root
;; 서버가 벌써 시작한 다음에 이 테스트 하면 잘못됩니다.
(assert (not= :running (sut/status)))
(sut/start!)
(t/is (->> (format "http://localhost:%d" (::publisher/port cfg/*cfg*)) (t/is (->> (format "http://localhost:%d" (::publisher/port cfg/*cfg*))
slurp slurp
string?)) string?))