diff options
author | Peter Andersson <[email protected]> | 2010-06-03 14:40:16 +0200 |
---|---|---|
committer | Raimo Niskanen <[email protected]> | 2010-06-09 16:19:21 +0200 |
commit | 5d01bdc2c4c3cc18150711ebfab4c84abdfc0b45 (patch) | |
tree | b6b0007b983b94746087542b4ef13ff79b794c05 /lib/common_test/test/ct_event_handler_SUITE_data/eh_A.erl | |
parent | 7c6504029f84c52de40a6b29b2fd1b17c053ccec (diff) | |
download | otp-5d01bdc2c4c3cc18150711ebfab4c84abdfc0b45.tar.gz otp-5d01bdc2c4c3cc18150711ebfab4c84abdfc0b45.tar.bz2 otp-5d01bdc2c4c3cc18150711ebfab4c84abdfc0b45.zip |
Improve and fix various test suites
Diffstat (limited to 'lib/common_test/test/ct_event_handler_SUITE_data/eh_A.erl')
-rw-r--r-- | lib/common_test/test/ct_event_handler_SUITE_data/eh_A.erl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/common_test/test/ct_event_handler_SUITE_data/eh_A.erl b/lib/common_test/test/ct_event_handler_SUITE_data/eh_A.erl index 6e526f15a2..cb6d4c3aaa 100644 --- a/lib/common_test/test/ct_event_handler_SUITE_data/eh_A.erl +++ b/lib/common_test/test/ct_event_handler_SUITE_data/eh_A.erl @@ -44,6 +44,19 @@ %% Description: Whenever a new event handler is added to an event manager, %% this function is called to initialize the event handler. %%-------------------------------------------------------------------- +init(String = [X|_]) when is_integer(X) -> + case erl_scan:string(String++".") of + {ok,Ts,_} -> + case erl_parse:parse_term(Ts) of + {ok,Args} -> + init(Args); + _ -> + init(String) + end; + _ -> + init(String) + end; + init(Args) -> S1 = case lists:keysearch(cbm, 1, Args) of |