-
Notifications
You must be signed in to change notification settings - Fork 1
/
vocabio_ct_meck.erl
32 lines (29 loc) · 1.04 KB
/
vocabio_ct_meck.erl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
%%%-------------------------------------------------------------------
%%% @author JD Bothma <jan.bothma@erlang-solutions.com>
%%% @copyright (C) 2012, JD Bothma
%%% @doc This does the mocking for ct suites to call remotely.
%%%
%%% @end
%%% Created : 16 Aug 2012 by JD Bothma <jan.bothma@erlang-solutions.com>
%%%-------------------------------------------------------------------
-module(vocabio_ct_meck).
-export([mock_openid/0, unmock_openid/0]).
mock_openid() ->
ok = meck:new(openid_srv, [no_link]),
ok = meck:expect(
openid_srv, handle_call,
fun({prepare, _, _, _}, _, State) ->
{reply, {ok, stuff}, State};
({verify, _, _, _}, _, State) ->
{reply, {ok, "http://mocked.open/id"}, State}
end),
ok = meck:new(openid, [no_link]),
ok = meck:expect(
openid, authentication_url,
fun(_,_,_) ->
"http://fake.openid.out/url"
end),
ok.
unmock_openid() ->
meck:unload(openid_srv),
meck:unload(openid).