64 lines
1.3 KiB
Elixir
64 lines
1.3 KiB
Elixir
Code.require_file "../../test_helper", __FILE__
|
|
|
|
defmodule Kernel::ImportOnlyTest do
|
|
use ExUnit::Case
|
|
|
|
import Erlang.lists, only: [flatten: 1]
|
|
|
|
test :import_erlang do
|
|
assert_equal [1,2,3], flatten [1,[2],3]
|
|
end
|
|
end
|
|
|
|
defmodule Kernel::ImportAllTest do
|
|
use ExUnit::Case
|
|
|
|
import Erlang.lists
|
|
|
|
test :import_erlang do
|
|
assert_equal [1,2,3], flatten [1,[2],3]
|
|
end
|
|
end
|
|
|
|
defmodule Kernel::ImportExceptTest do
|
|
use ExUnit::Case
|
|
|
|
import Erlang.lists, except: [each: 1]
|
|
|
|
test :import_erlang do
|
|
assert_equal [1,2,3], flatten [1,[2],3]
|
|
end
|
|
end
|
|
|
|
defmodule Kernel::MessedBitwise do
|
|
defmacro bnot(x), do: x
|
|
defmacro bor(x, _), do: x
|
|
end
|
|
|
|
defmodule Kernel::ImportMacrosTest do
|
|
use ExUnit::Case
|
|
|
|
import :macros, Bitwise
|
|
|
|
test :import_true do
|
|
assert_equal 1, band(1, 1)
|
|
assert_equal 1, bor(0, 1)
|
|
assert_equal -1, bnot(0)
|
|
end
|
|
|
|
test :function_import_with_only do
|
|
import :macros, Bitwise, except: [bnot: 1]
|
|
import :macros, Kernel::MessedBitwise, only: [bnot: 1]
|
|
assert_equal 0, bnot(0)
|
|
assert_equal 1, bor(0, 1)
|
|
end
|
|
|
|
# This test is asserting that the requires done
|
|
# inside the function do not affect outer ones.
|
|
test :import_true_not_affected do
|
|
assert_equal 1 , band(1, 1)
|
|
assert_equal 1 , bor(0, 1)
|
|
assert_equal -1, bnot(0)
|
|
end
|
|
end
|