ARK-OS/arkos/kernel/glibc/libio/bug-wfflush.c

/* Test program for bug in wide streams.  */

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

#include <support/xunistd.h>

static void do_prepare (void);
#define PREPARE(argc, argv) do_prepare ()
static int do_test (void);
#define TEST_FUNCTION do_test ()
#include <test-skeleton.c>

static char *temp_file;

static void
do_prepare (void)
{
  int fd = create_temp_file ("bug-ungetc.", &temp_file);
  if (fd == -1)
    {
      printf ("cannot create temporary file: %m\n");
      exit (1);
    }
  xwrite (fd, "1!", 2);
  close (fd);
}

static int
do_test (void)
{
  FILE *f = fopen (temp_file, "r+");

  if (f == NULL)
    {
      printf ("fopen: %m\n");
      return 1;
    }

#define L_(s) L##s
  //#define fwscanf fscanf
  //#define fwprintf fprintf

  int i;
  if (fwscanf (f, L_("%d!"), &i) != 1)
    {
      printf ("fwscanf failed\n");
      return 1;
    }

  rewind (f);
  if (ferror (f))
    {
      printf ("rewind: %m\n");
      return 1;
    }

  if (fputws (L_("1!"), f) == EOF)
    {
      printf ("fputws: %m\n");
      return 1;
    }

  if (fflush (f) != 0)
    {
      printf ("fflush: %m\n");
      return 1;
    }

  if (fclose (f) != 0)
    {
      printf ("fclose: %m\n");
      return 1;
    }

  puts ("Test succeeded.");
  return 0;
}