package tcp_test

import (
	"bytes"
	"fmt"
	"io"
	"log"
	"net"
	"strings"
	"sync"
	"testing"
	"testing/quick"
	"time"

	"github.com/influxdata/influxdb/tcp"
)

// Ensure the muxer can split a listener's connections across multiple listeners.
func TestMux(t *testing.T) {
	if err := quick.Check(func(n uint8, msg []byte) bool {
		if testing.Verbose() {
			if len(msg) == 0 {
				log.Printf("n=%d, <no message>", n)
			} else {
				log.Printf("n=%d, hdr=%d, len=%d", n, msg[0], len(msg))
			}
		}

		var wg sync.WaitGroup

		// Open single listener on random port.
		tcpListener, err := net.Listen("tcp", "127.0.0.1:0")
		if err != nil {
			t.Fatal(err)
		}
		defer tcpListener.Close()

		// Setup muxer & listeners.
		mux := tcp.NewMux()
		mux.Timeout = 200 * time.Millisecond
		if !testing.Verbose() {
			mux.Logger = log.New(io.Discard, "", 0)
		}

		errC := make(chan error)
		for i := uint8(0); i < n; i++ {
			ln := mux.Listen(byte(i))

			wg.Add(1)
			go func(i uint8, ln net.Listener) {
				defer wg.Done()

				// Wait for a connection for this listener.
				conn, err := ln.Accept()
				if conn != nil {
					defer conn.Close()
				}

				// If there is no message or the header byte
				// doesn't match then expect close.
				if len(msg) == 0 || msg[0] != byte(i) {
					if err == nil || err.Error() != "network connection closed" {
						errC <- fmt.Errorf("unexpected error: %s", err)
						return
					}
					return
				}

				// If the header byte matches this listener
				// then expect a connection and read the message.
				var buf bytes.Buffer
				if _, err := io.CopyN(&buf, conn, int64(len(msg)-1)); err != nil {
					errC <- err
					return
				} else if !bytes.Equal(msg[1:], buf.Bytes()) {
					errC <- fmt.Errorf("message mismatch:\n\nexp=%x\n\ngot=%x\n\n", msg[1:], buf.Bytes())
					return
				}

				// Write response.
				if _, err := conn.Write([]byte("OK")); err != nil {
					errC <- err
					return
				}
			}(i, ln)
		}

		// Begin serving from the listener.
		go mux.Serve(tcpListener)

		// Write message to TCP listener and read OK response.
		conn, err := net.Dial("tcp", tcpListener.Addr().String())
		if err != nil {
			t.Fatal(err)
		} else if _, err = conn.Write(msg); err != nil {
			t.Fatal(err)
		}

		// Read the response into the buffer.
		var resp [2]byte
		_, err = io.ReadFull(conn, resp[:])

		// If the message header is less than n then expect a response.
		// Otherwise we should get an EOF because the mux closed.
		if len(msg) > 0 && uint8(msg[0]) < n {
			if string(resp[:]) != `OK` {
				t.Fatalf("unexpected response: %s", resp[:])
			}
		} else {
			if err == nil || (err != io.EOF && !(strings.Contains(err.Error(), "connection reset by peer") ||
				strings.Contains(err.Error(), "closed by the remote host"))) {
				t.Fatalf("unexpected error: %s", err)
			}
		}

		// Close connection.
		if err := conn.Close(); err != nil {
			t.Fatal(err)
		}

		// Close original TCP listener and wait for all goroutines to close.
		tcpListener.Close()

		go func() {
			wg.Wait()
			close(errC)
		}()

		ok := true
		for err := range errC {
			if err != nil {
				ok = false
				t.Error(err)
			}
		}

		return ok
	}, nil); err != nil {
		t.Error(err)
	}
}

// Ensure two handlers cannot be registered for the same header byte.
func TestMux_Listen_ErrAlreadyRegistered(t *testing.T) {
	defer func() {
		if r := recover(); r != `listener already registered under header byte: 5` {
			t.Fatalf("unexpected recover: %#v", r)
		}
	}()

	// Register two listeners with the same header byte.
	mux := tcp.NewMux()
	mux.Listen(5)
	mux.Listen(5)
}

// Ensure that closing a listener from mux.Listen releases an Accept call and
// deregisters the mux.
func TestMux_Close(t *testing.T) {
	listener, err := net.Listen("tcp", "127.0.0.1:0")
	if err != nil {
		t.Fatalf("unexpected error: %s", err)
	}

	done := make(chan struct{})
	mux := tcp.NewMux()
	go func() {
		mux.Serve(listener)
		close(done)
	}()
	l := mux.Listen(5)

	closed := make(chan struct{})
	go func() {
		_, err := l.Accept()
		if err == nil || !strings.Contains(err.Error(), "connection closed") {
			t.Errorf("unexpected error: %s", err)
		}
		close(closed)
	}()
	l.Close()

	timer := time.NewTimer(100 * time.Millisecond)
	select {
	case <-closed:
		timer.Stop()
	case <-timer.C:
		t.Errorf("timeout while waiting for the mux to close")
	}

	// We should now be able to register a new listener at the same byte
	// without causing a panic.
	defer func() {
		if r := recover(); r != nil {
			t.Fatalf("unexpected recover: %#v", r)
		}
	}()
	l = mux.Listen(5)

	// Verify that closing the listener does not cause a panic.
	listener.Close()
	timer = time.NewTimer(100 * time.Millisecond)
	select {
	case <-done:
		timer.Stop()
		// This should not panic.
		l.Close()
	case <-timer.C:
		t.Errorf("timeout while waiting for the mux to close")
	}
}
