[erlang-questions] How to meck?

[Bohuslav Svancara]

Hello!
I am trying to use meck, but have no luck.
Can you help me, please?

Erlang version: Erlang 5.9/OTP R15B

---------- tested module:
-module(meck_module_for_test).
-compile(export_all).
a() -> a.
call_a() -> a().

------------------------- testing module:
-module(meck_test).
-compile(export_all).
test()->
    ok = meck:new(meck_module_for_test,[passthrough]), % Docs says: Retains
the original functions, if not mocked by meck.

    % Mock "a()" which is called from call_a().
    ok = meck:expect(meck_module_for_test, a, 0, fun() ->
"result_from_mocked_a" end ),

    Result = meck_module_for_test:call_a(),
    io:format("Result of call_a: ~p~n",[Result]),

    Result_A = meck_module_for_test:a(),
    io:format("Result of a: ~p~n",[Result_A]),

    Valid = meck:validate(meck_module_for_test),
    io:format("Valid: ~p~n",[Valid]),

    meck:unload(meck_module_for_test),
    ok.

--------------------- result of meck_test:test():
Result of call_a: a
Result of a: #Fun<meck_test.1.126597877>
Valid: true
ok
-----------------------------

I believe that call_a() should call a mocked version of a() which should
return "result_from_mocked_a".
So the result from call_a() shoud be:"result_from_mocked_a"
But my results are different.

Can you help me, please?

Thanks,
Bob
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://erlang.org/pipermail/erlang-questions/attachments/20120110/98684043/attachment.htm>