couchdb-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From vatam...@apache.org
Subject [02/50] meck commit: updated refs/heads/master to 3544aca
Date Thu, 28 Sep 2017 21:02:10 GMT
Clean up performance tests


Project: http://git-wip-us.apache.org/repos/asf/couchdb-meck/repo
Commit: http://git-wip-us.apache.org/repos/asf/couchdb-meck/commit/86a099f6
Tree: http://git-wip-us.apache.org/repos/asf/couchdb-meck/tree/86a099f6
Diff: http://git-wip-us.apache.org/repos/asf/couchdb-meck/diff/86a099f6

Branch: refs/heads/master
Commit: 86a099f6f48382db0891c9ae468013c1a0c7c20d
Parents: ccc817e
Author: Adam Lindberg <hello@alind.io>
Authored: Sat Feb 27 13:25:46 2016 +0100
Committer: Adam Lindberg <hello@alind.io>
Committed: Sat Feb 27 13:25:46 2016 +0100

----------------------------------------------------------------------
 test/meck_performance_test.erl | 71 ++++++++++++++++++++-----------------
 1 file changed, 39 insertions(+), 32 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/couchdb-meck/blob/86a099f6/test/meck_performance_test.erl
----------------------------------------------------------------------
diff --git a/test/meck_performance_test.erl b/test/meck_performance_test.erl
index f49aac4..41597d7 100644
--- a/test/meck_performance_test.erl
+++ b/test/meck_performance_test.erl
@@ -2,53 +2,60 @@
 -module(meck_performance_test).
 
 %% Interface exports
+-export([run/0]).
 -export([run/1]).
+-export([run/2]).
+-export([new_unload/3]).
 
 %%=============================================================================
 %% Interface exports
 %%=============================================================================
 
-run(N) ->
-    meck:new(test, [non_strict]),
-    io:format("\t\tMin\tMax\tMed\tAvg~n"),
-    io:format("expect/3\t~p\t~p\t~p\t~p~n",
-              test_avg(meck, expect, [test, normal, fun() -> ok end], N)),
-    io:format("expect/3+args\t~p\t~p\t~p\t~p~n",
-              test_avg(meck, expect, [test, normal_args,
-                                      fun(_, _) -> ok end], N)),
-    io:format("expect/4\t~p\t~p\t~p\t~p~n",
-              test_avg(meck, expect, [test, shortcut, 0, ok], N)),
-    io:format("expect/4+args\t~p\t~p\t~p\t~p~n",
-              test_avg(meck, expect, [test, shortcut_args, 2, ok], N)),
+run() -> run(meck, 100).
+run(N) -> run(meck, N).
+run(Mod, N) ->
+    header(Mod),
+    run("new+unload", ?MODULE, new_unload, [Mod, test, [non_strict]], N),
+    Mod:new(test, [non_strict]),
+    run("expect/3", Mod, expect, [test, normal, fun() -> ok end], N),
+    run("expect/3+args", Mod, expect, [test, normal_args,
+      fun(_, _) -> ok end], N),
+    run("expect/4", Mod, expect, [test, shortcut, 0, ok], N),
+    run("expect/4+args", Mod, expect, [test, shortcut_args, 2, ok], N),
 
-    meck:expect(test, shortcut_opaque, 0, self()),
+    header("calls"),
+    Mod:expect(test, shortcut_opaque, 0, self()),
+    run("normal", test, normal, [], N),
+    run("normal_args", test, normal_args, [a, b], N),
+    run("shortcut", test, shortcut, [], N),
+    run("shortcut_args", test, shortcut_args, [a, b], N),
+    run("shortcut_opaque", test, shortcut_opaque, [], N),
+    Mod:unload(test),
 
-    io:format("~n\t\tMin\tMax\tMed\tAvg~n"),
-    io:format("normal\t\t~p\t~p\t~p\t~p~n",
-              test_avg(test, normal, [], N)),
-    io:format("normal_args\t~p\t~p\t~p\t~p~n",
-              test_avg(test, normal_args, [a, b], N)),
-    io:format("shortcut\t~p\t~p\t~p\t~p~n",
-              test_avg(test, shortcut, [], N)),
-    io:format("shortcut_args\t~p\t~p\t~p\t~p~n",
-              test_avg(test, shortcut_args, [a, b], N)),
-    io:format("shortcut_opaque\t~p\t~p\t~p\t~p~n",
-              test_avg(test, shortcut_opaque, [], N)),
-    meck:unload(test),
-
-    meck:new(test, [non_strict]),
-    meck:expect(test, func, 1, ok),
+    header("history"),
+    Mod:new(test, [non_strict]),
+    Mod:expect(test, func, 1, ok),
     [test:func(I) || I <- lists:seq(1, 100)],
-    io:format("~n\t\tMin\tMax\tMed\tAvg~n"),
-    io:format("called\t\t~p\t~p\t~p\t~p~n",
-              test_avg(meck, called, [test, func, 50], N)),
-    meck:unload(test),
+    run("called", Mod, called, [test, func, 50], N),
+    Mod:unload(test),
     ok.
 
+new_unload(Mod, Mock, Opts) ->
+    Mod:new(Mock, Opts),
+    Mod:unload(Mock).
+
 %%=============================================================================
 %% Internal functions
 %%=============================================================================
 
+header(Name) ->
+    io:format("~n~s\t\tMin\tMax\tMed\tAvg~n", [Name]),
+    io:format("------------------------------------------------~n").
+
+run(Name, M, F, A, N) ->
+    io:fwrite("~-16s", [Name]),
+    io:format("~p\t~p\t~p\t~p~n", test_avg(M, F, A, N)).
+
 test_avg(M, F, A, N) when N > 0 ->
     L = test_loop(M, F, A, N, []),
     Length = length(L),


Mime
View raw message