From 1db8cb828e4fb300c37cf836bee435900a726f66 Mon Sep 17 00:00:00 2001
From: Quincey Koziol <koziol@hdfgroup.org>
Date: Tue, 24 Jun 2003 15:06:37 -0500
Subject: [svn-r7095] Purpose:     Code cleanup

Description:
    Include roughed-in, but commented out code for performing I/O on time
datatypes.

Platforms tested:
    FreeBSD 4.8 (sleipnir)
    h5committest
    Cray SV1 (wind)
    Cray T3E (hubble)
    Cray T90 (gypsy)
---
 test/ttime.c | 106 +++++++++++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 100 insertions(+), 6 deletions(-)

diff --git a/test/ttime.c b/test/ttime.c
index 44f0f37..98a0e0f 100644
--- a/test/ttime.c
+++ b/test/ttime.c
@@ -27,20 +27,21 @@
 #include "hdf5.h"
 
 #define DATAFILE   "ttime.h5"
+#define DATASETNAME   "Dataset"
 
 /****************************************************************
 **
-**  test_time(): Main time datatype testing routine.
-** 
+**  test_time_commit(): Test committing time datatypes to a file
+**
 ****************************************************************/
-void 
-test_time(void)
+static void
+test_time_commit(void)
 {
     hid_t       file_id, tid;  /* identifiers */
     herr_t      status;
 
     /* Output message about test being performed */
-    MESSAGE(5, ("Testing Time Datatypes\n"));
+    MESSAGE(5, ("Testing Committing Time Datatypes\n"));
 
     /* Create a new file using default properties. */
     file_id = H5Fcreate(DATAFILE, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -128,7 +129,100 @@ test_time(void)
     status = H5Fclose(file_id);
     CHECK(status, FAIL, "H5Fclose");
  
-}   /* test_reference() */
+}
+
+#ifdef NOT_YET
+/****************************************************************
+**
+**  test_time_io(): Test writing time data to a dataset
+**
+****************************************************************/
+static void
+test_time_io(void)
+{
+    hid_t       fid;            /* File identifier */
+    hid_t       dsid;           /* Dataset identifier */
+    hid_t       tid;            /* Datatype identifier */
+    hid_t       sid;            /* Dataspace identifier */
+    time_t      timenow, timethen;      /* Times */
+    herr_t      status;
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Committing Time Datatypes\n"));
+
+    /* Create a new file using default properties. */
+    fid = H5Fcreate(DATAFILE, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
+    CHECK(fid, FAIL, "H5Fcreate");
+ 
+    /* Create a scalar dataspace */
+    sid = H5Screate(H5S_SCALAR);
+    CHECK(sid, FAIL, "H5Screate");
+
+    /* Create a dataset with a time datatype */
+    dsid = H5Dcreate(fid, DATASETNAME, H5T_UNIX_D32LE, sid, H5P_DEFAULT);
+    CHECK(dsid, FAIL, "H5Dcreate");
+
+    /* Initialize time data value */
+    timenow = HDtime(NULL);
+
+    /* Write time to dataset */
+    status = H5Dwrite (dsid, H5T_UNIX_D32LE, H5S_ALL, H5S_ALL, H5P_DEFAULT, &timenow);
+    CHECK(status, FAIL, "H5Dwrite");
+
+    /* Close objects */
+    status = H5Dclose(dsid);
+    CHECK(status, FAIL, "H5Dclose");
+
+    status = H5Sclose(sid);
+    CHECK(status, FAIL, "H5Sclose");
+
+    status = H5Fclose (fid);
+    CHECK(status, FAIL, "H5Fclose");
+
+    /* Open file and dataset, read time back and print it in calendar format */
+    fid = H5Fopen(DATAFILE, H5F_ACC_RDWR, H5P_DEFAULT);
+    CHECK(fid, FAIL, "H5Fopen");
+
+    dsid = H5Dopen(fid, DATASETNAME);
+    CHECK(dsid, FAIL, "H5Dopen");
+
+tid = H5Dget_type(dsid);
+CHECK(tid, FAIL, "H5Dget_type");
+if( H5Tget_class (tid) == H5T_TIME)
+    fprintf(stderr,"datatype class is H5T_TIME\n");
+status = H5Tclose (tid);
+CHECK(status, FAIL, "H5Tclose");
+
+    status = H5Dread (dsid, H5T_UNIX_D32LE, H5S_ALL, H5S_ALL, H5P_DEFAULT, &timethen);
+    CHECK(status, FAIL, "H5Dread");
+fprintf(stderr,"time written was: %s\n", HDctime(&timethen));
+
+    status = H5Dclose(dsid);
+    CHECK(status, FAIL, "H5Dclose");
+
+    status = H5Fclose(fid);
+    CHECK(status, FAIL, "H5Fclose");
+ 
+}
+#endif /* NOT_YET */
+
+/****************************************************************
+**
+**  test_time(): Main time datatype testing routine.
+** 
+****************************************************************/
+void 
+test_time(void)
+{
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Time Datatypes\n"));
+
+    test_time_commit();         /* Test committing time datatypes to a file */
+#ifdef NOT_YET
+    test_time_io();             /* Test writing time data to a dataset */
+#endif /* NOT_YET */
+ 
+}   /* test_time() */
 
 
 /*-------------------------------------------------------------------------
-- 
cgit v0.12