diff options
author | Henrik Nord <[email protected]> | 2011-04-12 10:48:14 +0200 |
---|---|---|
committer | Henrik Nord <[email protected]> | 2011-04-12 10:48:28 +0200 |
commit | 47fc3df88eada4b07d8805dbc7fd418f6fac1c11 (patch) | |
tree | d1d4ad95372b1df245fe1fac56f10c49043250bc /lib/dialyzer/test/small_tests_SUITE_data/src/invalid_specs/invalid_spec1.erl | |
parent | 45644a04188fb9e9fae3a6c86b10afac6c739cc2 (diff) | |
parent | beec1818a8f6b3176bd0c7558feaf7cecad3da3a (diff) | |
download | otp-47fc3df88eada4b07d8805dbc7fd418f6fac1c11.tar.gz otp-47fc3df88eada4b07d8805dbc7fd418f6fac1c11.tar.bz2 otp-47fc3df88eada4b07d8805dbc7fd418f6fac1c11.zip |
Merge branch 'sa/dialyzer-invalid-spec-fix' into dev
* sa/dialyzer-invalid-spec-fix:
Fix crash related with the contract blame assignment patch
OTP-9219
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, 28 insertions, 0 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 new file mode 100644 index 0000000000..06ab2f9a22 --- /dev/null +++ b/lib/dialyzer/test/small_tests_SUITE_data/src/invalid_specs/invalid_spec1.erl @@ -0,0 +1,28 @@ +-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. |