/*
 *  COPYRIGHT (c) 1989-2011.
 *  On-Line Applications Research Corporation (OAR).
 *
 *  The license and distribution terms for this file may be
 *  found in the file LICENSE in this distribution or at
 *  http://www.rtems.com/license/LICENSE.
 *
 *  $Id Exp $
 */

#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>
#include "fstest.h"

void time_test01 (void)
{
  struct stat statbuf;
  struct utimbuf timbuf;
  int status = 0;
  int fd;
  time_t ctime1, mtime1;
  time_t ctime2, mtime2;
  char *readbuf;
  char *databuf = "TEST";
  char *file01 = "test01";
  char *file02 = "test02";
  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);

  /*
   * Create two files
   */
  fd = open (file01, O_CREAT | O_WRONLY, mode);
  n = write (fd, databuf, len);
  rtems_test_assert (n == len);
  status = close (fd);
  rtems_test_assert (status == 0);

  fd = open (file02, O_CREAT | O_WRONLY, mode);
  n = write (fd, databuf, len);
  rtems_test_assert (n == len);
  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, &statbuf);
  rtems_test_assert (status == 0);
  ctime1 = statbuf.st_ctime;
  mtime1 = statbuf.st_mtime;

  status = stat (".", &statbuf);
  rtems_test_assert (status == 0);
  ctime2 = statbuf.st_ctime;
  mtime2 = statbuf.st_mtime;

  /*
   * Make sure they are the same 
   */

  rtems_test_assert (TIME_EQUAL (ctime1, mtime1));
  rtems_test_assert (TIME_EQUAL (ctime1, mtime2));
  rtems_test_assert (TIME_EQUAL (ctime1, ctime2));

  status = stat (file02, &statbuf);
  rtems_test_assert (status == 0);
  ctime1 = statbuf.st_ctime;
  mtime1 = statbuf.st_mtime;

  status = stat (".", &statbuf);
  rtems_test_assert (status == 0);
  ctime2 = statbuf.st_ctime;
  mtime2 = statbuf.st_mtime;

  /*
   * Make sure they are the same 
   */
  rtems_test_assert (TIME_EQUAL (ctime1, mtime1));
  rtems_test_assert (TIME_EQUAL (ctime1, mtime2));
  rtems_test_assert (TIME_EQUAL (ctime1, ctime2));

  /*
   * Sleep a few seconds
   */
  puts ("Sleep a few seconds");

  sleep (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 shall not modify the file offset for any open file
   *   descriptions associated with the file. Upon successful completion,
   *   if the file size is changed, this function shall mark for update
   *   the st_ctime and st_mtime fields of the file 
   */

  /*
   * file01 shall not update 
   */
  status = stat (file01, &statbuf);
  rtems_test_assert (status == 0);
  ctime2 = statbuf.st_ctime;
  mtime2 = statbuf.st_mtime;

  rtems_test_assert (TIME_EQUAL (ctime1, mtime2));
  rtems_test_assert (TIME_EQUAL (ctime1, ctime2));

  /*
   * file02 shall update
   */
  status = stat (file02, &statbuf);
  rtems_test_assert (status == 0);
  ctime2 = statbuf.st_ctime;
  mtime2 = statbuf.st_mtime;

  rtems_test_assert (TIME_EQUAL (ctime2, mtime2));
  rtems_test_assert (!TIME_EQUAL (ctime1, mtime2));
  rtems_test_assert (!TIME_EQUAL (ctime1, ctime2));

  /*
   *  Upon successful completion, mkdir() shall mark for update the 
   *  5st_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, &statbuf);
  rtems_test_assert (status == 0);
  ctime2 = statbuf.st_ctime;
  mtime2 = statbuf.st_mtime;
  rtems_test_assert (TIME_EQUAL (ctime2, mtime2));
  rtems_test_assert (!TIME_EQUAL (ctime1, mtime2));
  rtems_test_assert (!TIME_EQUAL (ctime1, ctime2));

  status = stat (".", &statbuf);
  rtems_test_assert (status == 0);
  ctime2 = statbuf.st_ctime;
  mtime2 = statbuf.st_mtime;

  rtems_test_assert (!TIME_EQUAL (ctime1, ctime2));
  rtems_test_assert (!TIME_EQUAL (ctime1, mtime2));

  /*
   * 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
   */
  readbuf = (char *) malloc (len + 1);
  fd = open (file01, O_RDONLY);
  rtems_test_assert (fd != -1);
  n = read (fd, readbuf, len);
  rtems_test_assert (n == len);
  status = fstat (fd, &statbuf);

  ctime2 = statbuf.st_ctime;
  mtime2 = statbuf.st_mtime;

  rtems_test_assert (TIME_EQUAL (ctime1, ctime2));
  rtems_test_assert (TIME_EQUAL (ctime1, mtime2));

  status = close (fd);
  rtems_test_assert (status == 0);
  /*
   * write file01, and this should uptate st_mtime st_ctime
   */
  readbuf = (char *) malloc (len + 1);
  fd = open (file01, O_WRONLY);
  rtems_test_assert (fd != -1);
  n = write (fd, databuf, len);
  rtems_test_assert (n == len);
  status = fstat (fd, &statbuf);

  ctime2 = statbuf.st_ctime;
  mtime2 = statbuf.st_mtime;

  rtems_test_assert (!TIME_EQUAL (ctime1, ctime2));
  rtems_test_assert (!TIME_EQUAL (ctime1, mtime2));
  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 = ctime1;
  timbuf.modtime = mtime1;

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

  status = stat (file01, &statbuf);
  ctime2 = statbuf.st_atime;
  mtime2 = statbuf.st_mtime;

  rtems_test_assert (TIME_EQUAL (ctime1, ctime2));
  rtems_test_assert (TIME_EQUAL (ctime1, mtime2));

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

  status = stat (dir01, &statbuf);
  ctime2 = statbuf.st_atime;
  mtime2 = statbuf.st_mtime;

  rtems_test_assert (TIME_EQUAL (ctime1, ctime2));
  rtems_test_assert (TIME_EQUAL (ctime1, mtime2));

}

/*
 * These tests only get time_t value, and test 
 * if they are changed. Thest tests don't check atime
 */
void test (void)
{

  puts( "\n\n*** TIME TEST ***" );
  time_test01();
  puts( "*** END OF TIME TEST ***" );
}