You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
1.3 KiB
31 lines
1.3 KiB
-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) ].
|