Skip to content

Commit

Permalink
one more attempt
Browse files Browse the repository at this point in the history
  • Loading branch information
Aleksandr Shevchuk committed Oct 18, 2024
1 parent 4370042 commit a47705a
Show file tree
Hide file tree
Showing 2 changed files with 29 additions and 9 deletions.
4 changes: 4 additions & 0 deletions .github/workflows/docker-jepsen.yml
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,10 @@ name: Jepsen tests
on:
schedule:
- cron: '0 0 * * *'
push:
branches: [ master ]
pull_request:
branches: [ master ]

env:
GO_VERSION: 1.22.4
Expand Down
34 changes: 25 additions & 9 deletions tests/images/jepsen_main/jepsen/src/jepsen/mysync.clj
Original file line number Diff line number Diff line change
Expand Up @@ -76,6 +76,15 @@
client/Reusable
(reusable? [_ test] true)))

(defn read_portion [c n chunk_size]
(def q (str "select value from test1.test_set order by value desc limit " chunk_size " offset " (* n chunk_size)))
(info (str "Query: " q))
(def result_value (->> (j/query c [q]
{:row-fn :value})
(vec)
(set)))
result_value)

(defn mysql-client
"MySQL client"
[conn]
Expand All @@ -93,15 +102,22 @@
(try
(with-conn [c conn]
(case (:f op)
:read (timeout 600000 (assoc op :type :info, :error "read-timeout")
(cond (= (count (j/query c ["show slave status for channel ''"])) 0)
:read (timeout 1200000 (assoc op :type :info, :error "read-timeout")
(cond (= (count (j/query c ["show slave status for channel ''"])) 0)
(do
(def value_cnt (:count (first (j/query c ["select count(*) as count from test1.test_set"]))))
(def chunk_size 5000)
(def total_cnt (Math/ceil (/ value_cnt chunk_size)))
(info (str "Values count: " value_cnt))
(info (str "Values ceil: " total_cnt))
(def result_set (set '()))
(dotimes [n (+ total_cnt 1)]
(info (str "Reading portion " n))
(def result_set (set/union result_set (read_portion c n chunk_size))))
(assoc op :type :ok,
:value (->> (j/query c ["select value from test1.test_set"]
{:row-fn :value})
(vec)
(set)))
true
(assoc op :type :info, :error "read-only")))
:value result_set))
true
(assoc op :type :info, :error "read-only")))
:add (timeout 5000 (assoc op :type :info, :error "add-timeout")
(do
(info (str "Adding: " (get op :value) " to " (get c :subname)))
Expand Down Expand Up @@ -276,7 +292,7 @@
(gen/nemesis
(fn [] (map gen/once
[{:type :info, :f :stop}
{:type :sleep, :value 600}])))
{:type :sleep, :value 1200}])))
(gen/time-limit 1200)))
:checker mysync-set
:remote control/ssh})

0 comments on commit a47705a

Please sign in to comment.