测试补充

src/testCase/utTestChange.erl

@@ -0,0 +1,31 @@
+-module(utTestChange).
+
+-compile([export_all]).
+
+-record(test, {a, b, c, d}).
+
+test() ->
+   A = #test{a = 1, b = <<"abcdefg">>, c = 1, d = 0},
+   io:format("IMY*********************t111 ~p ~p~n", [binaryAddr:getBinAddr(A#test.b), A]),
+   B = A#test{a = 2},
+   io:format("IMY*********************t222 ~p ~p~n", [binaryAddr:getBinAddr(B#test.b), B]),
+   C = A#test{c = 2},
+   io:format("IMY*********************t333 ~p ~p~n", [binaryAddr:getBinAddr(C#test.b), C]),
+
+   Key = <<"aaaaaaaa">>,
+   A1 = #{a => 1, b => <<"abcdefg">>, c => 1, Key => aa},
+   keyAddr(A1, kkk111),
+   io:format("IMY*********************m111 ~p ~p~n", [binaryAddr:getBinAddr(maps:get(b, A1)), A1]),
+   B1 = A1#{a := 2},
+   keyAddr(B1, kkk222),
+   io:format("IMY*********************m222 ~p ~p~n", [binaryAddr:getBinAddr(maps:get(b, B1)), B1]),
+   C1 = A1#{c := 2},
+   keyAddr(C1, kkk3333),
+   io:format("IMY*********************m333 ~p ~p~n", [binaryAddr:getBinAddr(maps:get(b, C1)), C1]),
+   D1 = maps:put(tt, vv, A1),
+   keyAddr(D1, kkk4444),
+   io:format("IMY*********************m444 ~p ~p~n", [binaryAddr:getBinAddr(maps:get(b, C1)), D1]).
+
+keyAddr(Map, Tag) ->
+   List = maps:keys(Map),
+   [begin io:format("IMY********************* ~p ~p~n", [Tag, binaryAddr:getBinAddr(Key)]) end || Key <- List, is_binary(Key) ].