/***************************************************************************
 *                                  _   _ ____  _
 *  Project                     ___| | | |  _ \| |
 *                             / __| | | | |_) | |
 *                            | (__| |_| |  _ <| |___
 *                             \___|\___/|_| \_\_____|
 *
 * Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
 *
 * This software is licensed as described in the file COPYING, which
 * you should have received as part of this distribution. The terms
 * are also available at https://curl.se/docs/copyright.html.
 *
 * You may opt to use, copy, modify, merge, publish, distribute and/or sell
 * copies of the Software, and permit persons to whom the Software is
 * furnished to do so, under the terms of the COPYING file.
 *
 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
 * KIND, either express or implied.
 *
 * SPDX-License-Identifier: curl
 *
 ***************************************************************************/
#include "unitcheck.h"

#include "urldata.h"
#include "curl_trc.h"

/*
 * This test hardcodes the knowledge of the buffer size which is internal to
 * Curl_infof(). If that buffer is changed in size, this tests needs to be
 * updated to still be valid.
 */

static char input[4096];
static char output[4096];

/*
 * This debugf callback dumps the string into the static buffer
 * for the unit test to inspect. Since we know that we are only dealing with
 * text we can afford the luxury of skipping the type check here.
 */
static int debugf_cb(CURL *handle, curl_infotype type, char *buf, size_t size,
                     void *userptr)
{
  (void)handle;
  (void)type;
  (void)userptr;

  memset(output, '\0', sizeof(output));
  memcpy(output, buf, size);
  return 0;
}

static CURLcode t1652_setup(struct Curl_easy **easy)
{
  CURLcode result = CURLE_OK;

  global_init(CURL_GLOBAL_ALL);
  *easy = curl_easy_init();
  if(!*easy) {
    curl_global_cleanup();
    return CURLE_OUT_OF_MEMORY;
  }
  curl_easy_setopt(*easy, CURLOPT_DEBUGFUNCTION, debugf_cb);
  curl_easy_setopt(*easy, CURLOPT_VERBOSE, 1L);
  return result;
}

static void t1652_stop(struct Curl_easy *easy)
{
  curl_easy_cleanup(easy);
  curl_global_cleanup();
}

static int verify(const char *info, const char *two)
{
  /* the 'info' one has a newline appended */
  const char *nl = strchr(info, '\n');
  if(!nl)
    return 1; /* nope */
  return strncmp(info, two, nl - info);
}

static CURLcode test_unit1652(const char *arg)
{
  struct Curl_easy *easy;

  UNITTEST_BEGIN(t1652_setup(&easy))

#ifdef CURL_GNUC_DIAG
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wformat"  /* for GCC v5 to v8 */
#pragma GCC diagnostic ignored "-Wformat-zero-length"
#if __GNUC__ >= 7
#pragma GCC diagnostic ignored "-Wformat-overflow"
#endif
#endif

  /* Injecting a simple short string via a format */
  curl_msnprintf(input, sizeof(input), "Simple Test");
  Curl_infof(easy, "%s", input);
  fail_unless(verify(output, input) == 0, "Simple string test");

  /* Injecting a few different variables with a format */
  Curl_infof(easy, "%s %u testing %lu", input, 42, 43L);
  fail_unless(verify(output, "Simple Test 42 testing 43\n") == 0,
              "Format string");

  /* Variations of empty strings */
  Curl_infof(easy, "");
  fail_unless(strlen(output) == 1, "Empty string");
  Curl_infof(easy, "%s", (char *)NULL);
  fail_unless(verify(output, "(nil)") == 0, "Passing NULL as string");

  /* Note: libcurl's tracebuffer hold 2048 bytes, so the max strlen() we
   * get out of it is 2047, since we need a \0 at the end.
   * Curl_infof() in addition adds a \n at the end, making the effective
   * output 2046 characters.
   * Any input that long or longer will truncated, ending in '...\n'.
   */

  /* A string just long enough to not be truncated */
  memset(input, '\0', sizeof(input));
  memset(input, 'A', 2045);
  Curl_infof(easy, "%s", input);
  curl_mfprintf(stderr, "output len %zu: %s", strlen(output), output);
  /* output is input + \n */
  fail_unless(strlen(output) == 2046, "No truncation of infof input");
  fail_unless(verify(output, input) == 0, "No truncation of infof input");
  fail_unless(output[sizeof(output) - 1] == '\0',
              "No truncation of infof input");

  /* Just over the limit without newline for truncation via '...' */
  memset(input + 2045, 'A', 4);
  Curl_infof(easy, "%s", input);
  curl_mfprintf(stderr, "output len %zu: %s", strlen(output), output);
  fail_unless(strlen(output) == 2047, "Truncation of infof input 1");
  fail_unless(output[sizeof(output) - 1] == '\0',
              "Truncation of infof input 1");

  /* Just over the limit with newline for truncation via '...' */
  memset(input + 2045, 'A', 4);
  memset(input + 2045 + 4, '\n', 1);
  Curl_infof(easy, "%s", input);
  curl_mfprintf(stderr, "output len %zu: %s", strlen(output), output);
  fail_unless(strlen(output) == 2047, "Truncation of infof input 2");
  fail_unless(output[sizeof(output) - 1] == '\0',
              "Truncation of infof input 2");

  /* Way over the limit for truncation via '...' */
  memset(input, '\0', sizeof(input));
  memset(input, 'A', sizeof(input) - 1);
  Curl_infof(easy, "%s", input);
  curl_mfprintf(stderr, "output len %zu: %s", strlen(output), output);
  fail_unless(strlen(output) == 2047, "Truncation of infof input 3");
  fail_unless(output[sizeof(output) - 1] == '\0',
              "Truncation of infof input 3");

#ifdef CURL_GNUC_DIAG
#pragma GCC diagnostic pop
#endif

  UNITTEST_END(t1652_stop(easy))
}
