José Valim
b291bc3712
We have two main reasons for this:
1) defmacro cannot be private and private/public gave a general
feeling that we could simply mark macros as private;
2) public/private works poorly with quoting. Imagine a macro that
wants to define some method as private:
quote {
private
def foo, do: bar
}
This call to private would alter all the functions in the target
module.
In order to solve 2), we would have to either allow private with a block:
quote {
private do
def foo, do: bar
end
}
Or use `private(opts)`:
quote {
def foo, do: bar
private foo: 1
}
However, none of these approaches explicitly solves 1). That's why we decided
to go with a syntax similar to Clojure's `def-`: defp.
quote {
defp foo, do: bar
}
There is no `defmacrop`, which solves 1), and the visibility always apply
only to the current function, solving 2).
78 lines
1.9 KiB
Elixir
78 lines
1.9 KiB
Elixir
module ExUnit::Server do
|
|
defrecord Config, options: [], cases: [], sync_cases: []
|
|
|
|
def start_link do
|
|
{ :ok, _ } = Erlang.gen_server.start_link({:local, :exunit_server}, __MODULE__, [], [])
|
|
end
|
|
|
|
def add_case(name) do
|
|
check fn { Erlang.gen_server.call(:exunit_server, { :add_case, name }) }
|
|
end
|
|
|
|
def add_sync_case(name) do
|
|
check fn { Erlang.gen_server.call(:exunit_server, { :add_sync_case, name }) }
|
|
end
|
|
|
|
def merge_options(options) do
|
|
check fn { Erlang.gen_server.call(:exunit_server, { :merge_options, options }) }
|
|
end
|
|
|
|
def options do
|
|
Erlang.gen_server.call(:exunit_server, :options)
|
|
end
|
|
|
|
## Callbacks
|
|
|
|
def init(_args) do
|
|
{ :ok, ExUnit::Server::Config.new }
|
|
end
|
|
|
|
def handle_call({:add_case, name}, _from, config) do
|
|
{ :reply, :ok, config.prepend_cases [name] }
|
|
end
|
|
|
|
def handle_call({:add_sync_case, name}, _from, config) do
|
|
{ :reply, :ok, config.prepend_sync_cases [name] }
|
|
end
|
|
|
|
def handle_call({:merge_options, options}, _from, config) do
|
|
{ :reply, :ok, config.merge_options(options) }
|
|
end
|
|
|
|
def handle_call(:options, _from, config) do
|
|
options = Orddict.merge config.options,
|
|
cases: List.reverse(config.cases),
|
|
sync_cases: List.reverse(config.sync_cases)
|
|
{ :reply, options, config }
|
|
end
|
|
|
|
def handle_call(_request, _from, config) do
|
|
{ :reply, :undef, config }
|
|
end
|
|
|
|
def handle_info(_msg, config) do
|
|
{ :noreply, config }
|
|
end
|
|
|
|
def handle_cast(_msg, config) do
|
|
{ :noreply, config }
|
|
end
|
|
|
|
def terminate(reason, config) do
|
|
IO.puts "[FATAL] ExUnit::Server crashed:\n#{reason}"
|
|
IO.puts "[FATAL] ExUnit::Server snapshot:\n#{config}"
|
|
:ok
|
|
end
|
|
|
|
def code_change(_old, config, _extra) do
|
|
{ :ok, config }
|
|
end
|
|
|
|
defp check(function) do
|
|
try do
|
|
function.()
|
|
catch: { :exit, { :noproc, _ }, _ }
|
|
exit "ExUnit::Server is not running. Are you sure you used exunit from command line?"
|
|
end
|
|
end
|
|
end |