1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
infinite = 1_000_000_000_000_000_000_000_000_000_000_000_000_000_000_000
parallel = case Integer.parse(System.get_env("PARALLEL", "")) do
{int, _} -> int
_ -> System.schedulers_online()/2
end
multi_count = case Integer.parse(System.get_env("MULTI", "")) do
{int, _} -> int
_ -> parallel
end
names = fn(prefix) ->
for i <- 1..multi_count do
Module.concat(MultiConcurrentLimiterBenchmark, "#{prefix}#{i}")
end
end
bench_unique = for name <- names.("u") do
ConcurrentLimiter.new(name, infinite, 0, backend: {:ets, name, []})
name
end
IO.inspect(bench_unique)
bench_atomics = for name <- names.("a") do
ConcurrentLimiter.new(name, infinite, 0, backend: :atomics)
name
end
bench_shared = for name <- names.("s") do
ConcurrentLimiter.new(name, infinite, 0, backend: {:ets, ConcurrentLimiterTest, []})
name
end
rw = [{:read_concurrency, true}, {:write_concurrency, true}]
bench_unique_rw = for name <- names.("u_rw") do
ConcurrentLimiter.new(name, infinite, 0, backend: {:ets, name, rw})
name
end
bench_shared_rw = for name <- names.("s_rw") do
ConcurrentLimiter.new(name, infinite, 0, backend: {:ets, ConcurrentLimiterTestRW, rw})
name
end
multiple = %{
"ConcurrentLimiter.limit/2 unique ets" => fn ->
limiter = Enum.random(bench_unique)
ConcurrentLimiter.limit(limiter, fn -> :ok end)
end,
"ConcurrentLimiter:limit/2 shared ets" => fn ->
limiter = Enum.random(bench_shared)
ConcurrentLimiter.limit(limiter, fn -> :ok end)
end,
"ConcurrentLimiter.limit/2 unique ets, concurrency" => fn ->
limiter = Enum.random(bench_unique_rw)
ConcurrentLimiter.limit(limiter, fn -> :ok end)
end,
"ConcurrentLimiter:limit/2 shared ets, concurrency" => fn ->
limiter = Enum.random(bench_shared_rw)
ConcurrentLimiter.limit(limiter, fn -> :ok end)
end,
"ConcurrentLimiter:limit/2 atomics" => fn ->
limiter = Enum.random(bench_atomics)
ConcurrentLimiter.limit(limiter, fn -> :ok end)
end
}
IO.puts("\n\n\n\nmulti, sequential\n\n\n\n")
Benchee.run(multiple)
IO.puts("\n\n\n\nmulti, parallel\n\n\n\n")
Benchee.run(multiple, parallel: System.schedulers_online())
|
