ft: 测试代码添加

src/testCase/utTpfm.erl

@@ -675,5 +675,18 @@ forB(Index, B, _) ->
    <<_:BIndex/bits, V:3, _/bits>> = B,
    forB(Index - 1, B, V).
 
-
-
+delL(L1, L2) ->
+   L1 -- L2.
+
+delM(M1, M2) ->
+   doDelM(maps:iterator(M2), M1).
+
+doDelM(Iterator, M1) ->
+   case maps:next(Iterator) of
+      {K, _V, none} ->
+         maps:remove(K, M1);
+      {K, _V, NextI} ->
+         doDelM(NextI, maps:remove(K, M1));
+      _ ->
+         M1
+   end.