From 2be428f334536eab8768a130d309bf063b3f2aa4 Mon Sep 17 00:00:00 2001
From: Dan Gudmundsson <dgud@erlang.org>
Date: Thu, 28 Feb 2013 13:23:18 +0100
Subject: mnesia: Decrease test times

---
 lib/mnesia/test/mnesia_examples_test.erl | 77 +++++++++++++++++---------------
 1 file changed, 42 insertions(+), 35 deletions(-)

(limited to 'lib/mnesia/test/mnesia_examples_test.erl')

diff --git a/lib/mnesia/test/mnesia_examples_test.erl b/lib/mnesia/test/mnesia_examples_test.erl
index 373d47a05a..219f358fdb 100644
--- a/lib/mnesia/test/mnesia_examples_test.erl
+++ b/lib/mnesia/test/mnesia_examples_test.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 1997-2010. All Rights Reserved.
+%% Copyright Ericsson AB 1997-2013. All Rights Reserved.
 %%
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
@@ -34,32 +34,6 @@ end_per_testcase(Func, Conf) ->
 					   delete_schema],
 					  N, Config, ?FILE, ?LINE)).
 
-opt_net_load(ExampleMod) ->
-    opt_net_load([node() | nodes()], ExampleMod, ok).
-
-opt_net_load([Node | Nodes], ExampleMod, Res) ->
-    case rpc:call(Node, ?MODULE, opt_load, [ExampleMod]) of
-	{module, ExampleMod} ->
-	    opt_net_load(Nodes, ExampleMod, Res);
-	{error, Reason} ->
-	    Error = {opt_net_load, ExampleMod, Node, Reason},
-	    opt_net_load(Nodes, ExampleMod, {error, Error});
-	{badrpc, Reason} ->
-	    Error = {opt_net_load, ExampleMod, Node, Reason},
-	    opt_net_load(Nodes, ExampleMod, {error, Error})
-    end;
-opt_net_load([], _ExampleMod, Res) ->
-    Res.
-	    
-opt_load(Mod) ->
-    case code:is_loaded(Mod) of
-	{file, _} ->
-	    {module, Mod};
-	false ->
-	    Abs = filename:join([code:lib_dir(mnesia), examples, Mod]),
-	    code:load_abs(Abs)
-    end.
-
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 all() -> 
     [bup, company, meter, {group, tpcb}].
@@ -95,49 +69,49 @@ replica_test(suite) -> [];
 replica_test(Config) when is_list(Config) ->
     ?init(3, Config),
     opt_net_load(mnesia_tpcb),
-    ?match({ok, _}, mnesia_tpcb:start(mnesia_tpcb:config(replica_test, ram_copies))).
+    ?match({ok, _}, mnesia_tpcb:start(config(replica_test, ram_copies))).
 
 sticky_replica_test(suite) -> [];
 sticky_replica_test(Config) when is_list(Config) ->
     ?init(3, Config),
     opt_net_load(mnesia_tpcb),
-    ?match({ok, _}, mnesia_tpcb:start(mnesia_tpcb:config(sticky_replica_test, ram_copies))).
+    ?match({ok, _}, mnesia_tpcb:start(config(sticky_replica_test, ram_copies))).
 
 dist_test(suite) -> [];
 dist_test(Config) when is_list(Config) ->
     ?init(3, [{tc_timeout, timer:minutes(10)} | Config]),
     opt_net_load(mnesia_tpcb),
-    ?match({ok, _}, mnesia_tpcb:start(mnesia_tpcb:config(dist_test, ram_copies))).
+    ?match({ok, _}, mnesia_tpcb:start(config(dist_test, ram_copies))).
 
 conflict_test(suite) -> [];
 conflict_test(Config) when is_list(Config) ->
     ?init(3, Config),
     opt_net_load(mnesia_tpcb),
-    ?match({ok, _}, mnesia_tpcb:start(mnesia_tpcb:config(conflict_test, ram_copies))).
+    ?match({ok, _}, mnesia_tpcb:start(config(conflict_test, ram_copies))).
 
 frag_test(suite) -> [];
 frag_test(Config) when is_list(Config) ->
     ?init(3, Config),
     opt_net_load(mnesia_tpcb),
-    ?match({ok, _}, mnesia_tpcb:start(mnesia_tpcb:config(frag_test, ram_copies))).
+    ?match({ok, _}, mnesia_tpcb:start(config(frag_test, ram_copies))).
 
 frag2_test(suite) -> [];
 frag2_test(Config) when is_list(Config) ->
     ?init(3, Config),
     opt_net_load(mnesia_tpcb),
-    ?match({ok, _}, mnesia_tpcb:start(mnesia_tpcb:config(frag2_test, ram_copies))).
+    ?match({ok, _}, mnesia_tpcb:start(config(frag2_test, ram_copies))).
 
 remote_test(suite) -> [];
 remote_test(Config) when is_list(Config) ->
     ?init(3, Config),
     opt_net_load(mnesia_tpcb),
-    ?match({ok, _}, mnesia_tpcb:start(mnesia_tpcb:config(remote_test, ram_copies))).
+    ?match({ok, _}, mnesia_tpcb:start(config(remote_test, ram_copies))).
 
 remote_frag2_test(suite) -> [];
 remote_frag2_test(Config) when is_list(Config) ->
     ?init(3, Config),
     opt_net_load(mnesia_tpcb),
-    ?match({ok, _}, mnesia_tpcb:start(mnesia_tpcb:config(remote_frag2_test, ram_copies))).
+    ?match({ok, _}, mnesia_tpcb:start(config(remote_frag2_test, ram_copies))).
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 meter(doc) ->
@@ -149,4 +123,37 @@ meter(Config) when is_list(Config) ->
     opt_net_load(mnesia_meter),
     ?match(ok, mnesia_meter:go(ram_copies, [N])).
 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+config(Test, Type) ->
+    Config0 = mnesia_tpcb:config(Test, Type),
+    %% Cut the times, the idea is to test the example and configuration
+    %% not running the test a long time
+    Config1 = lists:keyreplace(stop_after, 1, Config0, {stop_after, 6000}),
+    lists:keyreplace(report_interval, 1, Config1, {report_interval, 1000}).
+
+opt_net_load(ExampleMod) ->
+    opt_net_load([node() | nodes()], ExampleMod, ok).
+
+opt_net_load([Node | Nodes], ExampleMod, Res) ->
+    case rpc:call(Node, ?MODULE, opt_load, [ExampleMod]) of
+	{module, ExampleMod} ->
+	    opt_net_load(Nodes, ExampleMod, Res);
+	{error, Reason} ->
+	    Error = {opt_net_load, ExampleMod, Node, Reason},
+	    opt_net_load(Nodes, ExampleMod, {error, Error});
+	{badrpc, Reason} ->
+	    Error = {opt_net_load, ExampleMod, Node, Reason},
+	    opt_net_load(Nodes, ExampleMod, {error, Error})
+    end;
+opt_net_load([], _ExampleMod, Res) ->
+    Res.
 
+opt_load(Mod) ->
+    case code:is_loaded(Mod) of
+	{file, _} ->
+	    {module, Mod};
+	false ->
+	    Abs = filename:join([code:lib_dir(mnesia), examples, Mod]),
+	    code:load_abs(Abs)
+    end.
-- 
cgit v1.2.3