/* Test for fchmodat function.  */

#include <dirent.h>

#include <fcntl.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include <sys/stat.h>

static void prepare (void);

#define PREPARE(argc, argv) prepare ()

static int do_test (void);

#define TEST_FUNCTION do_test ()

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

static int dir_fd;

static void

prepare (void)

{

  size_t test_dir_len = strlen (test_dir);

  static const char dir_name[] = "/tst-fchmodat.XXXXXX";

  size_t dirbuflen = test_dir_len + sizeof (dir_name);

  char *dirbuf = malloc (dirbuflen);

  if (dirbuf == NULL)

    {

      puts ("out of memory");

      exit (1);

    }

  snprintf (dirbuf, dirbuflen, "%s%s", test_dir, dir_name);

  if (mkdtemp (dirbuf) == NULL)

    {

      puts ("cannot create temporary directory");

      exit (1);

    }

  add_temp_file (dirbuf);

  dir_fd = open (dirbuf, O_RDONLY | O_DIRECTORY);

  if (dir_fd == -1)

    {

      puts ("cannot open directory");

      exit (1);

    }

}

static int

do_test (void)

{

  /* fdopendir takes over the descriptor, make a copy.  */

  int dupfd = dup (dir_fd);

  if (dupfd == -1)

    {

      puts ("dup failed");

      return 1;

    }

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

    {

      puts ("1st lseek failed");

      return 1;

    }

  /* The directory should be empty save the . and .. files.  */

  DIR *dir = fdopendir (dupfd);

  if (dir == NULL)

    {

      puts ("fdopendir failed");

      return 1;

    }

  struct dirent64 *d;

  while ((d = readdir64 (dir)) != NULL)

    if (strcmp (d->d_name, ".") != 0 && strcmp (d->d_name, "..") != 0)

      {

	printf ("temp directory contains file \"%s\"\n", d->d_name);

	return 1;

      }

  closedir (dir);

  umask (022);

  /* Try to create a file.  */

  int fd = openat (dir_fd, "some-file", O_CREAT|O_RDWR|O_EXCL, 0666);

  if (fd == -1)

    {

      if (errno == ENOSYS)

	{

	  puts ("*at functions not supported");

	  return 0;

	}

      puts ("file creation failed");

      return 1;

    }

  write (fd, "hello", 5);

  puts ("file created");

  struct stat64 st1;

  if (fstat64 (fd, &st1) != 0)

    {

      puts ("fstat64 failed");

      return 1;

    }

  /* Before closing the file, try using this file descriptor to open

     another file.  This must fail.  */

  if (fchmodat (fd, "some-file", 0400, 0) != -1)

    {

      puts ("fchmodat using descriptor for normal file worked");

      return 1;

    }

  if (errno != ENOTDIR)

    {

      puts ("\

error for fchmodat using descriptor for normal file not ENOTDIR ");

      return 1;

    }

  close (fd);

  if ((st1.st_mode & 0777) != 0644)

    {

      printf ("openat created mode %04o, not 0644\n", (st1.st_mode & 0777));

      return 1;

    }

  if (fchmodat (dir_fd, "some-file", 0400, 0) != 0)

    {

      puts ("fchownat failed");

      return 1;

    }

  struct stat64 st2;

  if (fstatat64 (dir_fd, "some-file", &st2, 0) != 0)

    {

      puts ("fstatat64 failed");

      return 1;

    }

  if ((st2.st_mode & 0777) != 0400)

    {

      puts ("mode change failed");

      return 1;

    }

  if (unlinkat (dir_fd, "some-file", 0) != 0)

    {

      puts ("unlinkat failed");

      return 1;

    }

  /* Create a file descriptor which is closed again right away.  */

  int dir_fd2 = dup (dir_fd);

  if (dir_fd2 == -1)

    {

      puts ("dup failed");

      return 1;

    }

  close (dir_fd2);

  if (fchmodat (dir_fd2, "some-file", 0400, 0) != -1)

    {

      puts ("fchmodat using closed descriptor worked");

      return 1;

    }

  if (errno != EBADF)

    {

      puts ("error for fchmodat using closed descriptor not EBADF ");

      return 1;

    }

  close (dir_fd);

  if (fchmodat (-1, "some-file", 0400, 0) != -1)

    {

      puts ("fchmodat using invalid descriptor worked");

      return 1;

    }

  if (errno != EBADF)

    {

      puts ("error for fchmodat using invalid descriptor not EBADF ");

      return 1;

    }

  return 0;

}