From 4db4b78d1e8c27774c4d803723f4aa6a5df2009c Mon Sep 17 00:00:00 2001 From: Stavros Aronis Date: Mon, 21 Mar 2011 18:39:54 +0200 Subject: Add small/ets_update_counter --- .../small_SUITE_data/src/ets_update_counter.erl | 25 ++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 lib/dialyzer/test/small_SUITE_data/src/ets_update_counter.erl (limited to 'lib/dialyzer') diff --git a/lib/dialyzer/test/small_SUITE_data/src/ets_update_counter.erl b/lib/dialyzer/test/small_SUITE_data/src/ets_update_counter.erl new file mode 100644 index 0000000000..057748cfb4 --- /dev/null +++ b/lib/dialyzer/test/small_SUITE_data/src/ets_update_counter.erl @@ -0,0 +1,25 @@ +-module(ets_update_counter). + +-export([ti/2, tl/2, tn/2, tt/2, tu/3, tmix/3]). + +ti(T, K) -> + ets:update_counter(T, K, 42). + +tl(T, K) -> + ets:update_counter(T, K, [{2,1}, {3,2}]). + +tn(T, K) -> + ets:update_counter(T, K, []). + +tt(T, K) -> + ets:update_counter(T, K, {4,2}). + +tu(T, K, Op) -> + ets:update_counter(T, K, Op). + +tmix(T, K, Choice) -> + Op = get_op(Choice), + ets:update_counter(T, K, Op). + +get_op(i) -> 42; +get_op(t) -> {4,2}. -- cgit v1.2.3