|
|
@@ -0,0 +1,136 @@
|
|
|
+%%--------------------------------------------------------------------
|
|
|
+%% Copyright (c) 2020-2021 EMQ Technologies Co., Ltd. All Rights Reserved.
|
|
|
+%%
|
|
|
+%% Licensed under the Apache License, Version 2.0 (the "License");
|
|
|
+%% you may not use this file except in compliance with the License.
|
|
|
+%% You may obtain a copy of the License at
|
|
|
+%%
|
|
|
+%% http://www.apache.org/licenses/LICENSE-2.0
|
|
|
+%%
|
|
|
+%% Unless required by applicable law or agreed to in writing, software
|
|
|
+%% distributed under the License is distributed on an "AS IS" BASIS,
|
|
|
+%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
|
+%% See the License for the specific language governing permissions and
|
|
|
+%% limitations under the License.
|
|
|
+%%--------------------------------------------------------------------
|
|
|
+
|
|
|
+-module(emqx_rule_utils_SUITE).
|
|
|
+
|
|
|
+-compile(export_all).
|
|
|
+-compile(nowarn_export_all).
|
|
|
+
|
|
|
+-include_lib("eunit/include/eunit.hrl").
|
|
|
+
|
|
|
+-define(PORT, 9876).
|
|
|
+
|
|
|
+all() -> emqx_ct:all(?MODULE).
|
|
|
+
|
|
|
+t_http_connectivity(_) ->
|
|
|
+ {ok, Socket} = gen_tcp:listen(?PORT, []),
|
|
|
+ ok = emqx_plugin_libs_rule:http_connectivity("http://127.0.0.1:"++emqx_plugin_libs_rule:str(?PORT), 1000),
|
|
|
+ gen_tcp:close(Socket),
|
|
|
+ {error, _} = emqx_plugin_libs_rule:http_connectivity("http://127.0.0.1:"++emqx_plugin_libs_rule:str(?PORT), 1000).
|
|
|
+
|
|
|
+t_tcp_connectivity(_) ->
|
|
|
+ {ok, Socket} = gen_tcp:listen(?PORT, []),
|
|
|
+ ok = emqx_plugin_libs_rule:tcp_connectivity("127.0.0.1", ?PORT, 1000),
|
|
|
+ gen_tcp:close(Socket),
|
|
|
+ {error, _} = emqx_plugin_libs_rule:tcp_connectivity("127.0.0.1", ?PORT, 1000).
|
|
|
+
|
|
|
+t_str(_) ->
|
|
|
+ ?assertEqual("abc", emqx_plugin_libs_rule:str("abc")),
|
|
|
+ ?assertEqual("abc", emqx_plugin_libs_rule:str(abc)),
|
|
|
+ ?assertEqual("{\"a\":1}", emqx_plugin_libs_rule:str(#{a => 1})),
|
|
|
+ ?assertEqual("1", emqx_plugin_libs_rule:str(1)),
|
|
|
+ ?assertEqual("2.0", emqx_plugin_libs_rule:str(2.0)),
|
|
|
+ ?assertEqual("true", emqx_plugin_libs_rule:str(true)),
|
|
|
+ ?assertError(_, emqx_plugin_libs_rule:str({a, v})).
|
|
|
+
|
|
|
+t_bin(_) ->
|
|
|
+ ?assertEqual(<<"abc">>, emqx_plugin_libs_rule:bin("abc")),
|
|
|
+ ?assertEqual(<<"abc">>, emqx_plugin_libs_rule:bin(abc)),
|
|
|
+ ?assertEqual(<<"{\"a\":1}">>, emqx_plugin_libs_rule:bin(#{a => 1})),
|
|
|
+ ?assertEqual(<<"[{\"a\":1}]">>, emqx_plugin_libs_rule:bin([#{a => 1}])),
|
|
|
+ ?assertEqual(<<"1">>, emqx_plugin_libs_rule:bin(1)),
|
|
|
+ ?assertEqual(<<"2.0">>, emqx_plugin_libs_rule:bin(2.0)),
|
|
|
+ ?assertEqual(<<"true">>, emqx_plugin_libs_rule:bin(true)),
|
|
|
+ ?assertError(_, emqx_plugin_libs_rule:bin({a, v})).
|
|
|
+
|
|
|
+t_atom_key(_) ->
|
|
|
+ _ = erlang, _ = port,
|
|
|
+ ?assertEqual([erlang], emqx_plugin_libs_rule:atom_key([<<"erlang">>])),
|
|
|
+ ?assertEqual([erlang, port], emqx_plugin_libs_rule:atom_key([<<"erlang">>, port])),
|
|
|
+ ?assertEqual([erlang, port], emqx_plugin_libs_rule:atom_key([<<"erlang">>, <<"port">>])),
|
|
|
+ ?assertEqual(erlang, emqx_plugin_libs_rule:atom_key(<<"erlang">>)),
|
|
|
+ ?assertError({invalid_key, {a, v}}, emqx_plugin_libs_rule:atom_key({a, v})),
|
|
|
+ _ = xyz876gv123,
|
|
|
+ ?assertEqual([xyz876gv123, port], emqx_plugin_libs_rule:atom_key([<<"xyz876gv123">>, port])).
|
|
|
+
|
|
|
+t_unsafe_atom_key(_) ->
|
|
|
+ ?assertEqual([xyz876gv], emqx_plugin_libs_rule:unsafe_atom_key([<<"xyz876gv">>])),
|
|
|
+ ?assertEqual([xyz876gv33, port], emqx_plugin_libs_rule:unsafe_atom_key([<<"xyz876gv33">>, port])),
|
|
|
+ ?assertEqual([xyz876gv331, port1221], emqx_plugin_libs_rule:unsafe_atom_key([<<"xyz876gv331">>, <<"port1221">>])),
|
|
|
+ ?assertEqual(xyz876gv3312, emqx_plugin_libs_rule:unsafe_atom_key(<<"xyz876gv3312">>)).
|
|
|
+
|
|
|
+t_proc_tmpl(_) ->
|
|
|
+ Selected = #{a => <<"1">>, b => 1, c => 1.0, d => #{d1 => <<"hi">>}},
|
|
|
+ Tks = emqx_plugin_libs_rule:preproc_tmpl(<<"a:${a},b:${b},c:${c},d:${d}">>),
|
|
|
+ ?assertEqual(<<"a:1,b:1,c:1.0,d:{\"d1\":\"hi\"}">>,
|
|
|
+ emqx_plugin_libs_rule:proc_tmpl(Tks, Selected)).
|
|
|
+
|
|
|
+t_proc_tmpl1(_) ->
|
|
|
+ Selected = #{a => <<"1">>, b => 1, c => 1.0, d => #{d1 => <<"hi">>}},
|
|
|
+ Tks = emqx_plugin_libs_rule:preproc_tmpl(<<"a:$a,b:b},c:{c},d:${d">>),
|
|
|
+ ?assertEqual(<<"a:$a,b:b},c:{c},d:${d">>,
|
|
|
+ emqx_plugin_libs_rule:proc_tmpl(Tks, Selected)).
|
|
|
+
|
|
|
+t_proc_cmd(_) ->
|
|
|
+ Selected = #{v0 => <<"x">>, v1 => <<"1">>, v2 => #{d1 => <<"hi">>}},
|
|
|
+ Tks = emqx_plugin_libs_rule:preproc_cmd(<<"hset name a:${v0} ${v1} b ${v2} ">>),
|
|
|
+ ?assertEqual([<<"hset">>, <<"name">>,
|
|
|
+ <<"a:x">>, <<"1">>,
|
|
|
+ <<"b">>, <<"{\"d1\":\"hi\"}">>],
|
|
|
+ emqx_plugin_libs_rule:proc_cmd(Tks, Selected)).
|
|
|
+
|
|
|
+t_preproc_sql(_) ->
|
|
|
+ Selected = #{a => <<"1">>, b => 1, c => 1.0, d => #{d1 => <<"hi">>}},
|
|
|
+ {PrepareStatement, ParamsTokens} = emqx_plugin_libs_rule:preproc_sql(<<"a:${a},b:${b},c:${c},d:${d}">>, '?'),
|
|
|
+ ?assertEqual(<<"a:?,b:?,c:?,d:?">>, PrepareStatement),
|
|
|
+ ?assertEqual([<<"1">>,1,1.0,<<"{\"d1\":\"hi\"}">>],
|
|
|
+ emqx_plugin_libs_rule:proc_sql(ParamsTokens, Selected)).
|
|
|
+
|
|
|
+t_preproc_sql1(_) ->
|
|
|
+ Selected = #{a => <<"1">>, b => 1, c => 1.0, d => #{d1 => <<"hi">>}},
|
|
|
+ {PrepareStatement, ParamsTokens} = emqx_plugin_libs_rule:preproc_sql(<<"a:${a},b:${b},c:${c},d:${d}">>, '$n'),
|
|
|
+ ?assertEqual(<<"a:$1,b:$2,c:$3,d:$4">>, PrepareStatement),
|
|
|
+ ?assertEqual([<<"1">>,1,1.0,<<"{\"d1\":\"hi\"}">>],
|
|
|
+ emqx_plugin_libs_rule:proc_sql(ParamsTokens, Selected)).
|
|
|
+t_preproc_sql2(_) ->
|
|
|
+ Selected = #{a => <<"1">>, b => 1, c => 1.0, d => #{d1 => <<"hi">>}},
|
|
|
+ {PrepareStatement, ParamsTokens} = emqx_plugin_libs_rule:preproc_sql(<<"a:$a,b:b},c:{c},d:${d">>, '?'),
|
|
|
+ ?assertEqual(<<"a:$a,b:b},c:{c},d:${d">>, PrepareStatement),
|
|
|
+ ?assertEqual([], emqx_plugin_libs_rule:proc_sql(ParamsTokens, Selected)).
|
|
|
+
|
|
|
+t_preproc_sql3(_) ->
|
|
|
+ Selected = #{a => <<"1">>, b => 1, c => 1.0, d => #{d1 => <<"hi">>}},
|
|
|
+ ParamsTokens = emqx_plugin_libs_rule:preproc_tmpl(<<"a:${a},b:${b},c:${c},d:${d}">>),
|
|
|
+ ?assertEqual(<<"a:'1',b:1,c:1.0,d:'{\"d1\":\"hi\"}'">>,
|
|
|
+ emqx_plugin_libs_rule:proc_sql_param_str(ParamsTokens, Selected)).
|
|
|
+
|
|
|
+t_preproc_sql4(_) ->
|
|
|
+ %% with apostrophes
|
|
|
+ %% https://github.com/emqx/emqx/issues/4135
|
|
|
+ Selected = #{a => <<"1''2">>, b => 1, c => 1.0,
|
|
|
+ d => #{d1 => <<"someone's phone">>}},
|
|
|
+ ParamsTokens = emqx_plugin_libs_rule:preproc_tmpl(<<"a:${a},b:${b},c:${c},d:${d}">>),
|
|
|
+ ?assertEqual(<<"a:'1\\'\\'2',b:1,c:1.0,d:'{\"d1\":\"someone\\'s phone\"}'">>,
|
|
|
+ emqx_plugin_libs_rule:proc_sql_param_str(ParamsTokens, Selected)).
|
|
|
+
|
|
|
+t_preproc_sql5(_) ->
|
|
|
+ %% with apostrophes for cassandra
|
|
|
+ %% https://github.com/emqx/emqx/issues/4148
|
|
|
+ Selected = #{a => <<"1''2">>, b => 1, c => 1.0,
|
|
|
+ d => #{d1 => <<"someone's phone">>}},
|
|
|
+ ParamsTokens = emqx_plugin_libs_rule:preproc_tmpl(<<"a:${a},b:${b},c:${c},d:${d}">>),
|
|
|
+ ?assertEqual(<<"a:'1''''2',b:1,c:1.0,d:'{\"d1\":\"someone''s phone\"}'">>,
|
|
|
+ emqx_plugin_libs_rule:proc_cql_param_str(ParamsTokens, Selected)).
|
Shawn