package agent

import (
	"bytes"
	"encoding/json"
	"fmt"
	"net/http"
	"net/http/httptest"
	"reflect"
	"testing"

	"github.com/hashicorp/consul/consul/structs"
)

// MockPreparedQuery is a fake endpoint that we inject into the Consul server
// in order to observe the RPC calls made by these HTTP endpoints. This lets
// us make sure that the request is being formed properly without having to
// set up a realistic environment for prepared queries, which is a huge task and
// already done in detail inside the prepared query endpoint's unit tests. If we
// can prove this formats proper requests into that then we should be good to
// go. We will do a single set of end-to-end tests in here to make sure that the
// server is wired up to the right endpoint when not "injected".
type MockPreparedQuery struct {
	applyFn   func(*structs.PreparedQueryRequest, *string) error
	getFn     func(*structs.PreparedQuerySpecificRequest, *structs.IndexedPreparedQueries) error
	listFn    func(*structs.DCSpecificRequest, *structs.IndexedPreparedQueries) error
	executeFn func(*structs.PreparedQueryExecuteRequest, *structs.PreparedQueryExecuteResponse) error
}

func (m *MockPreparedQuery) Apply(args *structs.PreparedQueryRequest,
	reply *string) (err error) {
	if m.applyFn != nil {
		return m.applyFn(args, reply)
	}
	return fmt.Errorf("should not have called Apply")
}

func (m *MockPreparedQuery) Get(args *structs.PreparedQuerySpecificRequest,
	reply *structs.IndexedPreparedQueries) error {
	if m.getFn != nil {
		return m.getFn(args, reply)
	}
	return fmt.Errorf("should not have called Get")
}

func (m *MockPreparedQuery) List(args *structs.DCSpecificRequest,
	reply *structs.IndexedPreparedQueries) error {
	if m.listFn != nil {
		return m.listFn(args, reply)
	}
	return fmt.Errorf("should not have called List")
}

func (m *MockPreparedQuery) Execute(args *structs.PreparedQueryExecuteRequest,
	reply *structs.PreparedQueryExecuteResponse) error {
	if m.executeFn != nil {
		return m.executeFn(args, reply)
	}
	return fmt.Errorf("should not have called Execute")
}

func TestPreparedQuery_Create(t *testing.T) {
	httpTest(t, func(srv *HTTPServer) {
		m := MockPreparedQuery{}
		if err := srv.agent.InjectEndpoint("PreparedQuery", &m); err != nil {
			t.Fatalf("err: %v", err)
		}

		m.applyFn = func(args *structs.PreparedQueryRequest, reply *string) error {
			expected := &structs.PreparedQueryRequest{
				Datacenter: "dc1",
				Op:         structs.PreparedQueryCreate,
				Query: &structs.PreparedQuery{
					Name:    "my-query",
					Session: "my-session",
					Service: structs.ServiceQuery{
						Service: "my-service",
						Failover: structs.QueryDatacenterOptions{
							NearestN:    4,
							Datacenters: []string{"dc1", "dc2"},
						},
						OnlyPassing: true,
						Tags:        []string{"foo", "bar"},
					},
					DNS: structs.QueryDNSOptions{
						TTL: "10s",
					},
				},
				WriteRequest: structs.WriteRequest{
					Token: "my-token",
				},
			}
			if !reflect.DeepEqual(args, expected) {
				t.Fatalf("bad: %v", args)
			}

			*reply = "my-id"
			return nil
		}

		body := bytes.NewBuffer(nil)
		enc := json.NewEncoder(body)
		raw := map[string]interface{}{
			"Name":    "my-query",
			"Session": "my-session",
			"Service": map[string]interface{}{
				"Service": "my-service",
				"Failover": map[string]interface{}{
					"NearestN":    4,
					"Datacenters": []string{"dc1", "dc2"},
				},
				"OnlyPassing": true,
				"Tags":        []string{"foo", "bar"},
			},
			"DNS": map[string]interface{}{
				"TTL": "10s",
			},
		}
		if err := enc.Encode(raw); err != nil {
			t.Fatalf("err: %v", err)
		}

		req, err := http.NewRequest("POST", "/v1/query?token=my-token", body)
		if err != nil {
			t.Fatalf("err: %v", err)
		}

		resp := httptest.NewRecorder()
		obj, err := srv.PreparedQueryGeneral(resp, req)
		if err != nil {
			t.Fatalf("err: %v", err)
		}
		if resp.Code != 200 {
			t.Fatalf("bad code: %d", resp.Code)
		}
		r, ok := obj.(preparedQueryCreateResponse)
		if !ok {
			t.Fatalf("unexpected: %T", obj)
		}
		if r.ID != "my-id" {
			t.Fatalf("bad ID: %s", r.ID)
		}
	})
}

func TestPreparedQuery_List(t *testing.T) {
	httpTest(t, func(srv *HTTPServer) {
		m := MockPreparedQuery{}
		if err := srv.agent.InjectEndpoint("PreparedQuery", &m); err != nil {
			t.Fatalf("err: %v", err)
		}

		m.listFn = func(args *structs.DCSpecificRequest, reply *structs.IndexedPreparedQueries) error {
			expected := &structs.DCSpecificRequest{
				Datacenter: "dc1",
				QueryOptions: structs.QueryOptions{
					Token:             "my-token",
					RequireConsistent: true,
				},
			}
			if !reflect.DeepEqual(args, expected) {
				t.Fatalf("bad: %v", args)
			}

			query := &structs.PreparedQuery{
				ID: "my-id",
			}
			reply.Queries = append(reply.Queries, query)
			return nil
		}

		body := bytes.NewBuffer(nil)
		req, err := http.NewRequest("GET", "/v1/query?token=my-token&consistent=true", body)
		if err != nil {
			t.Fatalf("err: %v", err)
		}

		resp := httptest.NewRecorder()
		obj, err := srv.PreparedQueryGeneral(resp, req)
		if err != nil {
			t.Fatalf("err: %v", err)
		}
		if resp.Code != 200 {
			t.Fatalf("bad code: %d", resp.Code)
		}
		r, ok := obj.(structs.PreparedQueries)
		if !ok {
			t.Fatalf("unexpected: %T", obj)
		}
		if len(r) != 1 || r[0].ID != "my-id" {
			t.Fatalf("bad: %v", r)
		}
	})
}

func TestPreparedQuery_Execute(t *testing.T) {
	httpTest(t, func(srv *HTTPServer) {
		m := MockPreparedQuery{}
		if err := srv.agent.InjectEndpoint("PreparedQuery", &m); err != nil {
			t.Fatalf("err: %v", err)
		}

		m.executeFn = func(args *structs.PreparedQueryExecuteRequest, reply *structs.PreparedQueryExecuteResponse) error {
			expected := &structs.PreparedQueryExecuteRequest{
				Datacenter:    "dc1",
				QueryIDOrName: "my-id",
				Limit:         5,
				Source: structs.QuerySource{
					Datacenter: "dc1",
					Node:       "my-node",
				},
				QueryOptions: structs.QueryOptions{
					Token:             "my-token",
					RequireConsistent: true,
				},
			}
			if !reflect.DeepEqual(args, expected) {
				t.Fatalf("bad: %v", args)
			}

			// Just set something so we can tell this is returned.
			reply.Failovers = 99
			return nil
		}

		body := bytes.NewBuffer(nil)
		req, err := http.NewRequest("GET", "/v1/query/my-id/execute?token=my-token&consistent=true&near=my-node&limit=5", body)
		if err != nil {
			t.Fatalf("err: %v", err)
		}

		resp := httptest.NewRecorder()
		obj, err := srv.PreparedQuerySpecific(resp, req)
		if err != nil {
			t.Fatalf("err: %v", err)
		}
		if resp.Code != 200 {
			t.Fatalf("bad code: %d", resp.Code)
		}
		r, ok := obj.(structs.PreparedQueryExecuteResponse)
		if !ok {
			t.Fatalf("unexpected: %T", obj)
		}
		if r.Failovers != 99 {
			t.Fatalf("bad: %v", r)
		}
	})
}

func TestPreparedQuery_Get(t *testing.T) {
	httpTest(t, func(srv *HTTPServer) {
		m := MockPreparedQuery{}
		if err := srv.agent.InjectEndpoint("PreparedQuery", &m); err != nil {
			t.Fatalf("err: %v", err)
		}

		m.getFn = func(args *structs.PreparedQuerySpecificRequest, reply *structs.IndexedPreparedQueries) error {
			expected := &structs.PreparedQuerySpecificRequest{
				Datacenter: "dc1",
				QueryID:    "my-id",
				QueryOptions: structs.QueryOptions{
					Token:             "my-token",
					RequireConsistent: true,
				},
			}
			if !reflect.DeepEqual(args, expected) {
				t.Fatalf("bad: %v", args)
			}

			query := &structs.PreparedQuery{
				ID: "my-id",
			}
			reply.Queries = append(reply.Queries, query)
			return nil
		}

		body := bytes.NewBuffer(nil)
		req, err := http.NewRequest("GET", "/v1/query/my-id?token=my-token&consistent=true", body)
		if err != nil {
			t.Fatalf("err: %v", err)
		}

		resp := httptest.NewRecorder()
		obj, err := srv.PreparedQuerySpecific(resp, req)
		if err != nil {
			t.Fatalf("err: %v", err)
		}
		if resp.Code != 200 {
			t.Fatalf("bad code: %d", resp.Code)
		}
		r, ok := obj.(structs.PreparedQueries)
		if !ok {
			t.Fatalf("unexpected: %T", obj)
		}
		if len(r) != 1 || r[0].ID != "my-id" {
			t.Fatalf("bad: %v", r)
		}
	})
}

func TestPreparedQuery_Update(t *testing.T) {
	httpTest(t, func(srv *HTTPServer) {
		m := MockPreparedQuery{}
		if err := srv.agent.InjectEndpoint("PreparedQuery", &m); err != nil {
			t.Fatalf("err: %v", err)
		}

		m.applyFn = func(args *structs.PreparedQueryRequest, reply *string) error {
			expected := &structs.PreparedQueryRequest{
				Datacenter: "dc1",
				Op:         structs.PreparedQueryUpdate,
				Query: &structs.PreparedQuery{
					ID:      "my-id",
					Name:    "my-query",
					Session: "my-session",
					Service: structs.ServiceQuery{
						Service: "my-service",
						Failover: structs.QueryDatacenterOptions{
							NearestN:    4,
							Datacenters: []string{"dc1", "dc2"},
						},
						OnlyPassing: true,
						Tags:        []string{"foo", "bar"},
					},
					DNS: structs.QueryDNSOptions{
						TTL: "10s",
					},
				},
				WriteRequest: structs.WriteRequest{
					Token: "my-token",
				},
			}
			if !reflect.DeepEqual(args, expected) {
				t.Fatalf("bad: %v", args)
			}

			*reply = "don't care"
			return nil
		}

		body := bytes.NewBuffer(nil)
		enc := json.NewEncoder(body)
		raw := map[string]interface{}{
			"ID":      "this should get ignored",
			"Name":    "my-query",
			"Session": "my-session",
			"Service": map[string]interface{}{
				"Service": "my-service",
				"Failover": map[string]interface{}{
					"NearestN":    4,
					"Datacenters": []string{"dc1", "dc2"},
				},
				"OnlyPassing": true,
				"Tags":        []string{"foo", "bar"},
			},
			"DNS": map[string]interface{}{
				"TTL": "10s",
			},
		}
		if err := enc.Encode(raw); err != nil {
			t.Fatalf("err: %v", err)
		}

		req, err := http.NewRequest("PUT", "/v1/query/my-id?token=my-token", body)
		if err != nil {
			t.Fatalf("err: %v", err)
		}

		resp := httptest.NewRecorder()
		_, err = srv.PreparedQuerySpecific(resp, req)
		if err != nil {
			t.Fatalf("err: %v", err)
		}
		if resp.Code != 200 {
			t.Fatalf("bad code: %d", resp.Code)
		}
	})
}

func TestPreparedQuery_Delete(t *testing.T) {
	httpTest(t, func(srv *HTTPServer) {
		m := MockPreparedQuery{}
		if err := srv.agent.InjectEndpoint("PreparedQuery", &m); err != nil {
			t.Fatalf("err: %v", err)
		}

		m.applyFn = func(args *structs.PreparedQueryRequest, reply *string) error {
			expected := &structs.PreparedQueryRequest{
				Datacenter: "dc1",
				Op:         structs.PreparedQueryDelete,
				Query: &structs.PreparedQuery{
					ID: "my-id",
				},
				WriteRequest: structs.WriteRequest{
					Token: "my-token",
				},
			}
			if !reflect.DeepEqual(args, expected) {
				t.Fatalf("bad: %v", args)
			}

			*reply = "don't care"
			return nil
		}

		body := bytes.NewBuffer(nil)
		enc := json.NewEncoder(body)
		raw := map[string]interface{}{
			"ID": "this should get ignored",
		}
		if err := enc.Encode(raw); err != nil {
			t.Fatalf("err: %v", err)
		}

		req, err := http.NewRequest("DELETE", "/v1/query/my-id?token=my-token", body)
		if err != nil {
			t.Fatalf("err: %v", err)
		}

		resp := httptest.NewRecorder()
		_, err = srv.PreparedQuerySpecific(resp, req)
		if err != nil {
			t.Fatalf("err: %v", err)
		}
		if resp.Code != 200 {
			t.Fatalf("bad code: %d", resp.Code)
		}
	})
}

func TestPreparedQuery_BadMethods(t *testing.T) {
	httpTest(t, func(srv *HTTPServer) {
		body := bytes.NewBuffer(nil)
		req, err := http.NewRequest("DELETE", "/v1/query", body)
		if err != nil {
			t.Fatalf("err: %v", err)
		}

		resp := httptest.NewRecorder()
		_, err = srv.PreparedQueryGeneral(resp, req)
		if err != nil {
			t.Fatalf("err: %v", err)
		}
		if resp.Code != 405 {
			t.Fatalf("bad code: %d", resp.Code)
		}
	})

	httpTest(t, func(srv *HTTPServer) {
		body := bytes.NewBuffer(nil)
		req, err := http.NewRequest("POST", "/v1/query/my-id", body)
		if err != nil {
			t.Fatalf("err: %v", err)
		}

		resp := httptest.NewRecorder()
		_, err = srv.PreparedQuerySpecific(resp, req)
		if err != nil {
			t.Fatalf("err: %v", err)
		}
		if resp.Code != 405 {
			t.Fatalf("bad code: %d", resp.Code)
		}
	})
}

func TestPreparedQuery_parseLimit(t *testing.T) {
	body := bytes.NewBuffer(nil)
	req, err := http.NewRequest("GET", "/v1/query", body)
	if err != nil {
		t.Fatalf("err: %v", err)
	}

	limit := 99
	if err := parseLimit(req, &limit); err != nil {
		t.Fatalf("err: %v", err)
	}
	if limit != 0 {
		t.Fatalf("bad limit: %d", limit)
	}

	req, err = http.NewRequest("GET", "/v1/query?limit=11", body)
	if err != nil {
		t.Fatalf("err: %v", err)
	}
	if err := parseLimit(req, &limit); err != nil {
		t.Fatalf("err: %v", err)
	}
	if limit != 11 {
		t.Fatalf("bad limit: %d", limit)
	}

	req, err = http.NewRequest("GET", "/v1/query?limit=bob", body)
	if err != nil {
		t.Fatalf("err: %v", err)
	}
	if err := parseLimit(req, &limit); err == nil {
		t.Fatalf("bad: %v", err)
	}
}

// Since we've done exhaustive testing of the calls into the endpoints above
// this is just a basic end-to-end sanity check to make sure things are wired
// correctly when calling through to the real endpoints.
func TestPreparedQuery_Integration(t *testing.T) {
	httpTest(t, func(srv *HTTPServer) {
		// Register a node and a service.
		{
			args := &structs.RegisterRequest{
				Datacenter: "dc1",
				Node:       srv.agent.config.NodeName,
				Address:    "127.0.0.1",
				Service: &structs.NodeService{
					Service: "my-service",
				},
			}
			var out struct{}
			if err := srv.agent.RPC("Catalog.Register", args, &out); err != nil {
				t.Fatalf("err: %v", err)
			}
		}

		// Create a query.
		var id string
		{
			body := bytes.NewBuffer(nil)
			enc := json.NewEncoder(body)
			raw := map[string]interface{}{
				"Name": "my-query",
				"Service": map[string]interface{}{
					"Service": "my-service",
				},
			}
			if err := enc.Encode(raw); err != nil {
				t.Fatalf("err: %v", err)
			}

			req, err := http.NewRequest("POST", "/v1/query", body)
			if err != nil {
				t.Fatalf("err: %v", err)
			}

			resp := httptest.NewRecorder()
			obj, err := srv.PreparedQueryGeneral(resp, req)
			if err != nil {
				t.Fatalf("err: %v", err)
			}
			if resp.Code != 200 {
				t.Fatalf("bad code: %d", resp.Code)
			}
			r, ok := obj.(preparedQueryCreateResponse)
			if !ok {
				t.Fatalf("unexpected: %T", obj)
			}
			id = r.ID
		}

		// List them all.
		{
			body := bytes.NewBuffer(nil)
			req, err := http.NewRequest("GET", "/v1/query?token=root", body)
			if err != nil {
				t.Fatalf("err: %v", err)
			}

			resp := httptest.NewRecorder()
			obj, err := srv.PreparedQueryGeneral(resp, req)
			if err != nil {
				t.Fatalf("err: %v", err)
			}
			if resp.Code != 200 {
				t.Fatalf("bad code: %d", resp.Code)
			}
			r, ok := obj.(structs.PreparedQueries)
			if !ok {
				t.Fatalf("unexpected: %T", obj)
			}
			if len(r) != 1 {
				t.Fatalf("bad: %v", r)
			}
		}

		// Execute it.
		{
			body := bytes.NewBuffer(nil)
			req, err := http.NewRequest("GET", "/v1/query/"+id+"/execute", body)
			if err != nil {
				t.Fatalf("err: %v", err)
			}

			resp := httptest.NewRecorder()
			obj, err := srv.PreparedQuerySpecific(resp, req)
			if err != nil {
				t.Fatalf("err: %v", err)
			}
			if resp.Code != 200 {
				t.Fatalf("bad code: %d", resp.Code)
			}
			r, ok := obj.(structs.PreparedQueryExecuteResponse)
			if !ok {
				t.Fatalf("unexpected: %T", obj)
			}
			if len(r.Nodes) != 1 {
				t.Fatalf("bad: %v", r)
			}
		}

		// Read it back.
		{
			body := bytes.NewBuffer(nil)
			req, err := http.NewRequest("GET", "/v1/query/"+id, body)
			if err != nil {
				t.Fatalf("err: %v", err)
			}

			resp := httptest.NewRecorder()
			obj, err := srv.PreparedQuerySpecific(resp, req)
			if err != nil {
				t.Fatalf("err: %v", err)
			}
			if resp.Code != 200 {
				t.Fatalf("bad code: %d", resp.Code)
			}
			r, ok := obj.(structs.PreparedQueries)
			if !ok {
				t.Fatalf("unexpected: %T", obj)
			}
			if len(r) != 1 {
				t.Fatalf("bad: %v", r)
			}
		}

		// Make an update to it.
		{
			body := bytes.NewBuffer(nil)
			enc := json.NewEncoder(body)
			raw := map[string]interface{}{
				"Name": "my-query",
				"Service": map[string]interface{}{
					"Service":     "my-service",
					"OnlyPassing": true,
				},
			}
			if err := enc.Encode(raw); err != nil {
				t.Fatalf("err: %v", err)
			}

			req, err := http.NewRequest("PUT", "/v1/query/"+id, body)
			if err != nil {
				t.Fatalf("err: %v", err)
			}

			resp := httptest.NewRecorder()
			_, err = srv.PreparedQuerySpecific(resp, req)
			if err != nil {
				t.Fatalf("err: %v", err)
			}
			if resp.Code != 200 {
				t.Fatalf("bad code: %d", resp.Code)
			}
		}

		// Delete it.
		{
			body := bytes.NewBuffer(nil)
			req, err := http.NewRequest("DELETE", "/v1/query/"+id, body)
			if err != nil {
				t.Fatalf("err: %v", err)
			}

			resp := httptest.NewRecorder()
			_, err = srv.PreparedQuerySpecific(resp, req)
			if err != nil {
				t.Fatalf("err: %v", err)
			}
			if resp.Code != 200 {
				t.Fatalf("bad code: %d", resp.Code)
			}
		}
	})
}