Add test for mongooseimctl mnesia info

big_tests/tests/mongooseimctl_SUITE.erl

@@ -141,7 +141,8 @@ basic() ->
      dump_table,
      get_loglevel,
      remove_old_messages_test,
-     remove_expired_messages_test].
+     remove_expired_messages_test,
+     kiss_tables_are_in_mnesia_info].
 
 accounts() -> [change_password, check_password_hash, check_password,
                check_account, ban_account, num_active_users, delete_old_users,
@@ -281,6 +282,13 @@ end_per_group(_GroupName, Config) ->
 get_registered_users() ->
     rpc(mim(), ejabberd_auth, get_vh_registered_users, [domain()]).
 
+init_per_testcase(CaseName = kiss_tables_are_in_mnesia_info, Config) ->
+    case rpc(mim(), ejabberd_sm, sm_backend, []) of
+        ejabberd_sm_kiss ->
+            escalus:init_per_testcase(CaseName, Config);
+        _ ->
+            {skip, "Only for kiss preset"}
+    end;
 init_per_testcase(CaseName, Config)
   when CaseName == delete_old_users_vhost
        orelse CaseName == stats_global
@@ -1269,6 +1277,12 @@ remove_expired_messages_test(Config) ->
         2 = length(SecondList)
     end).
 
+kiss_tables_are_in_mnesia_info(Config) ->
+    {Out, 0} = mongooseimctl("mnesia", ["info"], Config),
+    Lines = binary:split(iolist_to_binary(Out), <<"\n">>, [global]),
+    [_Line] = [L || <<"table=kiss_session", _/binary>> = L <- Lines],
+    ok.
+
 %%-----------------------------------------------------------------
 %% Helpers
 %%-----------------------------------------------------------------

rebar.lock

@@ -63,7 +63,7 @@
   0},
  {<<"kiss">>,
   {git,"https://github.com/arcusfelis/kiss.git",
-       {ref,"56975c44de2c9515c99c620c6d23972170573020"}},
+       {ref,"4e7e23fcc0ffe58cf018a0f97437739133f859ed"}},
   0},
  {<<"lager">>,{pkg,<<"lager">>,<<"3.9.2">>},0},
  {<<"lasse">>,{pkg,<<"lasse">>,<<"1.2.0">>},0},

src/ejabberd_sm.erl

@@ -105,7 +105,7 @@
                      }.
 -type info() :: #{info_key() => any()}.
 
--type backend() :: ejabberd_sm_mnesia | ejabberd_sm_redis.
+-type backend() :: ejabberd_sm_mnesia | ejabberd_sm_redis | ejabberd_sm_kiss.
 -type close_reason() :: resumed | normal | replaced.
 -type info_key() :: atom().