23
23
-export ([start /0 ]).
24
24
25
25
start () ->
26
- % ok = isolated(fun test_ets_new/0),
27
- % ok = isolated(fun test_permissions/0),
28
- % ok = isolated(fun test_keys/0),
29
- % ok = isolated(fun test_keypos/0),
30
- % ok = isolated(fun test_insert/0),
31
- % ok = isolated(fun test_delete/0),
32
- % ok = isolated(fun test_lookup_element/0),
33
- % ok = isolated(fun test_update_counter/0),
26
+ ok = isolated (fun test_ets_new /0 ),
27
+ ok = isolated (fun test_permissions /0 ),
28
+ ok = isolated (fun test_keys /0 ),
29
+ ok = isolated (fun test_keypos /0 ),
30
+ ok = isolated (fun test_insert /0 ),
31
+ ok = isolated (fun test_delete /0 ),
32
+ ok = isolated (fun test_lookup_element /0 ),
33
+ ok = isolated (fun test_update_counter /0 ),
34
34
ok = isolated (fun test_duplicate_bag /0 ),
35
35
0 .
36
36
@@ -265,7 +265,7 @@ test_duplicate_bag() ->
265
265
Tid = ets :new (test_duplicate_bag , [duplicate_bag , {keypos , 2 }]),
266
266
T = {ok , foo , 100 , extra },
267
267
T2 = {error , foo , 200 },
268
- T3 = {error , foo , 300 },
268
+ _T3 = {error , foo , 300 },
269
269
270
270
% true = ets:insert_new(Tid, T),
271
271
% false = ets:insert_new(Tid, T),
@@ -280,15 +280,15 @@ test_duplicate_bag() ->
280
280
% false = ets:insert_new(Tid, [T, {ok, bar, batat}]),
281
281
% false = ets:member(Tid, bar),
282
282
283
- % [ok, ok, ok, ok, error] = ets:lookup_element(Tid, foo, 1),
284
- % [foo, foo, foo, foo, foo] = ets:lookup_element(Tid, foo, 2),
285
- % [100, 100, 100, 100, 200] = ets:lookup_element(Tid, foo, 3),
283
+ [ ok , ok , ok , error ] = ets :lookup_element (Tid , foo , 1 ),
284
+ [ foo , foo , foo , foo ] = ets :lookup_element (Tid , foo , 2 ),
285
+ [ 100 , 100 , 100 , 200 ] = ets :lookup_element (Tid , foo , 3 ),
286
286
% % some tuples don't have 4 arity
287
- % ok = expect_failure (fun() -> ets:lookup_element(Tid, foo, 4) end),
287
+ ok = assert_badarg (fun () -> ets :lookup_element (Tid , foo , 4 ) end ),
288
288
289
289
% % unsupported for duplicate bag
290
- % ok = expect_failure (fun() -> ets:update_counter(Tid, foo, 10) end),
291
- % ok = expect_failure (fun() -> ets:update_element(Tid, foo, {1, error}) end),
290
+ ok = assert_badarg (fun () -> ets :update_counter (Tid , foo , 10 ) end ),
291
+ % ok = assert_badarg (fun() -> ets:update_element(Tid, foo, {1, error}) end),
292
292
293
293
% true = ets:delete_object(Tid, {bad, bad}),
294
294
% true = [T, T, T, T, T2] == ets:lookup(Tid, foo),
@@ -300,7 +300,7 @@ test_duplicate_bag() ->
300
300
% true = [T2, T3] == ets:take(Tid, foo),
301
301
302
302
% true = ets:delete(Tid),
303
- % ok = expect_failure (fun() -> ets:insert(Tid, T) end),
303
+ % ok = assert_badarg (fun() -> ets:insert(Tid, T) end),
304
304
305
305
ok .
306
306
0 commit comments