mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-15 07:40:23 +08:00
89fbe00dec
* commit '54957d37f5aa73912763dbb6e308555e863c43f4': Commit copyright header change for src/H5PLpkg.c which was added after running script to make changes. Add new files in release_docs to MANIFEST. Cimmit changes to Makefile.in(s) and H5PL.c that resulted from running autogen.sh. Merge pull request #407 in HDFFV/hdf5 from ~LRKNOX/hdf5_lrk:hdf5_1_10_1 to hdf5_1_10_1 Change copyright headers to replace url referring to file to be removed and replace it with new url for COPYING file.
239 lines
7.4 KiB
C
239 lines
7.4 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||
* Copyright by The HDF Group. *
|
||
* Copyright by the Board of Trustees of the University of Illinois. *
|
||
* All rights reserved. *
|
||
* *
|
||
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
||
* terms governing use, modification, and redistribution, is contained in *
|
||
* the COPYING file, which can be found at the root of the source code *
|
||
* distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. *
|
||
* If you do not have access to either file, you may request a copy from *
|
||
* help@hdfgroup.org. *
|
||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
||
|
||
/***********************************************************
|
||
*
|
||
* Test program: ttime
|
||
*
|
||
* Test the Time Datatype functionality
|
||
*
|
||
*************************************************************/
|
||
|
||
#include "testhdf5.h"
|
||
|
||
#include "hdf5.h"
|
||
|
||
#define DATAFILE "ttime.h5"
|
||
#ifdef NOT_YET
|
||
#define DATASETNAME "Dataset"
|
||
#endif /* NOT_YET */
|
||
|
||
/****************************************************************
|
||
**
|
||
** test_time_commit(): Test committing time datatypes to a file
|
||
**
|
||
****************************************************************/
|
||
static void
|
||
test_time_commit(void)
|
||
{
|
||
hid_t file_id, tid; /* identifiers */
|
||
herr_t status;
|
||
|
||
/* Output message about test being performed */
|
||
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);
|
||
CHECK(file_id, FAIL, "H5Fcreate");
|
||
|
||
tid = H5Tcopy (H5T_UNIX_D32LE);
|
||
CHECK(tid, FAIL, "H5Tcopy");
|
||
status = H5Tcommit2(file_id, "Committed D32LE type", tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
|
||
CHECK(status, FAIL, "H5Tcommit2");
|
||
status = H5Tclose (tid);
|
||
CHECK(status, FAIL, "H5Tclose");
|
||
|
||
tid = H5Tcopy (H5T_UNIX_D32BE);
|
||
CHECK(tid, FAIL, "H5Tcopy");
|
||
status = H5Tcommit2(file_id, "Committed D32BE type", tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
|
||
CHECK(status, FAIL, "H5Tcommit2");
|
||
status = H5Tclose (tid);
|
||
CHECK(status, FAIL, "H5Tclose");
|
||
|
||
tid = H5Tcopy (H5T_UNIX_D64LE);
|
||
CHECK(tid, FAIL, "H5Tcopy");
|
||
status = H5Tcommit2(file_id, "Committed D64LE type", tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
|
||
CHECK(status, FAIL, "H5Tcommit2");
|
||
status = H5Tclose (tid);
|
||
CHECK(status, FAIL, "H5Tclose");
|
||
|
||
tid = H5Tcopy (H5T_UNIX_D64BE);
|
||
CHECK(tid, FAIL, "H5Tcopy");
|
||
status = H5Tcommit2(file_id, "Committed D64BE type", tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
|
||
CHECK(status, FAIL, "H5Tcommit2");
|
||
status = H5Tclose (tid);
|
||
CHECK(status, FAIL, "H5Tclose");
|
||
|
||
/* Close the file. */
|
||
status = H5Fclose(file_id);
|
||
CHECK(status, FAIL, "H5Fclose");
|
||
|
||
file_id = H5Fopen(DATAFILE, H5F_ACC_RDWR, H5P_DEFAULT);
|
||
CHECK(file_id, FAIL, "H5Fopen");
|
||
|
||
tid = H5Topen2(file_id, "Committed D32LE type", H5P_DEFAULT);
|
||
CHECK(tid, FAIL, "H5Topen2");
|
||
|
||
if(!H5Tequal(tid, H5T_UNIX_D32LE))
|
||
TestErrPrintf("H5T_UNIX_D32LE datatype not found\n");
|
||
|
||
status = H5Tclose (tid);
|
||
CHECK(status, FAIL, "H5Tclose");
|
||
|
||
tid = H5Topen2(file_id, "Committed D32BE type", H5P_DEFAULT);
|
||
CHECK(tid, FAIL, "H5Topen2");
|
||
|
||
if(!H5Tequal(tid, H5T_UNIX_D32BE))
|
||
TestErrPrintf("H5T_UNIX_D32BE datatype not found\n");
|
||
|
||
status = H5Tclose (tid);
|
||
CHECK(status, FAIL, "H5Tclose");
|
||
|
||
tid = H5Topen2(file_id, "Committed D64LE type", H5P_DEFAULT);
|
||
CHECK(tid, FAIL, "H5Topen2");
|
||
|
||
if(!H5Tequal(tid, H5T_UNIX_D64LE))
|
||
TestErrPrintf("H5T_UNIX_D64LE datatype not found");
|
||
|
||
status = H5Tclose (tid);
|
||
CHECK(status, FAIL, "H5Tclose");
|
||
|
||
tid = H5Topen2(file_id, "Committed D64BE type", H5P_DEFAULT);
|
||
CHECK(tid, FAIL, "H5Topen2");
|
||
|
||
if(!H5Tequal(tid, H5T_UNIX_D64BE))
|
||
TestErrPrintf("H5T_UNIX_D64BE datatype not found");
|
||
|
||
status = H5Tclose (tid);
|
||
CHECK(status, FAIL, "H5Tclose");
|
||
|
||
status = H5Fclose(file_id);
|
||
CHECK(status, FAIL, "H5Fclose");
|
||
|
||
}
|
||
|
||
#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 = H5Dcreate2(fid, DATASETNAME, H5T_UNIX_D32LE, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
|
||
CHECK(dsid, FAIL, "H5Dcreate2");
|
||
|
||
/* 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 = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT);
|
||
CHECK(dsid, FAIL, "H5Dopen2");
|
||
|
||
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() */
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: cleanup_time
|
||
*
|
||
* Purpose: Cleanup temporary test files
|
||
*
|
||
* Return: none
|
||
*
|
||
* Programmer: Quincey Koziol
|
||
* October 19, 2000
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
void
|
||
cleanup_time(void)
|
||
{
|
||
remove(DATAFILE);
|
||
}
|
||
|