53 lines
1.2 KiB
Elixir
53 lines
1.2 KiB
Elixir
Code.require_file "../test_helper", __FILE__
|
|
|
|
defrecord RecordTest.FileInfo,
|
|
Record.extract(:file_info, from_lib: "kernel/include/file.hrl")
|
|
|
|
name = RecordTest.DynamicName
|
|
defrecord name, a: 0, b: 1
|
|
|
|
defmodule RecordTest do
|
|
use ExUnit.Case
|
|
|
|
test :record_constructor_with_dict do
|
|
record = RecordTest.FileInfo.new(type: :regular)
|
|
assert record.type == :regular
|
|
assert record.access == nil
|
|
end
|
|
|
|
test :record_accessors do
|
|
record = RecordTest.FileInfo.new(file_info)
|
|
assert record.type == :regular
|
|
assert record.access == :read_write
|
|
|
|
new_record = record.access :read
|
|
assert new_record.access == :read
|
|
end
|
|
|
|
test :dynamic_record_name do
|
|
record = RecordTest.DynamicName.new
|
|
assert record.a == 0
|
|
assert record.b == 1
|
|
end
|
|
|
|
test :dynamic_update do
|
|
record = RecordTest.DynamicName.new
|
|
assert record.update_a(10 + &1).a == 10
|
|
end
|
|
|
|
test :is_record do
|
|
assert is_record(RecordTest.FileInfo.new, RecordTest.FileInfo)
|
|
refute is_record(a_list, RecordTest.FileInfo)
|
|
refute is_record(RecordTest.FileInfo.new, List)
|
|
end
|
|
|
|
defp file_info do
|
|
{ :ok, file_info } = Erlang.file.read_file_info(__FILE__)
|
|
file_info
|
|
end
|
|
|
|
defp a_list do
|
|
[:a, :b, :c]
|
|
end
|
|
end
|