simple test for pretty print of nested records.
diff --git a/test/pr_nested_record_test.erl b/test/pr_nested_record_test.erl
new file mode 100644
index 0000000..ee19ef7
--- /dev/null
+++ b/test/pr_nested_record_test.erl
@@ -0,0 +1,21 @@
+-module(pr_nested_record_test).
+
+-compile([{parse_transform, lager_transform}]).
+
+-record(a, {field1, field2}).
+-record(b, {field1, field2}).
+
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+nested_record_test() ->
+ A = #a{field1 = x, field2 = y},
+ B = #b{field1 = A, field2 = z},
+ Pr_B = lager:pr(B, ?MODULE),
+ ?assertEqual({'$lager_record', b,
+ [{field1, {'$lager_record', a,
+ [{field1, x},{field2, y}]}},
+ {field2, z}]},
+ Pr_B).
