diff options
Diffstat (limited to 'lib/dialyzer/test/small_tests_SUITE_data/src/invalid_specs/invalid_spec1.erl')
-rw-r--r-- | lib/dialyzer/test/small_tests_SUITE_data/src/invalid_specs/invalid_spec1.erl | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/lib/dialyzer/test/small_tests_SUITE_data/src/invalid_specs/invalid_spec1.erl b/lib/dialyzer/test/small_tests_SUITE_data/src/invalid_specs/invalid_spec1.erl deleted file mode 100644 index 06ab2f9a22..0000000000 --- a/lib/dialyzer/test/small_tests_SUITE_data/src/invalid_specs/invalid_spec1.erl +++ /dev/null @@ -1,28 +0,0 @@ --module(invalid_spec1). - --export([get_plan_dirty/1]). - --spec get_plan_dirty([string()]) -> {{atom(), any()}, [atom()]}. - -get_plan_dirty(ClassL) -> - get_plan_dirty(ClassL, [], []). - -get_plan_dirty([], Res, FoundClassList) -> - {Res,FoundClassList}; -get_plan_dirty([Class|ClassL], Res, FoundClassList) -> - ClassPlan = list_to_atom(Class ++ "_plan"), - case catch mnesia:dirty_all_keys(ClassPlan) of - {'EXIT',_} -> - get_plan_dirty(ClassL, Res, FoundClassList); - [] -> - get_plan_dirty(ClassL, Res, FoundClassList); - KeyL -> - ClassAtom = list_to_atom(Class), - Res2 = - lists:foldl(fun(Key, Acc) -> - [{ClassAtom,Key}|Acc] - end, - Res, - KeyL), - get_plan_dirty(ClassL, Res2, [ClassAtom|FoundClassList]) - end. |