riak_test/tests/ts_updowngrade_test.part

%% -*- Mode: Erlang -*-
%% -------------------------------------------------------------------
%%
%% Copyright (c) 2016 Basho Technologies, Inc.
%%
%% This file is provided to you 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.
%%
%% -------------------------------------------------------------------
-export([
         suite/0,
         init_per_suite/1,
         end_per_suite/1,
         all/0,
         run_this_test/1
        ]).

-include_lib("common_test/include/ct.hrl").
-include("ts_updown_util.hrl").

%% Callbacks

suite() ->
    [{timetrap, {seconds, 9000}}].

all() ->
    [
     run_this_test
    ].

init_per_suite(Config) ->
    lists:foldl(
      fun(Fun, Cfg) -> Fun(Cfg) end,
      Config,
      [fun ts_updown_util:setup/1,
       fun make_scenario_invariants/1]).

end_per_suite(Config) ->
    ts_updown_util:maybe_shutdown_client_node(Config).

run_this_test(Config) ->
    case ts_updown_util:run_scenarios(Config, make_scenarios()) of
        [] ->
            pass;
        _ ->
            ct:fail("There were failing queries", [])
    end.