@@ -71,7 +71,7 @@ gen_ring_names() ->
7171 ? LET (Ring_Names , list (atom ()), Ring_Names ).
7272
7373% % Validate any atom can be used as a ring_name and ring is empty by default.
74- -spec proper_check_create (config ()) -> ok .
74+ -spec proper_new_ring_is_empty (config ()) -> ok .
7575proper_new_ring_is_empty (_Config ) ->
7676 {ok , Sup_Pid } = epocxy_sup :start_link (),
7777 Fsm_Pid = whereis (epocxy_ets_fsm ),
@@ -89,7 +89,7 @@ proper_new_ring_is_empty(_Config) ->
8989 cleanup (Sup_Pid , Fsm_Pid ),
9090 ok .
9191
92- check_empty_create (Ring_Names , Sup_Pid , Fsm_Pid ) ->
92+ check_empty_create (Ring_Names , _Sup_Pid , _Fsm_Pid ) ->
9393 % % No rings exist yet...
9494 [] = ? TM :list (),
9595 [] = ? TM :list (missing_ring ),
@@ -99,6 +99,7 @@ check_empty_create(Ring_Names, Sup_Pid, Fsm_Pid) ->
9999 [check_empty_ring (R ) || R <- Ring_Names ],
100100
101101 ct :comment (" Deleting all rings" ),
102+ Num_Rings = length (Ring_Names ),
102103 Exp_Deletes = lists :duplicate (Num_Rings , true ),
103104 Exp_Deletes = [? TM :delete (R ) || R <- Ring_Names ],
104105 [] = ? TM :list (),
0 commit comments