1

我开始编写一些函数来帮助测试地图上的断言。

假设我有以下地图：

#{a => 0, b => 2}

在我的业务逻辑中调用一个函数后，我希望地图看起来像这样：

#{a => 1, b => 2}

换句话说，我期望

  • 地图在更新后具有相同数量的键
  • 的值a从 0 变为 1
  • 值b不变

我可以把这个测试留给模式匹配，但是，如果我有一个带有很多键（甚至可能有很多子图）的大地图，那么问题可能出在哪里并不明显 - 至少需要一些时间才能找到问题（也许我期望更新的一些值没有 - 或者可能有一些额外的键等，等等 - 我希望你明白这一点）。

因此，作为开始，我在我的模块中提出了以下辅助函数：

-module(asserts).
-include_lib("eunit/include/eunit.hrl").

maps_assert_map_has_updated_values(BaseMap, Updates, ResultingMap) ->
    BaseMapKeys = lists:sort(maps:keys(BaseMap)),
    ResultingMapKeys = lists:sort(maps:keys(ResultingMap)),
    UpdatesKeys = lists:sort(maps:keys(Updates)),
    BaseMapWithoutUpdates = maps:without(UpdatesKeys, BaseMap),
    BaseMapKeysWithoutUpdates = lists:sort(maps:keys(BaseMapWithoutUpdates)),
    ResultingMapWithoutUpdates = maps:without(UpdatesKeys, ResultingMap),

    [
     ?_assertEqual(BaseMapKeys, ResultingMapKeys),
     lists:foldl(
       fun(Key, Acc) -> [?_assertEqual({Key, maps:get(Key, Updates)}, 
                       {Key, maps:get(Key, ResultingMap)}) | Acc] end,
       [],
       UpdatesKeys
      ),
     lists:foldl(
       fun(Key, Acc) -> [?_assertEqual({Key, true}, 
                       {Key, maps:is_key(Key, ResultingMap)}) | Acc] end,
       [],
       UpdatesKeys
      ),
     lists:foldl(
       fun(Key, Acc) -> [?_assertEqual({Key, maps:get(Key, BaseMapWithoutUpdates)}, 
                       {Key, maps:get(Key, ResultingMapWithoutUpdates)}) | Acc] end,
       [],
       BaseMapKeysWithoutUpdates
      )
    ].

我从另一个由 eunit 执行的模块调用它：

-module(map_tests).
-include_lib("eunit/include/eunit.hrl").

simple_map_test_() ->
    asserts:maps_assert_map_has_updated_values(
        #{a => 0, b => 2}, 
        #{a => 1}, 
        #{a => 1, b => 3}).

我收到以下错误消息：

asserts:30: maps_assert_map_has_updated_values...*failed*    in function asserts:'-maps_assert_map_has_updated_values/3-fun-8-'/3 (test/asserts.erl, line 31)
**error:{assertEqual_failed,[{module,asserts},
                     {line,31},
                     {expression,"{ Key , maps : get ( Key , ResultingMapWithoutUpdates ) }"},
                     {expected,{b,2}},
                     {value,{b,3}}]}

这几乎是我想要的，因为它报告了地图中有问题的键和有问题的值，但是它报告了asserts模块中的错误，即使我有兴趣看到失败的实际测试，而不是对断言的引用模块。我认为测试生成器正好适合这一点，但我无法以这种方式工作。

有什么方法可以让我eunit报告实际的测试模块（map_tests功能/测试simple_map_test行 X）而不是我的asserts模块？

4

1 回答 1

3

问题是，?_assert...宏被编译到asserts模块中，这就是 EUnit 在计算模块和行号时发挥作用的地方（即在编译时）。如果您将maps_assert_map_has_updated_values函数替换为放入包含的头文件中的宏，您应该会看到正确的堆栈跟踪。

于 2015-10-16T10:32:05.187 回答