AkkomaGang/majic
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge branch 'nimblepool' into develop

Browse source
This commit is contained in:
Jordan Bracco 2020-05-13 21:34:50 +02:00
commit 6134300c6c
2 changed files with 17 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lib/gen_magic/pool.ex
View file

@ -1,5 +1,6 @@
defmodule GenMagic.Pool do defmodule GenMagic.Pool do
@behaviour NimblePool @behaviour NimblePool
@moduledoc "Pool of `GenMagic.Server`"
def start_link(options, pool_size \\ nil) do def start_link(options, pool_size \\ nil) do
pool_size = pool_size || System.schedulers_online() pool_size = pool_size || System.schedulers_online()
@ -10,18 +11,25 @@ defmodule GenMagic.Pool do
pool_timeout = Keyword.get(opts, :pool_timeout, 5000) pool_timeout = Keyword.get(opts, :pool_timeout, 5000)
timeout = Keyword.get(opts, :timeout, 5000) timeout = Keyword.get(opts, :timeout, 5000)
NimblePool.checkout!(pool, :checkout, fn _, server -> NimblePool.checkout!(
{GenMagic.Server.perform(server, path, timeout), server} pool,
end, pool_timeout) :checkout,
fn _, server ->
{GenMagic.Server.perform(server, path, timeout), server}
end,
pool_timeout
)
end end
@impl NimblePool @impl NimblePool
def init_pool(options) do def init_pool(options) do
{name, options} = case Keyword.pop(options, :name) do {name, options} =
{name, options} when is_atom(name) -> {name, options} case Keyword.pop(options, :name) do
{nil, options} -> {__MODULE__, options} {name, options} when is_atom(name) -> {name, options}
{_, options} -> {nil, options} {nil, options} -> {__MODULE__, options}
end {_, options} -> {nil, options}
end
if name, do: Process.register(self(), name) if name, do: Process.register(self(), name)
{:ok, options} {:ok, options}
end end
@ -46,5 +54,4 @@ defmodule GenMagic.Pool do
def terminate_worker(_reason, _worker, state) do def terminate_worker(_reason, _worker, state) do
{:ok, state} {:ok, state}
end end
end end

3
test/gen_magic/pool_test.exs
View file

@ -2,7 +2,7 @@ defmodule GenMagic.PoollTest do
use GenMagic.MagicCase use GenMagic.MagicCase
test "pool" do test "pool" do
{:ok, _} = GenMagic.Pool.start_link([name: TestPool, pool_size: 2]) {:ok, _} = GenMagic.Pool.start_link(name: TestPool, pool_size: 2)
assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile")) assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile"))
assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile")) assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile"))
assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile")) assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile"))
@ -13,5 +13,4 @@ defmodule GenMagic.PoollTest do
assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile")) assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile"))
assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile")) assert {:ok, _} = GenMagic.Pool.perform(TestPool, absolute_path("Makefile"))
end end
end end