Question

我有以下模块

-module(bhavcopy_downloader).

-export([download/2]).

download(From, SaveTo) ->
    {ok, {{Status, _}, _, Body}} = lhttpc:request(From, "GET", [], infinity),
    case Status of 
        200 ->  file:write(SaveTo, Body),
            true;
        _ -> false
    end.

并按照以上代码进行测试

file_download_test_() -> 
    {foreach,
     fun() ->
            meck:new(lhttpc)
            meck:new(file, [unstick])
     end,
     fun(_) ->
        meck:unload(file),
            meck:unload(lhttpc) 
     end,
      {"saves the file at specified location",
        fun() ->
            meck:expect(lhttpc, request, 4, {ok, {{200, "OK"}, [], <<"response">>}}),
            meck:expect(file, write_file, fun(Path, Data) -> 
                                    ?assertEqual(Path, "~/Downloads/data-downloader/test.html"), 
                                    ?assertEqual(Data, <<"response">>) 
                            end),
            ?assertEqual(true, bhavcopy_downloader:download("http://google.com", "~/Downloads/data-downloader/test.html")),
            ?assert(meck:validate(file))
        end}]

    }.

当我运行测试时，我得到以下错误（为简洁起见，下面只粘贴了部分错误）。看看下面的错误，我有点觉得文件模块没有被模拟（或者当我使用meck:new(lhttpc)设置另一个模拟时，文件模块的模拟被覆盖。这里可能出现什么问题？

=ERROR REPORT==== 16-Feb-2013::20:17:24 ===
** Generic server file_meck terminating 
** Last message in was {'EXIT',<0.110.0>,
                    {compile_forms,
                     {error,
                      [{[],
                        [{none,compile,
                          {crash,beam_asm,
                           {undef,
                            [{file,get_cwd,[],[]},
                             {filename,absname,1,
                              [{file,"filename.erl"},{line,67}]},
                             {compile,beam_asm,1,
                              [{file,"compile.erl"},{line,1245}]},
                             {compile,'-internal_comp/4-anonymous-1-',2,
                              [{file,"compile.erl"},{line,273}]},
                             {compile,fold_comp,3,
                              [{file,"compile.erl"},{line,291}]},
                             {compile,internal_comp,4,
                              [{file,"compile.erl"},{line,275}]},
                             {compile,'-do_compile/2-anonymous-0-',2,
                              [{file,"compile.erl"},{line,152}]}]}}}]}],
                      [{"src/lhttpc_types.hrl",
                        [{31,erl_lint,{new_builtin_type,{boolean,0}}},
                         {31,erl_lint,{renamed_type,bool,boolean}}]}]}}}

Answer 1

这是Meck中的一个问题22，这是因为Meck使用的是Erlang编译器，后者依次使用file模块。当Meck尝试重新编译file模块时，它需要file模块（通过编译器），从而崩溃。

到目前为止，Meck并没有处理模拟文件模块的问题。您最好的选择是将file模块调用包装在另一个模块中，然后模拟该模块。

（理论上可以通过使用编译器和代码服务器的内部来解决这个问题，例如erlang:load_module/2 ，但这非常棘手，需要设计和测试很好）

Meck对多个模拟模块表现得很奇怪

1 个答案: