#include <errno.h>

#include <stdio.h>

#include <stdlib.h>

#include <unistd.h>

#include <wchar.h>

static const struct

{

  const char *enc;

  const char *data;

  size_t datalen;

  const wchar_t *expected;

  size_t expectedlen;

} tests[] =

  {

    { "UCS-4LE", "a\0\0\0b\0\0\0", 8, L"ab", 2 },

    { "UCS-4BE", "\0\0\0a\0\0\0b", 8, L"ab", 2 },

  };

#define ntests (sizeof (tests) / sizeof (tests[0]))

static int do_test (void);

#define TEST_FUNCTION do_test ()

static void prepare (void);

#define PREPARE(argc, argv) prepare ();

#include "../test-skeleton.c"

static int fd;

static char *tmpname;

static void

prepare (void)

{

  fd = create_temp_file ("tst-fopenloc2", &tmpname);

  if (fd == -1)

    {

      puts ("cannot open temp file");

      exit (1);

    }

}

static int

do_test (void)

{

  for (int i = 0; i < ntests; ++i)

    {

      if (ftruncate (fd, 0) != 0)

	{

	  printf ("ftruncate in round %d failed\n", i + 1);

	  return 1;

	}

      if (TEMP_FAILURE_RETRY (write (fd, tests[i].data, tests[i].datalen))

	  != tests[i].datalen)

	{

	  printf ("write in round %d failed\n", i + 1);

	  return 1;

	}

      if (lseek (fd, 0, SEEK_SET) != 0)

	{

	  printf ("lseek in round %d failed\n", i + 1);

	  return 1;

	}

      char *ccs;

      if (asprintf (&ccs, "r,ccs=%s", tests[i].enc) == -1)

	{

	  printf ("asprintf in round %d failed\n", i + 1);

	  return 1;

	}

      FILE *fp = fopen (tmpname, ccs);

      if (fp == NULL)

	{

	  printf ("fopen in round %d failed\n", i + 1);

	  return 1;

	}

#define LINELEN 100

      wchar_t line[LINELEN];

      if (fgetws (line, LINELEN, fp) != line)

	{

	  printf ("fgetws in round %d failed\n", i + 1);

	  return 1;

	}

      if (wcslen (line) != tests[i].expectedlen)

	{

	  printf ("round %d: expected length %zu, got length %zu\n",

		  i + 1, tests[i].expectedlen, wcslen (line));

	  return 1;

	}

      if (wcscmp (tests[i].expected, line) != 0)

	{

	  printf ("round %d: expected L\"%ls\", got L\"%ls\"\n",

		  i + 1, tests[i].expected, line);

	  return 1;

	}

      fclose (fp);

      free (ccs);

    }

  close (fd);

  return 0;

}