thevar1able/ClickHouse
1
0
Fork 0
mirror of https://github.com/ClickHouse/ClickHouse.git synced 2024-09-20 16:50:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

Debug jepsen gdb

Browse Source
This commit is contained in:
alesapin 2021-04-01 11:06:42 +03:00
parent 1c8717b042
commit c2c150bd22
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/jepsen.clickhouse-keeper/src/jepsen/clickhouse_keeper/db.clj
View File

@ -90,6 +90,14 @@
(c/exec :echo (slurp (io/resource "listen.xml")) :> (str sub-configs-dir "/listen.xml")) (c/exec :echo (slurp (io/resource "listen.xml")) :> (str sub-configs-dir "/listen.xml"))
(c/exec :echo (cluster-config test node (slurp (io/resource "keeper_config.xml"))) :> (str sub-configs-dir "/keeper_config.xml"))) (c/exec :echo (cluster-config test node (slurp (io/resource "keeper_config.xml"))) :> (str sub-configs-dir "/keeper_config.xml")))
(defn collect-traces
[test node]
(let [pid (c/exec :cat pid-file-path)]
(info "Executing gdb on pid" pid)
(c/exec :gdb :-ex "set pagination off" :-ex "set logging file " (str common-prefix "/gdb.log") :-ex
"set logging on" :-ex "backtrace" :-ex "thread apply all backtrace"
:-ex "backtrace" :--pid pid)))
(defn db (defn db
[version reuse-binary] [version reuse-binary]
(reify db/DB (reify db/DB
@ -110,19 +118,28 @@
(teardown! [_ test node] (teardown! [_ test node]
(info node "Tearing down clickhouse") (info node "Tearing down clickhouse")
(kill-clickhouse! node test)
(c/su (c/su
(kill-clickhouse! node test)
(if (not reuse-binary) (if (not reuse-binary)
(c/exec :rm :-rf binary-path)) (c/exec :rm :-rf binary-path))
(c/exec :rm :-rf pid-file-path) (c/exec :rm :-rf pid-file-path)
(c/exec :rm :-rf data-dir) (c/exec :rm :-rf data-dir)
;(c/exec :rm :-rf logs-dir) (c/exec :rm :-rf logs-dir)
(c/exec :rm :-rf configs-dir))) (c/exec :rm :-rf configs-dir)))
db/LogFiles db/LogFiles
(log-files [_ test node] (log-files [_ test node]
(c/su (c/su
(if (cu/exists? pid-file-path)
(do
(info node "Collecting traces")
(collect-traces test node))
(info node "Pid files doesn't exists"))
(kill-clickhouse! node test) (kill-clickhouse! node test)
(c/cd data-dir (c/cd data-dir
(c/exec :tar :czf "coordination.tar.gz" "coordination"))) (c/exec :tar :czf "coordination.tar.gz" "coordination")))
[stderr-file (str logs-dir "/clickhouse-server.log") (str data-dir "/coordination.tar.gz")]))) (let [common-logs [stderr-file (str logs-dir "/clickhouse-server.log") (str data-dir "/coordination.tar.gz")]
gdb-log (str common-prefix "/gdb.log")]
(if (cu/exists? (str common-prefix "/gdb.log"))
(conj common-logs gdb-log)
common-logs)))))