diff options
author | Björn-Egil Dahlberg <[email protected]> | 2015-05-20 16:02:57 +0200 |
---|---|---|
committer | Björn-Egil Dahlberg <[email protected]> | 2015-05-20 16:02:57 +0200 |
commit | 4b5c8a2002d3bd53c7e52fd0c1c089642830262e (patch) | |
tree | 5a7eede650da812f87e3db93927b56e735169d69 /lib/stdlib/test/ets_SUITE.erl | |
parent | 4034b89a07a97766dba5e6213b1eb4d76ba6df9e (diff) | |
download | otp-4b5c8a2002d3bd53c7e52fd0c1c089642830262e.tar.gz otp-4b5c8a2002d3bd53c7e52fd0c1c089642830262e.tar.bz2 otp-4b5c8a2002d3bd53c7e52fd0c1c089642830262e.zip |
stdlib: ets_SUITE cuddling
Time measurement of ets-lookups, too fast for windows.
Diffstat (limited to 'lib/stdlib/test/ets_SUITE.erl')
-rw-r--r-- | lib/stdlib/test/ets_SUITE.erl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/stdlib/test/ets_SUITE.erl b/lib/stdlib/test/ets_SUITE.erl index 41bd4af241..1b53d52d6a 100644 --- a/lib/stdlib/test/ets_SUITE.erl +++ b/lib/stdlib/test/ets_SUITE.erl @@ -3061,13 +3061,13 @@ time_lookup(Config) when is_list(Config) -> "~p ets lookups/s",[Values]))}. time_lookup_do(Opts) -> - ?line Tab = ets_new(foo,Opts), - ?line fill_tab(Tab,foo), - ?line ets:insert(Tab,{{a,key},foo}), - ?line {Time,_} = ?t:timecall(test_server,do_times, - [10000,ets,lookup,[Tab,{a,key}]]), - ?line true = ets:delete(Tab), - round(10000 / Time). % lookups/s + Tab = ets_new(foo,Opts), + fill_tab(Tab,foo), + ets:insert(Tab,{{a,key},foo}), + {Time,_} = ?t:timecall(test_server,do_times, + [100000,ets,lookup,[Tab,{a,key}]]), + true = ets:delete(Tab), + round(100000 / Time). % lookups/s badlookup(doc) -> ["Check proper return values from bad lookups in existing/non existing " |