/*
Copyright © contributors to CloudNativePG, established as
CloudNativePG a Series of LF Projects, LLC.

Licensed 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.

SPDX-License-Identifier: Apache-2.0
*/

package e2e

import (
	"fmt"
	"regexp"
	"strconv"
	"strings"
	"time"

	corev1 "k8s.io/api/core/v1"
	ctrlclient "sigs.k8s.io/controller-runtime/pkg/client"

	apiv1 "github.com/cloudnative-pg/cloudnative-pg/api/v1"
	"github.com/cloudnative-pg/cloudnative-pg/pkg/specs"
	"github.com/cloudnative-pg/cloudnative-pg/tests"
	"github.com/cloudnative-pg/cloudnative-pg/tests/utils/clusterutils"
	"github.com/cloudnative-pg/cloudnative-pg/tests/utils/exec"
	"github.com/cloudnative-pg/cloudnative-pg/tests/utils/postgres"
	"github.com/cloudnative-pg/cloudnative-pg/tests/utils/proxy"
	"github.com/cloudnative-pg/cloudnative-pg/tests/utils/timeouts"
	"github.com/cloudnative-pg/cloudnative-pg/tests/utils/yaml"

	. "github.com/onsi/ginkgo/v2"
	. "github.com/onsi/gomega"
)

var _ = Describe("Metrics", Label(tests.LabelObservability), func() {
	const (
		targetDBOne                      = "test"
		targetDBTwo                      = "test1"
		targetDBSecret                   = "secret_test"
		testTableName                    = "test_table"
		clusterMetricsFile               = fixturesDir + "/metrics/cluster-metrics.yaml.template"
		clusterMetricsTLSFile            = fixturesDir + "/metrics/cluster-metrics-tls.yaml.template"
		clusterMetricsDBFile             = fixturesDir + "/metrics/cluster-metrics-with-target-databases.yaml.template"
		clusterMetricsPredicateQueryFile = fixturesDir + "/metrics/cluster-metrics-with-predicate-query.yaml.template"
		customQueriesSampleFile          = fixturesDir + "/metrics/custom-queries.yaml"
		customQueriesTargetDBSampleFile  = fixturesDir + "/metrics/custom-queries-with-target-databases.yaml"
		defaultMonitoringConfigMapName   = "cnpg-default-monitoring"
		level                            = tests.Low
	)

	buildExpectedMetrics := func(cluster *apiv1.Cluster, isReplicaPod bool) map[string]*regexp.Regexp {
		const inactiveReplicationSlotsCount = "cnpg_e2e_tests_replication_slots_status_inactive"

		// We define a few metrics in the tests. We check that all of them exist and
		// there are no errors during the collection.
		expectedMetrics := map[string]*regexp.Regexp{
			"cnpg_pg_postmaster_start_time_seconds":        regexp.MustCompile(`\d+\.\d+`), // wokeignore:rule=master
			"cnpg_pg_wal_files_total":                      regexp.MustCompile(`\d+`),
			"cnpg_pg_database_size_bytes{datname=\"app\"}": regexp.MustCompile(`[0-9e+.]+`),
			"cnpg_pg_stat_archiver_archived_count":         regexp.MustCompile(`\d+`),
			"cnpg_pg_stat_archiver_failed_count":           regexp.MustCompile(`\d+`),
			"cnpg_pg_locks_blocked_queries":                regexp.MustCompile(`0`),
			"cnpg_runonserver_match_fixed":                 regexp.MustCompile(`42`),
			"cnpg_collector_last_collection_error":         regexp.MustCompile(`0`),
			inactiveReplicationSlotsCount:                  regexp.MustCompile("0"),
		}

		slotsEnabled := true
		if cluster.Spec.ReplicationSlots == nil ||
			!cluster.Spec.ReplicationSlots.HighAvailability.GetEnabled() {
			slotsEnabled = false
		}

		if slotsEnabled && isReplicaPod {
			inactiveSlots := strconv.Itoa(cluster.Spec.Instances - 2)
			expectedMetrics[inactiveReplicationSlotsCount] = regexp.MustCompile(inactiveSlots)
		}

		return expectedMetrics
	}

	BeforeEach(func() {
		if testLevelEnv.Depth < int(level) {
			Skip("Test depth is lower than the amount requested for this test")
		}
	})

	// Cluster identifiers
	var namespace string

	AssertGatherMetrics := func(namespacePrefix, clusterFile string) {
		// Create the cluster namespace
		namespace, err := env.CreateUniqueTestNamespace(env.Ctx, env.Client, namespacePrefix)
		Expect(err).ToNot(HaveOccurred())

		AssertCustomMetricsResourcesExist(namespace, customQueriesSampleFile, 2, 1)

		metricsClusterName, err := yaml.GetResourceNameFromYAML(env.Scheme, clusterFile)
		Expect(err).ToNot(HaveOccurred())

		// Create the cluster
		AssertCreateCluster(namespace, metricsClusterName, clusterFile, env)

		cluster, err := clusterutils.Get(env.Ctx, env.Client, namespace, metricsClusterName)
		Expect(err).NotTo(HaveOccurred())

		// Check metrics on each pod
		By("ensuring metrics are correct on each pod", func() {
			podList, err := clusterutils.ListPods(env.Ctx, env.Client, namespace, metricsClusterName)
			Expect(err).ToNot(HaveOccurred())

			// Gather metrics in each pod
			for _, pod := range podList.Items {
				By(fmt.Sprintf("checking metrics for pod: %s", pod.Name), func() {
					out, err := proxy.RetrieveMetricsFromInstance(env.Ctx, env.Interface, pod,
						cluster.IsMetricsTLSEnabled())
					Expect(err).ToNot(HaveOccurred(), "while getting pod metrics")
					expectedMetrics := buildExpectedMetrics(cluster, !specs.IsPodPrimary(pod))
					assertIncludesMetrics(out, expectedMetrics)
				})
			}
		})

		// verify cnpg_collector_x metrics exists in each pod
		collectAndAssertCollectorMetricsPresentOnEachPod(cluster)
	}

	It("can gather metrics", func() {
		const namespacePrefix = "cluster-metrics-e2e"

		AssertGatherMetrics(namespacePrefix, clusterMetricsFile)
	})

	It("can gather metrics with TLS enabled", func() {
		const namespacePrefix = "cluster-metrics-tls-e2e"

		AssertGatherMetrics(namespacePrefix, clusterMetricsTLSFile)
	})

	It("can gather metrics with multiple target databases", func() {
		const namespacePrefix = "metrics-target-databases-e2e"
		metricsClusterName, err := yaml.GetResourceNameFromYAML(env.Scheme, clusterMetricsDBFile)
		Expect(err).ToNot(HaveOccurred())
		// Create the cluster namespace
		namespace, err = env.CreateUniqueTestNamespace(env.Ctx, env.Client, namespacePrefix)
		Expect(err).ToNot(HaveOccurred())
		AssertCustomMetricsResourcesExist(namespace, customQueriesTargetDBSampleFile, 1, 1)

		// Create the cluster
		AssertCreateCluster(namespace, metricsClusterName, clusterMetricsDBFile, env)
		AssertCreationOfTestDataForTargetDB(env, namespace, metricsClusterName, targetDBOne, testTableName)
		AssertCreationOfTestDataForTargetDB(env, namespace, metricsClusterName, targetDBTwo, testTableName)
		AssertCreationOfTestDataForTargetDB(env, namespace, metricsClusterName, targetDBSecret, testTableName)

		cluster, err := clusterutils.Get(env.Ctx, env.Client, namespace, metricsClusterName)
		Expect(err).ToNot(HaveOccurred())

		AssertMetricsData(namespace, targetDBOne, targetDBTwo, targetDBSecret, cluster)
	})

	It("can gather default metrics details", func() {
		const clusterWithDefaultMetricsFile = fixturesDir + "/base/cluster-storage-class.yaml.template"
		const namespacePrefix = "default-metrics-details"
		metricsClusterName, err := yaml.GetResourceNameFromYAML(env.Scheme, clusterWithDefaultMetricsFile)
		Expect(err).ToNot(HaveOccurred())

		namespace, err = env.CreateUniqueTestNamespace(env.Ctx, env.Client, namespacePrefix)
		Expect(err).ToNot(HaveOccurred())

		AssertCreateCluster(namespace, metricsClusterName, clusterWithDefaultMetricsFile, env)

		By("verify default monitoring configMap in cluster namespace", func() {
			// verify that, configMap should be created in cluster
			Eventually(func() error {
				configMap := &corev1.ConfigMap{}
				err = env.Client.Get(
					env.Ctx,
					ctrlclient.ObjectKey{Namespace: namespace, Name: defaultMonitoringConfigMapName},
					configMap)
				return err
			}, 10).ShouldNot(HaveOccurred())
		})
		cluster, err := clusterutils.Get(env.Ctx, env.Client, namespace, metricsClusterName)
		Expect(err).ToNot(HaveOccurred())

		collectAndAssertDefaultMetricsPresentOnEachPod(namespace, metricsClusterName, cluster.IsMetricsTLSEnabled(),
			true)
	})

	It("can gather metrics depending on the predicate query", func() {
		// Create the cluster namespace
		const namespacePrefix = "predicate-query-metrics-e2e"
		metricsClusterName, err := yaml.GetResourceNameFromYAML(env.Scheme, clusterMetricsPredicateQueryFile)
		Expect(err).ToNot(HaveOccurred())
		namespace, err = env.CreateUniqueTestNamespace(env.Ctx, env.Client, namespacePrefix)
		Expect(err).ToNot(HaveOccurred())

		AssertCustomMetricsResourcesExist(namespace, fixturesDir+"/metrics/custom-queries-with-predicate-query.yaml", 1,
			0)

		// Create the cluster
		AssertCreateCluster(namespace, metricsClusterName, clusterMetricsPredicateQueryFile, env)

		By("ensuring only metrics with a positive predicate are collected", func() {
			podList, err := clusterutils.ListPods(env.Ctx, env.Client, namespace, metricsClusterName)
			Expect(err).ToNot(HaveOccurred())

			cluster, err := clusterutils.Get(env.Ctx, env.Client, namespace, metricsClusterName)
			Expect(err).ToNot(HaveOccurred())

			// We expect only the metrics that have a predicate_query valid.
			expectedMetrics := map[string]*regexp.Regexp{
				"cnpg_pg_predicate_query_return_true_fixed": regexp.MustCompile(`42`),
				"cnpg_pg_predicate_query_empty":             regexp.MustCompile(`42`),
			}
			nonCollectableMetrics := []string{
				"cnpg_pg_predicate_query_return_false",
				"cnpg_pg_predicate_query_return_null_as_false",
				"cnpg_pg_predicate_query_return_no_rows",
				"cnpg_pg_predicate_query_multiple_rows",
				"cnpg_pg_predicate_query_multiple_columns",
			}

			// Gather metrics in each pod
			for _, pod := range podList.Items {
				By(fmt.Sprintf("checking metrics for pod: %s", pod.Name), func() {
					out, err := proxy.RetrieveMetricsFromInstance(env.Ctx, env.Interface, pod,
						cluster.IsMetricsTLSEnabled())
					Expect(err).ToNot(HaveOccurred(), "while getting pod metrics")
					assertIncludesMetrics(out, expectedMetrics)
					assertExcludesMetrics(out, nonCollectableMetrics)
				})
			}
		})
	})

	It("default set of metrics queries should not be injected into the cluster "+
		"when disableDefaultQueries field set to be true", func() {
		const defaultMonitoringQueriesDisableSampleFile = fixturesDir +
			"/metrics/cluster-disable-default-metrics.yaml.template"
		const namespacePrefix = "disable-default-metrics"
		metricsClusterName, err := yaml.GetResourceNameFromYAML(env.Scheme, defaultMonitoringQueriesDisableSampleFile)
		Expect(err).ToNot(HaveOccurred())
		namespace, err = env.CreateUniqueTestNamespace(env.Ctx, env.Client, namespacePrefix)
		Expect(err).ToNot(HaveOccurred())

		// Create the cluster
		AssertCreateCluster(namespace, metricsClusterName, defaultMonitoringQueriesDisableSampleFile, env)

		cluster, err := clusterutils.Get(env.Ctx, env.Client, namespace, metricsClusterName)
		Expect(err).ToNot(HaveOccurred())

		collectAndAssertDefaultMetricsPresentOnEachPod(namespace, metricsClusterName, cluster.IsMetricsTLSEnabled(),
			false)
	})

	It("execute custom queries against the application database on replica clusters", func() {
		const (
			namespacePrefix          = "metrics-with-replica-mode"
			replicaModeClusterDir    = "/replica_mode_cluster/"
			replicaClusterSampleFile = fixturesDir + "/metrics/cluster-replica-tls-with-metrics.yaml.template"
			srcClusterSampleFile     = fixturesDir + replicaModeClusterDir + "cluster-replica-src.yaml.template"
			srcClusterDatabaseName   = "appSrc"
			configMapFIle            = fixturesDir + "/metrics/custom-queries-for-replica-cluster.yaml"
			testTableName            = "metrics_replica_mode"
		)

		// Fetching the source cluster name
		srcClusterName, err := yaml.GetResourceNameFromYAML(env.Scheme, srcClusterSampleFile)
		Expect(err).ToNot(HaveOccurred())

		// Fetching replica cluster name
		replicaClusterName, err := yaml.GetResourceNameFromYAML(env.Scheme, replicaClusterSampleFile)
		Expect(err).ToNot(HaveOccurred())

		// create namespace
		namespace, err = env.CreateUniqueTestNamespace(env.Ctx, env.Client, namespacePrefix)
		Expect(err).ToNot(HaveOccurred())

		// Creating and verifying custom queries configmap
		AssertCustomMetricsResourcesExist(namespace, configMapFIle, 1, 0)

		// Create the source Cluster
		AssertCreateCluster(namespace, srcClusterName, srcClusterSampleFile, env)

		// Create the replica Cluster
		AssertReplicaModeCluster(
			namespace,
			srcClusterName,
			srcClusterDatabaseName,
			replicaClusterSampleFile,
			testTableName,
		)

		By(fmt.Sprintf("grant select permission for %v table to pg_monitor", testTableName), func() {
			forward, conn, err := postgres.ForwardPSQLConnection(
				env.Ctx,
				env.Client,
				env.Interface,
				env.RestClientConfig,
				namespace,
				srcClusterName,
				srcClusterDatabaseName,
				apiv1.ApplicationUserSecretSuffix,
			)
			defer func() {
				_ = conn.Close()
				forward.Close()
			}()
			Expect(err).ToNot(HaveOccurred())

			cmd := fmt.Sprintf("GRANT SELECT ON %v TO pg_monitor", testTableName)
			_, err = conn.Exec(cmd)
			Expect(err).ToNot(HaveOccurred())
		})
		replicaCluster, err := clusterutils.Get(env.Ctx, env.Client, namespace, replicaClusterName)
		Expect(err).ToNot(HaveOccurred())

		By("collecting metrics on each pod and checking that the table has been found", func() {
			podList, err := clusterutils.ListPods(env.Ctx, env.Client, namespace, replicaClusterName)
			Expect(err).ToNot(HaveOccurred())

			// Gather metrics in each pod
			expectedMetric := fmt.Sprintf("cnpg_%v_row_count 3", testTableName)
			for _, pod := range podList.Items {
				// Wait a few seconds for the GRANT to be replicated
				Eventually(func(g Gomega) {
					out, _, err := exec.QueryInInstancePod(
						env.Ctx, env.Client, env.Interface, env.RestClientConfig,
						exec.PodLocator{
							Namespace: pod.Namespace,
							PodName:   pod.Name,
						},
						srcClusterDatabaseName,
						fmt.Sprintf(
							"SELECT has_table_privilege('pg_monitor', '%v', 'SELECT')",
							testTableName,
						),
					)
					g.Expect(err).ToNot(HaveOccurred())
					g.Expect(strings.TrimSpace(out)).To(BeEquivalentTo("t"))
				}).WithTimeout(
					time.Duration(timeouts.DefaultTestTimeouts[timeouts.Short])*time.Second,
				).Should(Succeed(), fmt.Sprintf("on pod %v", pod.Name))

				out, err := proxy.RetrieveMetricsFromInstance(env.Ctx, env.Interface, pod,
					replicaCluster.IsMetricsTLSEnabled())
				Expect(err).ShouldNot(HaveOccurred(),
					fmt.Sprintf("while getting pod metrics for pod: %v", pod.Name))
				Expect(strings.Split(out, "\n")).Should(ContainElement(expectedMetric),
					fmt.Sprintf("expected metric %v not found in pod %v", expectedMetric, pod.Name))
			}
		})

		collectAndAssertDefaultMetricsPresentOnEachPod(
			namespace,
			replicaClusterName,
			replicaCluster.IsMetricsTLSEnabled(),
			true,
		)
	})
})
