/* SPDX-License-Identifier: BSD-2-Clause */

/*
 *  COPYRIGHT (c) 1989-2011.
 *  On-Line Applications Research Corporation (OAR).
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <sys/stat.h>
#include <limits.h>
#include <fcntl.h>
#include <errno.h>
#include <stdio.h>
#include <stdint.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <utime.h>

#ifdef __rtems__
#include "fstest.h"
#include "fs_config.h"
#include <tmacros.h>

const char rtems_test_name[] = "FSTIME " FILESYSTEM;
#else
#include <assert.h>
#define rtems_test_assert(x) assert(x)
#define TIME_PRECISION  (2)
#define TIME_EQUAL(x,y) (abs((x)-(y))<TIME_PRECISION)
#endif

static int do_create(const char *path, int oflag, mode_t mode)
{
  int fd = open (path, O_CREAT | oflag, mode);
  rtems_test_assert (fd >= 0);

  return fd;
}

static int do_open(const char *path, int oflag)
{
  int fd = open (path, O_CREAT | oflag);
  rtems_test_assert (fd >= 0);

  return fd;
}

static void time_test01 (void)
{
  struct stat st;
  struct utimbuf timbuf;
  int status;
  int fd;
  time_t creation_time;
  time_t truncation_time;
  time_t dir01_creation_time;
  char databuf[] = "TEST";
  char readbuf[sizeof(databuf)];
  const char *file01 = "test01";
  const char *file02 = "test02";
  const char *file03 = "test03";
  const char *dir01 = "dir01";

  int n;
  int len = strlen (databuf);

  const char *wd = __func__;
  mode_t mode = S_IRWXU | S_IRWXG | S_IRWXO;
  /*
   * Create a new directory and change to this
   */
  status = mkdir (wd, mode);
  rtems_test_assert (status == 0);
  status = chdir (wd);
  rtems_test_assert (status == 0);

  /*
   * Sleep a few seconds
   */
  puts ("Sleep a few seconds");
  sleep (3 * TIME_PRECISION);

  /*
   * Create the test files
   */
  fd = do_create (file01, O_WRONLY, mode);
  n = write (fd, databuf, len);
  rtems_test_assert (n == len);
  status = close (fd);
  rtems_test_assert (status == 0);

  fd = do_create (file02, O_WRONLY, mode);
  n = write (fd, databuf, len);
  rtems_test_assert (n == len);
  status = close (fd);
  rtems_test_assert (status == 0);

  /* A simple C version of touch */
  fd = do_create (file03, O_WRONLY, mode);
  status = close (fd);
  rtems_test_assert (status == 0);

  /*
   * If O_CREAT is set and the file did not previously exist, upon
   * successful completion, open() shall mark for update the st_atime,
   * st_ctime, and st_mtime fields of the file and the st_ctime and
   * st_mtime fields of the parent directory.
   */
  status = stat (file01, &st);
  rtems_test_assert (status == 0);

  /*
   * Make sure they are the same
   */
  rtems_test_assert (st.st_ctime == st.st_mtime);

  creation_time = st.st_ctime;

  status = stat (".", &st);
  rtems_test_assert (status == 0);

  /*
   * Make sure they are the same
   */
  rtems_test_assert (st.st_ctime == st.st_mtime);
  rtems_test_assert (TIME_EQUAL (creation_time, st.st_mtime));
  rtems_test_assert (TIME_EQUAL (creation_time, st.st_ctime));

  status = stat (file02, &st);
  rtems_test_assert (status == 0);

  /*
   * Make sure they are the same
   */
  rtems_test_assert (st.st_ctime == st.st_mtime);
  rtems_test_assert (TIME_EQUAL (creation_time, st.st_mtime));
  rtems_test_assert (TIME_EQUAL (creation_time, st.st_ctime));

  status = stat (file03, &st);
  rtems_test_assert (status == 0);

  /*
   * Make sure they are the same
   */
  rtems_test_assert (st.st_ctime == st.st_mtime);
  rtems_test_assert (TIME_EQUAL (creation_time, st.st_mtime));
  rtems_test_assert (TIME_EQUAL (creation_time, st.st_ctime));

  /*
   * Sleep a few seconds
   */
  puts ("Sleep a few seconds");
  sleep (3 * TIME_PRECISION);

  /*
   * Create an empty directory
   */
  status = mkdir (dir01, mode);
  rtems_test_assert (status == 0);

  /*
   * truncate file01 to len, so it does not changes the file size
   */
  status = truncate (file01, len);
  rtems_test_assert (status == 0);

  /*
   *truncate file02 to len+1, it changes the file size
   */
  status = truncate (file02, len + 1);
  rtems_test_assert (status == 0);

  /*
   * Truncate an empty file which does not change the length.
   */
  fd = do_open (file03, O_TRUNC | O_WRONLY);
  status = close (fd);
  rtems_test_assert (status == 0);

  /*
   * ftruncate() and open() with O_TRUNC shall upon successful completion mark
   * for update the st_ctime and st_mtime fields of the file.
   *
   * truncate() shall upon successful completion, if the file size is changed,
   * mark for update the st_ctime and st_mtime fields of the file.
   *
   * The POSIX standard "The Open Group Base Specifications Issue 7", IEEE Std
   * 1003.1, 2013 Edition says nothing about the behaviour of truncate() if the
   * file size remains unchanged.
   *
   * Future directions of the standard may mandate the behaviour specified in
   * ftruncate():
   *
   * http://austingroupbugs.net/view.php?id=489
   */

  /*
   * file01 is currently unspecified
   */
  status = stat (file01, &st);
  rtems_test_assert (status == 0);

  rtems_test_assert (st.st_ctime == st.st_mtime);
  if (TIME_EQUAL (creation_time, st.st_ctime)) {
    puts ("WARNING: truncate() behaviour may violate future POSIX standard");
  }

  truncation_time = st.st_ctime;

  /*
   * file02 shall update
   */
  status = stat (file02, &st);
  rtems_test_assert (status == 0);

  rtems_test_assert (st.st_ctime == st.st_mtime);
  rtems_test_assert (!TIME_EQUAL (creation_time, st.st_ctime));

  /*
   * file03 shall update
   */
  status = stat (file03, &st);
  rtems_test_assert (status == 0);

  rtems_test_assert (st.st_ctime == st.st_mtime);
  rtems_test_assert (!TIME_EQUAL (creation_time, st.st_ctime));

  /*
   *  Upon successful completion, mkdir() shall mark for update the
   *  st_atime, st_ctime, and st_mtime fields of the directory.
   *  Also, the st_ctime and st_mtime fields of the directory that
   *  contains the new entry shall be marked for update.
   */
  status = stat (dir01, &st);
  rtems_test_assert (status == 0);

  rtems_test_assert (st.st_ctime == st.st_mtime);

  dir01_creation_time = st.st_ctime;

  status = stat (".", &st);
  rtems_test_assert (status == 0);

  rtems_test_assert (st.st_ctime == st.st_mtime);
  rtems_test_assert (TIME_EQUAL (dir01_creation_time, st.st_mtime));

  /*
   * Sleep a few seconds
   */
  puts ("Sleep a few seconds");
  sleep (3 * TIME_PRECISION);

  /*
   * Upon successful completion, where nbyte is greater than 0,
   * write() shall mark for update the st_ctime and st_mtime fields of the file
   */

  /*
   * read file01, and this should not uptate st_mtime and st_ctime
   */
  fd = do_open (file01, O_RDONLY);
  n = read (fd, readbuf, len);
  rtems_test_assert (n == len);
  status = fstat (fd, &st);
  rtems_test_assert (status == 0);

  rtems_test_assert (st.st_ctime == st.st_mtime);
  rtems_test_assert (TIME_EQUAL (truncation_time, st.st_mtime));

  status = close (fd);
  rtems_test_assert (status == 0);
  /*
   * write file01, and this should uptate st_mtime st_ctime
   */
  fd = do_open (file01, O_WRONLY);
  n = write (fd, databuf, len);
  rtems_test_assert (n == len);
  status = fstat (fd, &st);

  rtems_test_assert (st.st_ctime == st.st_mtime);
  rtems_test_assert (!TIME_EQUAL (truncation_time, st.st_mtime));
  status = close (fd);
  rtems_test_assert (status == 0);

  /*
   * The utime() function shall set the access and modification times
   *  of the file named by the path argument.
   */
  timbuf.actime = creation_time;
  timbuf.modtime = creation_time;

  status = utime (file01, &timbuf);
  rtems_test_assert (status == 0);

  status = stat (file01, &st);
  rtems_test_assert (status == 0);

  rtems_test_assert (st.st_atime == st.st_mtime);
  rtems_test_assert (TIME_EQUAL (creation_time, st.st_atime));
  rtems_test_assert (!TIME_EQUAL (creation_time, st.st_ctime));

  status = utime (dir01, &timbuf);
  rtems_test_assert (status == 0);

  status = stat (dir01, &st);
  rtems_test_assert (status == 0);

  rtems_test_assert (st.st_atime == st.st_mtime);
  rtems_test_assert (TIME_EQUAL (creation_time, st.st_atime));
  rtems_test_assert (!TIME_EQUAL (creation_time, st.st_ctime));
}

/*
 * These tests only get time_t value, and test
 * if they are changed. Thest tests don't check atime
 */
#ifdef __rtems__
void test (void)
#else
int main(int argc, char **argv)
#endif
{

  time_test01();

#ifndef __rtems__
  return 0;
#endif
}