/**
 * Copyright (c) 2021 OceanBase
 * OceanBase CE is licensed under Mulan PubL v2.
 * You can use this software according to the terms and conditions of the Mulan PubL v2.
 * You may obtain a copy of Mulan PubL v2 at:
 *          http://license.coscl.org.cn/MulanPubL-2.0
 * THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OF ANY KIND,
 * EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO NON-INFRINGEMENT,
 * MERCHANTABILITY OR FIT FOR A PARTICULAR PURPOSE.
 * See the Mulan PubL v2 for more details.
 */

#include <gtest/gtest.h>
#include "sql/engine/expr/ob_expr_case.h"
#include "sql/engine/expr/ob_expr_arg_case.h"
#include "ob_expr_test_utils.h"
#include "sql/engine/expr/ob_expr_equal.h"

using namespace oceanbase::common;
using namespace oceanbase::sql;

class ObExprCaseTest : public ::testing::Test
{
public:
  ObExprCaseTest();
  virtual ~ObExprCaseTest();
  virtual void SetUp();
  virtual void TearDown();
private:
  // disallow copy
  ObExprCaseTest(const ObExprCaseTest &other);
  ObExprCaseTest& operator=(const ObExprCaseTest &other);
private:
  // data members
};
ObExprCaseTest::ObExprCaseTest()
{
}

ObExprCaseTest::~ObExprCaseTest()
{
}

void ObExprCaseTest::SetUp()
{
}

void ObExprCaseTest::TearDown()
{
}

#define MAKE_OBJS_2(t1,v1,t2,v2) \
  ObObj objs[2]; \
  ObExprResType types[2]; \
  objs[0].set_##t1(v1); objs[1].set_##t2(v2);  \
  types[0].set_##t1(); types[1].set_##t2(); 

#define MAKE_OBJS_3(t1,v1,t2,v2,t3,v3) \
  ObObj objs[3]; \
  ObExprResType types[3]; \
  objs[0].set_##t1(v1); objs[1].set_##t2(v2); objs[2].set_##t3(v3); \
  types[0].set_##t1(); types[1].set_##t2(); types[2].set_##t3();

#define MAKE_OBJS_4(t1,v1,t2,v2,t3,v3,t4,v4) \
  ObObj objs[4]; \
  ObExprResType types[4]; \
  objs[0].set_##t1(v1); objs[1].set_##t2(v2); objs[2].set_##t3(v3); objs[3].set_##t4(v4); \
  types[0].set_##t1(); types[1].set_##t2(); types[2].set_##t3(); types[3].set_##t4();

#define MAKE_OBJS_5(t1,v1,t2,v2,t3,v3,t4,v4,t5,v5) \
  ObObj objs[5]; \
  ObExprResType types[5]; \
  objs[0].set_##t1(v1); objs[1].set_##t2(v2); objs[2].set_##t3(v3); objs[3].set_##t4(v4); objs[4].set_##t5(v5); \
  types[0].set_##t1(); types[1].set_##t2(); types[2].set_##t3(); types[3].set_##t4(); types[4].set_##t5();


#define CHECK_FUNC(obj, func, r, N) \
  ObExprResType type; \
  ObExprTypeCtx ctx; \
  int err = obj.calc_result_typeN(type, types, N, ctx); \
  EXPECT_TRUE(OB_SUCCESS == err); \
  obj.set_result_type(type); \
  err = obj.calc_resultN(r,objs, N, &buf); \
  _OB_LOG(INFO, "r=%s ref=%s", to_cstring(r), to_cstring(ref)); \
  EXPECT_TRUE(OB_SUCCESS == err); \
  EXPECT_TRUE(ref.get_type() == r.get_type());  \
  if (ref.get_type() != ObNullType){\
    ObExprEqual eq; \
    ObObj result; \
    EXPECT_TRUE(OB_SUCCESS == ObExprEqual::calc(result, r, ref)); \
    EXPECT_TRUE(result.get_type() == ObBoolType  && result.get_bool() == true); \
  }

#define CHECK_FUNC_FAIL(obj, func, r, N) \
  ObExprResType type; \
  ObExprTypeCtx ctx; \
  int err = obj.calc_result_typeN(type, types, N, ctx); \
  err = obj.calc_resultN(r, objs, N, &buf); \
  _OB_LOG(INFO, "r=%s ref=%s", to_cstring(r), to_cstring(ref)); \
  EXPECT_TRUE(OB_SUCCESS != err);



#define T_2(obj,func, t1, v1, t2, v2, ref_type, ref_value) \
{ \
  ObObj r, ref;      \
  MAKE_OBJS_2(t1,v1,t2,v2) \
  ref.set_##ref_type(ref_value); \
  CHECK_FUNC(obj,func, r, 2) \
}while(0)

#define F_2(obj,func, t1, v1, t2, v2, ref_type, ref_value) \
{ \
  ObObj r, ref;      \
  MAKE_OBJS_2(t1,v1,t2,v2) \
  ref.set_##ref_type(ref_value); \
  CHECK_FUNC_FAIL(obj,func, r, 2) \
}while(0)


#define T_3(obj,func, t1, v1, t2, v2, t3, v3, ref_type, ref_value) \
{ \
  ObObj r, ref;      \
  MAKE_OBJS_3(t1,v1,t2,v2,t3,v3) \
  ref.set_##ref_type(ref_value); \
  CHECK_FUNC(obj,func, r, 3) \
}while(0)

#define F_3(obj,func, t1, v1, t2, v2, t3, v3, ref_type, ref_value) \
{ \
  ObObj r, ref;      \
  MAKE_OBJS_3(t1,v1,t2,v2,t3,v3) \
  ref.set_##ref_type(ref_value); \
  CHECK_FUNC_FAIL(obj,func, r, 3) \
}while(0)



#define T_4(obj, func, t1, v1, t2, v2, t3, v3, t4,v4,ref_type, ref_value) \
{ \
  ObObj r, ref;      \
  MAKE_OBJS_4(t1,v1,t2,v2,t3,v3,t4,v4) \
  ref.set_##ref_type(ref_value); \
  CHECK_FUNC(obj, func, r, 4) \
}while(0)

#define F_4(obj,func, t1, v1, t2, v2, t3, v3,t4,v4, ref_type, ref_value) \
{ \
  ObObj r, ref;      \
  MAKE_OBJS_4(t1,v1,t2,v2,t3,v3,t4,v4) \
  ref.set_##ref_type(ref_value); \
  CHECK_FUNC_FAIL(obj,func, r, 4) \
}while(0)



#define T_5(obj, func, t1, v1, t2, v2, t3, v3, t4, v4, t5, v5, ref_type, ref_value) \
{ \
  ObObj r, ref;      \
  MAKE_OBJS_5(t1,v1,t2,v2,t3,v3,t4,v4,t5,v5) \
  ref.set_##ref_type(ref_value); \
  CHECK_FUNC(obj,func, r, 5) \
}while(0)

#define F_5(obj,func, t1, v1, t2, v2, t3, v3,t4,v4 ,t5,v5, ref_type, ref_value) \
{ \
  ObObj r, ref;      \
  MAKE_OBJS_5(t1,v1,t2,v2,t3,v3,t4,v4,t5,v5) \
  ref.set_##ref_type(ref_value); \
  CHECK_FUNC_FAIL(obj,func, r, 5) \
}while(0)




TEST_F(ObExprCaseTest, basic_test)
{
  ObExprCase case_op;
  ObExprStringBuf buf;
  ASSERT_EQ(ObExprOperator::MORE_THAN_ONE, case_op.get_param_num());


  // case when a then b [else c]
  T_2(case_op, calc_resultN, bool, true, null, 0, null, 0);
  T_2(case_op, calc_resultN, bool, false, varchar, "hello", null, 0);
  T_2(case_op, calc_resultN, bool, true, varchar, "hello", varchar, "hello");
  T_4(case_op, calc_resultN, bool, false, varchar, "hello", bool, true, int, 100, varchar, "100");
  T_4(case_op, calc_resultN, bool, true, varchar, "hello", bool, true, int, 100, varchar, "hello");
  T_4(case_op, calc_resultN, bool, false, varchar, "hello", bool, true, varchar, "hello", varchar, "hello");
  T_4(case_op, calc_resultN, bool, true, int, 100, bool, false, varchar, "hello", varchar, "100");
  T_4(case_op, calc_resultN, bool, false, varchar, "hello", bool, false, int, 100, null, 0);
  T_4(case_op, calc_resultN, bool, false, varchar, "hello", bool, false, int, 100, null, 0);

  // else
  // T_5(case_op, calc_resultN, bool, false, varchar, "hello", bool, false, int, 100, int, 99, int, 99);
  T_5(case_op, calc_resultN, bool, false, varchar, "hello", bool, false, int, 100, int, 99, varchar, "99");
  //T_5(case_op, calc_resultN, bool, false, int, 35, bool, false, int, 100, int, 99, int, 99);


  // case when a then b
  F_3(case_op, calc_resultN, int, 10, bool, true, null, 0, int, 10);
  // case when a then b else c
  T_3(case_op, calc_resultN, null, 0, null, 0, null, 0, null, 0);
  T_5(case_op, calc_resultN, bool, false, varchar, "hello", bool, false, int, 100, int, 50, varchar, "50");
}


TEST_F(ObExprCaseTest, arg_case_basic_test)
{
  ObExprArgCase case_op;
  ObExprStringBuf buf;
  ASSERT_EQ(ObExprOperator::MORE_THAN_ONE, case_op.get_param_num());

  // case x when a then b else c
  F_2(case_op, calc_resultN, int, 10, bool, true, null, 0);
  F_2(case_op, calc_resultN, bool, true, varchar, "hello", varchar, "hello");

  T_4(case_op, calc_resultN, int, 10, int, 9, null, 0, null, 0, null, 0);
  T_4(case_op, calc_resultN, int, 10, int, 9, null, 0, int, 7, int , 7);
  T_4(case_op, calc_resultN, int, 10, int, 9, null, 0, varchar, "xyz", varchar, "xyz");
  //T_4(case_op, calc_resultN, int, 10, int, 9, null, 0, bool, true, bool, true);
  T_3(case_op, calc_resultN, bool, false, bool, false, varchar, "hello",  varchar, "hello");
  T_3(case_op, calc_resultN, bool, true, bool, false, varchar, "hello",  null, 0);
  T_5(case_op, calc_resultN, bool, false, bool, true, varchar, "hello", bool, false, int, 100, varchar, "100");
  T_5(case_op, calc_resultN, bool, true, bool, true, varchar, "hello", bool, false, int, 100, varchar, "hello");

  // case x when a then b
  T_3(case_op, calc_resultN, null, 0, null, 0, null, 0, null, 0);
  // case x when a then b else c
  T_4(case_op, calc_resultN, null, 0, null, 0, int, 100, int, 99, int, 99);
  T_4(case_op, calc_resultN, null, 0, int, 0, int, 100, int, 99, int, 99);
}

int main(int argc, char **argv)
{
  oceanbase::common::ObLogger::get_logger().set_log_level("DEBUG");
  ::testing::InitGoogleTest(&argc,argv);
  return RUN_ALL_TESTS();
}