#include <cmocka.h>
#include <db/db.h>
#include <errno.h>
#include <setjmp.h>
#include <stdarg.h>
#include <stddef.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/stat.h>
#include <sys/statvfs.h>

#include <file_p.h>
#include <main.h>
#include <string.h>
#include <sys/cdefs.h>
#include <test_utils.h>
#include <unistd.h>
#include <utils.h>

#define FSIZE 10233
#define FSIZE_S "10233"
#define FNAME "Test file"
#define FHASH 211212
#define FID 19
#define FID_S "19"
#define ERR_FSV "Can't create a file."
#define STR_LONG                                                               \
  "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed sagittis "     \
  "risus et dictum consequat. Cras in fringilla dui. Aenean sed risus eu "     \
  "odio pellentesque tincidunt ac id nulla. Duis vel mi ut est finibus "       \
  "imperdiet. Praesent auctor convallis metus, quis ultricies dui. Praesent "  \
  "sit amet nibh quis elit mattis mollis. Nullam et mattis tortor, eu "        \
  "egestas nunc. Sed feugiat porttitor erat quis varius. Curabitur sapien "    \
  "est, consectetur consectetur nisi in, tempus gravida leo. Phasellus sit "   \
  "amet lorem a erat euismod sagittis eget vel libero. Suspendisse ac est "    \
  "aliquam, finibus lacus nec, commodo sapien. Orci varius natoque penatibus " \
  "et magnis dis parturient montes, nascetur ridiculus mus. Aliquam commodo, " \
  "nibh eget laoreet facilisis, nulla sapien mattis massa, ac luctus ex leo "  \
  "ut quam. Integer euismod velit in arcu porttitor suscipit. "

dbuf_t *dbuf;
size_t fs_available = 10;
size_t fs_namemax = 255;
int _errno = 0;
char *str2snd = NULL;

void __wrap_session_send_string(struct session *sess, const char *fmt, ...) {
  if (str2snd != NULL) {
    assert_string_equal(fmt, str2snd);
    str2snd = NULL;
  }
}

int __wrap_statvfs(const char *__restrict __file,
                   struct statvfs *__restrict __buf) {
  __buf->f_bavail = fs_available;
  __buf->f_bsize = 1024;
  __buf->f_namemax = fs_namemax;
  return 0;
}

int __wrap_stat(const char *__restrict __file, struct stat *__restrict __buf) {
  return mock_type(int);
}

int __wrap_mkdir(const char *__path, __mode_t __mode) { return mock_type(int); }

int __wrap_chdir(const char *__path) { return 0; }

ssize_t __wrap_write(int __fd, const void *__buf, size_t __n) __wur {
  dbuf_write(__buf, __n, &dbuf);
  return __n;
}

int __wrap_open(const char *__file, int __oflag, ...) {
  errno = _errno;
  return mock_type(int);
}

/* CASE: Success */
void test__file_receive_prepare__regular(void **state) {
  dbuf = dbuf_init(INBUFSIZE);
  char line[] = "\"" FNAME "\" " FSIZE_S " 1";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;
  will_return(__wrap_mkdir, 0);
  will_return(__wrap_stat, 1);
  will_return(__wrap_open, 5);
  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, 0);
  assert_string_equal("accept", dbuf->ptr);
  dbuf_destroy(&dbuf);
}

/* CASE: Name not correct (start) */
void test__file_receive_prepare_name_not_correct_start_1(void **state) {
  char line[] = FNAME " " FSIZE_S " 1";
  str2snd = "Error: can't find starting character \" for the file name";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;
  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, -5);
}

/* CASE: Name not correct (start) */
void test__file_receive_prepare_name_not_correct_start_2(void **state) {
  char line[] = FNAME "\" " FSIZE_S " 1";
  str2snd = "Error: can't find ending character \" for the file name";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;
  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, -6);
}

/* CASE: Name not correct (end) */
void test__file_receive_prepare_name_not_correct_end(void **state) {
  char line[] = "\"FNAME " FSIZE_S " 1";
  str2snd = "Error: can't find ending character \" for the file name";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;
  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, -6);
}

/* CASE: File name is too long */
void test__file_receive_prepare__name_too_long(void **state) {
  dbuf = dbuf_init(INBUFSIZE);
  char line[] = "\"" STR_LONG "\" " FSIZE_S " 1";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;
  str2snd = "file name is too long\n";

  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, -1);
  assert_ptr_equal(sess.file, NULL);
  dbuf_destroy(&dbuf);
}

/* CASE: No enough space */
void test__file_receive_prepare__no_space(void **state) {
  dbuf = dbuf_init(INBUFSIZE);
  char line[] = "\"" FNAME "\" "
                "20000"
                " 1";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;
  str2snd = "There is no space for such size! (%ld)\n";

  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, -2);
  assert_ptr_equal(sess.file, NULL);
  dbuf_destroy(&dbuf);
}

/* CASE: Can't create directory */
void test__file_receive_prepare__err_dir(void **state) {
  dbuf = dbuf_init(INBUFSIZE);
  char line[] = "\"" FNAME "\" " FSIZE_S " 1";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;
  str2snd = ERR_FSV;
  will_return(__wrap_mkdir, 1);
  will_return(__wrap_stat, 1);
  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, -4);
  assert_ptr_equal(sess.file, NULL);
  dbuf_destroy(&dbuf);
}

/* CASE: Error in the file name */
void test__file_receive_prepare__name_err(void **state) {
  dbuf = dbuf_init(INBUFSIZE);
  char line[] = "\"" FNAME "\" " FSIZE_S " 1";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;
  str2snd = ERR_FSV;
  will_return(__wrap_stat, 1);
  will_return(__wrap_mkdir, 0);
  will_return(__wrap_open, -1);
  _errno = EPERM;
  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, -3);
  assert_ptr_equal(sess.file, NULL);
  dbuf_destroy(&dbuf);
}

/* CASE: Error empty name */
void test__file_receive_prepare__name_empty(void **state) {
  char line[] = "\"\" " FSIZE_S " 1";
  str2snd = "File name should not be empty";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;
  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, -7);
  assert_ptr_equal(sess.file, NULL);
}

/* CASE: File with such name already exist */
void test__file_receive_prepare__exist(void **state) {
  dbuf = dbuf_init(INBUFSIZE);
  char line[] = "\"" FNAME "\" " FSIZE_S " 1";
  session sess = {
      .uname = "user1234",
      .sd = 0,
      .file = NULL,
  };
  int res = 0;

  /* 1st iteration */
  _errno = EEXIST;
  will_return(__wrap_stat, 1);
  will_return(__wrap_mkdir, 0);
  will_return(__wrap_open, -1);
  /* 2nd iteration */
  will_return(__wrap_stat, 1);
  will_return(__wrap_mkdir, 0);
  will_return(__wrap_open, 5);
  str2snd = "accept";

  res = file_receive_prepare(&sess, line, NULL);
  assert_int_equal(res, 0);
  assert_ptr_not_equal(sess.file, NULL);
  dbuf_destroy(&dbuf);
}

int setup(void **state) { return 0; }
int tear_down(void **state) { return 0; }

int main(int argc, char **argv) {
  const struct CMUnitTest tests[] = {
      cmocka_unit_test(test__file_receive_prepare__regular),
      cmocka_unit_test(test__file_receive_prepare_name_not_correct_start_1),
      cmocka_unit_test(test__file_receive_prepare_name_not_correct_start_2),
      cmocka_unit_test(test__file_receive_prepare_name_not_correct_end),
      cmocka_unit_test(test__file_receive_prepare__name_too_long),
      cmocka_unit_test(test__file_receive_prepare__no_space),
      cmocka_unit_test(test__file_receive_prepare__err_dir),
      cmocka_unit_test(test__file_receive_prepare__name_err),
      cmocka_unit_test(test__file_receive_prepare__exist),
      cmocka_unit_test(test__file_receive_prepare__name_empty),
  };

  return cmocka_run_group_tests(tests, setup, tear_down);
}