From 0bf31955c41e5c0350b6f1f64f800173d8eb42c0 Mon Sep 17 00:00:00 2001 From: David Haglund Date: Sun, 2 Oct 2011 14:30:40 +0200 Subject: [PATCH] Verify that history/2 returns the events in the correct order. --- test/meck_tests.erl | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/test/meck_tests.erl b/test/meck_tests.erl index b5b3964c..ebf8bd95 100644 --- a/test/meck_tests.erl +++ b/test/meck_tests.erl @@ -282,18 +282,20 @@ history_meck_error_(Mod) -> meck:history(Mod)). history_by_pid_(Mod) -> - ok = meck:expect(Mod, test, fun() -> ok end), + ok = meck:expect(Mod, test1, fun() -> ok end), + ok = meck:expect(Mod, test2, fun() -> ok end), + TestPid = self(), Fun = fun() -> - Mod:test(), + Mod:test1(), TestPid ! {self(), done} end, Pid = spawn(Fun), - Mod:test(), - Mod:test(), - ?assertEqual([{Pid, {Mod, test, []}, ok}], meck:history(Mod, Pid)), - ?assertEqual([{TestPid, {Mod, test, []}, ok}, - {TestPid, {Mod, test, []}, ok}], meck:history(Mod, TestPid)), + Mod:test1(), + Mod:test2(), + ?assertEqual([{Pid, {Mod, test1, []}, ok}], meck:history(Mod, Pid)), + ?assertEqual([{TestPid, {Mod, test1, []}, ok}, + {TestPid, {Mod, test2, []}, ok}], meck:history(Mod, TestPid)), ?assertEqual(meck:history(Mod), meck:history(Mod, '_')). shortcut_expect_(Mod) ->