No puede seleccionar más de 25 temas
Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.
19 líneas
576 B
19 líneas
576 B
-module(pr_nested_record_test).
|
|
|
|
-compile([{parse_transform, lager_transform}]).
|
|
|
|
-record(a, {field1 :: term(), field2 :: term()}).
|
|
-record(b, {field1 :: term() , field2 :: term()}).
|
|
|
|
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
nested_record_test() ->
|
|
A = #a{field1 = x, field2 = y},
|
|
B = #b{field1 = A, field2 = {}},
|
|
Pr_B = lager:pr(B, ?MODULE),
|
|
?assertEqual({'$lager_record', b,
|
|
[{field1, {'$lager_record', a,
|
|
[{field1, x},{field2, y}]}},
|
|
{field2, {}}]},
|
|
Pr_B).
|