/* Test for the long double variants of *w*printf_chk functions.
   Copyright (C) 2019-2023 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library 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
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, see
   <https://www.gnu.org/licenses/>.  */

#define _FORTIFY_SOURCE 2

#include <stdarg.h>
#include <stdint.h>
#include <stdio.h>
#include <wchar.h>

#include <support/capture_subprocess.h>
#include <support/check.h>

static void
do_test_call_varg (FILE *stream, const wchar_t *format, ...)
{
  wchar_t string[128];
  va_list args;

  wprintf (L"%20Ls", L"__vfwprintf_chk: ");
  va_start (args, format);
  __vfwprintf_chk (stream, 1, format, args);
  va_end (args);
  wprintf (L"\n");

  wprintf (L"%20Ls", L"__vswprintf_chk: ");
  va_start (args, format);
  __vswprintf_chk (string, 79, 1, 127, format, args);
  va_end (args);
  wprintf (L"%Ls", string);
  wprintf (L"\n");

  wprintf (L"%20Ls", L"__vwprintf_chk: ");
  va_start (args, format);
  __vwprintf_chk (1, format, args);
  va_end (args);
  wprintf (L"\n");
}

static void
do_test_call_rarg (FILE *stream, const wchar_t *format, long double ld,
		   double d)
{
  wchar_t string[128];

  wprintf (L"%20Ls", L"__fwprintf_chk: ");
  __fwprintf_chk (stream, 1, format, ld, d);
  wprintf (L"\n");

  wprintf (L"%20Ls", L"__swprintf_chk: ");
  __swprintf_chk (string, 79, 1, 127, format, ld, d);
  wprintf (L"%Ls", string);
  wprintf (L"\n");

  wprintf (L"%20Ls", L"__wprintf_chk: ");
  __wprintf_chk (1, format, ld, d);
  wprintf (L"\n");
}

static void
do_test_call (void)
{
  long double ld = -1;
  double d = -1;

  /* Print in decimal notation.  */
  do_test_call_rarg (stdout, L"%.10Lf, %.10f", ld, d);
  do_test_call_varg (stdout, L"%.10Lf, %.10f", ld, d);

  /* Print in hexadecimal notation.  */
  do_test_call_rarg (stdout, L"%.10La, %.10a", ld, d);
  do_test_call_varg (stdout, L"%.10La, %.10a", ld, d);

  /* Test positional parameters.  */
  do_test_call_varg (stdout, L"%3$Lf, %2$Lf, %1$f",
		     (double) 1, (long double) 2, (long double) 3);
}

static int
do_test (void)
{
  struct support_capture_subprocess result;
  result = support_capture_subprocess ((void *) &do_test_call, NULL);

  /* Compare against the expected output.  */
  const char *expected =
    "    __fwprintf_chk: -1.0000000000, -1.0000000000\n"
    "    __swprintf_chk: -1.0000000000, -1.0000000000\n"
    "     __wprintf_chk: -1.0000000000, -1.0000000000\n"
    "   __vfwprintf_chk: -1.0000000000, -1.0000000000\n"
    "   __vswprintf_chk: -1.0000000000, -1.0000000000\n"
    "    __vwprintf_chk: -1.0000000000, -1.0000000000\n"
    "    __fwprintf_chk: -0x1.0000000000p+0, -0x1.0000000000p+0\n"
    "    __swprintf_chk: -0x1.0000000000p+0, -0x1.0000000000p+0\n"
    "     __wprintf_chk: -0x1.0000000000p+0, -0x1.0000000000p+0\n"
    "   __vfwprintf_chk: -0x1.0000000000p+0, -0x1.0000000000p+0\n"
    "   __vswprintf_chk: -0x1.0000000000p+0, -0x1.0000000000p+0\n"
    "    __vwprintf_chk: -0x1.0000000000p+0, -0x1.0000000000p+0\n"
    "   __vfwprintf_chk: 3.000000, 2.000000, 1.000000\n"
    "   __vswprintf_chk: 3.000000, 2.000000, 1.000000\n"
    "    __vwprintf_chk: 3.000000, 2.000000, 1.000000\n";
  TEST_COMPARE_STRING (expected, result.out.buffer);

  return 0;
}

#include <support/test-driver.c>