// Copyright 2018 The go-ethereum Authors
// This file is part of the go-ethereum library.
//
// The go-ethereum library is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// The go-ethereum library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with the go-ethereum library. If not, see <http://www.gnu.org/licenses/>.

package adapters

import (
	"bytes"
	"encoding/binary"
	"fmt"
	"sync"
	"testing"

	"github.com/celo-org/celo-blockchain/p2p/simulations/pipes"
)

func TestTCPPipe(t *testing.T) {
	c1, c2, err := pipes.TCPPipe()
	if err != nil {
		t.Fatal(err)
	}

	msgs := 50
	size := 1024
	for i := 0; i < msgs; i++ {
		msg := make([]byte, size)
		binary.PutUvarint(msg, uint64(i))
		if _, err := c1.Write(msg); err != nil {
			t.Fatal(err)
		}
	}

	for i := 0; i < msgs; i++ {
		msg := make([]byte, size)
		binary.PutUvarint(msg, uint64(i))
		out := make([]byte, size)
		if _, err := c2.Read(out); err != nil {
			t.Fatal(err)
		}
		if !bytes.Equal(msg, out) {
			t.Fatalf("expected %#v, got %#v", msg, out)
		}
	}
}

func TestTCPPipeBidirections(t *testing.T) {
	c1, c2, err := pipes.TCPPipe()
	if err != nil {
		t.Fatal(err)
	}

	msgs := 50
	size := 7
	for i := 0; i < msgs; i++ {
		msg := []byte(fmt.Sprintf("ping %02d", i))
		if _, err := c1.Write(msg); err != nil {
			t.Fatal(err)
		}
	}

	for i := 0; i < msgs; i++ {
		expected := []byte(fmt.Sprintf("ping %02d", i))
		out := make([]byte, size)
		if _, err := c2.Read(out); err != nil {
			t.Fatal(err)
		}

		if !bytes.Equal(expected, out) {
			t.Fatalf("expected %#v, got %#v", out, expected)
		} else {
			msg := []byte(fmt.Sprintf("pong %02d", i))
			if _, err := c2.Write(msg); err != nil {
				t.Fatal(err)
			}
		}
	}

	for i := 0; i < msgs; i++ {
		expected := []byte(fmt.Sprintf("pong %02d", i))
		out := make([]byte, size)
		if _, err := c1.Read(out); err != nil {
			t.Fatal(err)
		}
		if !bytes.Equal(expected, out) {
			t.Fatalf("expected %#v, got %#v", out, expected)
		}
	}
}

func TestNetPipe(t *testing.T) {
	c1, c2, err := pipes.NetPipe()
	if err != nil {
		t.Fatal(err)
	}

	msgs := 50
	size := 1024
	var wg sync.WaitGroup
	defer wg.Wait()

	// netPipe is blocking, so writes are emitted asynchronously
	wg.Add(1)
	go func() {
		defer wg.Done()

		for i := 0; i < msgs; i++ {
			msg := make([]byte, size)
			binary.PutUvarint(msg, uint64(i))
			if _, err := c1.Write(msg); err != nil {
				t.Error(err)
			}
		}
	}()

	for i := 0; i < msgs; i++ {
		msg := make([]byte, size)
		binary.PutUvarint(msg, uint64(i))
		out := make([]byte, size)
		if _, err := c2.Read(out); err != nil {
			t.Error(err)
		}
		if !bytes.Equal(msg, out) {
			t.Errorf("expected %#v, got %#v", msg, out)
		}
	}
}

func TestNetPipeBidirections(t *testing.T) {
	c1, c2, err := pipes.NetPipe()
	if err != nil {
		t.Fatal(err)
	}

	msgs := 1000
	size := 8
	pingTemplate := "ping %03d"
	pongTemplate := "pong %03d"
	var wg sync.WaitGroup
	defer wg.Wait()

	// netPipe is blocking, so writes are emitted asynchronously
	wg.Add(1)
	go func() {
		defer wg.Done()

		for i := 0; i < msgs; i++ {
			msg := []byte(fmt.Sprintf(pingTemplate, i))
			if _, err := c1.Write(msg); err != nil {
				t.Error(err)
			}
		}
	}()

	// netPipe is blocking, so reads for pong are emitted asynchronously
	wg.Add(1)
	go func() {
		defer wg.Done()

		for i := 0; i < msgs; i++ {
			expected := []byte(fmt.Sprintf(pongTemplate, i))
			out := make([]byte, size)
			if _, err := c1.Read(out); err != nil {
				t.Error(err)
			}
			if !bytes.Equal(expected, out) {
				t.Errorf("expected %#v, got %#v", expected, out)
			}
		}
	}()

	// expect to read pings, and respond with pongs to the alternate connection
	for i := 0; i < msgs; i++ {
		expected := []byte(fmt.Sprintf(pingTemplate, i))

		out := make([]byte, size)
		_, err := c2.Read(out)
		if err != nil {
			t.Fatal(err)
		}

		if !bytes.Equal(expected, out) {
			t.Errorf("expected %#v, got %#v", expected, out)
		} else {
			msg := []byte(fmt.Sprintf(pongTemplate, i))
			if _, err := c2.Write(msg); err != nil {
				t.Fatal(err)
			}
		}
	}
}
