/*
 * Copyright 2013 MongoDB, Inc.
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *   http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */


#include <assert.h>
#include <bson.h>
#include <fcntl.h>
#include <time.h>

#include "bson-tests.h"
#include "TestSuite.h"


static void
test_bson_string_new (void)
{
   bson_string_t *str;
   char *s;

   str = bson_string_new (NULL);
   s = bson_string_free (str, false);
   assert (s);
   assert (!strcmp (s, ""));
   bson_free (s);

   str = bson_string_new ("");
   s = bson_string_free (str, false);
   assert (s);
   assert (!*s);
   assert (0 == strcmp (s, ""));
   bson_free (s);

   str = bson_string_new ("abcdef");
   s = bson_string_free (str, false);
   assert (s);
   assert (!strcmp (s, "abcdef"));
   bson_free (s);

   str = bson_string_new ("");
   s = bson_string_free (str, true);
   assert (!s);
}


static void
test_bson_string_append (void)
{
   bson_string_t *str;
   char *s;

   str = bson_string_new (NULL);
   bson_string_append (str, "christian was here");
   bson_string_append (str, "\n");
   s = bson_string_free (str, false);
   assert (s);
   assert (!strcmp (s, "christian was here\n"));
   bson_free (s);

   str = bson_string_new (">>>");
   bson_string_append (str, "^^^");
   bson_string_append (str, "<<<");
   s = bson_string_free (str, false);
   assert (s);
   assert (!strcmp (s, ">>>^^^<<<"));
   bson_free (s);
}


static void
test_bson_string_append_c (void)
{
   bson_string_t *str;
   char *s;

   str = bson_string_new (NULL);
   bson_string_append_c (str, 'c');
   bson_string_append_c (str, 'h');
   bson_string_append_c (str, 'r');
   bson_string_append_c (str, 'i');
   bson_string_append_c (str, 's');
   s = bson_string_free (str, false);
   assert (s);
   assert (!strcmp (s, "chris"));
   bson_free (s);
}


static void
test_bson_string_append_printf (void)
{
   bson_string_t *str;

   str = bson_string_new ("abcd ");
   bson_string_append_printf (str, "%d %d %d", 1, 2, 3);
   BSON_ASSERT (!strcmp (str->str, "abcd 1 2 3"));
   bson_string_truncate (str, 2);
   BSON_ASSERT (!strcmp (str->str, "ab"));
   bson_string_free (str, true);
}


static void
test_bson_string_append_unichar (void)
{
   static const unsigned char test1[] = {0xe2, 0x82, 0xac, 0};
   bson_string_t *str;
   char *s;

   str = bson_string_new (NULL);
   bson_string_append_unichar (str, 0x20AC);
   s = bson_string_free (str, false);
   assert (s);
   assert (!strcmp (s, (const char *) test1));
   bson_free (s);
}


static void
test_bson_strdup_printf (void)
{
   char *s;

   s = bson_strdup_printf ("%s:%u", "localhost", 27017);
   assert (!strcmp (s, "localhost:27017"));
   bson_free (s);
}


static void
test_bson_strdup (void)
{
   char *s;

   s = bson_strdup ("localhost:27017");
   assert (!strcmp (s, "localhost:27017"));
   bson_free (s);
}


static void
test_bson_strndup (void)
{
   char *s;

   s = bson_strndup ("asdf", 2);
   assert (!strcmp (s, "as"));
   bson_free (s);

   s = bson_strndup ("asdf", 10);
   assert (!strcmp (s, "asdf"));
   bson_free (s);

   /* Some tests where we truncate to size n-1, n, n+1 */
   s = bson_strndup ("asdf", 3);
   assert (!strcmp (s, "asd"));
   bson_free (s);

   s = bson_strndup ("asdf", 4);
   assert (!strcmp (s, "asdf"));
   bson_free (s);

   s = bson_strndup ("asdf", 5);
   assert (!strcmp (s, "asdf"));
   bson_free (s);
}


static void
test_bson_strnlen (void)
{
   char *s = "test";

   ASSERT_CMPINT ((int) strlen (s), ==, (int) bson_strnlen (s, 100));
}


typedef struct {
   const char *str;
   int base;
   int64_t rv;
   const char *remaining;
   int _errno;
} strtoll_test;


static void
test_bson_ascii_strtoll (void)
{
#ifdef END
#undef END
#endif
#define END ""
   int64_t rv;
   int i;
   char *endptr;
   strtoll_test tests[] = {
      /* input, base, expected output, # of chars parsed, expected errno */
      {"1", 10, 1, END, 0},
      {"+1", 10, 1, END, 0},
      {"-1", 10, -1, END, 0},
      {"0", 10, 0, END, 0},
      {"0 ", 10, 0, " ", 0},
      {" 0 ", 10, 0, " ", 0},
      {" 0", 10, 0, END, 0},
      {" 0\"", 10, 0, "\"", 0},
      {"0l", 10, 0, "l", 0},
      {"0l ", 10, 0, "l ", 0},
      {"0u", 10, 0, "u", 0},
      {"0u ", 10, 0, "u ", 0},
      {"0L", 10, 0, "L", 0},
      {"0L ", 10, 0, "L ", 0},
      {"0U", 10, 0, "U", 0},
      {"0U ", 10, 0, "U ", 0},
      {"-0", 10, 0, END, 0},
      {"+0", 10, 0, END, 0},
      {"010", 8, 8, END, 0},
      /* stroll "takes as many characters as possible to form a valid base-n
       * integer", so it ignores "8" and returns 0 */
      {"08", 0, 0, "8", 0},
      {"010", 10, 10, END, 0},
      {"010", 8, 8, END, 0},
      {"010", 0, 8, END, 0},
      {"68719476736", 10, 68719476736, END, 0},
      {"-68719476736", 10, -68719476736, END, 0},
      {"+68719476736", 10, 68719476736, END, 0},
      {"   68719476736  ", 10, 68719476736, "  ", 0},
      {"   68719476736  ", 0, 68719476736, "  ", 0},
      {"   -68719476736  ", 10, -68719476736, "  ", 0},
      {"   -68719476736  ", 0, -68719476736, "  ", 0},
      {"   4611686018427387904LL", 10, 4611686018427387904LL, "LL", 0},
      {" -4611686018427387904LL ", 10, -4611686018427387904LL, "LL ", 0},
      {"0x1000000000", 16, 68719476736, END, 0},
      {"0x1000000000", 0, 68719476736, END, 0},
      {"-0x1000000000", 16, -68719476736, END, 0},
      {"-0x1000000000", 0, -68719476736, END, 0},
      {"+0x1000000000", 16, 68719476736, END, 0},
      {"+0x1000000000", 0, 68719476736, END, 0},
      {"01234", 8, 668, END, 0},
      {"01234", 0, 668, END, 0},
      {"-01234", 8, -668, END, 0},
      {"-01234", 0, -668, END, 0},
      {"+01234", 8, 668, END, 0},
      {"+01234", 0, 668, END, 0},
      {"9223372036854775807", 10, INT64_MAX, END, 0},
      {"-9223372036854775808", 10, INT64_MIN, END, 0},
      {"9223372036854775808", 10, INT64_MAX, "8", ERANGE},   /* LLONG_MAX+1   */
      {"-9223372036854775809", 10, INT64_MIN, "9", ERANGE},  /* LLONG_MIN-1   */
      {"18446744073709551615", 10, INT64_MAX, "5", ERANGE},  /* 2*LLONG_MAX+1 */
      {"-18446744073709551618", 10, INT64_MIN, "8", ERANGE}, /* 2*LLONG_MIN-1 */
      {NULL}};

   for (i = 0; tests[i].str; i++) {
      errno = 0;

      rv = bson_ascii_strtoll (tests[i].str, &endptr, tests[i].base);
      assert_cmpint (rv, ==, tests[i].rv);
      assert_cmpint (errno, ==, tests[i]._errno);
      assert_cmpstr (endptr, tests[i].remaining);
   }
#undef END
}


static void
test_bson_strncpy (void)
{
   char buf[5];

   bson_strncpy (buf, "foo", sizeof buf);
   assert_cmpstr ("foo", buf);
   bson_strncpy (buf, "foobar", sizeof buf);
   assert_cmpstr ("foob", buf);
}


void
test_string_install (TestSuite *suite)
{
   TestSuite_Add (suite, "/bson/string/new", test_bson_string_new);
   TestSuite_Add (suite, "/bson/string/append", test_bson_string_append);
   TestSuite_Add (suite, "/bson/string/append_c", test_bson_string_append_c);
   TestSuite_Add (
      suite, "/bson/string/append_printf", test_bson_string_append_printf);
   TestSuite_Add (
      suite, "/bson/string/append_unichar", test_bson_string_append_unichar);
   TestSuite_Add (suite, "/bson/string/strdup", test_bson_strdup);
   TestSuite_Add (suite, "/bson/string/strdup_printf", test_bson_strdup_printf);
   TestSuite_Add (suite, "/bson/string/strndup", test_bson_strndup);
   TestSuite_Add (suite, "/bson/string/ascii_strtoll", test_bson_ascii_strtoll);
   TestSuite_Add (suite, "/bson/string/strncpy", test_bson_strncpy);
   TestSuite_Add (suite, "/bson/string/strnlen", test_bson_strnlen);
}