summaryrefslogtreecommitdiffstats
path: root/test/dtypes.c
diff options
context:
space:
mode:
Diffstat (limited to 'test/dtypes.c')
-rw-r--r--test/dtypes.c341
1 files changed, 159 insertions, 182 deletions
diff --git a/test/dtypes.c b/test/dtypes.c
index bd180e0..263ebb7 100644
--- a/test/dtypes.c
+++ b/test/dtypes.c
@@ -5,7 +5,7 @@
* Programmer: Robb Matzke <matzke@llnl.gov>
* Tuesday, December 9, 1997
*
- * Purpose: Tests the data type interface (H5T)
+ * Purpose: Tests the data type interface (H5T)
*/
#include <hdf5.h>
#include <stdio.h>
@@ -13,29 +13,27 @@
#include <H5Tprivate.h>
-
#ifndef HAVE_FUNCTION
#define __FUNCTION__ ""
#endif
-#define AT() printf (" at %s:%d in %s()...\n", \
- __FILE__, __LINE__, __FUNCTION__);
+#define AT() printf (" at %s:%d in %s()...\n", \
+ __FILE__, __LINE__, __FUNCTION__);
typedef struct complex_t {
- double re;
- double im;
+ double re;
+ double im;
} complex_t;
-
/*-------------------------------------------------------------------------
- * Function: test_classes
+ * Function: test_classes
*
- * Purpose: Test type classes
+ * Purpose: Test type classes
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Tuesday, December 9, 1997
*
* Modifications:
@@ -43,51 +41,45 @@ typedef struct complex_t {
*-------------------------------------------------------------------------
*/
static herr_t
-test_classes (void)
+test_classes(void)
{
- H5T_class_t type_class;
-
- printf ("%-70s", "Testing H5Tget_class()");
-
- if (H5T_INTEGER!=(type_class=H5Tget_class (H5T_NATIVE_INT))) {
- puts ("*FAILED*");
- if (!isatty (1)) {
- AT ();
- printf (" Invalid type class for H5T_NATIVE_INT\n");
- }
- goto error;
- }
-
- if (H5T_FLOAT!=(type_class=H5Tget_class (H5T_NATIVE_DOUBLE))) {
- puts ("*FAILED*");
- if (!isatty (1)) {
- AT ();
- printf (" Invalid type class for H5T_NATIVE_DOUBLE\n");
- }
- goto error;
- }
-
-
-
- puts (" PASSED");
- return SUCCEED;
-
- error:
- return FAIL;
+ H5T_class_t type_class;
+
+ printf("%-70s", "Testing H5Tget_class()");
+
+ if (H5T_INTEGER != (type_class = H5Tget_class(H5T_NATIVE_INT))) {
+ puts("*FAILED*");
+ if (!isatty(1)) {
+ AT();
+ printf(" Invalid type class for H5T_NATIVE_INT\n");
+ }
+ goto error;
+ }
+ if (H5T_FLOAT != (type_class = H5Tget_class(H5T_NATIVE_DOUBLE))) {
+ puts("*FAILED*");
+ if (!isatty(1)) {
+ AT();
+ printf(" Invalid type class for H5T_NATIVE_DOUBLE\n");
+ }
+ goto error;
+ }
+ puts(" PASSED");
+ return SUCCEED;
+
+ error:
+ return FAIL;
}
-
-
/*-------------------------------------------------------------------------
- * Function: test_copy
+ * Function: test_copy
*
- * Purpose: Are we able to copy a data type?
+ * Purpose: Are we able to copy a data type?
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Tuesday, December 9, 1997
*
* Modifications:
@@ -95,57 +87,53 @@ test_classes (void)
*-------------------------------------------------------------------------
*/
static herr_t
-test_copy (void)
+test_copy(void)
{
- hid_t a_copy;
-
- printf ("%-70s", "Testing H5Tcopy()");
-
- if ((a_copy=H5Tcopy (H5T_NATIVE_SHORT))<0) {
- puts ("*FAILED*");
- if (!isatty (1)) {
- AT ();
- printf (" Cannot copy a builtin type.\n");
- }
- goto error;
- }
-
- if (H5Tclose (a_copy)<0) {
- puts ("*FAILED*");
- if (!isatty (1)) {
- AT ();
- printf (" Cannot close the copied type.\n");
- }
- goto error;
- }
-
- if (H5Tclose (H5T_NATIVE_CHAR)>=0) {
- puts ("*FAILED*");
- if (!isatty (1)) {
- AT ();
- printf (" Was able to free a built-in type.\n");
- }
- goto error;
- }
-
- puts (" PASSED");
- return SUCCEED;
-
- error:
- return FAIL;
+ hid_t a_copy;
+
+ printf("%-70s", "Testing H5Tcopy()");
+
+ if ((a_copy = H5Tcopy(H5T_NATIVE_SHORT)) < 0) {
+ puts("*FAILED*");
+ if (!isatty(1)) {
+ AT();
+ printf(" Cannot copy a builtin type.\n");
+ }
+ goto error;
+ }
+ if (H5Tclose(a_copy) < 0) {
+ puts("*FAILED*");
+ if (!isatty(1)) {
+ AT();
+ printf(" Cannot close the copied type.\n");
+ }
+ goto error;
+ }
+ if (H5Tclose(H5T_NATIVE_CHAR) >= 0) {
+ puts("*FAILED*");
+ if (!isatty(1)) {
+ AT();
+ printf(" Was able to free a built-in type.\n");
+ }
+ goto error;
+ }
+ puts(" PASSED");
+ return SUCCEED;
+
+ error:
+ return FAIL;
}
-
/*-------------------------------------------------------------------------
- * Function: test_compound
+ * Function: test_compound
*
- * Purpose: Tests various things about compound data types.
+ * Purpose: Tests various things about compound data types.
*
- * Return: Success: SUCCEED
+ * Return: Success: SUCCEED
*
- * Failure: FAIL
+ * Failure: FAIL
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Wednesday, January 7, 1998
*
* Modifications:
@@ -153,75 +141,67 @@ test_copy (void)
*-------------------------------------------------------------------------
*/
static herr_t
-test_compound (void)
+test_compound(void)
{
- complex_t tmp;
- hid_t complex_id;
- herr_t status;
-
- printf ("%-70s", "Testing compound data types");
-
- /* Create the empty type */
- complex_id = H5Tcreate (H5T_COMPOUND, sizeof tmp);
- if (complex_id<0) {
- puts ("*FAILED*");
- if (!isatty (1)) {
- AT ();
- printf (" Cannot create empty compound data type.\n");
- }
- goto error;
- }
-
- /* Add a coupld fields */
- status = H5Tinsert (complex_id, "real", HOFFSET (tmp, re),
- H5T_NATIVE_DOUBLE);
- if (status<0) {
- puts ("*FAILED*");
- if (!isatty (1)) {
- AT ();
- printf (" Cannot insert real component.\n");
- }
- goto error;
- }
-
- status = H5Tinsert (complex_id, "imaginary", HOFFSET (tmp, im),
- H5T_NATIVE_DOUBLE);
- if (status<0) {
- puts ("*FAILED*");
- if (!isatty (1)) {
- AT ();
- printf (" Cannot insert imaginary component.\n");
- }
- goto error;
- }
-
- puts (" PASSED");
-
- /* Just for debugging... */
- H5T_debug (H5Aatom_object (complex_id), stdout);
- printf ("\n");
-
-
- return SUCCEED;
-
- error:
- return FAIL;
+ complex_t tmp;
+ hid_t complex_id;
+ herr_t status;
+
+ printf("%-70s", "Testing compound data types");
+
+ /* Create the empty type */
+ complex_id = H5Tcreate(H5T_COMPOUND, sizeof tmp);
+ if (complex_id < 0) {
+ puts("*FAILED*");
+ if (!isatty(1)) {
+ AT();
+ printf(" Cannot create empty compound data type.\n");
+ }
+ goto error;
+ }
+ /* Add a coupld fields */
+ status = H5Tinsert(complex_id, "real", HOFFSET(tmp, re),
+ H5T_NATIVE_DOUBLE);
+ if (status < 0) {
+ puts("*FAILED*");
+ if (!isatty(1)) {
+ AT();
+ printf(" Cannot insert real component.\n");
+ }
+ goto error;
+ }
+ status = H5Tinsert(complex_id, "imaginary", HOFFSET(tmp, im),
+ H5T_NATIVE_DOUBLE);
+ if (status < 0) {
+ puts("*FAILED*");
+ if (!isatty(1)) {
+ AT();
+ printf(" Cannot insert imaginary component.\n");
+ }
+ goto error;
+ }
+ puts(" PASSED");
+
+ /* Just for debugging... */
+ H5T_debug(H5Aatom_object(complex_id), stdout);
+ printf("\n");
+
+ return SUCCEED;
+
+ error:
+ return FAIL;
}
-
-
-
-
/*-------------------------------------------------------------------------
- * Function: main
+ * Function: main
*
- * Purpose: Test the data type interface.
+ * Purpose: Test the data type interface.
*
- * Return: Success:
+ * Return: Success:
*
- * Failure:
+ * Failure:
*
- * Programmer: Robb Matzke
+ * Programmer: Robb Matzke
* Tuesday, December 9, 1997
*
* Modifications:
@@ -229,34 +209,31 @@ test_compound (void)
*-------------------------------------------------------------------------
*/
int
-main (void)
+main(void)
{
- herr_t status;
- intn nerrors = 0;
-
- H5init ();
-
- status = test_classes ();
- nerrors += status<0 ? 1 : 0;
-
- status = test_copy ();
- nerrors += status<0 ? 1 : 0;
-
- status = test_compound ();
- nerrors += status<0 ? 1 : 0;
-
-
- if (nerrors) {
- printf ("***** %d DATA TYPE TEST%s FAILED! *****\n",
- nerrors, 1==nerrors?"":"S");
- if (isatty (1)) {
- printf ("(Redirect output to a pager or a file to see debug "
- "output)\n");
- }
- exit (1);
- }
-
- printf ("All data type tests passed.\n");
- exit (0);
+ herr_t status;
+ intn nerrors = 0;
+
+ H5init();
+
+ status = test_classes();
+ nerrors += status < 0 ? 1 : 0;
+
+ status = test_copy();
+ nerrors += status < 0 ? 1 : 0;
+
+ status = test_compound();
+ nerrors += status < 0 ? 1 : 0;
+
+ if (nerrors) {
+ printf("***** %d DATA TYPE TEST%s FAILED! *****\n",
+ nerrors, 1 == nerrors ? "" : "S");
+ if (isatty(1)) {
+ printf("(Redirect output to a pager or a file to see debug "
+ "output)\n");
+ }
+ exit(1);
+ }
+ printf("All data type tests passed.\n");
+ exit(0);
}
-
generated by cgit v0.12 at 2024-07-04 20:42:59 (GMT)