wapn_amazon_test.erl

% Test in context of the running application.
before_suite() ->
  meck:new(wapn_amazon_server, [unstick, passthrough]),
  wapn_amazon_server:start_link().

after_suite() ->
  wapn_amazon_server:stop(),
  meck:unload(wapn_amazon_server).

%% fetch_token() ->
%%   implement_me.

%% get_token() ->
%%   case ets:lookup(?TOKEN_TABLE, access_token) of
%%     [] ->
%%       NewToken = fetch_token(),
%%       io:format("TEST: ~p ~n", [NewToken]),
%%       ets:insert(?TOKEN_TABLE, NewToken),
%%       NewToken;
%%     [Token] -> Token
%%   end.

test_get_token() ->
  meck:expect(wapn_amazon_server, fetch_token, fun() -> <<"Expected Token">> end),
  Token = wapn_amazon_server:get_token(),
  ios:format("Token ~p ~n", [Token]),
  ?assert_equal(<<"Expected Token">>, Token).