package webapiserverless

import (
	"fmt"
	"testing"
	"time"

	"github.com/samber/lo"
	"github.com/spf13/viper"
	"github.com/stretchr/testify/suite"

	"github.com/tidbcloud/tidb-management-service/functional-test/pkg/account"
	"github.com/tidbcloud/tidb-management-service/functional-test/pkg/coreportalapi"
	"github.com/tidbcloud/tidb-management-service/functional-test/pkg/coreportalapi/model"
	"github.com/tidbcloud/tidb-management-service/functional-test/pkg/serverlesssvc"
	"github.com/tidbcloud/tidb-management-service/functional-test/pkg/tidbcloudlogin"
	"github.com/tidbcloud/tidb-management-service/utilities/randstr"
)

func TestServerlessSqlCluster(t *testing.T) {
	testSuite := &TestServerlessClusterSqlUserSuite{
		WebApiLoginContext: &tidbcloudlogin.WebApiLoginContext{
			Host:              viper.GetString("host"),
			Auth0Domain:       viper.GetString("auth0_domain"),
			Auth0ClientID:     viper.GetString("auth0_client_id"),
			Auth0ClientSecret: viper.GetString("auth0_client_secret"),
			UserEmail:         viper.GetString("user_email"),
			BearerToken:       viper.GetString("bearer_token"),
		},

		orgID:             viper.GetString("org_id"),
		prjID:             viper.GetString("prj_id"),
		clusterNamePrefix: viper.GetString("cluster_name_prefix"),

		nodeProfileName: "Shared0",
		provider:        "aws",
		region:          "us-east-1",
		password:        randstr.GenWithCharset(16, randstr.AlphabetCharset),
		spendLimit:      1000, // 10 USD
	}

	testSuite.clusterName = testSuite.clusterNamePrefix + randstr.GenWithCharset(4, randstr.AlphabetCharset)
	testSuite.components = []*model.CentralClusterComponent{
		{
			ComponentType:   lo.ToPtr(model.CentralComponentTypeCOMPONENTTYPETIDB),
			NodeProfileName: lo.ToPtr(testSuite.nodeProfileName),
			Replicas:        lo.ToPtr(int32(1)),
			StorageSizeGi:   lo.ToPtr(int32(0)),
		},
		{
			ComponentType:   lo.ToPtr(model.CentralComponentTypeCOMPONENTTYPETIKV),
			NodeProfileName: lo.ToPtr(testSuite.nodeProfileName),
			Replicas:        lo.ToPtr(int32(1)),
			StorageSizeGi:   lo.ToPtr(int32(1)),
		},
		{
			ComponentType:   lo.ToPtr(model.CentralComponentTypeCOMPONENTTYPETIFLASH),
			NodeProfileName: lo.ToPtr(testSuite.nodeProfileName),
			Replicas:        lo.ToPtr(int32(1)),
			StorageSizeGi:   lo.ToPtr(int32(1)),
		},
	}

	suite.Run(t, testSuite)
}

type TestServerlessClusterSqlUserSuite struct {
	suite.Suite

	*tidbcloudlogin.WebApiLoginContext

	orgID             string
	prjID             string
	clusterNamePrefix string

	nodeProfileName string
	provider        string
	region          string
	password        string
	clusterName     string
	components      []*model.CentralClusterComponent
	spendLimit      int64

	serverlessCli *serverlesssvc.Cli
	cmCli         *coreportalapi.Cli
	accountCli    *account.Cli

	clusterID  string
	userPrefix string

	newSqlUserName string
	newSqlUserPwd  string
}

func (su *TestServerlessClusterSqlUserSuite) TearDownSuite() {
	if su.clusterID != "" {
		su.cmCli.EnsureDeleteCluster(su.orgID, su.prjID, su.clusterName)
	}
}

func (su *TestServerlessClusterSqlUserSuite) Test_01_LoginAndInitializeClient() {
	token, err := su.LoginAndGetToken(su.orgID)
	su.Require().NoError(err)

	su.cmCli, err = coreportalapi.NewClient(&su.Suite, su.Host, token)
	su.Require().NoError(err)
	su.Require().NotNil(su.cmCli)

	su.serverlessCli, err = serverlesssvc.NewClient(&su.Suite, su.Host, token)
	su.Require().NoError(err)
	su.Require().NotNil(su.serverlessCli)

	su.accountCli, err = account.NewClient(&su.Suite, su.Host, token)
	su.Require().NoError(err)
	su.Require().NotNil(su.accountCli)
}

func (su *TestServerlessClusterSqlUserSuite) Test_02_CreateCluster() {
	su.clusterID = *su.cmCli.CreateCluster(su.orgID, su.prjID, su.provider, su.region, su.clusterName, 4000, su.components, true, su.spendLimit)
	su.Require().NotEmpty(su.clusterID)
}

func (su *TestServerlessClusterSqlUserSuite) Test_03_PollClusterStatus() {
	// timeout: 10 minutes (600 seconds)
	for range 60 {
		status := su.cmCli.PollClusterStatus(su.orgID, su.prjID, su.clusterID)
		if *status == model.CentralClusterStatusNORMAL {
			break
		}
		su.T().Logf("cluster status: %s", *status)
		time.Sleep(10 * time.Second)
	}
}

func (su *TestServerlessClusterSqlUserSuite) Test_04_GetCluster() {
	c := su.cmCli.GetCluster(su.orgID, su.prjID, su.clusterID)
	su.userPrefix = c.Endpoint.Token
}

type UserRecord struct {
	User   string
	Plugin string
}

func (su *TestServerlessClusterSqlUserSuite) Test_05_ListSqlUser() {
	time.Sleep(10 * time.Second)
	su.cmCli.SetPassword(su.orgID, su.prjID, su.clusterID, su.password)

	records := su.queryUserRecord(fmt.Sprintf("%s.root", su.userPrefix), su.password)

	hasAuthTokenUser := false
	for _, record := range records {
		if record.Plugin == "tidb_auth_token" {
			hasAuthTokenUser = true
		}
	}
	su.Require().True(hasAuthTokenUser)
}

func (su *TestServerlessClusterSqlUserSuite) queryUserRecord(userName, password string) []UserRecord {
	db := su.cmCli.ConnectDB(su.orgID, su.prjID, su.clusterID, userName, password, "mysql", "skip-verify")
	defer func() {
		conn, err := db.DB()
		su.Require().NoError(err)
		err = conn.Close()
		su.Require().NoError(err)
	}()

	var records []UserRecord
	err := db.Raw("select user, plugin from user").Find(&records).Error
	fmt.Println(records)
	su.Require().NoError(err)
	su.Require().NotEmpty(records)

	return records
}

func (su *TestServerlessClusterSqlUserSuite) Test_06_CreateSqlUser() {
	su.newSqlUserName = fmt.Sprintf("%s.%s", su.userPrefix, randstr.GenWithCharset(4, randstr.AlphabetCharset))
	su.newSqlUserPwd = randstr.GenWithCharset(8, randstr.AlphabetCharset)

	su.accountCli.CreateSqlUser(su.orgID, su.prjID, su.clusterID, su.newSqlUserName, su.newSqlUserPwd)

	records := su.queryUserRecord(su.newSqlUserName, su.newSqlUserPwd)

	userExist := false
	for _, record := range records {
		if record.User == su.newSqlUserName {
			userExist = true
		}
	}
	su.Require().True(userExist)
}

func (su *TestServerlessClusterSqlUserSuite) Test_07_DeleteSqlUser() {
	su.accountCli.DeleteSqlUser(su.orgID, su.prjID, su.clusterID, su.newSqlUserName)

	records := su.queryUserRecord(fmt.Sprintf("%s.root", su.userPrefix), su.password)

	userExist := false
	for _, record := range records {
		if record.User == su.newSqlUserPwd {
			userExist = true
		}
	}
	su.Require().False(userExist)
}