/*
 * Copyright (c) 2019 Joel Sing <jsing@openbsd.org>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <err.h>
#include <string.h>

#include <openssl/ssl.h>

#include "tls13_internal.h"
#include "tls13_record.h"

/* Valid record. */
static uint8_t test_record_1[] = {
	0x16, 0x03, 0x03, 0x00, 0x7a, 0x02, 0x00, 0x00,
	0x76, 0x03, 0x03, 0x14, 0xae, 0x2b, 0x6d, 0x58,
	0xe9, 0x79, 0x9d, 0xd4, 0x90, 0x52, 0x90, 0x13,
	0x1c, 0x08, 0xaa, 0x3f, 0x5b, 0xfb, 0x64, 0xfe,
	0x9a, 0xca, 0x73, 0x6d, 0x87, 0x8d, 0x8b, 0x3b,
	0x70, 0x14, 0xa3, 0x20, 0xd7, 0x50, 0xa4, 0xe5,
	0x17, 0x42, 0x5d, 0xce, 0xe6, 0xfe, 0x1b, 0x59,
	0x27, 0x6b, 0xff, 0xc8, 0x40, 0xc7, 0xac, 0x16,
	0x32, 0xe6, 0x5b, 0xd2, 0xd9, 0xd4, 0xb5, 0x3f,
	0x8f, 0x74, 0x6e, 0x7d, 0x13, 0x02, 0x00, 0x00,
	0x2e, 0x00, 0x33, 0x00, 0x24, 0x00, 0x1d, 0x00,
	0x20, 0x72, 0xb0, 0xaf, 0x7f, 0xf5, 0x89, 0x0f,
	0xcd, 0x6e, 0x45, 0xb1, 0x51, 0xa0, 0xbd, 0x1e,
	0xee, 0x7e, 0xf1, 0xa5, 0xc5, 0xc6, 0x7e, 0x5f,
	0x6a, 0xca, 0xc9, 0xe4, 0xae, 0xb9, 0x50, 0x76,
	0x0a, 0x00, 0x2b, 0x00, 0x02, 0x03, 0x04,
};

/* Truncated record. */
static uint8_t test_record_2[] = {
	0x17, 0x03, 0x03, 0x41, 0x00, 0x02, 0x00, 0x00,
};

/* Oversized and truncated record. */
static uint8_t test_record_3[] = {
	0x17, 0x03, 0x03, 0x41, 0x01, 0x02, 0x00, 0x00,
};

static void
hexdump(const unsigned char *buf, size_t len)
{
	size_t i;

	for (i = 1; i <= len; i++)
		fprintf(stderr, " 0x%02x,%s", buf[i - 1], i % 8 ? "" : "\n");
	if (len % 8 != 0)
		fprintf(stderr, "\n");
}

struct rw_state {
	uint8_t *buf;
	size_t len;
	size_t offset;
	uint8_t eof;
};

static ssize_t
read_cb(void *buf, size_t buflen, void *cb_arg)
{
	struct rw_state *rs = cb_arg;
	ssize_t n;

	if (rs->eof)
		return TLS13_IO_EOF;

	if ((size_t)(n = buflen) > (rs->len - rs->offset))
		n = rs->len - rs->offset;

	if (n == 0)
		return TLS13_IO_WANT_POLLIN;

	memcpy(buf, &rs->buf[rs->offset], n);
	rs->offset += n;

	return n;
}

static ssize_t
write_cb(const void *buf, size_t buflen, void *cb_arg)
{
	struct rw_state *ws = cb_arg;
	ssize_t n;

	if (ws->eof)
		return TLS13_IO_EOF;

	if ((size_t)(n = buflen) > (ws->len - ws->offset))
		n = ws->len - ws->offset;

	if (n == 0)
		return TLS13_IO_WANT_POLLOUT;

	memcpy(&ws->buf[ws->offset], buf, n);
	ws->offset += n;

	return n;
}

struct record_test {
	size_t rw_len;
	int eof;
	ssize_t want_ret;
};

struct record_recv_test {
	uint8_t *read_buf;
	struct record_test rt[10];
	uint8_t want_content_type;
	uint8_t *want_data;
	size_t want_len;
};

struct record_recv_test record_recv_tests[] = {
	{
		.read_buf = test_record_1,
		.rt = {
			{
				.rw_len = sizeof(test_record_1),
				.want_ret = sizeof(test_record_1),
			},
		},
		.want_content_type = SSL3_RT_HANDSHAKE,
		.want_data = test_record_1,
		.want_len = sizeof(test_record_1),
	},
	{
		.read_buf = test_record_1,
		.rt = {
			{
				.rw_len = 0,
				.want_ret = TLS13_IO_WANT_POLLIN,
			},
			{
				.rw_len = sizeof(test_record_1),
				.want_ret = sizeof(test_record_1),
			},
		},
		.want_content_type = SSL3_RT_HANDSHAKE,
		.want_data = test_record_1,
		.want_len = sizeof(test_record_1),
	},
	{
		.read_buf = test_record_1,
		.rt = {
			{
				.rw_len = 0,
				.want_ret = TLS13_IO_WANT_POLLIN,
			},
			{
				.rw_len = 5,
				.want_ret = TLS13_IO_WANT_POLLIN,
			},
			{
				.rw_len = sizeof(test_record_1),
				.want_ret = sizeof(test_record_1),
			},
		},
		.want_content_type = SSL3_RT_HANDSHAKE,
		.want_data = test_record_1,
		.want_len = sizeof(test_record_1),
	},
	{
		.read_buf = test_record_1,
		.rt = {
			{
				.rw_len = 0,
				.want_ret = TLS13_IO_WANT_POLLIN,
			},
			{
				.rw_len = 2,
				.want_ret = TLS13_IO_WANT_POLLIN,
			},
			{
				.rw_len = 6,
				.want_ret = TLS13_IO_WANT_POLLIN,
			},
			{
				.rw_len = sizeof(test_record_1),
				.want_ret = sizeof(test_record_1),
			},
		},
		.want_content_type = SSL3_RT_HANDSHAKE,
		.want_data = test_record_1,
		.want_len = sizeof(test_record_1),
	},
	{
		.read_buf = test_record_1,
		.rt = {
			{
				.rw_len = 4,
				.want_ret = TLS13_IO_WANT_POLLIN,
			},
			{
				.eof = 1,
				.want_ret = TLS13_IO_EOF,
			},
		},
	},
	{
		.read_buf = test_record_1,
		.rt = {
			{
				.eof = 1,
				.want_ret = TLS13_IO_EOF,
			},
		},
	},
	{
		.read_buf = test_record_2,
		.rt = {
			{
				.rw_len = sizeof(test_record_2),
				.want_ret = TLS13_IO_WANT_POLLIN,
			},
			{
				.eof = 1,
				.want_ret = TLS13_IO_EOF,
			},
		},
		.want_content_type = SSL3_RT_APPLICATION_DATA,
	},
	{
		.read_buf = test_record_3,
		.rt = {
			{
				.rw_len = sizeof(test_record_3),
				.want_ret = TLS13_IO_FAILURE,
			},
		},
	},
};

#define N_RECORD_RECV_TESTS (sizeof(record_recv_tests) / sizeof(record_recv_tests[0]))

struct record_send_test {
	uint8_t *data;
	size_t data_len;
	struct record_test rt[10];
	uint8_t *want_data;
	size_t want_len;
};

struct record_send_test record_send_tests[] = {
	{
		.data = test_record_1,
		.data_len = sizeof(test_record_1),
		.rt = {
			{
				.rw_len = sizeof(test_record_1),
				.want_ret = sizeof(test_record_1),
			},
		},
		.want_data = test_record_1,
		.want_len = sizeof(test_record_1),
	},
	{
		.data = test_record_1,
		.data_len = sizeof(test_record_1),
		.rt = {
			{
				.rw_len = 0,
				.want_ret = TLS13_IO_WANT_POLLOUT,
			},
			{
				.rw_len = sizeof(test_record_1),
				.want_ret = sizeof(test_record_1),
			},
		},
		.want_data = test_record_1,
		.want_len = sizeof(test_record_1),
	},
	{
		.data = test_record_1,
		.data_len = sizeof(test_record_1),
		.rt = {
			{
				.rw_len = 0,
				.want_ret = TLS13_IO_WANT_POLLOUT,
			},
			{
				.rw_len = 5,
				.want_ret = TLS13_IO_WANT_POLLOUT,
			},
			{
				.rw_len = sizeof(test_record_1),
				.want_ret = sizeof(test_record_1),
			},
		},
		.want_data = test_record_1,
		.want_len = sizeof(test_record_1),
	},
	{
		.data = test_record_1,
		.data_len = sizeof(test_record_1),
		.rt = {
			{
				.rw_len = 0,
				.want_ret = TLS13_IO_WANT_POLLOUT,
			},
			{
				.rw_len = 2,
				.want_ret = TLS13_IO_WANT_POLLOUT,
			},
			{
				.rw_len = 6,
				.want_ret = TLS13_IO_WANT_POLLOUT,
			},
			{
				.rw_len = sizeof(test_record_1),
				.want_ret = sizeof(test_record_1),
			},
		},
		.want_data = test_record_1,
		.want_len = sizeof(test_record_1),
	},
	{
		.data = test_record_1,
		.data_len = sizeof(test_record_1),
		.rt = {
			{
				.rw_len = 4,
				.want_ret = TLS13_IO_WANT_POLLOUT,
			},
			{
				.eof = 1,
				.want_ret = TLS13_IO_EOF,
			},
		},
		.want_data = test_record_1,
		.want_len = 4,
	},
	{
		.data = test_record_1,
		.data_len = sizeof(test_record_1),
		.rt = {
			{
				.rw_len = 0,
				.want_ret = TLS13_IO_WANT_POLLOUT,
			},
			{
				.eof = 1,
				.want_ret = TLS13_IO_EOF,
			},
		},
		.want_data = NULL,
		.want_len = 0,
	},
};

#define N_RECORD_SEND_TESTS (sizeof(record_send_tests) / sizeof(record_send_tests[0]))

static int
test_record_recv(size_t test_no, struct record_recv_test *rrt)
{
	struct tls13_record *rec;
	struct rw_state rs;
	int failed = 1;
	ssize_t ret;
	size_t i;
	CBS cbs;

	rs.buf = rrt->read_buf;
	rs.offset = 0;

	if ((rec = tls13_record_new()) == NULL)
		errx(1, "tls13_record_new");

	for (i = 0; rrt->rt[i].rw_len != 0 || rrt->rt[i].want_ret != 0; i++) {
		rs.eof = rrt->rt[i].eof;
		rs.len = rrt->rt[i].rw_len;

		ret = tls13_record_recv(rec, read_cb, &rs);
		if (ret != rrt->rt[i].want_ret) {
			fprintf(stderr, "FAIL: Test %zu/%zu - tls_record_recv "
			    "returned %zi, want %zi\n", test_no, i, ret,
			    rrt->rt[i].want_ret);
			goto failure;
		}
	}

	if (tls13_record_content_type(rec) != rrt->want_content_type) {
		fprintf(stderr, "FAIL: Test %zu - got content type %u, "
		    "want %u\n", test_no, tls13_record_content_type(rec),
		    rrt->want_content_type);
		goto failure;
	}

	tls13_record_data(rec, &cbs);
	if (rrt->want_data == NULL) {
		if (CBS_data(&cbs) != NULL || CBS_len(&cbs) != 0) {
			fprintf(stderr, "FAIL: Test %zu - got CBS with data, "
			    "want NULL\n", test_no);
			goto failure;
		}
		goto done;
	}
	if (!CBS_mem_equal(&cbs, rrt->want_data, rrt->want_len)) {
		fprintf(stderr, "FAIL: Test %zu - data mismatch\n", test_no);
		fprintf(stderr, "Got record data:\n");
		hexdump(CBS_data(&cbs), CBS_len(&cbs));
		fprintf(stderr, "Want record data:\n");
		hexdump(rrt->want_data, rrt->want_len);
		goto failure;
	}

	if (!tls13_record_header(rec, &cbs)) {
		fprintf(stderr, "FAIL: Test %zu - fail to get record "
		    "header", test_no);
		goto failure;
	}
	if (!CBS_mem_equal(&cbs, rrt->want_data, TLS13_RECORD_HEADER_LEN)) {
		fprintf(stderr, "FAIL: Test %zu - header mismatch\n", test_no);
		fprintf(stderr, "Got record header:\n");
		hexdump(CBS_data(&cbs), CBS_len(&cbs));
		fprintf(stderr, "Want record header:\n");
		hexdump(rrt->want_data, rrt->want_len);
		goto failure;
	}

	if (!tls13_record_content(rec, &cbs)) {
		fprintf(stderr, "FAIL: Test %zu - fail to get record "
		    "content", test_no);
		goto failure;
	}
	if (!CBS_mem_equal(&cbs, rrt->want_data + TLS13_RECORD_HEADER_LEN,
	    rrt->want_len - TLS13_RECORD_HEADER_LEN)) {
		fprintf(stderr, "FAIL: Test %zu - content mismatch\n", test_no);
		fprintf(stderr, "Got record content:\n");
		hexdump(CBS_data(&cbs), CBS_len(&cbs));
		fprintf(stderr, "Want record content:\n");
		hexdump(rrt->want_data, rrt->want_len);
		goto failure;
	}

 done:
	failed = 0;

 failure:
	tls13_record_free(rec);

	return failed;
}

static int
test_record_send(size_t test_no, struct record_send_test *rst)
{
	uint8_t *data = NULL;
	struct tls13_record *rec;
	struct rw_state ws;
	int failed = 1;
	ssize_t ret;
	size_t i;

	if ((ws.buf = malloc(TLS13_RECORD_MAX_LEN)) == NULL)
		errx(1, "malloc");

	ws.offset = 0;

	if ((rec = tls13_record_new()) == NULL)
		errx(1, "tls13_record_new");

	if ((data = malloc(rst->data_len)) == NULL)
		errx(1, "malloc");
	memcpy(data, rst->data, rst->data_len);

	if (!tls13_record_set_data(rec, data, rst->data_len)) {
		fprintf(stderr, "FAIL: Test %zu - failed to set record data\n",
		    test_no);
		goto failure;
	}
	data = NULL;

	for (i = 0; rst->rt[i].rw_len != 0 || rst->rt[i].want_ret != 0; i++) {
		ws.eof = rst->rt[i].eof;
		ws.len = rst->rt[i].rw_len;

		ret = tls13_record_send(rec, write_cb, &ws);
		if (ret != rst->rt[i].want_ret) {
			fprintf(stderr, "FAIL: Test %zu/%zu - tls_record_send "
			    "returned %zi, want %zi\n", test_no, i, ret,
			    rst->rt[i].want_ret);
			goto failure;
		}
	}

	if (rst->want_data != NULL &&
	    memcmp(ws.buf, rst->want_data, rst->want_len) != 0) {
		fprintf(stderr, "FAIL: Test %zu - content mismatch\n", test_no);
		fprintf(stderr, "Got record data:\n");
		hexdump(rst->data, rst->data_len);
		fprintf(stderr, "Want record data:\n");
		hexdump(rst->want_data, rst->want_len);
		goto failure;
	}

	failed = 0;

 failure:
	tls13_record_free(rec);
	free(ws.buf);

	return failed;
}

static int
test_recv_records(void)
{
	int failed = 0;
	size_t i;

	for (i = 0; i < N_RECORD_RECV_TESTS; i++)
		failed |= test_record_recv(i, &record_recv_tests[i]);

	return failed;
}

static int
test_send_records(void)
{
	int failed = 0;
	size_t i;

	for (i = 0; i < N_RECORD_SEND_TESTS; i++)
		failed |= test_record_send(i, &record_send_tests[i]);

	return failed;
}

int
main(int argc, char **argv)
{
	int failed = 0;

	failed |= test_recv_records();
	failed |= test_send_records();

	return failed;
}