aboutsummaryrefslogtreecommitdiffstats
path: root/lib/dialyzer/test/race_SUITE_data/src/ets_insert_param.erl
blob: a479a3179221092a7feb5d9d67746495e45b7fcd (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
%% This tests the presence of possible races due to an ets:lookup/ets:insert
%% combination in higher order functions.

-module(ets_insert_param).
-export([start/1]).

start(User) ->
  Table = ets:new(table, [public]),
  mod:process(Table),
  [{_, Msg}] = ets:lookup(Table, welcome_msg),
  case User of
    root ->
      ets:insert(Table, {welcome_msg, Msg ++ "root"}),
      ets:insert(Table, {pass, Pass = generate_password(ets:lookup(Table, pass))
                                      ++ generate_strong_password(ets:lookup(Table, pass))});
    user ->
      ets:insert(Table, {welcome_msg, Msg ++ "user"}),
      ets:insert(Table, {pass, Pass = generate_password(ets:lookup(Table, pass))})
  end,
  io:format("\nYour new pass is ~w\n", [Pass]).

generate_password([{_, N}]) ->
  lists:map(fun (_) -> random:uniform(90)+$\s+1 end, lists:seq(1,N)).

generate_strong_password([{_, N}]) ->
  lists:map(fun (_) -> random:uniform(90)+$\s+1 end, lists:seq(1,(N rem 2) * 5)).