diff options
author | Peter Andersson <[email protected]> | 2010-06-04 15:34:42 +0200 |
---|---|---|
committer | Raimo Niskanen <[email protected]> | 2010-06-09 16:19:23 +0200 |
commit | 34cf18550ff792ed9da884b00a49d6accd1bd5f5 (patch) | |
tree | d81105e39baec08bba74932fc4490ad7e825acb7 /lib/common_test/test/ct_userconfig_callback.erl | |
parent | a3af252253c1fbc642cf6229ff1e23f095b75b59 (diff) | |
download | otp-34cf18550ff792ed9da884b00a49d6accd1bd5f5.tar.gz otp-34cf18550ff792ed9da884b00a49d6accd1bd5f5.tar.bz2 otp-34cf18550ff792ed9da884b00a49d6accd1bd5f5.zip |
Add support for dynamic timetrap handling
Diffstat (limited to 'lib/common_test/test/ct_userconfig_callback.erl')
-rw-r--r-- | lib/common_test/test/ct_userconfig_callback.erl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/lib/common_test/test/ct_userconfig_callback.erl b/lib/common_test/test/ct_userconfig_callback.erl new file mode 100644 index 0000000000..ca51bf240b --- /dev/null +++ b/lib/common_test/test/ct_userconfig_callback.erl @@ -0,0 +1,32 @@ +%%-------------------------------------------------------------------- +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2010. All Rights Reserved. +%% +%% The contents of this file are subject to the Erlang Public License, +%% Version 1.1, (the "License"); you may not use this file except in +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +-module(ct_userconfig_callback). + +-export([check_parameter/1, read_config/1]). + +read_config(Str) -> + KeyVals = string:tokens(Str, " "), + {ok,read_config1(KeyVals)}. + +read_config1([Key,Val | KeyVals]) -> + [{list_to_atom(Key),Val} | read_config1(KeyVals)]; +read_config1([]) -> + []. + +check_parameter(Str) -> + {ok,{config,Str}}. |