/* Copyright (C) 2006 MySQL AB

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; version 2 of the License.

   This program 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 General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA */

#include "azio.h"
#include <string.h>
#include <assert.h>
#include <stdio.h>
#include <string.h>
#include <my_getopt.h>
#include <mysql_version.h>

#define ARCHIVE_ROW_HEADER_SIZE 4

#define COMMENT_STRING "Your bases"
#define FRM_STRING "My bases"
#define TEST_FILENAME "test.az"
#define TEST_STRING_INIT "YOU don't know about me without you have read a book by the name of The Adventures of Tom Sawyer; but that ain't no matter.  That book was made by Mr. Mark Twain, and he told the truth, mainly.  There was things which he stretched, but mainly he told the truth.  That is nothing.  I never seen anybody but lied one time or another, without it was Aunt Polly, or the widow, or maybe Mary.  Aunt Polly--Tom's Aunt Polly, she is--and Mary, and the Widow Douglas is all told about in that book, which is mostly a true book, with some stretchers, as I said before.  Now the way that the book winds up is this:  Tom and me found the money that the robbers hid in the cave, and it made us rich.  We got six thousand dollars apiece--all gold.  It was an awful sight of money when it was piled up.  Well, Judge Thatcher he took it and put it out at interest, and it fetched us a dollar a day apiece all the year round --more than a body could tell what to do with.  The Widow Douglas she took me for her son, and allowed she would..."
#define TEST_LOOP_NUM 100

#define BUFFER_LEN 1024

char test_string[BUFFER_LEN];

unsigned long long row_lengths[]= {LL(536870912), LL(2147483648), LL(4294967296), LL(8589934592)};
unsigned long long row_numbers[]= {LL(524288), LL(2097152), LL(4194304), LL(8388608)};

/* prototypes */
int size_test(unsigned long long length, unsigned long long rows_to_test_for, az_method method);
int small_test(az_method method);
long int timedif(struct timeval a, struct timeval b);


int main(int argc, char *argv[])
{
  az_method method;
  unsigned int x;

  if (argc > 2)
    return 0;

  my_init();

  MY_INIT(argv[0]);

  for (method= AZ_METHOD_BLOCK; method < AZ_METHOD_MAX; method++)
  {
    struct timeval start_time, end_time;
    long int timing;

    printf("Testing %d\n", (int)method);
    gettimeofday(&start_time, NULL);
    small_test(method);
    gettimeofday(&end_time, NULL);
    timing= timedif(end_time, start_time);
    printf("\tTime took %ld.%03ld seconds\n\n", timing / 1000, timing % 1000);
  }

  if (argc > 1)
    return 0;

  /* Start size tests */
  printf("About to run .5/2/4/8 gig tests now, you may want to hit CTRL-C\n");
  for (x= 0; x < 4; x++) /* 4 is the current size of the array we use */
  {
    for (method= AZ_METHOD_BLOCK; method < AZ_METHOD_MAX; method++)
    {
      struct timeval start_time, end_time;
      long int timing;

      printf("Testing %llu bytes with (%d)\n", row_lengths[x], (int)method);
      gettimeofday(&start_time, NULL);
      size_test(row_lengths[x], row_numbers[x], method);
      gettimeofday(&end_time, NULL);
      timing= timedif(end_time, start_time);
      printf("\tTime took %ld.%03ld seconds\n\n", timing / 1000, timing % 1000);
    }
  }

  my_end(0);

  return 0;
}

int small_test(az_method method)
{
  unsigned int ret;
  char comment_str[10];

  int error;
  unsigned int x;
  int written_rows= 0;
  azio_stream writer_handle, reader_handle;

  memcpy(test_string, TEST_STRING_INIT, 1024);

  unlink(TEST_FILENAME);

  if (!(ret= azopen(&writer_handle, TEST_FILENAME, O_CREAT|O_RDWR|O_BINARY,
                    method)))
  {
    printf("Could not create test file\n");
    return 0;
  }

  azwrite_comment(&writer_handle, (char *)COMMENT_STRING, 
                  (unsigned int)strlen(COMMENT_STRING));
  azread_comment(&writer_handle, comment_str);
  assert(!memcmp(COMMENT_STRING, comment_str,
                strlen(COMMENT_STRING)));

  azwrite_frm(&writer_handle, (char *)FRM_STRING, 
                  (unsigned int)strlen(FRM_STRING));
  azread_frm(&writer_handle, comment_str);
  assert(!memcmp(FRM_STRING, comment_str,
                strlen(FRM_STRING)));


  if (!(ret= azopen(&reader_handle, TEST_FILENAME, O_RDONLY|O_BINARY,
                    method)))
  {
    printf("Could not open test file\n");
    return 0;
  }

  assert(reader_handle.rows == 0);
  assert(reader_handle.auto_increment == 0);
  assert(reader_handle.check_point == 0);
  assert(reader_handle.forced_flushes == 0);
  assert(reader_handle.dirty == AZ_STATE_DIRTY);

  for (x= 0; x < TEST_LOOP_NUM; x++)
  {
    ret= azwrite_row(&writer_handle, test_string, BUFFER_LEN);
    assert(ret == BUFFER_LEN);
    written_rows++;
  }
  azflush(&writer_handle,  Z_SYNC_FLUSH);

  azread_comment(&writer_handle, comment_str);
  assert(!memcmp(COMMENT_STRING, comment_str,
                strlen(COMMENT_STRING)));

  /* Lets test that our internal stats are good */
  assert(writer_handle.rows == TEST_LOOP_NUM);

  /* Reader needs to be flushed to make sure it is up to date */
  azflush(&reader_handle,  Z_SYNC_FLUSH);
  assert(reader_handle.rows == TEST_LOOP_NUM);
  assert(reader_handle.auto_increment == 0);
  assert(reader_handle.check_point == 1269);
  assert(reader_handle.forced_flushes == 1);
  assert(reader_handle.comment_length == 10);
  assert(reader_handle.dirty == AZ_STATE_SAVED);

  writer_handle.auto_increment= 4;
  azflush(&writer_handle, Z_SYNC_FLUSH);
  assert(writer_handle.rows == TEST_LOOP_NUM);
  assert(writer_handle.auto_increment == 4);
  assert(writer_handle.check_point == 1269);
  assert(writer_handle.forced_flushes == 2);
  assert(writer_handle.dirty == AZ_STATE_SAVED);

  azclose(&reader_handle);

  if (!(ret= azopen(&reader_handle, TEST_FILENAME, O_RDONLY|O_BINARY,
                    method)))
  {
    printf("Could not open test file\n");
    return 0;
  }


  /* Read the original data */
  azread_init(&reader_handle);
  for (x= 0; x < writer_handle.rows; x++)
  {
    ret= azread_row(&reader_handle, &error);
    assert(!error);
    assert(ret == BUFFER_LEN);
    assert(!memcmp(reader_handle.row_ptr, test_string, ret));
  }
  assert(writer_handle.rows == TEST_LOOP_NUM);


  /* Test here for falling off the planet */

  /* Final Write before closing */
  ret= azwrite_row(&writer_handle, test_string, BUFFER_LEN);
  assert(ret == BUFFER_LEN);

  /* We don't use FINISH, but I want to have it tested */
  azflush(&writer_handle,  Z_FINISH);

  assert(writer_handle.rows == TEST_LOOP_NUM+1);

  /* Read final write */
  azread_init(&reader_handle);
  for (x= 0; x < writer_handle.rows; x++)
  {
    ret= azread_row(&reader_handle, &error);
    assert(ret == BUFFER_LEN);
    assert(!error);
    assert(!memcmp(reader_handle.row_ptr, test_string, ret));
  }


  azclose(&writer_handle);


  /* Rewind and full test */
  azread_init(&reader_handle);
  for (x= 0; x < writer_handle.rows; x++)
  {
    ret= azread_row(&reader_handle, &error);
    assert(ret == BUFFER_LEN);
    assert(!error);
    assert(!memcmp(reader_handle.row_ptr, test_string, ret));
  }

  if (!(ret= azopen(&writer_handle, TEST_FILENAME, O_RDWR|O_BINARY, method)))
  {
    printf("Could not open file (%s) for appending\n", TEST_FILENAME);
    return 0;
  }
  ret= azwrite_row(&writer_handle, test_string, BUFFER_LEN);
  assert(ret == BUFFER_LEN);
  azflush(&writer_handle,  Z_SYNC_FLUSH);
  azflush(&reader_handle,  Z_SYNC_FLUSH);

  /* Rewind and full test */
  azread_init(&reader_handle);
  for (x= 0; x < writer_handle.rows; x++)
  {
    ret= azread_row(&reader_handle, &error);
    assert(!error);
    assert(ret == BUFFER_LEN);
    assert(!memcmp(reader_handle.row_ptr, test_string, ret));
  }

  /* Reader needs to be flushed to make sure it is up to date */
  azflush(&reader_handle,  Z_SYNC_FLUSH);
  assert(reader_handle.rows == 102);
  assert(reader_handle.auto_increment == 4);
  assert(reader_handle.check_point == 1829);
  assert(reader_handle.forced_flushes == 4);
  assert(reader_handle.dirty == AZ_STATE_SAVED);

  azflush(&writer_handle, Z_SYNC_FLUSH);
  assert(writer_handle.rows == reader_handle.rows);
  assert(writer_handle.auto_increment == reader_handle.auto_increment);
  assert(writer_handle.check_point == reader_handle.check_point);
  /* This is +1 because  we do a flush right before we read */
  assert(writer_handle.forced_flushes == reader_handle.forced_flushes + 1);
  assert(writer_handle.dirty == reader_handle.dirty);

  azclose(&writer_handle);
  azclose(&reader_handle);
  unlink(TEST_FILENAME);

  return 0;
}

int size_test(unsigned long long length, unsigned long long rows_to_test_for, 
              az_method method)
{
  azio_stream writer_handle, reader_handle;
  unsigned long long write_length;
  unsigned long long read_length;
  unsigned long long count;
  unsigned int ret;
  int error;
  int x;

  if (!(ret= azopen(&writer_handle, TEST_FILENAME, 
                    O_CREAT|O_RDWR|O_TRUNC|O_BINARY,
                    method)))
  {
    printf("Could not create test file\n");
    exit(1);
  }

  for (count= 0, write_length= 0; write_length < length ; 
       write_length+= ret)
  {
    count++;
    ret= azwrite_row(&writer_handle, test_string, BUFFER_LEN);
    if (ret != BUFFER_LEN)
    {
      printf("Size %u\n", ret);
      assert(ret != BUFFER_LEN);
    }
    if ((write_length % 14031) == 0)
    {
      azflush(&writer_handle,  Z_SYNC_FLUSH);
    }
  }
  assert(write_length == count * BUFFER_LEN); /* Number of rows time BUFFER_LEN */
  azflush(&writer_handle,  Z_SYNC_FLUSH);

  if (!(ret= azopen(&reader_handle, TEST_FILENAME, O_RDONLY|O_BINARY,
                    method)))
  {
    printf("Could not open test file\n");
    exit(1);
  }

  /* We do a double loop to test speed */
  for (x= 0, read_length= 0; x < 2; x++, read_length= 0)
  {
    unsigned long long count;

    azread_init(&reader_handle);
    for (count= 0; count < writer_handle.rows; count++)
    {
      ret= azread_row(&reader_handle, &error);
      read_length+= ret;
      assert(!memcmp(reader_handle.row_ptr, test_string, ret));
      if (ret != BUFFER_LEN)
      {
        printf("Size %u\n", ret);
        assert(ret != BUFFER_LEN);
      }
    }
    azread_init(&reader_handle);

    assert(read_length == write_length);
    assert(writer_handle.rows == rows_to_test_for);
  }
  azclose(&writer_handle);
  azclose(&reader_handle);

  unlink(TEST_FILENAME);

  return 0;
}

long int timedif(struct timeval a, struct timeval b)
{
    register int us, s;
 
    us = a.tv_usec - b.tv_usec;
    us /= 1000;
    s = a.tv_sec - b.tv_sec;
    s *= 1000;
    return s + us;
}