/* Test case for bug with mmap stdio read past end of file.  */

#include <stdio.h>
#include <error.h>
#include <errno.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 const char text1[] = "hello\n";

static void
do_prepare (void)
{
  int temp_fd = create_temp_file ("tst-mmap-offend.", &temp_file);
  if (temp_fd == -1)
    error (1, errno, "cannot create temporary file");
  else
    {
      ssize_t cc = write (temp_fd, text1, sizeof text1 - 1);
      if (cc != sizeof text1 - 1)
	error (1, errno, "cannot write to temporary file");
    }
  close (temp_fd);
}

static int
do_test (void)
{
  unsigned char buffer[8192];
  int result = 0;
  FILE *f = fopen (temp_file, "rm");
  size_t cc;

  if (f == NULL)
    {
      perror (temp_file);
      return 1;
    }

  cc = fread (buffer, 1, sizeof (buffer), f);
  printf ("fread %zu: \"%.*s\"\n", cc, (int) cc, buffer);
  if (cc != sizeof text1 - 1)
    {
      perror ("fread");
      result = 1;
    }

  if (fseek (f, 2048, SEEK_SET) != 0)
    {
      perror ("fseek off end");
      result = 1;
    }

  if (fread (buffer, 1, sizeof (buffer), f) != 0
      || ferror (f) || !feof (f))
    {
      printf ("after fread error %d eof %d\n",
	      ferror (f), feof (f));
      result = 1;
    }

  printf ("ftell %ld\n", ftell (f));

  if (fseek (f, 0, SEEK_SET) != 0)
    {
      perror ("fseek rewind");
      result = 1;
    }

  cc = fread (buffer, 1, sizeof (buffer), f);
  printf ("fread after rewind %zu: \"%.*s\"\n", cc, (int) cc, buffer);
  if (cc != sizeof text1 - 1)
    {
      perror ("fread after rewind");
      result = 1;
    }

  fclose (f);
  return result;
}