101 lines
3.1 KiB
Elixir
101 lines
3.1 KiB
Elixir
Code.require_file "../test_helper", __FILE__
|
|
|
|
defmodule ModuleTest::ToBeUsed do
|
|
def value, do: 1
|
|
|
|
defmacro __using__(target) do
|
|
Module.merge_data target, has_callback: false
|
|
Module.add_compile_callback(target, __MODULE__)
|
|
Module.add_compile_callback(target, __MODULE__, :callback)
|
|
quote do: (def line, do: __LINE__)
|
|
end
|
|
|
|
def __compiling__(target) do
|
|
Module.merge_data target, compiling: true
|
|
end
|
|
|
|
defmacro callback(target) do
|
|
value = Module.read_data(target, :has_callback)
|
|
quote do
|
|
@has_callback true
|
|
name = :original_value
|
|
def :value, [1], do: 1
|
|
def name, [], true, do: unquote(value)
|
|
end
|
|
end
|
|
end
|
|
|
|
defmodule ModuleTest::ToUse do
|
|
29 = __LINE__ # Moving the next line around can make tests fail
|
|
use ModuleTest::ToBeUsed
|
|
end
|
|
|
|
defmodule ModuleTest::DuplicateAttribute do
|
|
Module.add_attribute __MODULE__, :foo, 1
|
|
Module.add_attribute __MODULE__, :foo, 2
|
|
Module.add_attribute __MODULE__, :foo, 3
|
|
end
|
|
|
|
defmodule ModuleTest do
|
|
use ExUnit::Case
|
|
|
|
Module.register_attribute __MODULE__, :register_example
|
|
@register_example :it_works
|
|
|
|
false = Module.function_defined? __MODULE__, { :eval_quoted_info, 0 }
|
|
false = Module.function_defined? __MODULE__, { :eval_quoted_info, 0 }, :def
|
|
false = Module.function_defined? __MODULE__, { :eval_quoted_info, 0 }, :defp
|
|
false = Module.function_defined? __MODULE__, { :eval_quoted_info, 0 }, :defmacro
|
|
|
|
contents = quote do: (def eval_quoted_info, do: { __MODULE__, __FILE__, __LINE__ })
|
|
Module.eval_quoted __MODULE__, contents, [], "sample.ex", 13
|
|
|
|
true = Module.function_defined? __MODULE__, { :eval_quoted_info, 0 }
|
|
true = Module.function_defined? __MODULE__, { :eval_quoted_info, 0 }, :def
|
|
false = Module.function_defined? __MODULE__, { :eval_quoted_info, 0 }, :defp
|
|
false = Module.function_defined? __MODULE__, { :eval_quoted_info, 0 }, :defmacro
|
|
|
|
Module.merge_data __MODULE__, value: 1
|
|
Module.merge_data __MODULE__, other_value: 1
|
|
Module.merge_data __MODULE__, other_value: 2
|
|
|
|
def test_eval_quoted do
|
|
assert_equal { ::ModuleTest, "sample.ex", 13 }, eval_quoted_info()
|
|
end
|
|
|
|
def test_line_from_macro do
|
|
assert_equal 30, ModuleTest::ToUse.line
|
|
end
|
|
|
|
def test___MODULE__ do
|
|
__MODULE__ = :"::ModuleTest"
|
|
assert_equal :"::ModuleTest", __MODULE__
|
|
end
|
|
|
|
def test_merge_data do
|
|
[other_value: 2, value: 1] == __MODULE__.__info__(:data)
|
|
end
|
|
|
|
def test_compile_callback_hook do
|
|
assert ModuleTest::ToUse.value(1)
|
|
refute ModuleTest::ToUse.original_value
|
|
assert Orddict.get ModuleTest::ToUse.__info__(:data), :has_callback, false
|
|
end
|
|
|
|
def test_default_compile_callback_hook do
|
|
assert Orddict.get ModuleTest::ToUse.__info__(:data), :compiling, false
|
|
end
|
|
|
|
def test_reserved_attributes do
|
|
assert_equal {:behavior,[:gen_server]}, :lists.keyfind(:behavior, 1, Elixir::Server.__info__(:attributes))
|
|
end
|
|
|
|
def test_registered_attributes do
|
|
assert_equal {:register_example,[:it_works]}, :lists.keyfind(:register_example, 1, __MODULE__.__info__(:attributes))
|
|
end
|
|
|
|
def test_duplicated_attributes do
|
|
[{:vsn,_},{:foo,[1]},{:foo,[2]},{:foo,[3]}] = ModuleTest::DuplicateAttribute.__info__(:attributes)
|
|
end
|
|
end
|