riak_test/tests/ts_cluster_select_pass_2.erl

%% -------------------------------------------------------------------
%%
%% Copyright (c) 2015 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.
%%
%% -------------------------------------------------------------------
%% @doc A module to test riak_ts basic create bucket/put/select cycle,
%%      spanning time quanta.

-module(ts_cluster_select_pass_2).

-behavior(riak_test).

-include_lib("eunit/include/eunit.hrl").

-export([confirm/0]).

confirm() ->
    DDL  = ts_data:get_ddl(),
    Data = ts_data:get_valid_select_data_spanning_quanta(),
    Qry  = ts_data:get_valid_qry_spanning_quanta(),
    Expected = {ok, {
        ts_data:get_cols(),
        ts_data:exclusive_result_from_data(Data, 1, 10)}},
    Cluster = ts_setup:start_cluster(3),
    Table = ts_data:get_default_bucket(),
    ts_setup:create_bucket_type(Cluster, DDL, Table),
    ts_setup:activate_bucket_type(Cluster, Table),
    ok = ts_ops:put(Cluster, Table, Data),
    Got = ts_ops:query(Cluster, Qry),
    ?assertEqual(Expected, Got),
    pass.