summaryrefslogtreecommitdiffstats
path: root/test/dsets.c
diff options
context:
space:
mode:
authorAllen Byrne <byrn@hdfgroup.org>2020-10-01 14:04:36 (GMT)
committerAllen Byrne <byrn@hdfgroup.org>2020-10-01 14:04:36 (GMT)
commitf1ba03cea5b82699a984c80bd2deac14fdc8df18 (patch)
treeebe777c3e0b83f4c4cec9212731da9ebe0a0cfd3 /test/dsets.c
parent10343c197906415388f2a4c8d292e21d25cf7381 (diff)
downloadhdf5-f1ba03cea5b82699a984c80bd2deac14fdc8df18.zip
hdf5-f1ba03cea5b82699a984c80bd2deac14fdc8df18.tar.gz
hdf5-f1ba03cea5b82699a984c80bd2deac14fdc8df18.tar.bz2
Source formatted
Diffstat (limited to 'test/dsets.c')
-rw-r--r--test/dsets.c12311
1 files changed, 6784 insertions, 5527 deletions
diff --git a/test/dsets.c b/test/dsets.c
index 4ab3efa..96799f8 100644
--- a/test/dsets.c
+++ b/test/dsets.c
@@ -17,117 +17,115 @@
*
* Purpose: Tests the dataset interface (H5D)
*/
-#define H5D_FRIEND /*suppress error about including H5Dpkg */
+#define H5D_FRIEND /*suppress error about including H5Dpkg */
#define H5D_TESTING
-#define H5FD_FRIEND /*suppress error about including H5FDpkg */
+#define H5FD_FRIEND /*suppress error about including H5FDpkg */
#define H5FD_TESTING
-#define H5Z_FRIEND /*suppress error about including H5Zpkg */
+#define H5Z_FRIEND /*suppress error about including H5Zpkg */
#include "testhdf5.h"
#include "H5srcdir.h"
-#include "H5CXprivate.h" /* API Contexts */
+#include "H5CXprivate.h" /* API Contexts */
#include "H5Iprivate.h"
#include "H5Pprivate.h"
-#define H5F_FRIEND /*suppress error about including H5Fpkg */
+#define H5F_FRIEND /*suppress error about including H5Fpkg */
#define H5F_TESTING
-#include "H5Fpkg.h" /* File access */
+#include "H5Fpkg.h" /* File access */
-#define H5S_FRIEND /*suppress error about including H5Spkg */
-#include "H5Spkg.h" /* Dataspace */
+#define H5S_FRIEND /*suppress error about including H5Spkg */
+#include "H5Spkg.h" /* Dataspace */
-#define H5T_FRIEND /*suppress error about including H5Tpkg */
-#include "H5Tpkg.h" /* Datatype */
+#define H5T_FRIEND /*suppress error about including H5Tpkg */
+#include "H5Tpkg.h" /* Datatype */
-#define H5A_FRIEND /*suppress error about including H5Apkg */
-#include "H5Apkg.h" /* Attributes */
+#define H5A_FRIEND /*suppress error about including H5Apkg */
+#include "H5Apkg.h" /* Attributes */
/* Use in version bound test */
-#define H5O_FRIEND /*suppress error about including H5Opkg */
-#include "H5Opkg.h" /* Object headers */
+#define H5O_FRIEND /*suppress error about including H5Opkg */
+#include "H5Opkg.h" /* Object headers */
#include "H5Dpkg.h"
#include "H5FDpkg.h"
#include "H5VMprivate.h"
#include "H5Zpkg.h"
#ifdef H5_HAVE_SZLIB_H
-# include "szlib.h"
+#include "szlib.h"
#endif
-const char *FILENAME[] = {
- "dataset", /* 0 */
- "compact_dataset", /* 1 */
- "dset_offset", /* 2 */
- "max_compact_dataset", /* 3 */
- "simple", /* 4 */
- "set_local", /* 5 */
- "random_chunks", /* 6 */
- "huge_chunks", /* 7 */
- "chunk_cache", /* 8 */
- "big_chunk", /* 9 */
- "chunk_fast", /* 10 */
- "chunk_expand", /* 11 */
- "chunk_fixed", /* 12 */
- "copy_dcpl_newfile",/* 13 */
- "partial_chunks", /* 14 */
- "layout_extend", /* 15 */
- "zero_chunk", /* 16 */
- "chunk_single", /* 17 */
- "swmr_non_latest", /* 18 */
- "earray_hdr_fd", /* 19 */
- "farray_hdr_fd", /* 20 */
- "bt2_hdr_fd", /* 21 */
- "storage_size", /* 22 */
- "dls_01_strings", /* 23 */
- "power2up", /* 24 */
- "version_bounds", /* 25 */
- "alloc_0sized", /* 26 */
- NULL
-};
+const char *FILENAME[] = {"dataset", /* 0 */
+ "compact_dataset", /* 1 */
+ "dset_offset", /* 2 */
+ "max_compact_dataset", /* 3 */
+ "simple", /* 4 */
+ "set_local", /* 5 */
+ "random_chunks", /* 6 */
+ "huge_chunks", /* 7 */
+ "chunk_cache", /* 8 */
+ "big_chunk", /* 9 */
+ "chunk_fast", /* 10 */
+ "chunk_expand", /* 11 */
+ "chunk_fixed", /* 12 */
+ "copy_dcpl_newfile", /* 13 */
+ "partial_chunks", /* 14 */
+ "layout_extend", /* 15 */
+ "zero_chunk", /* 16 */
+ "chunk_single", /* 17 */
+ "swmr_non_latest", /* 18 */
+ "earray_hdr_fd", /* 19 */
+ "farray_hdr_fd", /* 20 */
+ "bt2_hdr_fd", /* 21 */
+ "storage_size", /* 22 */
+ "dls_01_strings", /* 23 */
+ "power2up", /* 24 */
+ "version_bounds", /* 25 */
+ "alloc_0sized", /* 26 */
+ NULL};
#define OHMIN_FILENAME_A "ohdr_min_a"
-#define FILENAME_BUF_SIZE 1024
-#define KB 1024
+#define FILENAME_BUF_SIZE 1024
+#define KB 1024
-#define FILE_DEFLATE_NAME "deflate.h5"
+#define FILE_DEFLATE_NAME "deflate.h5"
/* Dataset names for testing filters */
-#define DSET_DEFAULT_NAME "default"
-#define DSET_CHUNKED_NAME "chunked"
-#define DSET_COMPACT_NAME "compact"
-#define DSET_SIMPLE_IO_NAME "simple_io"
-#define DSET_USERBLOCK_IO_NAME "userblock_io"
-#define DSET_COMPACT_IO_NAME "compact_io"
-#define DSET_COMPACT_MAX_NAME "max_compact"
-#define DSET_COMPACT_MAX2_NAME "max_compact_2"
-#define DSET_CONV_BUF_NAME "conv_buf"
-#define DSET_TCONV_NAME "tconv"
-#define DSET_DEFLATE_NAME "deflate"
-#define DSET_SHUFFLE_NAME "shuffle"
-#define DSET_FLETCHER32_NAME "fletcher32"
-#define DSET_FLETCHER32_NAME_2 "fletcher32_2"
-#define DSET_FLETCHER32_NAME_3 "fletcher32_3"
-#define DSET_SHUF_DEF_FLET_NAME "shuffle+deflate+fletcher32"
-#define DSET_SHUF_DEF_FLET_NAME_2 "shuffle+deflate+fletcher32_2"
+#define DSET_DEFAULT_NAME "default"
+#define DSET_CHUNKED_NAME "chunked"
+#define DSET_COMPACT_NAME "compact"
+#define DSET_SIMPLE_IO_NAME "simple_io"
+#define DSET_USERBLOCK_IO_NAME "userblock_io"
+#define DSET_COMPACT_IO_NAME "compact_io"
+#define DSET_COMPACT_MAX_NAME "max_compact"
+#define DSET_COMPACT_MAX2_NAME "max_compact_2"
+#define DSET_CONV_BUF_NAME "conv_buf"
+#define DSET_TCONV_NAME "tconv"
+#define DSET_DEFLATE_NAME "deflate"
+#define DSET_SHUFFLE_NAME "shuffle"
+#define DSET_FLETCHER32_NAME "fletcher32"
+#define DSET_FLETCHER32_NAME_2 "fletcher32_2"
+#define DSET_FLETCHER32_NAME_3 "fletcher32_3"
+#define DSET_SHUF_DEF_FLET_NAME "shuffle+deflate+fletcher32"
+#define DSET_SHUF_DEF_FLET_NAME_2 "shuffle+deflate+fletcher32_2"
#ifdef H5_HAVE_FILTER_SZIP
-#define DSET_SZIP_NAME "szip"
-#define DSET_SHUF_SZIP_FLET_NAME "shuffle+szip+fletcher32"
-#define DSET_SHUF_SZIP_FLET_NAME_2 "shuffle+szip+fletcher32_2"
+#define DSET_SZIP_NAME "szip"
+#define DSET_SHUF_SZIP_FLET_NAME "shuffle+szip+fletcher32"
+#define DSET_SHUF_SZIP_FLET_NAME_2 "shuffle+szip+fletcher32_2"
#endif /* H5_HAVE_FILTER_SZIP */
-#define DSET_BOGUS_NAME "bogus"
-#define DSET_MISSING_NAME "missing"
-#define DSET_CAN_APPLY_NAME "can_apply"
-#define DSET_CAN_APPLY_NAME2 "can_apply2"
+#define DSET_BOGUS_NAME "bogus"
+#define DSET_MISSING_NAME "missing"
+#define DSET_CAN_APPLY_NAME "can_apply"
+#define DSET_CAN_APPLY_NAME2 "can_apply2"
#ifdef H5_HAVE_FILTER_SZIP
-#define DSET_CAN_APPLY_SZIP_NAME "can_apply_szip"
+#define DSET_CAN_APPLY_SZIP_NAME "can_apply_szip"
#endif /* H5_HAVE_FILTER_SZIP */
-#define DSET_SET_LOCAL_NAME "set_local"
-#define DSET_SET_LOCAL_NAME_2 "set_local_2"
-#define DSET_ONEBYTE_SHUF_NAME "onebyte_shuffle"
+#define DSET_SET_LOCAL_NAME "set_local"
+#define DSET_SET_LOCAL_NAME_2 "set_local_2"
+#define DSET_ONEBYTE_SHUF_NAME "onebyte_shuffle"
#define DSET_NBIT_INT_NAME "nbit_int"
#define DSET_NBIT_FLOAT_NAME "nbit_float"
#define DSET_NBIT_DOUBLE_NAME "nbit_double"
@@ -149,74 +147,74 @@ const char *FILENAME[] = {
#define DSET_COPY_DCPL_NAME_2 "copy_dcpl_2"
#define COPY_DCPL_EXTFILE_NAME "ext_file"
#ifndef H5_NO_DEPRECATED_SYMBOLS
-#define DSET_DEPREC_NAME "deprecated"
-#define DSET_DEPREC_NAME_CHUNKED "deprecated_chunked"
-#define DSET_DEPREC_NAME_COMPACT "deprecated_compact"
-#define DSET_DEPREC_NAME_FILTER "deprecated_filter"
+#define DSET_DEPREC_NAME "deprecated"
+#define DSET_DEPREC_NAME_CHUNKED "deprecated_chunked"
+#define DSET_DEPREC_NAME_COMPACT "deprecated_compact"
+#define DSET_DEPREC_NAME_FILTER "deprecated_filter"
#endif /* H5_NO_DEPRECATED_SYMBOLS */
/* Dataset names for testing Fixed Array Indexing */
-#define DSET_FIXED_MAX "DSET_FIXED_MAX"
-#define DSET_FIXED_NOMAX "DSET_FIXED_NOMAX"
-#define DSET_FIXED_BIG "DSET_FIXED_BIG"
-#define POINTS 72
-#define POINTS_BIG 2500
+#define DSET_FIXED_MAX "DSET_FIXED_MAX"
+#define DSET_FIXED_NOMAX "DSET_FIXED_NOMAX"
+#define DSET_FIXED_BIG "DSET_FIXED_BIG"
+#define POINTS 72
+#define POINTS_BIG 2500
/* Dataset names used for testing header flush dependencies */
-#define DSET_EARRAY_HDR_FD "earray_hdr_fd"
-#define DSET_FARRAY_HDR_FD "farray_hdr_fd"
-#define DSET_BT2_HDR_FD "bt2_hdr_fd"
+#define DSET_EARRAY_HDR_FD "earray_hdr_fd"
+#define DSET_FARRAY_HDR_FD "farray_hdr_fd"
+#define DSET_BT2_HDR_FD "bt2_hdr_fd"
/* Dataset names for testing Implicit Indexing */
-#define DSET_SINGLE_MAX "DSET_SINGLE_MAX"
-#define DSET_SINGLE_NOMAX "DSET_SINGLE_NOMAX"
+#define DSET_SINGLE_MAX "DSET_SINGLE_MAX"
+#define DSET_SINGLE_NOMAX "DSET_SINGLE_NOMAX"
-#define USER_BLOCK 1024
-#define SIXTY_FOUR_KB 65536
+#define USER_BLOCK 1024
+#define SIXTY_FOUR_KB 65536
/* Temporary filter IDs used for testing */
-#define H5Z_FILTER_BOGUS 305
-#define H5Z_FILTER_CORRUPT 306
-#define H5Z_FILTER_CAN_APPLY_TEST 307
-#define H5Z_FILTER_SET_LOCAL_TEST 308
+#define H5Z_FILTER_BOGUS 305
+#define H5Z_FILTER_CORRUPT 306
+#define H5Z_FILTER_CAN_APPLY_TEST 307
+#define H5Z_FILTER_SET_LOCAL_TEST 308
#ifndef H5_NO_DEPRECATED_SYMBOLS
-#define H5Z_FILTER_DEPREC 309
+#define H5Z_FILTER_DEPREC 309
#endif /* H5_NO_DEPRECATED_SYMBOLS */
-#define H5Z_FILTER_EXPAND 310
-#define H5Z_FILTER_CAN_APPLY_TEST2 311
-#define H5Z_FILTER_COUNT 312
+#define H5Z_FILTER_EXPAND 310
+#define H5Z_FILTER_CAN_APPLY_TEST2 311
+#define H5Z_FILTER_COUNT 312
/* Flags for testing filters */
-#define DISABLE_FLETCHER32 0
-#define ENABLE_FLETCHER32 1
-#define DATA_CORRUPTED 1
-#define DATA_NOT_CORRUPTED 0
+#define DISABLE_FLETCHER32 0
+#define ENABLE_FLETCHER32 1
+#define DATA_CORRUPTED 1
+#define DATA_NOT_CORRUPTED 0
/* Parameters for the "set local" test */
-#define BOGUS2_PERM_NPARMS 2 /* Number of "permanent" parameters */
-#define BOGUS2_PARAM_1 13 /* (No particular meaning, just for checking value) */
-#define BOGUS2_PARAM_2 35 /* (No particular meaning, just for checking value) */
-#define BOGUS2_ALL_NPARMS 4 /* Total number of parameter = permanent + "local" parameters */
+#define BOGUS2_PERM_NPARMS 2 /* Number of "permanent" parameters */
+#define BOGUS2_PARAM_1 13 /* (No particular meaning, just for checking value) */
+#define BOGUS2_PARAM_2 35 /* (No particular meaning, just for checking value) */
+#define BOGUS2_ALL_NPARMS 4 /* Total number of parameter = permanent + "local" parameters */
/* Dimensionality for conversion buffer test */
-#define DIM1 100 /* Dim. Size of data member # 1 */
-#define DIM2 5000 /* Dim. Size of data member # 2 */
-#define DIM3 10 /* Dim. Size of data member # 3 */
+#define DIM1 100 /* Dim. Size of data member # 1 */
+#define DIM2 5000 /* Dim. Size of data member # 2 */
+#define DIM3 10 /* Dim. Size of data member # 3 */
/* Parameters for internal filter test */
-#define FILTER_CHUNK_DIM1 2
-#define FILTER_CHUNK_DIM2 25
-#define FILTER_HS_OFFSET1 7
-#define FILTER_HS_OFFSET2 30
-#define FILTER_HS_SIZE1 4
-#define FILTER_HS_SIZE2 50
+#define FILTER_CHUNK_DIM1 2
+#define FILTER_CHUNK_DIM2 25
+#define FILTER_HS_OFFSET1 7
+#define FILTER_HS_OFFSET2 30
+#define FILTER_HS_SIZE1 4
+#define FILTER_HS_SIZE2 50
/* Names for noencoder test */
#ifdef H5_HAVE_FILTER_SZIP
-#define NOENCODER_FILENAME "noencoder.h5"
-#define NOENCODER_COPY_FILENAME "noencoder.h5.copy"
-#define NOENCODER_TEST_DATASET "noencoder_tdset.h5"
-#define NOENCODER_SZIP_DATASET "noencoder_szip_dset.h5"
+#define NOENCODER_FILENAME "noencoder.h5"
+#define NOENCODER_COPY_FILENAME "noencoder.h5.copy"
+#define NOENCODER_TEST_DATASET "noencoder_tdset.h5"
+#define NOENCODER_SZIP_DATASET "noencoder_szip_dset.h5"
#define NOENCODER_SZIP_SHUFF_FLETCH_DATASET "noencoder_szip_shuffle_fletcher_dset.h5"
#endif /* H5_HAVE_FILTER_SZIP */
@@ -225,46 +223,46 @@ const char *FILENAME[] = {
#define ZERODIM_DATASET2 "zerodim2"
/* Parameters for zero-dim test */
-#define MISSING_CHUNK_DATASET "missing_chunk"
-#define MISSING_CHUNK_DATASET2 "missing_chunk2"
-#define MISSING_CHUNK_DIM 100
+#define MISSING_CHUNK_DATASET "missing_chunk"
+#define MISSING_CHUNK_DATASET2 "missing_chunk2"
+#define MISSING_CHUNK_DIM 100
/* Names for random chunks test */
-#define NPOINTS 50
+#define NPOINTS 50
/* Parameters for huge chunks test */
-#define HUGE_DATASET "Dataset"
-#define HUGE_DIM ((hsize_t)16 * 1024 * 1024 * 1024)
-#define HUGE_CHUNK_DIM ((hsize_t)2 * 1024 * 1024 * 1024)
-#define TOO_HUGE_CHUNK_DIM ((hsize_t)4 * 1024 * 1024 * 1024)
-#define HUGE_DATASET2 "Dataset2"
-#define HUGE_DIM2_0 ((hsize_t)16 * 1024)
-#define HUGE_DIM2_1 ((hsize_t)16 * 1024)
-#define HUGE_DIM2_2 ((hsize_t)16 * 1024)
-#define HUGE_CHUNK_DIM2_0 ((hsize_t)2 * 1024)
-#define HUGE_CHUNK_DIM2_1 ((hsize_t)1024)
-#define HUGE_CHUNK_DIM2_2 ((hsize_t)1024)
-#define TOO_HUGE_CHUNK_DIM2_0 ((hsize_t)4 * 1024)
-#define TOO_HUGE_CHUNK_DIM2_1 ((hsize_t)1024)
-#define TOO_HUGE_CHUNK_DIM2_2 ((hsize_t)1024)
+#define HUGE_DATASET "Dataset"
+#define HUGE_DIM ((hsize_t)16 * 1024 * 1024 * 1024)
+#define HUGE_CHUNK_DIM ((hsize_t)2 * 1024 * 1024 * 1024)
+#define TOO_HUGE_CHUNK_DIM ((hsize_t)4 * 1024 * 1024 * 1024)
+#define HUGE_DATASET2 "Dataset2"
+#define HUGE_DIM2_0 ((hsize_t)16 * 1024)
+#define HUGE_DIM2_1 ((hsize_t)16 * 1024)
+#define HUGE_DIM2_2 ((hsize_t)16 * 1024)
+#define HUGE_CHUNK_DIM2_0 ((hsize_t)2 * 1024)
+#define HUGE_CHUNK_DIM2_1 ((hsize_t)1024)
+#define HUGE_CHUNK_DIM2_2 ((hsize_t)1024)
+#define TOO_HUGE_CHUNK_DIM2_0 ((hsize_t)4 * 1024)
+#define TOO_HUGE_CHUNK_DIM2_1 ((hsize_t)1024)
+#define TOO_HUGE_CHUNK_DIM2_2 ((hsize_t)1024)
/* Parameters for testing bypassing chunk cache */
-#define BYPASS_DATASET1 "Dset1"
-#define BYPASS_DATASET2 "Dset2"
+#define BYPASS_DATASET1 "Dset1"
+#define BYPASS_DATASET2 "Dset2"
-#define T_BYPASS_DATASET1 "T_Dset1"
-#define T_BYPASS_DATASET2 "T_Dset2"
+#define T_BYPASS_DATASET1 "T_Dset1"
+#define T_BYPASS_DATASET2 "T_Dset2"
-#define BYPASS_DIM 1000
-#define BYPASS_CHUNK_DIM 500
-#define BYPASS_FILL_VALUE 7
+#define BYPASS_DIM 1000
+#define BYPASS_CHUNK_DIM 500
+#define BYPASS_FILL_VALUE 7
/* Parameters for testing extensible array chunk indices */
-#define EARRAY_MAX_RANK 3
-#define EARRAY_DSET_DIM 15
-#define EARRAY_CHUNK_DIM 3
-#define EARRAY_EXTEND_INCR 15
-#define EARRAY_MAX_EXTEND 75
+#define EARRAY_MAX_RANK 3
+#define EARRAY_DSET_DIM 15
+#define EARRAY_CHUNK_DIM 3
+#define EARRAY_EXTEND_INCR 15
+#define EARRAY_MAX_EXTEND 75
/* Parameters for datasets in query storage size tests */
#define STORAGE_SIZE_DIM1 12
@@ -275,60 +273,59 @@ const char *FILENAME[] = {
#define STORAGE_SIZE_CHUNK_DIM2 5
/* Shared global arrays */
-#define DSET_DIM1 100
-#define DSET_DIM2 200
-int **points = NULL;
-int *points_data = NULL;
-double **points_dbl = NULL;
-double *points_dbl_data = NULL;
-int **check = NULL;
-int *check_data = NULL;
-double **check_dbl = NULL;
-double *check_dbl_data = NULL;
-size_t count_nbytes_read = 0;
-size_t count_nbytes_written = 0;
+#define DSET_DIM1 100
+#define DSET_DIM2 200
+int ** points = NULL;
+int * points_data = NULL;
+double **points_dbl = NULL;
+double * points_dbl_data = NULL;
+int ** check = NULL;
+int * check_data = NULL;
+double **check_dbl = NULL;
+double * check_dbl_data = NULL;
+size_t count_nbytes_read = 0;
+size_t count_nbytes_written = 0;
/* Temporary buffer dimensions */
-#define DSET_TMP_DIM1 50
-#define DSET_TMP_DIM2 100
+#define DSET_TMP_DIM1 50
+#define DSET_TMP_DIM2 100
/* Declarations for test_idx_compatible() */
-#define DSET "dset"
-#define DSET_FILTER "dset_filter"
-const char *OLD_FILENAME[] = { /* Files created under 1.6 branch and 1.8 branch */
+#define DSET "dset"
+#define DSET_FILTER "dset_filter"
+const char *OLD_FILENAME[] = {
+ /* Files created under 1.6 branch and 1.8 branch */
"btree_idx_1_6.h5", /* 1.6 HDF5 file */
"btree_idx_1_8.h5" /* 1.8 HDF5 file */
};
-
/* Local prototypes for filter functions */
-static size_t filter_bogus(unsigned int flags, size_t cd_nelmts,
- const unsigned int *cd_values, size_t nbytes, size_t *buf_size, void **buf);
+static size_t filter_bogus(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values, size_t nbytes,
+ size_t *buf_size, void **buf);
static htri_t can_apply_bogus(hid_t dcpl_id, hid_t type_id, hid_t space_id);
static herr_t set_local_bogus2(hid_t dcpl_id, hid_t type_id, hid_t space_id);
-static size_t filter_bogus2(unsigned int flags, size_t cd_nelmts,
- const unsigned int *cd_values, size_t nbytes, size_t *buf_size, void **buf);
-static size_t filter_bogus3(unsigned int flags, size_t cd_nelmts,
- const unsigned int *cd_values, size_t nbytes, size_t *buf_size, void **buf);
-static size_t filter_corrupt(unsigned int flags, size_t cd_nelmts,
- const unsigned int *cd_values, size_t nbytes, size_t *buf_size, void **buf);
-static size_t filter_expand(unsigned int flags, size_t cd_nelmts,
- const unsigned int *cd_values, size_t nbytes, size_t *buf_size, void **buf);
-static size_t filter_count(unsigned int flags, size_t cd_nelmts,
- const unsigned int *cd_values, size_t nbytes, size_t *buf_size, void **buf);
+static size_t filter_bogus2(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values,
+ size_t nbytes, size_t *buf_size, void **buf);
+static size_t filter_bogus3(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values,
+ size_t nbytes, size_t *buf_size, void **buf);
+static size_t filter_corrupt(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values,
+ size_t nbytes, size_t *buf_size, void **buf);
+static size_t filter_expand(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values,
+ size_t nbytes, size_t *buf_size, void **buf);
+static size_t filter_count(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values, size_t nbytes,
+ size_t *buf_size, void **buf);
/* This message derives from H5Z */
const H5Z_class2_t H5Z_COUNT[1] = {{
- H5Z_CLASS_T_VERS, /* H5Z_class_t version */
- H5Z_FILTER_COUNT, /* Filter id number */
- 1, 1, /* Encoding and decoding enabled */
- "count", /* Filter name for debugging */
- NULL, /* The "can apply" callback */
- NULL, /* The "set local" callback */
- filter_count, /* The actual filter function */
+ H5Z_CLASS_T_VERS, /* H5Z_class_t version */
+ H5Z_FILTER_COUNT, /* Filter id number */
+ 1, 1, /* Encoding and decoding enabled */
+ "count", /* Filter name for debugging */
+ NULL, /* The "can apply" callback */
+ NULL, /* The "set local" callback */
+ filter_count, /* The actual filter function */
}};
-
/*-------------------------------------------------------------------------
* Function: filter_count
*
@@ -342,10 +339,10 @@ const H5Z_class2_t H5Z_COUNT[1] = {{
*/
static size_t
filter_count(unsigned int flags, size_t H5_ATTR_UNUSED cd_nelmts,
- const unsigned int H5_ATTR_UNUSED *cd_values, size_t nbytes,
- size_t H5_ATTR_UNUSED *buf_size, void H5_ATTR_UNUSED **buf)
+ const unsigned int H5_ATTR_UNUSED *cd_values, size_t nbytes, size_t H5_ATTR_UNUSED *buf_size,
+ void H5_ATTR_UNUSED **buf)
{
- if(flags & H5Z_FLAG_REVERSE)
+ if (flags & H5Z_FLAG_REVERSE)
count_nbytes_read += nbytes;
else
count_nbytes_written += nbytes;
@@ -353,7 +350,6 @@ filter_count(unsigned int flags, size_t H5_ATTR_UNUSED cd_nelmts,
return nbytes;
} /* end filter_count() */
-
/*-------------------------------------------------------------------------
* Function: test_create
*
@@ -366,50 +362,55 @@ filter_count(unsigned int flags, size_t H5_ATTR_UNUSED cd_nelmts,
static herr_t
test_create(hid_t file)
{
- hid_t dataset, space, small_space, create_parms;
- hsize_t dims[2], small_dims[2];
- herr_t status;
- hsize_t csize[2];
+ hid_t dataset, space, small_space, create_parms;
+ hsize_t dims[2], small_dims[2];
+ herr_t status;
+ hsize_t csize[2];
TESTING("create, open, close");
/* Create the data space */
dims[0] = 256;
dims[1] = 512;
- space = H5Screate_simple(2, dims, NULL);
- assert(space>=0);
+ space = H5Screate_simple(2, dims, NULL);
+ assert(space >= 0);
/* Create a small data space for compact dataset */
small_dims[0] = 16;
small_dims[1] = 8;
- small_space = H5Screate_simple(2, small_dims, NULL);
- assert(space>=0);
+ small_space = H5Screate_simple(2, small_dims, NULL);
+ assert(space >= 0);
/*
* Create a dataset using the default dataset creation properties. We're
* not sure what they are, so we won't check.
*/
- dataset = H5Dcreate2(file, DSET_DEFAULT_NAME, H5T_NATIVE_DOUBLE, space,
- H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- if(dataset < 0) goto error;
+ dataset =
+ H5Dcreate2(file, DSET_DEFAULT_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
+ if (dataset < 0)
+ goto error;
/* Close the dataset */
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
/* Add a comment to the dataset */
status = H5Oset_comment_by_name(file, DSET_DEFAULT_NAME, "This is a dataset", H5P_DEFAULT);
- if(status < 0) goto error;
+ if (status < 0)
+ goto error;
/*
* Try creating a dataset that already exists. This should fail since a
* dataset can only be created once. Temporarily turn off error
* reporting.
*/
- H5E_BEGIN_TRY {
- dataset = H5Dcreate2(file, DSET_DEFAULT_NAME, H5T_NATIVE_DOUBLE, space,
- H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dataset >= 0) {
+ H5E_BEGIN_TRY
+ {
+ dataset = H5Dcreate2(file, DSET_DEFAULT_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+ if (dataset >= 0) {
H5_FAILED();
HDputs(" Library allowed overwrite of existing dataset.");
goto error;
@@ -419,19 +420,21 @@ test_create(hid_t file)
* Open the dataset we created above and then close it. This is how
* existing datasets are accessed.
*/
- if(H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) goto error;
- if((dataset = H5Dopen2(file, DSET_DEFAULT_NAME, H5P_DEFAULT)) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0)
+ goto error;
+ if ((dataset = H5Dopen2(file, DSET_DEFAULT_NAME, H5P_DEFAULT)) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
/*
* Try opening a non-existent dataset. This should fail since new datasets
* cannot be created with this function. Temporarily turn off error
* reporting.
*/
- H5E_BEGIN_TRY {
- dataset = H5Dopen2(file, "does_not_exist", H5P_DEFAULT);
- } H5E_END_TRY;
- if(dataset >= 0) {
+ H5E_BEGIN_TRY { dataset = H5Dopen2(file, "does_not_exist", H5P_DEFAULT); }
+ H5E_END_TRY;
+ if (dataset >= 0) {
H5_FAILED();
HDputs(" Opened a non-existent dataset.");
goto error;
@@ -445,15 +448,17 @@ test_create(hid_t file)
assert(create_parms >= 0);
/* Attempt to create a dataset with invalid chunk sizes */
- csize[0] = dims[0]*2;
- csize[1] = dims[1]*2;
- status = H5Pset_chunk(create_parms, 2, csize);
+ csize[0] = dims[0] * 2;
+ csize[1] = dims[1] * 2;
+ status = H5Pset_chunk(create_parms, 2, csize);
assert(status >= 0);
- H5E_BEGIN_TRY {
- dataset = H5Dcreate2(file, DSET_CHUNKED_NAME, H5T_NATIVE_DOUBLE, space,
- H5P_DEFAULT, create_parms, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dataset >= 0) {
+ H5E_BEGIN_TRY
+ {
+ dataset = H5Dcreate2(file, DSET_CHUNKED_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT, create_parms,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+ if (dataset >= 0) {
H5_FAILED();
HDputs(" Opened a dataset with incorrect chunking parameters.");
goto error;
@@ -461,21 +466,24 @@ test_create(hid_t file)
csize[0] = 5;
csize[1] = 100;
- status = H5Pset_chunk(create_parms, 2, csize);
+ status = H5Pset_chunk(create_parms, 2, csize);
assert(status >= 0);
- dataset = H5Dcreate2(file, DSET_CHUNKED_NAME, H5T_NATIVE_DOUBLE, space,
- H5P_DEFAULT, create_parms, H5P_DEFAULT);
- if(dataset < 0) goto error;
+ dataset =
+ H5Dcreate2(file, DSET_CHUNKED_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT, create_parms, H5P_DEFAULT);
+ if (dataset < 0)
+ goto error;
H5Pclose(create_parms);
/* Test dataset address. Should be undefined. */
- if(H5Dget_offset(dataset)!=HADDR_UNDEF) goto error;
+ if (H5Dget_offset(dataset) != HADDR_UNDEF)
+ goto error;
/*
* Close the chunked dataset.
*/
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
/*
* Create a compact dataset, then close it.
@@ -487,20 +495,21 @@ test_create(hid_t file)
status = H5Pset_alloc_time(create_parms, H5D_ALLOC_TIME_EARLY);
assert(status >= 0);
- dataset = H5Dcreate2(file, DSET_COMPACT_NAME, H5T_NATIVE_DOUBLE,
- small_space, H5P_DEFAULT, create_parms, H5P_DEFAULT);
- if(dataset < 0) goto error;
+ dataset = H5Dcreate2(file, DSET_COMPACT_NAME, H5T_NATIVE_DOUBLE, small_space, H5P_DEFAULT, create_parms,
+ H5P_DEFAULT);
+ if (dataset < 0)
+ goto error;
H5Pclose(create_parms);
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
return SUCCEED;
- error:
+error:
return FAIL;
} /* end test_create() */
-
/*-------------------------------------------------------------------------
* Function: test_simple_io
*
@@ -515,75 +524,81 @@ test_create(hid_t file)
static herr_t
test_simple_io(const char *env_h5_drvr, hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t file = -1, dataset = -1, space = -1, xfer = -1;
- int i, j, n;
- hsize_t dims[2];
- void *tconv_buf = NULL;
- int f = -1;
- haddr_t offset;
- int **rdata = NULL;
- int *rdata_bytes = NULL;
+ char filename[FILENAME_BUF_SIZE];
+ hid_t file = -1, dataset = -1, space = -1, xfer = -1;
+ int i, j, n;
+ hsize_t dims[2];
+ void * tconv_buf = NULL;
+ int f = -1;
+ haddr_t offset;
+ int ** rdata = NULL;
+ int * rdata_bytes = NULL;
TESTING("simple I/O");
/* Can't run this test with multi-file VFDs because of HDopen/read/seek the file directly */
- if(HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi") && HDstrcmp(env_h5_drvr, "family")) {
+ if (HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi") && HDstrcmp(env_h5_drvr, "family")) {
h5_fixname(FILENAME[4], fapl, filename, sizeof filename);
/* Set up data array */
- if(NULL == (rdata_bytes = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
+ if (NULL == (rdata_bytes = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
TEST_ERROR;
- if(NULL == (rdata = (int **)HDcalloc(DSET_DIM1, sizeof(rdata_bytes))))
+ if (NULL == (rdata = (int **)HDcalloc(DSET_DIM1, sizeof(rdata_bytes))))
TEST_ERROR;
for (i = 0; i < DSET_DIM1; i++)
rdata[i] = rdata_bytes + (i * DSET_DIM2);
/* Initialize the dataset */
- for(i = n = 0; i < DSET_DIM1; i++)
- for(j = 0; j < DSET_DIM2; j++)
+ for (i = n = 0; i < DSET_DIM1; i++)
+ for (j = 0; j < DSET_DIM2; j++)
points[i][j] = n++;
- if((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
goto error;
/* Create the data space */
dims[0] = DSET_DIM1;
dims[1] = DSET_DIM2;
- if((space = H5Screate_simple(2, dims, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, dims, NULL)) < 0)
+ goto error;
/* Create a small conversion buffer to test strip mining */
tconv_buf = HDmalloc((size_t)1000);
- xfer = H5Pcreate(H5P_DATASET_XFER);
- assert(xfer>=0);
- if(H5Pset_buffer (xfer, (size_t)1000, tconv_buf, NULL) < 0) goto error;
+ xfer = H5Pcreate(H5P_DATASET_XFER);
+ assert(xfer >= 0);
+ if (H5Pset_buffer(xfer, (size_t)1000, tconv_buf, NULL) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_SIMPLE_IO_NAME, H5T_NATIVE_INT, space,
- H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) goto error;
- if(H5Sclose(space) < 0) TEST_ERROR
+ if ((dataset = H5Dcreate2(file, DSET_SIMPLE_IO_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ TEST_ERROR
space = -1;
/* Test dataset address. Should be undefined. */
- if(H5Dget_offset(dataset) != HADDR_UNDEF) goto error;
+ if (H5Dget_offset(dataset) != HADDR_UNDEF)
+ goto error;
/* Write the data to the dataset */
- if(H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, xfer, points_data) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, xfer, points_data) < 0)
goto error;
/* Test dataset address in file. Open the same file as a C file, seek
* the data position as H5Dget_offset points to, read the dataset, and
* compare it with the data written in.*/
- if((offset=H5Dget_offset(dataset))==HADDR_UNDEF) goto error;
+ if ((offset = H5Dget_offset(dataset)) == HADDR_UNDEF)
+ goto error;
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, xfer, check_data) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, xfer, check_data) < 0)
goto error;
/* Check that the values read are the same as the values written */
- for(i = 0; i < DSET_DIM1; i++) {
- for(j = 0; j < DSET_DIM2; j++) {
- if(points[i][j] != check[i][j]) {
+ for (i = 0; i < DSET_DIM1; i++) {
+ for (j = 0; j < DSET_DIM2; j++) {
+ if (points[i][j] != check[i][j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %d,%d\n", i, j);
@@ -592,22 +607,25 @@ test_simple_io(const char *env_h5_drvr, hid_t fapl)
}
}
- if(H5Pclose (xfer) < 0) goto error;
- xfer = -1;
- if(H5Dclose(dataset) < 0) goto error;
- dataset = -1;
- if(H5Fclose(file) < 0) goto error;
- file = -1;
+ if (H5Pclose(xfer) < 0)
+ goto error;
+ xfer = -1;
+ if (H5Dclose(dataset) < 0)
+ goto error;
+ dataset = -1;
+ if (H5Fclose(file) < 0)
+ goto error;
+ file = -1;
f = HDopen(filename, O_RDONLY);
HDlseek(f, (off_t)offset, SEEK_SET);
- if(HDread(f, rdata_bytes, sizeof(int)*DSET_DIM1*DSET_DIM2) < 0)
+ if (HDread(f, rdata_bytes, sizeof(int) * DSET_DIM1 * DSET_DIM2) < 0)
goto error;
/* Check that the values read are the same as the values written */
- for(i = 0; i < DSET_DIM1; i++) {
- for(j = 0; j < DSET_DIM2; j++) {
- if(points[i][j] != rdata[i][j]) {
+ for (i = 0; i < DSET_DIM1; i++) {
+ for (j = 0; j < DSET_DIM2; j++) {
+ if (points[i][j] != rdata[i][j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %d,%d\n", i, j);
@@ -633,15 +651,19 @@ test_simple_io(const char *env_h5_drvr, hid_t fapl)
return SUCCEED;
error:
- if(space > 0)
- if(H5Sclose(space) < 0) TEST_ERROR
- if(xfer > 0)
- if(H5Pclose(xfer) < 0) TEST_ERROR
- if(dataset > 0)
- if(H5Dclose(dataset) < 0) TEST_ERROR
- if(file > 0)
- if(H5Fclose(file) < 0) TEST_ERROR
- if(f > 0)
+ if (space > 0)
+ if (H5Sclose(space) < 0)
+ TEST_ERROR
+ if (xfer > 0)
+ if (H5Pclose(xfer) < 0)
+ TEST_ERROR
+ if (dataset > 0)
+ if (H5Dclose(dataset) < 0)
+ TEST_ERROR
+ if (file > 0)
+ if (H5Fclose(file) < 0)
+ TEST_ERROR
+ if (f > 0)
HDclose(f);
HDfree(tconv_buf);
@@ -651,7 +673,6 @@ error:
return FAIL;
} /* end test_simple_io() */
-
/*-------------------------------------------------------------------------
* Function: test_userblock_offset
*
@@ -664,74 +685,83 @@ error:
static herr_t
test_userblock_offset(const char *env_h5_drvr, hid_t fapl, hbool_t new_format)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t file = -1, fcpl = -1, dataset = -1, space = -1;
- int i, j;
- hsize_t dims[2];
- int f = -1;
- haddr_t offset;
- int **rdata = NULL;
- int *rdata_bytes = NULL;
+ char filename[FILENAME_BUF_SIZE];
+ hid_t file = -1, fcpl = -1, dataset = -1, space = -1;
+ int i, j;
+ hsize_t dims[2];
+ int f = -1;
+ haddr_t offset;
+ int ** rdata = NULL;
+ int * rdata_bytes = NULL;
TESTING("dataset offset with user block");
/* Can't run this test with multi-file VFDs because of HDopen/read/seek the file directly */
- if(HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi") && HDstrcmp(env_h5_drvr, "family")) {
+ if (HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi") && HDstrcmp(env_h5_drvr, "family")) {
h5_fixname(FILENAME[2], fapl, filename, sizeof filename);
/* Set up data array */
- if(NULL == (rdata_bytes = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
+ if (NULL == (rdata_bytes = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
TEST_ERROR;
- if(NULL == (rdata = (int **)HDcalloc(DSET_DIM1, sizeof(rdata_bytes))))
+ if (NULL == (rdata = (int **)HDcalloc(DSET_DIM1, sizeof(rdata_bytes))))
TEST_ERROR;
for (i = 0; i < DSET_DIM1; i++)
rdata[i] = rdata_bytes + (i * DSET_DIM2);
- if((fcpl=H5Pcreate(H5P_FILE_CREATE)) < 0) goto error;
- if(H5Pset_userblock(fcpl, (hsize_t)USER_BLOCK) < 0) goto error;
- if(new_format)
- if(H5Pset_file_space_page_size(fcpl, (hsize_t)USER_BLOCK) < 0)
+ if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
+ goto error;
+ if (H5Pset_userblock(fcpl, (hsize_t)USER_BLOCK) < 0)
+ goto error;
+ if (new_format)
+ if (H5Pset_file_space_page_size(fcpl, (hsize_t)USER_BLOCK) < 0)
goto error;
- if((file=H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl)) < 0)
+ if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl)) < 0)
goto error;
- if(H5Pclose(fcpl) < 0) TEST_ERROR
+ if (H5Pclose(fcpl) < 0)
+ TEST_ERROR
fcpl = -1;
/* Create the data space */
dims[0] = DSET_DIM1;
dims[1] = DSET_DIM2;
- if((space = H5Screate_simple(2, dims, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, dims, NULL)) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_USERBLOCK_IO_NAME, H5T_NATIVE_INT, space,
- H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) goto error;
- if(H5Sclose(space) < 0) TEST_ERROR
+ if ((dataset = H5Dcreate2(file, DSET_USERBLOCK_IO_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ TEST_ERROR
space = -1;
/* Write the data to the dataset */
- if(H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0)
goto error;
/* Test dataset address in file. Open the same file as a C file, seek
* the data position as H5Dget_offset points to, read the dataset, and
* compare it with the data written in.*/
- if((offset = H5Dget_offset(dataset)) == HADDR_UNDEF) goto error;
+ if ((offset = H5Dget_offset(dataset)) == HADDR_UNDEF)
+ goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
dataset = -1;
- if(H5Fclose(file) < 0) goto error;
+ if (H5Fclose(file) < 0)
+ goto error;
file = -1;
f = HDopen(filename, O_RDONLY);
HDlseek(f, (off_t)offset, SEEK_SET);
- if(HDread(f, rdata_bytes, sizeof(int)*DSET_DIM1*DSET_DIM2) < 0)
+ if (HDread(f, rdata_bytes, sizeof(int) * DSET_DIM1 * DSET_DIM2) < 0)
goto error;
/* Check that the values read are the same as the values written */
- for(i = 0; i < DSET_DIM1; i++) {
- for(j = 0; j < DSET_DIM2; j++) {
- if(points[i][j] != rdata[i][j]) {
+ for (i = 0; i < DSET_DIM1; i++) {
+ for (j = 0; j < DSET_DIM2; j++) {
+ if (points[i][j] != rdata[i][j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %d,%d\n", i, j);
@@ -756,15 +786,19 @@ test_userblock_offset(const char *env_h5_drvr, hid_t fapl, hbool_t new_format)
return SUCCEED;
error:
- if(space > 0)
- if(H5Sclose(space) < 0) TEST_ERROR
- if(fcpl > 0)
- if(H5Pclose(fcpl) < 0) TEST_ERROR
- if(dataset > 0)
- if(H5Dclose(dataset) < 0) TEST_ERROR
- if(file > 0)
- if(H5Fclose(file) < 0) TEST_ERROR
- if(f > 0)
+ if (space > 0)
+ if (H5Sclose(space) < 0)
+ TEST_ERROR
+ if (fcpl > 0)
+ if (H5Pclose(fcpl) < 0)
+ TEST_ERROR
+ if (dataset > 0)
+ if (H5Dclose(dataset) < 0)
+ TEST_ERROR
+ if (file > 0)
+ if (H5Fclose(file) < 0)
+ TEST_ERROR
+ if (f > 0)
HDclose(f);
HDfree(rdata_bytes);
@@ -773,7 +807,6 @@ error:
return FAIL;
} /* end test_userblock_offset() */
-
/*-------------------------------------------------------------------------
* Function: test_compact_io
*
@@ -789,129 +822,143 @@ error:
static herr_t
test_compact_io(hid_t fapl)
{
- hid_t file, dataset, space, plist;
- hid_t verfile = -1, new_fapl = -1;
- hsize_t dims[2];
- int wbuf[16][8], rbuf[16][8];
- char filename[FILENAME_BUF_SIZE];
- H5F_libver_t low, high; /* File format bounds */
- H5F_t *fp; /* Internal file pointer */
- H5D_t *dsetp; /* Internal dataset pointer */
- int i, j, n; /* Indices */
- herr_t ret; /* Generic return value */
+ hid_t file, dataset, space, plist;
+ hid_t verfile = -1, new_fapl = -1;
+ hsize_t dims[2];
+ int wbuf[16][8], rbuf[16][8];
+ char filename[FILENAME_BUF_SIZE];
+ H5F_libver_t low, high; /* File format bounds */
+ H5F_t * fp; /* Internal file pointer */
+ H5D_t * dsetp; /* Internal dataset pointer */
+ int i, j, n; /* Indices */
+ herr_t ret; /* Generic return value */
TESTING("compact dataset I/O");
/* Initialize data */
n = 0;
- for(i = 0; i < 16; i++)
- for(j = 0; j < 8; j++)
+ for (i = 0; i < 16; i++)
+ for (j = 0; j < 8; j++)
wbuf[i][j] = n++;
/* Create a small data space for compact dataset */
dims[0] = 16;
dims[1] = 8;
- if((space = H5Screate_simple(2, dims, NULL)) < 0) TEST_ERROR
+ if ((space = H5Screate_simple(2, dims, NULL)) < 0)
+ TEST_ERROR
/* Create a file */
h5_fixname(FILENAME[1], fapl, filename, sizeof filename);
- if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
TEST_ERROR
/* Create property list for compact dataset creation */
- if((plist = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR
- if(H5Pset_layout(plist, H5D_COMPACT) < 0) TEST_ERROR
- if(H5Pset_alloc_time(plist, H5D_ALLOC_TIME_EARLY) < 0) TEST_ERROR
+ if ((plist = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ TEST_ERROR
+ if (H5Pset_layout(plist, H5D_COMPACT) < 0)
+ TEST_ERROR
+ if (H5Pset_alloc_time(plist, H5D_ALLOC_TIME_EARLY) < 0)
+ TEST_ERROR
/* Create and write to a compact dataset */
- if((dataset = H5Dcreate2(file, DSET_COMPACT_IO_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist, H5P_DEFAULT)) < 0)
+ if ((dataset = H5Dcreate2(file, DSET_COMPACT_IO_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist,
+ H5P_DEFAULT)) < 0)
TEST_ERROR
/* Test dataset address. Should be undefined. */
- if(H5Dget_offset(dataset) != HADDR_UNDEF) TEST_ERROR
+ if (H5Dget_offset(dataset) != HADDR_UNDEF)
+ TEST_ERROR
- if(H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
TEST_ERROR
/* Test dataset address. Should be undefined. */
- if(H5Dget_offset(dataset)!=HADDR_UNDEF) TEST_ERROR
+ if (H5Dget_offset(dataset) != HADDR_UNDEF)
+ TEST_ERROR
/* Close file */
- if(H5Dclose(dataset) < 0) TEST_ERROR
- if(H5Fclose(file) < 0) TEST_ERROR
+ if (H5Dclose(dataset) < 0)
+ TEST_ERROR
+ if (H5Fclose(file) < 0)
+ TEST_ERROR
/*
* Open the file and check data
*/
- if((file = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0)
+ if ((file = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0)
TEST_ERROR
- if((dataset = H5Dopen2(file, DSET_COMPACT_IO_NAME, H5P_DEFAULT)) < 0)
+ if ((dataset = H5Dopen2(file, DSET_COMPACT_IO_NAME, H5P_DEFAULT)) < 0)
TEST_ERROR
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
TEST_ERROR
- /* Check that the values read are the same as the values written */
- for(i = 0; i < 16; i++)
- for(j = 0; j < 8; j++)
- if(rbuf[i][j] != wbuf[i][j]) {
- H5_FAILED();
- HDprintf(" Read different values than written.\n");
- HDprintf(" At index %d,%d\n", i, j);
- HDprintf(" wbuf[%d][%d]=%d\n", i, j, wbuf[i][j]);
- HDprintf(" rbuf[%d][%d]=%d\n", i, j, rbuf[i][j]);
- goto error;
- } /* end */
+ /* Check that the values read are the same as the values written */
+ for (i = 0; i < 16; i++)
+ for (j = 0; j < 8; j++)
+ if (rbuf[i][j] != wbuf[i][j]) {
+ H5_FAILED();
+ HDprintf(" Read different values than written.\n");
+ HDprintf(" At index %d,%d\n", i, j);
+ HDprintf(" wbuf[%d][%d]=%d\n", i, j, wbuf[i][j]);
+ HDprintf(" rbuf[%d][%d]=%d\n", i, j, rbuf[i][j]);
+ goto error;
+ } /* end */
- if(H5Dclose(dataset) < 0) TEST_ERROR
- if(H5Fclose(file) < 0) TEST_ERROR
+ if (H5Dclose(dataset) < 0)
+ TEST_ERROR
+ if (H5Fclose(file) < 0)
+ TEST_ERROR
/**************************************
* Additional test for version bounds *
**************************************/
/* Create a copy of file access property list */
- if((new_fapl = h5_fileaccess()) < 0) TEST_ERROR
+ if ((new_fapl = h5_fileaccess()) < 0)
+ TEST_ERROR
/* Loop through all the combinations of low/high library format bounds,
skipping invalid combinations.
- Create a file, create and write a compact dataset, and verify its data
- Verify the dataset's layout and fill message versions */
- for(low = H5F_LIBVER_EARLIEST; low < H5F_LIBVER_NBOUNDS; low++) {
- for(high = H5F_LIBVER_EARLIEST; high < H5F_LIBVER_NBOUNDS; high++) {
+ for (low = H5F_LIBVER_EARLIEST; low < H5F_LIBVER_NBOUNDS; low++) {
+ for (high = H5F_LIBVER_EARLIEST; high < H5F_LIBVER_NBOUNDS; high++) {
/* Set version bounds */
- H5E_BEGIN_TRY {
- ret = H5Pset_libver_bounds(new_fapl, low, high);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Pset_libver_bounds(new_fapl, low, high); }
+ H5E_END_TRY;
if (ret < 0) /* Invalid low/high combinations */
continue;
/* Create a file */
h5_fixname(FILENAME[25], new_fapl, filename, sizeof filename);
- if((verfile = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, new_fapl)) < 0)
+ if ((verfile = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, new_fapl)) < 0)
TEST_ERROR
/* Create the compact dataset */
- dataset = H5Dcreate2(verfile, DSET_DEFAULT_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist, H5P_DEFAULT);
- if(dataset < 0) TEST_ERROR
+ dataset = H5Dcreate2(verfile, DSET_DEFAULT_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist,
+ H5P_DEFAULT);
+ if (dataset < 0)
+ TEST_ERROR
/* Write the same data as of DSET_COMPACT_IO_NAME */
- if(H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
TEST_ERROR
/* Close DSET_DEFAULT_NAME, then reopen it to read and verify
the data */
- if(H5Dclose(dataset) < 0) TEST_ERROR
- if((dataset = H5Dopen2(verfile, DSET_DEFAULT_NAME, H5P_DEFAULT)) < 0)
+ if (H5Dclose(dataset) < 0)
+ TEST_ERROR
+ if ((dataset = H5Dopen2(verfile, DSET_DEFAULT_NAME, H5P_DEFAULT)) < 0)
TEST_ERROR
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
TEST_ERROR
/* Check that the values read are the same as the values written */
- for(i = 0; i < 16; i++)
- for(j = 0; j < 8; j++)
- if(rbuf[i][j] != wbuf[i][j]) {
+ for (i = 0; i < 16; i++)
+ for (j = 0; j < 8; j++)
+ if (rbuf[i][j] != wbuf[i][j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %d,%d\n", i, j);
@@ -921,52 +968,63 @@ test_compact_io(hid_t fapl)
} /* end */
/* Get the internal file pointer */
- if((fp = (H5F_t *)H5VL_object(verfile)) == NULL) TEST_ERROR
+ if ((fp = (H5F_t *)H5VL_object(verfile)) == NULL)
+ TEST_ERROR
/* Get the internal dataset pointer */
- if((dsetp = (H5D_t *)H5VL_object(dataset)) == NULL) TEST_ERROR
+ if ((dsetp = (H5D_t *)H5VL_object(dataset)) == NULL)
+ TEST_ERROR
/* Verify the dataset's layout and fill message versions */
- if(fp->shared->low_bound == H5F_LIBVER_EARLIEST) {
+ if (fp->shared->low_bound == H5F_LIBVER_EARLIEST) {
VERIFY(dsetp->shared->layout.version, H5O_LAYOUT_VERSION_DEFAULT, "layout_ver_bounds");
VERIFY(dsetp->shared->dcpl_cache.fill.version, H5O_FILL_VERSION_2, "fill_ver_bounds");
- } else {
- VERIFY(dsetp->shared->layout.version, H5O_layout_ver_bounds[fp->shared->low_bound], "layout_ver_bounds");
- VERIFY(dsetp->shared->dcpl_cache.fill.version, H5O_fill_ver_bounds[fp->shared->low_bound], "fill_ver_bounds");
+ }
+ else {
+ VERIFY(dsetp->shared->layout.version, H5O_layout_ver_bounds[fp->shared->low_bound],
+ "layout_ver_bounds");
+ VERIFY(dsetp->shared->dcpl_cache.fill.version, H5O_fill_ver_bounds[fp->shared->low_bound],
+ "fill_ver_bounds");
}
/* Close the dataset and delete from the file */
- if(H5Dclose(dataset) < 0) TEST_ERROR
- if(H5Ldelete(verfile, DSET_DEFAULT_NAME, H5P_DEFAULT) < 0)
+ if (H5Dclose(dataset) < 0)
+ TEST_ERROR
+ if (H5Ldelete(verfile, DSET_DEFAULT_NAME, H5P_DEFAULT) < 0)
TEST_ERROR
/* Close the file */
- if(H5Fclose(verfile) < 0) TEST_ERROR
+ if (H5Fclose(verfile) < 0)
+ TEST_ERROR
} /* end for high */
- } /* end for low */
+ } /* end for low */
- if(H5Pclose(new_fapl) < 0) TEST_ERROR
- if(H5Sclose(space) < 0) TEST_ERROR
- if(H5Pclose(plist) < 0) TEST_ERROR
+ if (H5Pclose(new_fapl) < 0)
+ TEST_ERROR
+ if (H5Sclose(space) < 0)
+ TEST_ERROR
+ if (H5Pclose(plist) < 0)
+ TEST_ERROR
PASSED();
return SUCCEED;
- error:
- H5E_BEGIN_TRY {
+error:
+ H5E_BEGIN_TRY
+ {
H5Sclose(space);
H5Pclose(plist);
H5Pclose(new_fapl);
H5Dclose(dataset);
H5Fclose(file);
H5Fclose(verfile);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_compact_io() */
-
/*-------------------------------------------------------------------------
* Function: test_max_compact
*
@@ -979,17 +1037,17 @@ test_compact_io(hid_t fapl)
static herr_t
test_max_compact(hid_t fapl)
{
- hid_t file = -1;
- hid_t dataset = -1;
- hid_t space = -1;
- hid_t plist = -1;
- hsize_t dims[1];
- size_t compact_size;
- int *wbuf = NULL;
- int *rbuf = NULL;
- char filename[FILENAME_BUF_SIZE];
- int n;
- size_t u;
+ hid_t file = -1;
+ hid_t dataset = -1;
+ hid_t space = -1;
+ hid_t plist = -1;
+ hsize_t dims[1];
+ size_t compact_size;
+ int * wbuf = NULL;
+ int * rbuf = NULL;
+ char filename[FILENAME_BUF_SIZE];
+ int n;
+ size_t u;
TESTING("compact dataset of maximal size");
@@ -998,128 +1056,132 @@ test_max_compact(hid_t fapl)
/* Initialize data */
compact_size = (SIXTY_FOUR_KB - 64) / sizeof(int);
- if(NULL == (wbuf = (int *)HDmalloc(sizeof(int) * compact_size)))
+ if (NULL == (wbuf = (int *)HDmalloc(sizeof(int) * compact_size)))
TEST_ERROR
- if(NULL == (rbuf = (int *)HDmalloc(sizeof(int) * compact_size)))
+ if (NULL == (rbuf = (int *)HDmalloc(sizeof(int) * compact_size)))
TEST_ERROR
n = 0;
- for(u = 0; u < compact_size; u++)
+ for (u = 0; u < compact_size; u++)
wbuf[u] = n++;
/* Create a small data space for compact dataset */
dims[0] = (hsize_t)compact_size;
- if((space = H5Screate_simple(1, dims, NULL)) < 0)
+ if ((space = H5Screate_simple(1, dims, NULL)) < 0)
FAIL_STACK_ERROR
/* Create a file */
h5_fixname(FILENAME[3], fapl, filename, sizeof filename);
- if((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR
/* Create property list for compact dataset creation */
- if((plist = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((plist = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
- if(H5Pset_layout(plist, H5D_COMPACT) < 0)
+ if (H5Pset_layout(plist, H5D_COMPACT) < 0)
FAIL_STACK_ERROR
/* Create and write to a compact dataset */
- if((dataset = H5Dcreate2(file, DSET_COMPACT_MAX_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist, H5P_DEFAULT)) < 0)
+ if ((dataset = H5Dcreate2(file, DSET_COMPACT_MAX_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist,
+ H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
- if(H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
FAIL_STACK_ERROR
/* Close file */
- if(H5Sclose(space) < 0)
+ if (H5Sclose(space) < 0)
FAIL_STACK_ERROR
- if(H5Pclose(plist) < 0)
+ if (H5Pclose(plist) < 0)
FAIL_STACK_ERROR
- if(H5Dclose(dataset) < 0)
+ if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR
- if(H5Fclose(file) < 0)
+ if (H5Fclose(file) < 0)
FAIL_STACK_ERROR
/*
* Open the file and check data
*/
- if((file = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0)
+ if ((file = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0)
FAIL_STACK_ERROR
- if((dataset = H5Dopen2(file, DSET_COMPACT_MAX_NAME, H5P_DEFAULT)) < 0)
+ if ((dataset = H5Dopen2(file, DSET_COMPACT_MAX_NAME, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
FAIL_STACK_ERROR
/* Check that the values read are the same as the values written */
- for(u = 0; u < compact_size; u++)
- if(rbuf[u] != wbuf[u]) {
+ for (u = 0; u < compact_size; u++)
+ if (rbuf[u] != wbuf[u]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %u\n", (unsigned)u);
goto error;
} /* end if */
- if(H5Dclose(dataset) < 0)
- FAIL_STACK_ERROR
- if(H5Fclose(file) < 0)
- FAIL_STACK_ERROR
- HDfree(wbuf);
- wbuf = NULL;
- HDfree(rbuf);
- rbuf = NULL;
-
- /* Test compact dataset of size 64KB */
-
- /* Create a data space for compact dataset */
- compact_size = SIXTY_FOUR_KB / sizeof(int);
- dims[0] = (hsize_t)compact_size;
- if((space = H5Screate_simple(1, dims, NULL)) < 0)
- FAIL_STACK_ERROR
-
- /* Open file */
- if((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
- goto error;
-
- /* Create property list for compact dataset creation */
- if((plist = H5Pcreate(H5P_DATASET_CREATE)) < 0)
- FAIL_STACK_ERROR
- if(H5Pset_layout(plist, H5D_COMPACT) < 0)
- FAIL_STACK_ERROR
-
- /* Create and write to a compact dataset */
- H5E_BEGIN_TRY {
- H5Dcreate2(file, DSET_COMPACT_MAX2_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist, H5P_DEFAULT);
- } H5E_END_TRY;
-
- /* Close file */
- if(H5Sclose(space) < 0)
- FAIL_STACK_ERROR
- if(H5Pclose(plist) < 0)
- FAIL_STACK_ERROR
- if(H5Fclose(file) < 0)
- FAIL_STACK_ERROR
-
- PASSED();
- return SUCCEED;
+ if (H5Dclose(dataset) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(file) < 0)
+ FAIL_STACK_ERROR
+ HDfree(wbuf);
+ wbuf = NULL;
+ HDfree(rbuf);
+ rbuf = NULL;
+
+ /* Test compact dataset of size 64KB */
+
+ /* Create a data space for compact dataset */
+ compact_size = SIXTY_FOUR_KB / sizeof(int);
+ dims[0] = (hsize_t)compact_size;
+ if ((space = H5Screate_simple(1, dims, NULL)) < 0)
+ FAIL_STACK_ERROR
+
+ /* Open file */
+ if ((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
+ goto error;
+
+ /* Create property list for compact dataset creation */
+ if ((plist = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_layout(plist, H5D_COMPACT) < 0)
+ FAIL_STACK_ERROR
+
+ /* Create and write to a compact dataset */
+ H5E_BEGIN_TRY
+ {
+ H5Dcreate2(file, DSET_COMPACT_MAX2_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ /* Close file */
+ if (H5Sclose(space) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(plist) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(file) < 0)
+ FAIL_STACK_ERROR
+
+ PASSED();
+ return SUCCEED;
error:
- if(wbuf)
+ if (wbuf)
HDfree(wbuf);
- if(rbuf)
+ if (rbuf)
HDfree(rbuf);
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
/* Close file */
H5Sclose(space);
H5Pclose(plist);
H5Dclose(dataset);
H5Fclose(file);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
- return FAIL;
+ return FAIL;
} /* end test_max_compact() */
-
/*-------------------------------------------------------------------------
* Function: test_layout_extend
*
@@ -1137,98 +1199,121 @@ error:
static herr_t
test_layout_extend(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE]; /* File name */
- hid_t fid = -1; /* File id */
- hid_t sid_fix = -1, sid_unlim = -1; /* Dataspace id */
- hid_t dcpl_compact = -1, dcpl_contig = -1, dcpl_chunked = -1; /* Dataset creation property list id */
- hid_t did_fixed = -1, did_unlim = -1; /* Dataset id */
- hsize_t cur_size[1] = {10}; /* Current size of dataspace */
- hsize_t max_unlim[1] = {H5S_UNLIMITED}; /* Maximum size of dataspace (unlimited) */
- hsize_t max_fix[1] = {100}; /* Maximum size of dataspace (fixed) */
+ char filename[FILENAME_BUF_SIZE]; /* File name */
+ hid_t fid = -1; /* File id */
+ hid_t sid_fix = -1, sid_unlim = -1; /* Dataspace id */
+ hid_t dcpl_compact = -1, dcpl_contig = -1, dcpl_chunked = -1; /* Dataset creation property list id */
+ hid_t did_fixed = -1, did_unlim = -1; /* Dataset id */
+ hsize_t cur_size[1] = {10}; /* Current size of dataspace */
+ hsize_t max_unlim[1] = {H5S_UNLIMITED}; /* Maximum size of dataspace (unlimited) */
+ hsize_t max_fix[1] = {100}; /* Maximum size of dataspace (fixed) */
hsize_t chunk_dim[1] = {10}; /* Chunk size */
TESTING("extendible dataset with various layout");
/* Create a file */
h5_fixname(FILENAME[15], fapl, filename, sizeof filename);
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR
/* Create dataspace */
- if((sid_fix = H5Screate_simple(1, cur_size, max_fix)) < 0)
+ if ((sid_fix = H5Screate_simple(1, cur_size, max_fix)) < 0)
FAIL_STACK_ERROR
- if((sid_unlim = H5Screate_simple(1, cur_size, max_unlim)) < 0)
+ if ((sid_unlim = H5Screate_simple(1, cur_size, max_unlim)) < 0)
FAIL_STACK_ERROR
/* Create property list for compact dataset creation */
- if((dcpl_compact = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl_compact = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
- if(H5Pset_layout(dcpl_compact, H5D_COMPACT) < 0)
+ if (H5Pset_layout(dcpl_compact, H5D_COMPACT) < 0)
FAIL_STACK_ERROR
/* Create dataset with extendible dataspace (fixed max_dims) should fail */
- H5E_BEGIN_TRY {
- if(H5Dcreate2(fid, "compact", H5T_NATIVE_INT, sid_fix, H5P_DEFAULT, dcpl_compact, H5P_DEFAULT) != FAIL)
- TEST_ERROR
- } H5E_END_TRY;
+ H5E_BEGIN_TRY
+ {
+ if (H5Dcreate2(fid, "compact", H5T_NATIVE_INT, sid_fix, H5P_DEFAULT, dcpl_compact, H5P_DEFAULT) !=
+ FAIL)
+ TEST_ERROR
+ }
+ H5E_END_TRY;
/* Create dataset with extendible dataspace (unlimited max_dims) should fail */
- H5E_BEGIN_TRY {
- if(H5Dcreate2(fid, "compact", H5T_NATIVE_INT, sid_unlim, H5P_DEFAULT, dcpl_compact, H5P_DEFAULT) != FAIL)
- TEST_ERROR
- } H5E_END_TRY;
+ H5E_BEGIN_TRY
+ {
+ if (H5Dcreate2(fid, "compact", H5T_NATIVE_INT, sid_unlim, H5P_DEFAULT, dcpl_compact, H5P_DEFAULT) !=
+ FAIL)
+ TEST_ERROR
+ }
+ H5E_END_TRY;
/* Create property list for contiguous dataset creation */
- if((dcpl_contig = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl_contig = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
- if((H5Pset_layout(dcpl_contig, H5D_CONTIGUOUS)) < 0)
+ if ((H5Pset_layout(dcpl_contig, H5D_CONTIGUOUS)) < 0)
FAIL_STACK_ERROR
/* Create dataset with extendible dataspace (fixed max_dims) should fail */
- H5E_BEGIN_TRY {
- if(H5Dcreate2(fid, "contig", H5T_NATIVE_INT, sid_fix, H5P_DEFAULT, dcpl_contig, H5P_DEFAULT) != FAIL)
- TEST_ERROR
- } H5E_END_TRY;
+ H5E_BEGIN_TRY
+ {
+ if (H5Dcreate2(fid, "contig", H5T_NATIVE_INT, sid_fix, H5P_DEFAULT, dcpl_contig, H5P_DEFAULT) != FAIL)
+ TEST_ERROR
+ }
+ H5E_END_TRY;
/* Create dataset with extendible dataspace (unlimited max_dims) should fail*/
- H5E_BEGIN_TRY {
- if(H5Dcreate2(fid, "contig", H5T_NATIVE_INT, sid_unlim, H5P_DEFAULT, dcpl_contig, H5P_DEFAULT) != FAIL)
- TEST_ERROR
- } H5E_END_TRY;
+ H5E_BEGIN_TRY
+ {
+ if (H5Dcreate2(fid, "contig", H5T_NATIVE_INT, sid_unlim, H5P_DEFAULT, dcpl_contig, H5P_DEFAULT) !=
+ FAIL)
+ TEST_ERROR
+ }
+ H5E_END_TRY;
/* Create property list for chunked dataset creation */
- if((dcpl_chunked = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl_chunked = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_layout(dcpl_chunked, H5D_CHUNKED) < 0)
FAIL_STACK_ERROR
- if(H5Pset_layout(dcpl_chunked, H5D_CHUNKED) < 0)
+ if (H5Pset_chunk(dcpl_chunked, 1, chunk_dim) < 0)
FAIL_STACK_ERROR
- if(H5Pset_chunk(dcpl_chunked, 1, chunk_dim) < 0) FAIL_STACK_ERROR
/* Create dataset with extendible dataspace (fixed max_dims) should succeed */
- if((did_fixed = H5Dcreate2(fid, "chunked_fixed", H5T_NATIVE_INT, sid_fix, H5P_DEFAULT, dcpl_chunked, H5P_DEFAULT)) < 0)
- FAIL_STACK_ERROR
+ if ((did_fixed = H5Dcreate2(fid, "chunked_fixed", H5T_NATIVE_INT, sid_fix, H5P_DEFAULT, dcpl_chunked,
+ H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset with extendible dataspace (unlimited max_dims) should succeed */
- if((did_unlim = H5Dcreate2(fid, "chunked_unlim", H5T_NATIVE_INT, sid_unlim, H5P_DEFAULT, dcpl_chunked, H5P_DEFAULT)) < 0)
- FAIL_STACK_ERROR
+ if ((did_unlim = H5Dcreate2(fid, "chunked_unlim", H5T_NATIVE_INT, sid_unlim, H5P_DEFAULT, dcpl_chunked,
+ H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Closing */
- if(H5Sclose(sid_fix) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid_unlim) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid_fix) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid_unlim) < 0)
+ FAIL_STACK_ERROR
- if(H5Pclose(dcpl_compact) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl_contig) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl_chunked) < 0) FAIL_STACK_ERROR
+ if (H5Pclose(dcpl_compact) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl_contig) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl_chunked) < 0)
+ FAIL_STACK_ERROR
- if(H5Dclose(did_fixed) < 0) FAIL_STACK_ERROR
- if(H5Dclose(did_unlim) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(did_fixed) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(did_unlim) < 0)
+ FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Sclose(sid_fix);
H5Sclose(sid_unlim);
H5Pclose(dcpl_compact);
@@ -1237,12 +1322,12 @@ error:
H5Dclose(did_fixed);
H5Dclose(did_unlim);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
- return FAIL;
+ return FAIL;
} /* end test_layout_extend() */
-
/*-------------------------------------------------------------------------
* Function: test_conv_buffer
*
@@ -1255,135 +1340,157 @@ error:
static herr_t
test_conv_buffer(hid_t fid)
{
- typedef struct
- {
- int a[DIM1][DIM2][DIM3];
- float b[DIM2];
- double c[DIM3];
+ typedef struct {
+ int a[DIM1][DIM2][DIM3];
+ float b[DIM2];
+ double c[DIM3];
} CmpField;
- typedef struct
- {
- float b[DIM2];
- double c[DIM3];
+ typedef struct {
+ float b[DIM2];
+ double c[DIM3];
} CmpFieldR;
- herr_t status = -1;
- int j, k, l;
-
- CmpField *cf = NULL;
- CmpFieldR *cfrR = NULL;
-
- hid_t dataset = H5I_INVALID_HID; /* dataset ID */
- hid_t space = H5I_INVALID_HID; /* data space ID */
- hid_t ctype1 = H5I_INVALID_HID,
- ctype2 = H5I_INVALID_HID; /* data type ID */
- hid_t arr_type1 = H5I_INVALID_HID,
- arr_type2 = H5I_INVALID_HID,
- arr_type3 = H5I_INVALID_HID,
- arr_type4 = H5I_INVALID_HID,
- arr_type5 = H5I_INVALID_HID;
- hsize_t dimsa[3];
- hsize_t dimsb[1];
- hsize_t dimsc[1];
- hid_t xfer_list = H5I_INVALID_HID;
- size_t size;
+ herr_t status = -1;
+ int j, k, l;
+
+ CmpField * cf = NULL;
+ CmpFieldR *cfrR = NULL;
+
+ hid_t dataset = H5I_INVALID_HID; /* dataset ID */
+ hid_t space = H5I_INVALID_HID; /* data space ID */
+ hid_t ctype1 = H5I_INVALID_HID, ctype2 = H5I_INVALID_HID; /* data type ID */
+ hid_t arr_type1 = H5I_INVALID_HID, arr_type2 = H5I_INVALID_HID, arr_type3 = H5I_INVALID_HID,
+ arr_type4 = H5I_INVALID_HID, arr_type5 = H5I_INVALID_HID;
+ hsize_t dimsa[3];
+ hsize_t dimsb[1];
+ hsize_t dimsc[1];
+ hid_t xfer_list = H5I_INVALID_HID;
+ size_t size;
TESTING("data type conversion buffer size");
- if ((cf = (CmpField *)HDcalloc((size_t)1, sizeof(CmpField))) == 0) goto error;
+ if ((cf = (CmpField *)HDcalloc((size_t)1, sizeof(CmpField))) == 0)
+ goto error;
/* Populate the data members */
- for(j = 0; j < DIM1; j++)
- for(k = 0; k < DIM2; k++)
- for(l = 0; l < DIM3; l++)
- cf->a[j][k][l] = 10*(j+1) + l + k;
-
- for(j = 0; j < DIM2; j++)
- cf->b[j] = 100.0f * (float)(j+1) + 0.01f * (float)j;
-
- for(j = 0; j < DIM3; j++)
- cf->c[j] = 100.0f * (float)(j+1) + 0.02f * (float)j;
-
-
- /* Create data space */
- if((space=H5Screate(H5S_SCALAR)) < 0) goto error;
-
- /* Add members to the compound data type */
- dimsa[0] = DIM1;
- dimsa[1] = DIM2;
- dimsa[2] = DIM3;
- dimsb[0] = DIM2;
- dimsc[0] = DIM3;
-
- /* Create the memory data type */
- if((ctype1 = H5Tcreate(H5T_COMPOUND, sizeof (CmpField))) < 0) goto error;
-
- if((arr_type1 = H5Tarray_create2(H5T_NATIVE_INT, 3, dimsa)) < 0) goto error;
- if((arr_type2 = H5Tarray_create2(H5T_NATIVE_FLOAT, 1, dimsb)) < 0) goto error;
- if((arr_type3 = H5Tarray_create2(H5T_NATIVE_DOUBLE, 1, dimsc)) < 0) goto error;
-
- if(H5Tinsert(ctype1, "A", HOFFSET(CmpField, a), arr_type1) < 0) goto error;
- if(H5Tinsert(ctype1, "B", HOFFSET(CmpField, b), arr_type2) < 0) goto error;
- if(H5Tinsert(ctype1, "C", HOFFSET(CmpField, c), arr_type3) < 0) goto error;
-
- /* Create the dataset */
- if((dataset = H5Dcreate2(fid, DSET_CONV_BUF_NAME, ctype1, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) goto error;
- if(H5Dwrite(dataset, ctype1, H5S_ALL, H5S_ALL, H5P_DEFAULT, cf) < 0) goto error;
-
- if((ctype2 = H5Tcreate(H5T_COMPOUND, sizeof (CmpFieldR))) < 0) goto error;
-
- if((arr_type4 = H5Tarray_create2(H5T_NATIVE_FLOAT, 1, dimsb)) < 0) goto error;
- if((arr_type5 = H5Tarray_create2(H5T_NATIVE_DOUBLE, 1, dimsc)) < 0) goto error;
-
- if(H5Tinsert(ctype2, "B", HOFFSET(CmpFieldR, b), arr_type4) < 0) goto error;
- if(H5Tinsert(ctype2, "C", HOFFSET(CmpFieldR, c), arr_type5) < 0) goto error;
-
- /* Read should succeed since library will set conversion buffer big enough */
- if ((cfrR = (CmpFieldR *)HDcalloc((size_t)1, sizeof(CmpFieldR))) == 0) goto error;
- if(H5Dread(dataset, ctype2, H5S_ALL, H5S_ALL, H5P_DEFAULT, cfrR) < 0) goto error;
-
- /* Read should fail since conversion buffer isn't big enough */
- xfer_list = H5Pcreate(H5P_DATASET_XFER);
- size = (DIM2 * DIM3 * (sizeof(int))+ DIM2 * (sizeof(float))+
- DIM3 * (sizeof(double)));
- if(H5Pset_buffer(xfer_list, size, NULL, NULL) < 0) goto error;
-
- H5E_BEGIN_TRY {
- status = H5Dread(dataset, ctype2, H5S_ALL, H5S_ALL, xfer_list, cfrR);
- } H5E_END_TRY;
- if(status >= 0) {
- H5_FAILED();
- HDputs(" Library shouldn't allow conversion buffer too small");
- goto error;
- }
-
- /* Read will succeed since conversion buffer is big enough */
- size = (DIM1 * DIM2 * DIM3 * (sizeof(int))+ DIM2 * (sizeof(float))+
- DIM3 * (sizeof(double)));
- if(H5Pset_buffer(xfer_list, size, NULL, NULL) < 0) goto error;
-
- if(H5Dread(dataset, ctype2, H5S_ALL, H5S_ALL, xfer_list, cfrR) < 0) goto error;
-
-
- if(H5Pclose(xfer_list) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Tclose(arr_type1) < 0) goto error;
- if(H5Tclose(arr_type2) < 0) goto error;
- if(H5Tclose(arr_type3) < 0) goto error;
- if(H5Tclose(ctype1) < 0) goto error;
- if(H5Tclose(ctype2) < 0) goto error;
- if(H5Tclose(arr_type4) < 0) goto error;
- if(H5Tclose(arr_type5) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
-
- HDfree(cf);
- HDfree(cfrR);
- HDputs(" PASSED");
- return SUCCEED;
+ for (j = 0; j < DIM1; j++)
+ for (k = 0; k < DIM2; k++)
+ for (l = 0; l < DIM3; l++)
+ cf->a[j][k][l] = 10 * (j + 1) + l + k;
+
+ for (j = 0; j < DIM2; j++)
+ cf->b[j] = 100.0f * (float)(j + 1) + 0.01f * (float)j;
+
+ for (j = 0; j < DIM3; j++)
+ cf->c[j] = 100.0f * (float)(j + 1) + 0.02f * (float)j;
+
+ /* Create data space */
+ if ((space = H5Screate(H5S_SCALAR)) < 0)
+ goto error;
+
+ /* Add members to the compound data type */
+ dimsa[0] = DIM1;
+ dimsa[1] = DIM2;
+ dimsa[2] = DIM3;
+ dimsb[0] = DIM2;
+ dimsc[0] = DIM3;
+
+ /* Create the memory data type */
+ if ((ctype1 = H5Tcreate(H5T_COMPOUND, sizeof(CmpField))) < 0)
+ goto error;
+
+ if ((arr_type1 = H5Tarray_create2(H5T_NATIVE_INT, 3, dimsa)) < 0)
+ goto error;
+ if ((arr_type2 = H5Tarray_create2(H5T_NATIVE_FLOAT, 1, dimsb)) < 0)
+ goto error;
+ if ((arr_type3 = H5Tarray_create2(H5T_NATIVE_DOUBLE, 1, dimsc)) < 0)
+ goto error;
+
+ if (H5Tinsert(ctype1, "A", HOFFSET(CmpField, a), arr_type1) < 0)
+ goto error;
+ if (H5Tinsert(ctype1, "B", HOFFSET(CmpField, b), arr_type2) < 0)
+ goto error;
+ if (H5Tinsert(ctype1, "C", HOFFSET(CmpField, c), arr_type3) < 0)
+ goto error;
+
+ /* Create the dataset */
+ if ((dataset =
+ H5Dcreate2(fid, DSET_CONV_BUF_NAME, ctype1, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ goto error;
+ if (H5Dwrite(dataset, ctype1, H5S_ALL, H5S_ALL, H5P_DEFAULT, cf) < 0)
+ goto error;
+
+ if ((ctype2 = H5Tcreate(H5T_COMPOUND, sizeof(CmpFieldR))) < 0)
+ goto error;
+
+ if ((arr_type4 = H5Tarray_create2(H5T_NATIVE_FLOAT, 1, dimsb)) < 0)
+ goto error;
+ if ((arr_type5 = H5Tarray_create2(H5T_NATIVE_DOUBLE, 1, dimsc)) < 0)
+ goto error;
+
+ if (H5Tinsert(ctype2, "B", HOFFSET(CmpFieldR, b), arr_type4) < 0)
+ goto error;
+ if (H5Tinsert(ctype2, "C", HOFFSET(CmpFieldR, c), arr_type5) < 0)
+ goto error;
+
+ /* Read should succeed since library will set conversion buffer big enough */
+ if ((cfrR = (CmpFieldR *)HDcalloc((size_t)1, sizeof(CmpFieldR))) == 0)
+ goto error;
+ if (H5Dread(dataset, ctype2, H5S_ALL, H5S_ALL, H5P_DEFAULT, cfrR) < 0)
+ goto error;
+
+ /* Read should fail since conversion buffer isn't big enough */
+ xfer_list = H5Pcreate(H5P_DATASET_XFER);
+ size = (DIM2 * DIM3 * (sizeof(int)) + DIM2 * (sizeof(float)) + DIM3 * (sizeof(double)));
+ if (H5Pset_buffer(xfer_list, size, NULL, NULL) < 0)
+ goto error;
+
+ H5E_BEGIN_TRY { status = H5Dread(dataset, ctype2, H5S_ALL, H5S_ALL, xfer_list, cfrR); }
+ H5E_END_TRY;
+ if (status >= 0) {
+ H5_FAILED();
+ HDputs(" Library shouldn't allow conversion buffer too small");
+ goto error;
+ }
+
+ /* Read will succeed since conversion buffer is big enough */
+ size = (DIM1 * DIM2 * DIM3 * (sizeof(int)) + DIM2 * (sizeof(float)) + DIM3 * (sizeof(double)));
+ if (H5Pset_buffer(xfer_list, size, NULL, NULL) < 0)
+ goto error;
+
+ if (H5Dread(dataset, ctype2, H5S_ALL, H5S_ALL, xfer_list, cfrR) < 0)
+ goto error;
+
+ if (H5Pclose(xfer_list) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Tclose(arr_type1) < 0)
+ goto error;
+ if (H5Tclose(arr_type2) < 0)
+ goto error;
+ if (H5Tclose(arr_type3) < 0)
+ goto error;
+ if (H5Tclose(ctype1) < 0)
+ goto error;
+ if (H5Tclose(ctype2) < 0)
+ goto error;
+ if (H5Tclose(arr_type4) < 0)
+ goto error;
+ if (H5Tclose(arr_type5) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
+
+ HDfree(cf);
+ HDfree(cfrR);
+ HDputs(" PASSED");
+ return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(xfer_list);
H5Sclose(space);
H5Tclose(arr_type1);
@@ -1394,12 +1501,12 @@ error:
H5Tclose(arr_type4);
H5Tclose(arr_type5);
H5Dclose(dataset);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
- return FAIL;
+ return FAIL;
} /* end test_conv_buffer() */
-
/*-------------------------------------------------------------------------
* Function: test_tconv
*
@@ -1412,10 +1519,10 @@ error:
static herr_t
test_tconv(hid_t file)
{
- char *out = NULL, *in = NULL;
- hsize_t dims[1];
- hid_t space = -1, dataset = -1;
- int i;
+ char * out = NULL, *in = NULL;
+ hsize_t dims[1];
+ hid_t space = -1, dataset = -1;
+ int i;
if ((out = (char *)HDmalloc((size_t)(4 * 1000 * 1000))) == NULL)
goto error;
@@ -1425,7 +1532,7 @@ test_tconv(hid_t file)
TESTING("data type conversion");
/* Initialize the dataset */
- for(i = 0; i < 1000000; i++) {
+ for (i = 0; i < 1000000; i++) {
out[i * 4 + 0] = 0x11;
out[i * 4 + 1] = 0x22;
out[i * 4 + 2] = 0x33;
@@ -1434,35 +1541,36 @@ test_tconv(hid_t file)
/* Create the data space */
dims[0] = 1000000;
- if((space = H5Screate_simple (1, dims, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(1, dims, NULL)) < 0)
+ goto error;
/* Create the data set */
- if((dataset = H5Dcreate2(file, DSET_TCONV_NAME, H5T_STD_I32LE, space,
- H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ if ((dataset = H5Dcreate2(file, DSET_TCONV_NAME, H5T_STD_I32LE, space, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0)
goto error;
/* Write the data to the dataset */
- if(H5Dwrite(dataset, H5T_STD_I32LE, H5S_ALL, H5S_ALL, H5P_DEFAULT, out) < 0)
+ if (H5Dwrite(dataset, H5T_STD_I32LE, H5S_ALL, H5S_ALL, H5P_DEFAULT, out) < 0)
goto error;
/* Read data with byte order conversion */
- if(H5Dread(dataset, H5T_STD_I32BE, H5S_ALL, H5S_ALL, H5P_DEFAULT, in) < 0)
+ if (H5Dread(dataset, H5T_STD_I32BE, H5S_ALL, H5S_ALL, H5P_DEFAULT, in) < 0)
goto error;
/* Check */
- for(i = 0; i < 1000000; i++) {
- if(in[4 * i + 0] != out[4 * i + 3] ||
- in[4 * i + 1] != out[4 * i + 2] ||
- in[4 * i + 2] != out[4 * i + 1] ||
- in[4 * i + 3] != out[4 * i + 0]) {
+ for (i = 0; i < 1000000; i++) {
+ if (in[4 * i + 0] != out[4 * i + 3] || in[4 * i + 1] != out[4 * i + 2] ||
+ in[4 * i + 2] != out[4 * i + 1] || in[4 * i + 3] != out[4 * i + 0]) {
H5_FAILED();
HDputs(" Read with byte order conversion failed.");
goto error;
}
}
- if(H5Dclose(dataset) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
HDfree(out);
HDfree(in);
@@ -1470,31 +1578,32 @@ test_tconv(hid_t file)
return SUCCEED;
error:
- if(out)
+ if (out)
HDfree(out);
- if(in)
+ if (in)
HDfree(in);
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Dclose(dataset);
H5Sclose(space);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_tconv() */
/* This message derives from H5Z */
const H5Z_class2_t H5Z_BOGUS[1] = {{
- H5Z_CLASS_T_VERS, /* H5Z_class_t version */
- H5Z_FILTER_BOGUS, /* Filter id number */
- 1, 1, /* Encoding and decoding enabled */
- "bogus", /* Filter name for debugging */
- NULL, /* The "can apply" callback */
- NULL, /* The "set local" callback */
- filter_bogus, /* The actual filter function */
+ H5Z_CLASS_T_VERS, /* H5Z_class_t version */
+ H5Z_FILTER_BOGUS, /* Filter id number */
+ 1, 1, /* Encoding and decoding enabled */
+ "bogus", /* Filter name for debugging */
+ NULL, /* The "can apply" callback */
+ NULL, /* The "set local" callback */
+ filter_bogus, /* The actual filter function */
}};
-
/*-------------------------------------------------------------------------
* Function: can_apply_bogus
*
@@ -1508,15 +1617,14 @@ const H5Z_class2_t H5Z_BOGUS[1] = {{
static htri_t
can_apply_bogus(hid_t H5_ATTR_UNUSED dcpl_id, hid_t type_id, hid_t H5_ATTR_UNUSED space_id)
{
- if(H5Tequal(type_id,H5T_NATIVE_DOUBLE))
+ if (H5Tequal(type_id, H5T_NATIVE_DOUBLE))
return 0;
- else if(H5Tequal(type_id,H5T_NATIVE_INT))
+ else if (H5Tequal(type_id, H5T_NATIVE_INT))
return 1;
else
return -1;
} /* end can_apply_bogus() */
-
/*-------------------------------------------------------------------------
* Function: filter_bogus
*
@@ -1528,13 +1636,12 @@ can_apply_bogus(hid_t H5_ATTR_UNUSED dcpl_id, hid_t type_id, hid_t H5_ATTR_UNUSE
*/
static size_t
filter_bogus(unsigned int H5_ATTR_UNUSED flags, size_t H5_ATTR_UNUSED cd_nelmts,
- const unsigned int H5_ATTR_UNUSED *cd_values, size_t nbytes,
- size_t H5_ATTR_UNUSED *buf_size, void H5_ATTR_UNUSED **buf)
+ const unsigned int H5_ATTR_UNUSED *cd_values, size_t nbytes, size_t H5_ATTR_UNUSED *buf_size,
+ void H5_ATTR_UNUSED **buf)
{
return nbytes;
} /* end filter_bogus() */
-
/*-------------------------------------------------------------------------
* Function: set_local_bogus2
*
@@ -1549,38 +1656,37 @@ filter_bogus(unsigned int H5_ATTR_UNUSED flags, size_t H5_ATTR_UNUSED cd_nelmts,
static herr_t
set_local_bogus2(hid_t dcpl_id, hid_t type_id, hid_t H5_ATTR_UNUSED space_id)
{
- unsigned add_on=0; /* Value to add to data going through */
- unsigned flags; /* Filter flags */
- size_t cd_nelmts=BOGUS2_PERM_NPARMS; /* Number of filter parameters */
- unsigned cd_values[4]; /* Filter parameters */
+ unsigned add_on = 0; /* Value to add to data going through */
+ unsigned flags; /* Filter flags */
+ size_t cd_nelmts = BOGUS2_PERM_NPARMS; /* Number of filter parameters */
+ unsigned cd_values[4]; /* Filter parameters */
/* Check for native integer datatype and set private property */
- if(H5Tequal(type_id,H5T_NATIVE_INT)>0)
- add_on=(unsigned)H5Tget_size(type_id);
+ if (H5Tequal(type_id, H5T_NATIVE_INT) > 0)
+ add_on = (unsigned)H5Tget_size(type_id);
/* Get the filter's current parameters */
- if(H5Pget_filter_by_id2(dcpl_id, H5Z_FILTER_SET_LOCAL_TEST, &flags, &cd_nelmts, cd_values, (size_t)0, NULL, NULL) < 0)
- return(FAIL);
+ if (H5Pget_filter_by_id2(dcpl_id, H5Z_FILTER_SET_LOCAL_TEST, &flags, &cd_nelmts, cd_values, (size_t)0,
+ NULL, NULL) < 0)
+ return (FAIL);
/* Check that the parameter values were passed along correctly */
- if(cd_values[0]!=BOGUS2_PARAM_1)
- return(FAIL);
- if(cd_values[1]!=BOGUS2_PARAM_2)
- return(FAIL);
+ if (cd_values[0] != BOGUS2_PARAM_1)
+ return (FAIL);
+ if (cd_values[1] != BOGUS2_PARAM_2)
+ return (FAIL);
/* Set "local" parameters for this dataset */
- cd_values[2]=(unsigned)(add_on>0); /* Flag to indicate data is modified */
- cd_values[3]=add_on; /* Amount the data was modified by */
+ cd_values[2] = (unsigned)(add_on > 0); /* Flag to indicate data is modified */
+ cd_values[3] = add_on; /* Amount the data was modified by */
/* Modify the filter's parameters for this dataset */
- if(H5Pmodify_filter(dcpl_id, H5Z_FILTER_SET_LOCAL_TEST, flags, (size_t)BOGUS2_ALL_NPARMS,
- cd_values) < 0)
- return(FAIL);
+ if (H5Pmodify_filter(dcpl_id, H5Z_FILTER_SET_LOCAL_TEST, flags, (size_t)BOGUS2_ALL_NPARMS, cd_values) < 0)
+ return (FAIL);
- return(SUCCEED);
+ return (SUCCEED);
} /* end set_local_bogus2() */
-
/*-------------------------------------------------------------------------
* Function: filter_bogus2
*
@@ -1594,47 +1700,45 @@ set_local_bogus2(hid_t dcpl_id, hid_t type_id, hid_t H5_ATTR_UNUSED space_id)
*-------------------------------------------------------------------------
*/
static size_t
-filter_bogus2(unsigned int flags, size_t cd_nelmts,
- const unsigned int *cd_values, size_t nbytes,
- size_t *buf_size, void **buf)
+filter_bogus2(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values, size_t nbytes,
+ size_t *buf_size, void **buf)
{
/* Check for the correct number of parameters */
- if(cd_nelmts!=BOGUS2_ALL_NPARMS)
- return(0);
+ if (cd_nelmts != BOGUS2_ALL_NPARMS)
+ return (0);
/* Check that permanent parameters are set correctly */
- if(cd_values[0]!=BOGUS2_PARAM_1)
- return(0);
- if(cd_values[1]!=BOGUS2_PARAM_2)
- return(0);
+ if (cd_values[0] != BOGUS2_PARAM_1)
+ return (0);
+ if (cd_values[1] != BOGUS2_PARAM_2)
+ return (0);
/* Check if this filter is supposed to do something */
- if(cd_values[2]>0) {
+ if (cd_values[2] > 0) {
/* Check whether we are "uncompressing" */
- if(flags & H5Z_FLAG_REVERSE) {
+ if (flags & H5Z_FLAG_REVERSE) {
/* Do nothing */
} /* end if */
/* "Compressing" */
else {
- unsigned add_on=cd_values[3]; /* Get "add on" value */
- int *int_ptr=(int *)*buf; /* Pointer to the data values */
- size_t buf_left=*buf_size; /* Amount of data buffer left to process */
+ unsigned add_on = cd_values[3]; /* Get "add on" value */
+ int * int_ptr = (int *)*buf; /* Pointer to the data values */
+ size_t buf_left = *buf_size; /* Amount of data buffer left to process */
/* Add the "add on" value to all the data values */
- while(buf_left>0) {
+ while (buf_left > 0) {
*int_ptr++ += (int)add_on;
buf_left -= sizeof(int);
} /* end while */
- } /* end else */
+ } /* end else */
- return(nbytes);
+ return (nbytes);
} /* end if */
/* Filter is "no op" */
else
- return(nbytes);
+ return (nbytes);
} /* end filter_bogus2() */
-
/*-------------------------------------------------------------------------
* Function: filter_bogus3
*
@@ -1646,24 +1750,23 @@ filter_bogus2(unsigned int flags, size_t cd_nelmts,
*/
static size_t
filter_bogus3(unsigned int H5_ATTR_UNUSED flags, size_t H5_ATTR_UNUSED cd_nelmts,
- const unsigned int H5_ATTR_UNUSED *cd_values, size_t H5_ATTR_UNUSED nbytes,
- size_t H5_ATTR_UNUSED *buf_size, void H5_ATTR_UNUSED **buf)
+ const unsigned int H5_ATTR_UNUSED *cd_values, size_t H5_ATTR_UNUSED nbytes,
+ size_t H5_ATTR_UNUSED *buf_size, void H5_ATTR_UNUSED **buf)
{
return 0;
} /* end filter_bogus3() */
/* This message derives from H5Z */
const H5Z_class2_t H5Z_CORRUPT[1] = {{
- H5Z_CLASS_T_VERS, /* H5Z_class_t version */
- H5Z_FILTER_CORRUPT, /* Filter id number */
+ H5Z_CLASS_T_VERS, /* H5Z_class_t version */
+ H5Z_FILTER_CORRUPT, /* Filter id number */
1, 1, /* Encoding and decoding enabled */
- "corrupt", /* Filter name for debugging */
- NULL, /* The "can apply" callback */
- NULL, /* The "set local" callback */
- filter_corrupt, /* The actual filter function */
+ "corrupt", /* Filter name for debugging */
+ NULL, /* The "can apply" callback */
+ NULL, /* The "set local" callback */
+ filter_corrupt, /* The actual filter function */
}};
-
/*-------------------------------------------------------------------------
* Function: filter_corrupt
*
@@ -1672,42 +1775,41 @@ const H5Z_class2_t H5Z_CORRUPT[1] = {{
* fail.
*
* Return: Success: Data chunk size
- * Failure: 0
+ * Failure: 0
*-------------------------------------------------------------------------
*/
static size_t
-filter_corrupt(unsigned int flags, size_t cd_nelmts,
- const unsigned int *cd_values, size_t nbytes,
- size_t *buf_size, void **buf)
+filter_corrupt(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values, size_t nbytes,
+ size_t *buf_size, void **buf)
{
- void *data = NULL;
- unsigned char *dst = (unsigned char*)(*buf);
+ void * data = NULL;
+ unsigned char *dst = (unsigned char *)(*buf);
unsigned int offset;
unsigned int length;
unsigned int value;
size_t ret_value = 0;
- if(cd_nelmts != 3 || !cd_values)
+ if (cd_nelmts != 3 || !cd_values)
TEST_ERROR
offset = cd_values[0];
length = cd_values[1];
value = cd_values[2];
- if(offset > nbytes || (offset + length) > nbytes || length < sizeof(unsigned int))
+ if (offset > nbytes || (offset + length) > nbytes || length < sizeof(unsigned int))
TEST_ERROR
- if(NULL == (data = HDmalloc((size_t)length)))
+ if (NULL == (data = HDmalloc((size_t)length)))
TEST_ERROR
HDmemset(data, (int)value, (size_t)length);
- if(flags & H5Z_FLAG_REVERSE) { /* Varify data is actually corrupted during read */
+ if (flags & H5Z_FLAG_REVERSE) { /* Varify data is actually corrupted during read */
dst += offset;
- if(HDmemcmp(data, dst, (size_t)length) != 0)
+ if (HDmemcmp(data, dst, (size_t)length) != 0)
TEST_ERROR
else {
*buf_size = nbytes;
ret_value = nbytes;
- } /* end else */
- } /* end if */
+ } /* end else */
+ } /* end if */
else { /* Write corrupted data */
dst += offset;
HDmemcpy(dst, data, (size_t)length);
@@ -1716,13 +1818,12 @@ filter_corrupt(unsigned int flags, size_t cd_nelmts,
} /* end else */
error:
- if(data)
+ if (data)
HDfree(data);
return ret_value;
} /* end filter_corrupt() */
-
/*-------------------------------------------------------------------------
* Function: filter_cb_cont
*
@@ -1733,15 +1834,14 @@ error:
*/
static H5Z_cb_return_t
filter_cb_cont(H5Z_filter_t filter, void H5_ATTR_UNUSED *buf, size_t H5_ATTR_UNUSED buf_size,
- void H5_ATTR_UNUSED *op_data)
+ void H5_ATTR_UNUSED *op_data)
{
- if(H5Z_FILTER_FLETCHER32==filter)
- return H5Z_CB_CONT;
+ if (H5Z_FILTER_FLETCHER32 == filter)
+ return H5Z_CB_CONT;
else
return H5Z_CB_FAIL;
} /* end filter_cb_cont() */
-
/*-------------------------------------------------------------------------
* Function: filter_cb_fail
*
@@ -1752,15 +1852,14 @@ filter_cb_cont(H5Z_filter_t filter, void H5_ATTR_UNUSED *buf, size_t H5_ATTR_UNU
*/
static H5Z_cb_return_t
filter_cb_fail(H5Z_filter_t filter, void H5_ATTR_UNUSED *buf, size_t H5_ATTR_UNUSED buf_size,
- void H5_ATTR_UNUSED *op_data)
+ void H5_ATTR_UNUSED *op_data)
{
- if(H5Z_FILTER_FLETCHER32==filter)
- return H5Z_CB_FAIL;
+ if (H5Z_FILTER_FLETCHER32 == filter)
+ return H5Z_CB_FAIL;
else
- return H5Z_CB_CONT;
+ return H5Z_CB_CONT;
} /* end filter_cb_fail() */
-
/*-------------------------------------------------------------------------
* Function: test_filter_internal
*
@@ -1774,51 +1873,55 @@ filter_cb_fail(H5Z_filter_t filter, void H5_ATTR_UNUSED *buf, size_t H5_ATTR_UNU
*-------------------------------------------------------------------------
*/
static herr_t
-test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32,
- int corrupted, hsize_t *dset_size)
+test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32, int corrupted,
+ hsize_t *dset_size)
{
- hid_t dataset; /* Dataset ID */
- hid_t dxpl; /* Dataset xfer property list ID */
- hid_t write_dxpl; /* Dataset xfer property list ID for writing */
- hid_t sid; /* Dataspace ID */
- const hsize_t size[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
- const hsize_t hs_offset[2] = {FILTER_HS_OFFSET1, FILTER_HS_OFFSET2}; /* Hyperslab offset */
- const hsize_t hs_size[2] = {FILTER_HS_SIZE1, FILTER_HS_SIZE2}; /* Hyperslab size */
- void *tconv_buf = NULL; /* Temporary conversion buffer */
- size_t i, j, n; /* Local index variables */
- herr_t status; /* Error status */
+ hid_t dataset; /* Dataset ID */
+ hid_t dxpl; /* Dataset xfer property list ID */
+ hid_t write_dxpl; /* Dataset xfer property list ID for writing */
+ hid_t sid; /* Dataspace ID */
+ const hsize_t size[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
+ const hsize_t hs_offset[2] = {FILTER_HS_OFFSET1, FILTER_HS_OFFSET2}; /* Hyperslab offset */
+ const hsize_t hs_size[2] = {FILTER_HS_SIZE1, FILTER_HS_SIZE2}; /* Hyperslab size */
+ void * tconv_buf = NULL; /* Temporary conversion buffer */
+ size_t i, j, n; /* Local index variables */
+ herr_t status; /* Error status */
/* Create the data space */
- if((sid = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((sid = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/*
* Create a small conversion buffer to test strip mining. We
* might as well test all we can!
*/
- if((dxpl = H5Pcreate(H5P_DATASET_XFER)) < 0) goto error;
+ if ((dxpl = H5Pcreate(H5P_DATASET_XFER)) < 0)
+ goto error;
tconv_buf = HDmalloc((size_t)1000);
- if(H5Pset_buffer(dxpl, (size_t)1000, tconv_buf, NULL) < 0) goto error;
- if((write_dxpl = H5Pcopy(dxpl)) < 0) TEST_ERROR;
+ if (H5Pset_buffer(dxpl, (size_t)1000, tconv_buf, NULL) < 0)
+ goto error;
+ if ((write_dxpl = H5Pcopy(dxpl)) < 0)
+ TEST_ERROR;
- if(if_fletcher32==DISABLE_FLETCHER32) {
- if(H5Pset_edc_check(dxpl, H5Z_DISABLE_EDC) < 0)
+ if (if_fletcher32 == DISABLE_FLETCHER32) {
+ if (H5Pset_edc_check(dxpl, H5Z_DISABLE_EDC) < 0)
goto error;
- if(H5Z_DISABLE_EDC != H5Pget_edc_check(dxpl))
+ if (H5Z_DISABLE_EDC != H5Pget_edc_check(dxpl))
goto error;
}
TESTING(" filters (setup)");
/* Check if all the filters are available */
- if(H5Pall_filters_avail(dcpl)!=TRUE) {
+ if (H5Pall_filters_avail(dcpl) != TRUE) {
H5_FAILED();
- HDprintf(" Line %d: Incorrect filter availability\n",__LINE__);
+ HDprintf(" Line %d: Incorrect filter availability\n", __LINE__);
goto error;
} /* end if */
/* Create the dataset */
- if((dataset = H5Dcreate2(fid, name, H5T_NATIVE_INT, sid, H5P_DEFAULT,
- dcpl, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset = H5Dcreate2(fid, name, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ goto error;
PASSED();
@@ -1828,20 +1931,19 @@ test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32,
*/
TESTING(" filters (uninitialized read)");
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
- TEST_ERROR;
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
+ TEST_ERROR;
- for(i=0; i<(size_t)size[0]; i++) {
- for(j=0; j<(size_t)size[1]; j++) {
- if(0!=check[i][j]) {
- H5_FAILED();
- HDprintf(" Read a non-zero value.\n");
- HDprintf(" At index %lu,%lu\n",
- (unsigned long)i, (unsigned long)j);
- goto error;
+ for (i = 0; i < (size_t)size[0]; i++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (0 != check[i][j]) {
+ H5_FAILED();
+ HDprintf(" Read a non-zero value.\n");
+ HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
+ goto error;
+ }
}
}
- }
PASSED();
/*----------------------------------------------------------------------
@@ -1851,16 +1953,17 @@ test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32,
*/
TESTING(" filters (write)");
- for(i=n=0; i<size[0]; i++) {
- for(j=0; j<size[1]; j++) {
+ for (i = n = 0; i < size[0]; i++) {
+ for (j = 0; j < size[1]; j++) {
points[i][j] = (int)(n++);
}
}
- if(H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, points_data) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, points_data) < 0)
TEST_ERROR;
- if((*dset_size=H5Dget_storage_size(dataset))==0) TEST_ERROR;
+ if ((*dset_size = H5Dget_storage_size(dataset)) == 0)
+ TEST_ERROR;
PASSED();
@@ -1871,40 +1974,42 @@ test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32,
TESTING(" filters (read)");
/* Read the dataset back */
- if(corrupted) {
+ if (corrupted) {
/* Default behavior is failure when data is corrupted. */
/* (Use the "write" DXPL in order to make certain corruption is seen) */
- H5E_BEGIN_TRY {
- status=H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
- } H5E_END_TRY;
- if(status>=0) TEST_ERROR;
+ H5E_BEGIN_TRY { status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data); }
+ H5E_END_TRY;
+ if (status >= 0)
+ TEST_ERROR;
/* Callback decides to continue inspite data is corrupted. */
- if(H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0) TEST_ERROR;
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
+ if (H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0)
+ TEST_ERROR;
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
TEST_ERROR;
/* Callback decides to fail when data is corrupted. */
- if(H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0) TEST_ERROR;
+ if (H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0)
+ TEST_ERROR;
/* (Use the "write" DXPL in order to make certain corruption is seen) */
- H5E_BEGIN_TRY {
- status=H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
- } H5E_END_TRY;
- if(status>=0) TEST_ERROR;
+ H5E_BEGIN_TRY { status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data); }
+ H5E_END_TRY;
+ if (status >= 0)
+ TEST_ERROR;
}
else {
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
TEST_ERROR;
/* Check that the values read are the same as the values written */
- for(i=0; i<size[0]; i++) {
- for(j=0; j<size[1]; j++) {
- if(points[i][j] != check[i][j]) {
+ for (i = 0; i < size[0]; i++) {
+ for (j = 0; j < size[1]; j++) {
+ if (points[i][j] != check[i][j]) {
H5_FAILED();
- HDfprintf(stderr," Read different values than written.\n");
- HDfprintf(stderr," At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
- HDfprintf(stderr," At original: %d\n", (int)points[i][j]);
- HDfprintf(stderr," At returned: %d\n", (int)check[i][j]);
+ HDfprintf(stderr, " Read different values than written.\n");
+ HDfprintf(stderr, " At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
+ HDfprintf(stderr, " At original: %d\n", (int)points[i][j]);
+ HDfprintf(stderr, " At returned: %d\n", (int)check[i][j]);
goto error;
}
}
@@ -1922,55 +2027,57 @@ test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32,
*/
TESTING(" filters (modify)");
- for(i=0; i<size[0]; i++) {
- for(j=0; j<size[1]/2; j++) {
- points[i][j] = (int)HDrandom ();
+ for (i = 0; i < size[0]; i++) {
+ for (j = 0; j < size[1] / 2; j++) {
+ points[i][j] = (int)HDrandom();
}
}
- if(H5Dwrite (dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, points_data) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, points_data) < 0)
TEST_ERROR;
- if(corrupted) {
+ if (corrupted) {
/* Default behavior is failure when data is corrupted. */
/* (Use the "write" DXPL in order to make certain corruption is seen) */
- H5E_BEGIN_TRY {
- status=H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
- } H5E_END_TRY;
- if(status>=0) TEST_ERROR;
+ H5E_BEGIN_TRY { status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data); }
+ H5E_END_TRY;
+ if (status >= 0)
+ TEST_ERROR;
/* Callback decides to continue inspite data is corrupted. */
- if(H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0) TEST_ERROR;
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
+ if (H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0)
+ TEST_ERROR;
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
TEST_ERROR;
/* Callback decides to fail when data is corrupted. */
- if(H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0) TEST_ERROR;
+ if (H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0)
+ TEST_ERROR;
/* (Use the "write" DXPL in order to make certain corruption is seen) */
- H5E_BEGIN_TRY {
- status=H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
- } H5E_END_TRY;
- if(status>=0) TEST_ERROR;
+ H5E_BEGIN_TRY { status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data); }
+ H5E_END_TRY;
+ if (status >= 0)
+ TEST_ERROR;
}
else {
/* Read the dataset back and check it */
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
TEST_ERROR;
/* Check that the values read are the same as the values written */
- for(i=0; i<size[0]; i++) {
- for(j=0; j<size[1]; j++) {
- if(points[i][j] != check[i][j]) {
+ for (i = 0; i < size[0]; i++) {
+ for (j = 0; j < size[1]; j++) {
+ if (points[i][j] != check[i][j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
- HDprintf(" At index %lu,%lu\n",
- (unsigned long)i, (unsigned long)j);
+ HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
goto error;
}
}
}
}
- if((*dset_size=H5Dget_storage_size(dataset))==0) TEST_ERROR;
+ if ((*dset_size = H5Dget_storage_size(dataset)) == 0)
+ TEST_ERROR;
PASSED();
/*----------------------------------------------------------------------
@@ -1981,50 +2088,52 @@ test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32,
*/
TESTING(" filters (re-open)");
- if(H5Dclose(dataset) < 0) TEST_ERROR;
- if((dataset = H5Dopen2(fid, name, H5P_DEFAULT)) < 0) TEST_ERROR;
+ if (H5Dclose(dataset) < 0)
+ TEST_ERROR;
+ if ((dataset = H5Dopen2(fid, name, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
- if(corrupted) {
+ if (corrupted) {
/* Default behavior is failure when data is corrupted. */
/* (Use the "write" DXPL in order to make certain corruption is seen) */
- H5E_BEGIN_TRY {
- status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
- } H5E_END_TRY;
- if(status >= 0) TEST_ERROR;
+ H5E_BEGIN_TRY { status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data); }
+ H5E_END_TRY;
+ if (status >= 0)
+ TEST_ERROR;
/* Callback decides to continue inspite data is corrupted. */
- if(H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0) TEST_ERROR;
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
+ if (H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0)
+ TEST_ERROR;
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
TEST_ERROR;
/* Callback decides to fail when data is corrupted. */
- if(H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0) TEST_ERROR;
+ if (H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0)
+ TEST_ERROR;
/* (Use the "write" DXPL in order to make certain corruption is seen) */
- H5E_BEGIN_TRY {
- status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
- } H5E_END_TRY;
- if(status >= 0) TEST_ERROR;
+ H5E_BEGIN_TRY { status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data); }
+ H5E_END_TRY;
+ if (status >= 0)
+ TEST_ERROR;
} /* end if */
else {
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
TEST_ERROR;
/* Check that the values read are the same as the values written */
- for(i = 0; i < size[0]; i++)
- for(j = 0; j < size[1]; j++)
- if(points[i][j] != check[i][j]) {
+ for (i = 0; i < size[0]; i++)
+ for (j = 0; j < size[1]; j++)
+ if (points[i][j] != check[i][j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
- HDprintf(" At index %lu,%lu\n",
- (unsigned long)i, (unsigned long)j);
+ HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
goto error;
} /* end if */
- } /* end else */
+ } /* end else */
PASSED();
-
/*----------------------------------------------------------------------
* STEP 6: Test partial I/O by writing to and then reading from a
* hyperslab of the dataset. The hyperslab does not line up on chunk
@@ -2033,56 +2142,58 @@ test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32,
*/
TESTING(" filters (partial I/O)");
- for(i=0; i<(size_t)hs_size[0]; i++) {
- for(j=0; j<(size_t)hs_size[1]; j++) {
- points[(size_t)hs_offset[0]+i][(size_t)hs_offset[1]+j] = (int)HDrandom();
+ for (i = 0; i < (size_t)hs_size[0]; i++) {
+ for (j = 0; j < (size_t)hs_size[1]; j++) {
+ points[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j] = (int)HDrandom();
}
}
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, hs_offset, NULL, hs_size,
- NULL) < 0) TEST_ERROR;
- /* (Use the "read" DXPL because partial I/O on corrupted data test needs to ignore errors during writing) */
- if(H5Dwrite (dataset, H5T_NATIVE_INT, sid, sid, dxpl, points_data) < 0)
- TEST_ERROR;
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, hs_offset, NULL, hs_size, NULL) < 0)
+ TEST_ERROR;
+ /* (Use the "read" DXPL because partial I/O on corrupted data test needs to ignore errors during writing)
+ */
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, sid, sid, dxpl, points_data) < 0)
+ TEST_ERROR;
- if(corrupted) {
+ if (corrupted) {
/* Default behavior is failure when data is corrupted. */
/* (Use the "write" DXPL in order to make certain corruption is seen) */
- H5E_BEGIN_TRY {
- status=H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
- } H5E_END_TRY;
- if(status>=0) TEST_ERROR;
+ H5E_BEGIN_TRY { status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data); }
+ H5E_END_TRY;
+ if (status >= 0)
+ TEST_ERROR;
/* Callback decides to continue inspite data is corrupted. */
- if(H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0) TEST_ERROR;
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
+ if (H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0)
+ TEST_ERROR;
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
TEST_ERROR;
/* Callback decides to fail when data is corrupted. */
- if(H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0) TEST_ERROR;
+ if (H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0)
+ TEST_ERROR;
/* (Use the "write" DXPL in order to make certain corruption is seen) */
- H5E_BEGIN_TRY {
- status=H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
- } H5E_END_TRY;
- if(status>=0) TEST_ERROR;
+ H5E_BEGIN_TRY { status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data); }
+ H5E_END_TRY;
+ if (status >= 0)
+ TEST_ERROR;
}
else {
- if(H5Dread (dataset, H5T_NATIVE_INT, sid, sid, dxpl, check_data) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_INT, sid, sid, dxpl, check_data) < 0)
TEST_ERROR;
/* Check that the values read are the same as the values written */
- for(i=0; i<(size_t)hs_size[0]; i++) {
- for(j=0; j<(size_t)hs_size[1]; j++) {
- if(points[(size_t)hs_offset[0]+i][(size_t)hs_offset[1]+j] !=
- check[(size_t)hs_offset[0]+i][(size_t)hs_offset[1]+j]) {
+ for (i = 0; i < (size_t)hs_size[0]; i++) {
+ for (j = 0; j < (size_t)hs_size[1]; j++) {
+ if (points[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j] !=
+ check[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j]) {
H5_FAILED();
- HDfprintf(stderr," Read different values than written.\n");
- HDfprintf(stderr," At index %lu,%lu\n",
- (unsigned long)((size_t)hs_offset[0]+i),
- (unsigned long)((size_t)hs_offset[1]+j));
- HDfprintf(stderr," At original: %d\n",
- (int)points[(size_t)hs_offset[0]+i][(size_t)hs_offset[1]+j]);
- HDfprintf(stderr," At returned: %d\n",
- (int)check[(size_t)hs_offset[0]+i][(size_t)hs_offset[1]+j]);
+ HDfprintf(stderr, " Read different values than written.\n");
+ HDfprintf(stderr, " At index %lu,%lu\n", (unsigned long)((size_t)hs_offset[0] + i),
+ (unsigned long)((size_t)hs_offset[1] + j));
+ HDfprintf(stderr, " At original: %d\n",
+ (int)points[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j]);
+ HDfprintf(stderr, " At returned: %d\n",
+ (int)check[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j]);
goto error;
}
}
@@ -2090,22 +2201,27 @@ test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32,
}
/* Get the storage size of the dataset */
- if((*dset_size=H5Dget_storage_size(dataset))==0) goto error;
+ if ((*dset_size = H5Dget_storage_size(dataset)) == 0)
+ goto error;
PASSED();
/* Clean up objects used for this test */
- if(H5Dclose (dataset) < 0) goto error;
- if(H5Sclose (sid) < 0) goto error;
- if(H5Pclose (dxpl) < 0) goto error;
- if(H5Pclose (write_dxpl) < 0) goto error;
- HDfree (tconv_buf);
+ if (H5Dclose(dataset) < 0)
+ goto error;
+ if (H5Sclose(sid) < 0)
+ goto error;
+ if (H5Pclose(dxpl) < 0)
+ goto error;
+ if (H5Pclose(write_dxpl) < 0)
+ goto error;
+ HDfree(tconv_buf);
return SUCCEED;
error:
- if(tconv_buf)
- HDfree (tconv_buf);
+ if (tconv_buf)
+ HDfree(tconv_buf);
return FAIL;
} /* end test_filter_internal() */
@@ -2124,16 +2240,16 @@ error:
static herr_t
test_filter_noencoder(const char *dset_name)
{
- hid_t file_id = -1;
- hid_t dset_id = -1;
- hid_t test_dset_id = -1;
- hid_t dcpl_id = -1;
- hid_t space_id = -1;
- hsize_t dims = 10;
- herr_t err;
- int test_ints[10] = { 12 };
- int read_buf[10];
- int i;
+ hid_t file_id = -1;
+ hid_t dset_id = -1;
+ hid_t test_dset_id = -1;
+ hid_t dcpl_id = -1;
+ hid_t space_id = -1;
+ hsize_t dims = 10;
+ herr_t err;
+ int test_ints[10] = {12};
+ int read_buf[10];
+ int i;
/* Make a local copy of the file since this test writes to the data file
from svn. */
@@ -2142,22 +2258,26 @@ test_filter_noencoder(const char *dset_name)
/* Open file */
file_id = H5Fopen(NOENCODER_COPY_FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
- if(file_id < 0) goto error;
+ if (file_id < 0)
+ goto error;
dset_id = H5Dopen2(file_id, dset_name, H5P_DEFAULT);
- if(dset_id < 0) goto error;
+ if (dset_id < 0)
+ goto error;
space_id = H5Screate_simple(1, &dims, NULL);
- if(space_id < 0) goto error;
+ if (space_id < 0)
+ goto error;
TESTING(" decoding without encoder");
/* Read the dataset and make sure the decoder is working correctly */
err = H5Dread(dset_id, H5T_NATIVE_INT, space_id, space_id, H5P_DEFAULT, read_buf);
- if(err < 0) goto error;
+ if (err < 0)
+ goto error;
- for(i = 0; i < 10; i++)
- if(read_buf[i] != i)
+ for (i = 0; i < 10; i++)
+ if (read_buf[i] != i)
goto error;
H5Sclose(space_id);
@@ -2171,36 +2291,42 @@ test_filter_noencoder(const char *dset_name)
TESTING(" trying to write without encoder");
dcpl_id = H5Dget_create_plist(dset_id);
- if(dcpl_id < 0) goto error;
+ if (dcpl_id < 0)
+ goto error;
space_id = H5Screate_simple(1, &dims, NULL);
- if(space_id < 0) goto error;
+ if (space_id < 0)
+ goto error;
- H5E_BEGIN_TRY{
- test_dset_id = H5Dcreate2(file_id, NOENCODER_TEST_DATASET, H5T_NATIVE_INT, space_id, H5P_DEFAULT, dcpl_id, H5P_DEFAULT);
- }H5E_END_TRY
+ H5E_BEGIN_TRY
+ {
+ test_dset_id = H5Dcreate2(file_id, NOENCODER_TEST_DATASET, H5T_NATIVE_INT, space_id, H5P_DEFAULT,
+ dcpl_id, H5P_DEFAULT);
+ }
+ H5E_END_TRY
- if(test_dset_id >= 0) goto error;
+ if (test_dset_id >= 0)
+ goto error;
/* Attempt to extend the dataset. This should fail because
* the dataset has a fill value and is instructed to fill on
* allocation.
*/
dims = 20; /* Dataset is originally of size 10 */
- H5E_BEGIN_TRY{
- err = H5Dset_extent(dset_id, &dims);
- }H5E_END_TRY
+ H5E_BEGIN_TRY { err = H5Dset_extent(dset_id, &dims); }
+ H5E_END_TRY
- if(err >= 0) goto error;
+ if (err >= 0)
+ goto error;
/* Attempt to write to the dataset. This should fail because
* the filter does not have an encoder.
*/
- H5E_BEGIN_TRY{
- err = H5Dwrite(dset_id, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, test_ints);
- }H5E_END_TRY
+ H5E_BEGIN_TRY { err = H5Dwrite(dset_id, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, test_ints); }
+ H5E_END_TRY
- if(err >= 0) goto error;
+ if (err >= 0)
+ goto error;
H5Fclose(file_id);
H5Dclose(dset_id);
@@ -2213,15 +2339,15 @@ test_filter_noencoder(const char *dset_name)
error:
H5_FAILED();
- if(dset_id != -1)
+ if (dset_id != -1)
H5Dclose(dset_id);
- if(test_dset_id != -1)
+ if (test_dset_id != -1)
H5Dclose(test_dset_id);
- if(space_id != -1)
+ if (space_id != -1)
H5Sclose(space_id);
- if(dcpl_id != -1)
+ if (dcpl_id != -1)
H5Pclose(dcpl_id);
- if(file_id != -1)
+ if (file_id != -1)
H5Fclose(file_id);
return FAIL;
@@ -2240,61 +2366,65 @@ error:
static herr_t
test_get_filter_info(void)
{
- unsigned int flags; /* flags returned from H5Zget_filter_info */
- herr_t err;
+ unsigned int flags; /* flags returned from H5Zget_filter_info */
+ herr_t err;
- TESTING("H5Zget_filter_info");
+ TESTING("H5Zget_filter_info");
- /* Verify that each filter is reported as having the right combination
- * of encoder and decoder.
- */
- if(H5Zget_filter_info(H5Z_FILTER_FLETCHER32, &flags) < 0) TEST_ERROR
+ /* Verify that each filter is reported as having the right combination
+ * of encoder and decoder.
+ */
+ if (H5Zget_filter_info(H5Z_FILTER_FLETCHER32, &flags) < 0)
+ TEST_ERROR
- if(((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
- ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
- TEST_ERROR
+ if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
+ ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
+ TEST_ERROR
- if(H5Zget_filter_info(H5Z_FILTER_SHUFFLE, &flags) < 0) TEST_ERROR
+ if (H5Zget_filter_info(H5Z_FILTER_SHUFFLE, &flags) < 0)
+ TEST_ERROR
- if(((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
- ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
- TEST_ERROR
+ if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
+ ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
+ TEST_ERROR
#ifdef H5_HAVE_FILTER_DEFLATE
- if(H5Zget_filter_info(H5Z_FILTER_DEFLATE, &flags) < 0) TEST_ERROR
+ if (H5Zget_filter_info(H5Z_FILTER_DEFLATE, &flags) < 0)
+ TEST_ERROR
- if(((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
- ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
- TEST_ERROR
+ if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
+ ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
+ TEST_ERROR
#endif
#ifdef H5_HAVE_FILTER_SZIP
- if(H5Zget_filter_info(H5Z_FILTER_SZIP, &flags) < 0) TEST_ERROR
+ if (H5Zget_filter_info(H5Z_FILTER_SZIP, &flags) < 0)
+ TEST_ERROR
- if(H5Z_SZIP->encoder_present) {
- if(((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
- ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
+ if (H5Z_SZIP->encoder_present) {
+ if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
+ ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
TEST_ERROR
} /* end if */
else {
- if(((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) != 0) ||
- ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
+ if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) != 0) ||
+ ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
TEST_ERROR
- } /* end else */
+ } /* end else */
#endif /* H5_HAVE_FILTER_SZIP */
- /* Verify that get_filter_info throws an error when given a bad filter */
- /* (Depends on 1.6 compatibility flag) */
- H5E_BEGIN_TRY {
- err = H5Zget_filter_info(-1, &flags);
- } H5E_END_TRY;
- if(err >= 0) TEST_ERROR
+ /* Verify that get_filter_info throws an error when given a bad filter */
+ /* (Depends on 1.6 compatibility flag) */
+ H5E_BEGIN_TRY { err = H5Zget_filter_info(-1, &flags); }
+ H5E_END_TRY;
+ if (err >= 0)
+ TEST_ERROR
- PASSED();
- return SUCCEED;
+ PASSED();
+ return SUCCEED;
error:
- return FAIL;
+ return FAIL;
} /* end test_get_filter_info() */
/*-------------------------------------------------------------------------
@@ -2309,63 +2439,76 @@ error:
static herr_t
test_filters(hid_t file, hid_t
#ifndef H5_HAVE_FILTER_SZIP
-H5_ATTR_UNUSED
+ H5_ATTR_UNUSED
#endif /* H5_HAVE_FILTER_SZIP */
- fapl)
+ fapl)
{
- hid_t dc; /* Dataset creation property list ID */
- const hsize_t chunk_size[2] = {FILTER_CHUNK_DIM1, FILTER_CHUNK_DIM2}; /* Chunk dimensions */
- hsize_t null_size; /* Size of dataset with null filter */
+ hid_t dc; /* Dataset creation property list ID */
+ const hsize_t chunk_size[2] = {FILTER_CHUNK_DIM1, FILTER_CHUNK_DIM2}; /* Chunk dimensions */
+ hsize_t null_size; /* Size of dataset with null filter */
- hsize_t fletcher32_size; /* Size of dataset with Fletcher32 checksum */
- unsigned data_corrupt[3]; /* position and length of data to be corrupted */
+ hsize_t fletcher32_size; /* Size of dataset with Fletcher32 checksum */
+ unsigned data_corrupt[3]; /* position and length of data to be corrupted */
#ifdef H5_HAVE_FILTER_DEFLATE
- hsize_t deflate_size; /* Size of dataset with deflate filter */
-#endif /* H5_HAVE_FILTER_DEFLATE */
+ hsize_t deflate_size; /* Size of dataset with deflate filter */
+#endif /* H5_HAVE_FILTER_DEFLATE */
#ifdef H5_HAVE_FILTER_SZIP
- hsize_t szip_size; /* Size of dataset with szip filter */
- unsigned szip_options_mask = H5_SZIP_NN_OPTION_MASK;
- unsigned szip_pixels_per_block = 4;
+ hsize_t szip_size; /* Size of dataset with szip filter */
+ unsigned szip_options_mask = H5_SZIP_NN_OPTION_MASK;
+ unsigned szip_pixels_per_block = 4;
#endif /* H5_HAVE_FILTER_SZIP */
- hsize_t shuffle_size; /* Size of dataset with shuffle filter */
+ hsize_t shuffle_size; /* Size of dataset with shuffle filter */
#if defined(H5_HAVE_FILTER_DEFLATE) || defined(H5_HAVE_FILTER_SZIP)
- hsize_t combo_size; /* Size of dataset with multiple filters */
-#endif /* defined(H5_HAVE_FILTER_DEFLATE) || defined(H5_HAVE_FILTER_SZIP) */
+ hsize_t combo_size; /* Size of dataset with multiple filters */
+#endif /* defined(H5_HAVE_FILTER_DEFLATE) || defined(H5_HAVE_FILTER_SZIP) */
/* test the H5Zget_filter_info function */
- if(test_get_filter_info() < 0) goto error;
+ if (test_get_filter_info() < 0)
+ goto error;
/*----------------------------------------------------------
* STEP 0: Test null I/O filter by itself.
*----------------------------------------------------------
*/
HDputs("Testing 'null' filter");
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
- if(H5Zregister (H5Z_BOGUS) < 0) goto error;
- if(H5Pset_filter(dc, H5Z_FILTER_BOGUS, 0, (size_t)0, NULL) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Zregister(H5Z_BOGUS) < 0)
+ goto error;
+ if (H5Pset_filter(dc, H5Z_FILTER_BOGUS, 0, (size_t)0, NULL) < 0)
+ goto error;
- if(test_filter_internal(file,DSET_BOGUS_NAME,dc,DISABLE_FLETCHER32,DATA_NOT_CORRUPTED,&null_size) < 0) goto error;
+ if (test_filter_internal(file, DSET_BOGUS_NAME, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED, &null_size) <
+ 0)
+ goto error;
/* Clean up objects used for this test */
- if(H5Pclose (dc) < 0) goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
/*----------------------------------------------------------
* STEP 1: Test Fletcher32 Checksum by itself.
*----------------------------------------------------------
*/
HDputs("Testing Fletcher32 checksum(enabled for read)");
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_filter(dc, H5Z_FILTER_FLETCHER32, 0, (size_t)0, NULL) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_filter(dc, H5Z_FILTER_FLETCHER32, 0, (size_t)0, NULL) < 0)
+ goto error;
/* Enable checksum during read */
- if(test_filter_internal(file,DSET_FLETCHER32_NAME,dc,ENABLE_FLETCHER32,DATA_NOT_CORRUPTED,&fletcher32_size) < 0) goto error;
- if(fletcher32_size<=null_size) {
+ if (test_filter_internal(file, DSET_FLETCHER32_NAME, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &fletcher32_size) < 0)
+ goto error;
+ if (fletcher32_size <= null_size) {
H5_FAILED();
HDputs(" Size after checksumming is incorrect.");
goto error;
@@ -2373,8 +2516,10 @@ H5_ATTR_UNUSED
/* Disable checksum during read */
HDputs("Testing Fletcher32 checksum(disabled for read)");
- if(test_filter_internal(file,DSET_FLETCHER32_NAME_2,dc,DISABLE_FLETCHER32,DATA_NOT_CORRUPTED,&fletcher32_size) < 0) goto error;
- if(fletcher32_size<=null_size) {
+ if (test_filter_internal(file, DSET_FLETCHER32_NAME_2, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &fletcher32_size) < 0)
+ goto error;
+ if (fletcher32_size <= null_size) {
H5_FAILED();
HDputs(" Size after checksumming is incorrect.");
goto error;
@@ -2386,52 +2531,68 @@ H5_ATTR_UNUSED
data_corrupt[1] = 33;
data_corrupt[2] = 27;
- if(H5Zregister (H5Z_CORRUPT) < 0) goto error;
- if(H5Pset_filter(dc, H5Z_FILTER_CORRUPT, 0, (size_t)3, data_corrupt) < 0) goto error;
- if(test_filter_internal(file,DSET_FLETCHER32_NAME_3,dc,DISABLE_FLETCHER32,DATA_CORRUPTED,&fletcher32_size) < 0) goto error;
- if(fletcher32_size<=null_size) {
+ if (H5Zregister(H5Z_CORRUPT) < 0)
+ goto error;
+ if (H5Pset_filter(dc, H5Z_FILTER_CORRUPT, 0, (size_t)3, data_corrupt) < 0)
+ goto error;
+ if (test_filter_internal(file, DSET_FLETCHER32_NAME_3, dc, DISABLE_FLETCHER32, DATA_CORRUPTED,
+ &fletcher32_size) < 0)
+ goto error;
+ if (fletcher32_size <= null_size) {
H5_FAILED();
HDputs(" Size after checksumming is incorrect.");
goto error;
} /* end if */
/* Clean up objects used for this test */
- if(H5Pclose (dc) < 0) goto error;
-
+ if (H5Pclose(dc) < 0)
+ goto error;
- /*----------------------------------------------------------
- * STEP 2: Test deflation by itself.
- *----------------------------------------------------------
- */
+ /*----------------------------------------------------------
+ * STEP 2: Test deflation by itself.
+ *----------------------------------------------------------
+ */
#ifdef H5_HAVE_FILTER_DEFLATE
HDputs("Testing deflate filter");
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_deflate (dc, 6) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_deflate(dc, 6) < 0)
+ goto error;
- if(test_filter_internal(file,DSET_DEFLATE_NAME,dc,DISABLE_FLETCHER32,DATA_NOT_CORRUPTED,&deflate_size) < 0) goto error;
+ if (test_filter_internal(file, DSET_DEFLATE_NAME, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &deflate_size) < 0)
+ goto error;
/* Clean up objects used for this test */
- if(H5Pclose (dc) < 0) goto error;
-#else /* H5_HAVE_FILTER_DEFLATE */
+ if (H5Pclose(dc) < 0)
+ goto error;
+#else /* H5_HAVE_FILTER_DEFLATE */
TESTING("deflate filter");
SKIPPED();
HDputs(" Deflate filter not enabled");
#endif /* H5_HAVE_FILTER_DEFLATE */
- /*----------------------------------------------------------
- * STEP 3: Test szip compression by itself.
- *----------------------------------------------------------
- */
+ /*----------------------------------------------------------
+ * STEP 3: Test szip compression by itself.
+ *----------------------------------------------------------
+ */
#ifdef H5_HAVE_FILTER_SZIP
TESTING("szip filter (with encoder)");
- if( h5_szip_can_encode() == 1) {
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
+ if (h5_szip_can_encode() == 1) {
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
- HDputs("");
- if(H5Pset_szip(dc, szip_options_mask, szip_pixels_per_block) < 0) goto error;
- if(test_filter_internal(file,DSET_SZIP_NAME,dc,DISABLE_FLETCHER32,DATA_NOT_CORRUPTED,&szip_size) < 0) goto error;
- if(H5Pclose (dc) < 0) goto error;
+ HDputs("");
+ if (H5Pset_szip(dc, szip_options_mask, szip_pixels_per_block) < 0)
+ goto error;
+ if (test_filter_internal(file, DSET_SZIP_NAME, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &szip_size) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
}
else {
SKIPPED();
@@ -2439,15 +2600,16 @@ H5_ATTR_UNUSED
TESTING("szip filter (without encoder)");
- if( h5_szip_can_encode() != 1) {
+ if (h5_szip_can_encode() != 1) {
HDputs("");
- if(test_filter_noencoder(NOENCODER_SZIP_DATASET) < 0) goto error;
+ if (test_filter_noencoder(NOENCODER_SZIP_DATASET) < 0)
+ goto error;
}
else {
SKIPPED();
}
-#else /* H5_HAVE_FILTER_SZIP */
+#else /* H5_HAVE_FILTER_SZIP */
TESTING("szip filter");
SKIPPED();
HDputs(" Szip filter not enabled");
@@ -2458,71 +2620,100 @@ H5_ATTR_UNUSED
*----------------------------------------------------------
*/
HDputs("Testing shuffle filter");
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_shuffle (dc) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_shuffle(dc) < 0)
+ goto error;
- if(test_filter_internal(file,DSET_SHUFFLE_NAME,dc,DISABLE_FLETCHER32,DATA_NOT_CORRUPTED,&shuffle_size) < 0) goto error;
- if(shuffle_size!=null_size) {
+ if (test_filter_internal(file, DSET_SHUFFLE_NAME, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &shuffle_size) < 0)
+ goto error;
+ if (shuffle_size != null_size) {
H5_FAILED();
HDputs(" Shuffled size not the same as uncompressed size.");
goto error;
} /* end if */
/* Clean up objects used for this test */
- if(H5Pclose (dc) < 0) goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
- /*----------------------------------------------------------
- * STEP 5: Test shuffle + deflate + checksum in any order.
- *----------------------------------------------------------
- */
+ /*----------------------------------------------------------
+ * STEP 5: Test shuffle + deflate + checksum in any order.
+ *----------------------------------------------------------
+ */
#ifdef H5_HAVE_FILTER_DEFLATE
HDputs("Testing shuffle+deflate+checksum filters(checksum first)");
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_fletcher32 (dc) < 0) goto error;
- if(H5Pset_shuffle (dc) < 0) goto error;
- if(H5Pset_deflate (dc, 6) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_fletcher32(dc) < 0)
+ goto error;
+ if (H5Pset_shuffle(dc) < 0)
+ goto error;
+ if (H5Pset_deflate(dc, 6) < 0)
+ goto error;
- if(test_filter_internal(file,DSET_SHUF_DEF_FLET_NAME,dc,ENABLE_FLETCHER32,DATA_NOT_CORRUPTED,&combo_size) < 0) goto error;
+ if (test_filter_internal(file, DSET_SHUF_DEF_FLET_NAME, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &combo_size) < 0)
+ goto error;
/* Clean up objects used for this test */
- if(H5Pclose (dc) < 0) goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
HDputs("Testing shuffle+deflate+checksum filters(checksum last)");
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_shuffle (dc) < 0) goto error;
- if(H5Pset_deflate (dc, 6) < 0) goto error;
- if(H5Pset_fletcher32 (dc) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_shuffle(dc) < 0)
+ goto error;
+ if (H5Pset_deflate(dc, 6) < 0)
+ goto error;
+ if (H5Pset_fletcher32(dc) < 0)
+ goto error;
- if(test_filter_internal(file,DSET_SHUF_DEF_FLET_NAME_2,dc,ENABLE_FLETCHER32,DATA_NOT_CORRUPTED,&combo_size) < 0) goto error;
+ if (test_filter_internal(file, DSET_SHUF_DEF_FLET_NAME_2, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &combo_size) < 0)
+ goto error;
/* Clean up objects used for this test */
- if(H5Pclose (dc) < 0) goto error;
-#else /* H5_HAVE_FILTER_DEFLATE */
+ if (H5Pclose(dc) < 0)
+ goto error;
+#else /* H5_HAVE_FILTER_DEFLATE */
TESTING("shuffle+deflate+fletcher32 filters");
SKIPPED();
HDputs(" Deflate filter not enabled");
#endif /* H5_HAVE_FILTER_DEFLATE */
- /*----------------------------------------------------------
- * STEP 6: Test shuffle + szip + checksum in any order.
- *----------------------------------------------------------
- */
+ /*----------------------------------------------------------
+ * STEP 6: Test shuffle + szip + checksum in any order.
+ *----------------------------------------------------------
+ */
#ifdef H5_HAVE_FILTER_SZIP
TESTING("shuffle+szip+checksum filters(checksum first, with encoder)");
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_fletcher32 (dc) < 0) goto error;
- if(H5Pset_shuffle (dc) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_fletcher32(dc) < 0)
+ goto error;
+ if (H5Pset_shuffle(dc) < 0)
+ goto error;
/* Make sure encoding is enabled */
- if( h5_szip_can_encode() == 1) {
+ if (h5_szip_can_encode() == 1) {
HDputs("");
- if(H5Pset_szip(dc, szip_options_mask, szip_pixels_per_block) < 0) goto error;
- if(test_filter_internal(file,DSET_SHUF_SZIP_FLET_NAME,dc,ENABLE_FLETCHER32,DATA_NOT_CORRUPTED,&combo_size) < 0) goto error;
+ if (H5Pset_szip(dc, szip_options_mask, szip_pixels_per_block) < 0)
+ goto error;
+ if (test_filter_internal(file, DSET_SHUF_SZIP_FLET_NAME, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &combo_size) < 0)
+ goto error;
}
else {
SKIPPED();
@@ -2530,38 +2721,48 @@ H5_ATTR_UNUSED
TESTING("shuffle+szip+checksum filters(checksum first, without encoder)");
- if( h5_szip_can_encode() != 1) {
+ if (h5_szip_can_encode() != 1) {
HDputs("");
- if(test_filter_noencoder(NOENCODER_SZIP_SHUFF_FLETCH_DATASET) < 0) goto error;
+ if (test_filter_noencoder(NOENCODER_SZIP_SHUFF_FLETCH_DATASET) < 0)
+ goto error;
}
else {
SKIPPED();
}
/* Clean up objects used for this test */
- if(H5Pclose (dc) < 0) goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
TESTING("shuffle+szip+checksum filters(checksum last, with encoder)");
/* Make sure encoding is enabled */
- if( h5_szip_can_encode() == 1) {
+ if (h5_szip_can_encode() == 1) {
HDputs("");
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_shuffle (dc) < 0) goto error;
- if(H5Pset_szip(dc, szip_options_mask, szip_pixels_per_block) < 0) goto error;
- if(H5Pset_fletcher32 (dc) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_shuffle(dc) < 0)
+ goto error;
+ if (H5Pset_szip(dc, szip_options_mask, szip_pixels_per_block) < 0)
+ goto error;
+ if (H5Pset_fletcher32(dc) < 0)
+ goto error;
- if(test_filter_internal(file,DSET_SHUF_SZIP_FLET_NAME_2,dc,ENABLE_FLETCHER32,DATA_NOT_CORRUPTED,&combo_size) < 0) goto error;
+ if (test_filter_internal(file, DSET_SHUF_SZIP_FLET_NAME_2, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &combo_size) < 0)
+ goto error;
/* Clean up objects used for this test */
- if(H5Pclose (dc) < 0) goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
}
else {
SKIPPED();
}
-#else /* H5_HAVE_FILTER_SZIP */
+#else /* H5_HAVE_FILTER_SZIP */
TESTING("shuffle+szip+fletcher32 filters");
SKIPPED();
HDputs(" szip filter not enabled");
@@ -2572,7 +2773,6 @@ error:
return FAIL;
} /* end test_filters() */
-
/*-------------------------------------------------------------------------
* Function: test_missing_filter
*
@@ -2584,242 +2784,244 @@ error:
static herr_t
test_missing_filter(hid_t file)
{
- hid_t fid; /* File ID */
- hid_t dsid; /* Dataset ID */
- hid_t sid; /* Dataspace ID */
- hid_t dcpl; /* Dataspace creation property list ID */
- const hsize_t dims[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
- const hsize_t chunk_dims[2] = {2, 25}; /* Chunk dimensions */
- hsize_t dset_size; /* Dataset size */
- size_t i,j; /* Local index variables */
- herr_t ret; /* Generic return value */
- const char *testfile = H5_get_srcdir_filename(FILE_DEFLATE_NAME); /* Corrected test file name */
- hbool_t api_ctx_pushed = FALSE; /* Whether API context pushed */
+ hid_t fid; /* File ID */
+ hid_t dsid; /* Dataset ID */
+ hid_t sid; /* Dataspace ID */
+ hid_t dcpl; /* Dataspace creation property list ID */
+ const hsize_t dims[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
+ const hsize_t chunk_dims[2] = {2, 25}; /* Chunk dimensions */
+ hsize_t dset_size; /* Dataset size */
+ size_t i, j; /* Local index variables */
+ herr_t ret; /* Generic return value */
+ const char * testfile = H5_get_srcdir_filename(FILE_DEFLATE_NAME); /* Corrected test file name */
+ hbool_t api_ctx_pushed = FALSE; /* Whether API context pushed */
TESTING("dataset access with missing filter");
/* Unregister the deflate filter */
#ifdef H5_HAVE_FILTER_DEFLATE
- /* Verify deflate filter is registered currently */
- if(H5Zfilter_avail(H5Z_FILTER_DEFLATE)!=TRUE) {
- H5_FAILED();
- HDprintf(" Line %d: Deflate filter not available\n",__LINE__);
- goto error;
- } /* end if */
+ /* Verify deflate filter is registered currently */
+ if (H5Zfilter_avail(H5Z_FILTER_DEFLATE) != TRUE) {
+ H5_FAILED();
+ HDprintf(" Line %d: Deflate filter not available\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Push API context */
- if(H5CX_push() < 0) FAIL_STACK_ERROR
- api_ctx_pushed = TRUE;
+ /* Push API context */
+ if (H5CX_push() < 0)
+ FAIL_STACK_ERROR
+ api_ctx_pushed = TRUE;
- /* Unregister deflate filter */
- /* (Use private routine, to avoid range checking on filter ID) */
- if(H5Z__unregister(H5Z_FILTER_DEFLATE) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't unregister deflate filter\n",__LINE__);
- goto error;
- } /* end if */
+ /* Unregister deflate filter */
+ /* (Use private routine, to avoid range checking on filter ID) */
+ if (H5Z__unregister(H5Z_FILTER_DEFLATE) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't unregister deflate filter\n", __LINE__);
+ goto error;
+ } /* end if */
#endif /* H5_HAVE_FILTER_DEFLATE */
- /* Verify deflate filter is not registered currently */
- if(H5Zfilter_avail(H5Z_FILTER_DEFLATE)!=FALSE) {
- H5_FAILED();
- HDprintf(" Line %d: Deflate filter available\n",__LINE__);
- goto error;
- } /* end if */
+ /* Verify deflate filter is not registered currently */
+ if (H5Zfilter_avail(H5Z_FILTER_DEFLATE) != FALSE) {
+ H5_FAILED();
+ HDprintf(" Line %d: Deflate filter available\n", __LINE__);
+ goto error;
+ } /* end if */
/* Create dcpl with deflate filter */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't create dcpl\n",__LINE__);
+ HDprintf(" Line %d: Can't create dcpl\n", __LINE__);
goto error;
} /* end if */
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't set chunk sizes\n",__LINE__);
+ HDprintf(" Line %d: Can't set chunk sizes\n", __LINE__);
goto error;
} /* end if */
- if(H5Pset_deflate(dcpl, 9) < 0) {
+ if (H5Pset_deflate(dcpl, 9) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't set deflate filter\n",__LINE__);
+ HDprintf(" Line %d: Can't set deflate filter\n", __LINE__);
goto error;
} /* end if */
/* Check if all the filters are available */
- ret=H5Pall_filters_avail(dcpl);
- if(ret<0) {
+ ret = H5Pall_filters_avail(dcpl);
+ if (ret < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't check filter availability\n",__LINE__);
+ HDprintf(" Line %d: Can't check filter availability\n", __LINE__);
goto error;
} /* end if */
- if(ret!=FALSE) {
+ if (ret != FALSE) {
H5_FAILED();
- HDprintf(" Line %d: Filter shouldn't be available\n",__LINE__);
+ HDprintf(" Line %d: Filter shouldn't be available\n", __LINE__);
goto error;
} /* end if */
/* Create the data space */
- if((sid = H5Screate_simple(2, dims, NULL)) < 0) {
+ if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't open dataspace\n",__LINE__);
+ HDprintf(" Line %d: Can't open dataspace\n", __LINE__);
goto error;
} /* end if */
/* Create new dataset */
- if((dsid = H5Dcreate2(file, DSET_MISSING_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) {
+ if ((dsid = H5Dcreate2(file, DSET_MISSING_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) <
+ 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't create dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't create dataset\n", __LINE__);
goto error;
} /* end if */
/* Write data */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error writing dataset data\n",__LINE__);
+ HDprintf(" Line %d: Error writing dataset data\n", __LINE__);
goto error;
} /* end if */
/* Flush the file (to clear the cache) */
- if(H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) {
+ if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error flushing file\n",__LINE__);
+ HDprintf(" Line %d: Error flushing file\n", __LINE__);
goto error;
} /* end if */
/* Query the dataset's size on disk */
- if(0 == (dset_size = H5Dget_storage_size(dsid))) {
+ if (0 == (dset_size = H5Dget_storage_size(dsid))) {
H5_FAILED();
- HDprintf(" Line %d: Error querying dataset size, dset_size=%lu\n",__LINE__,(unsigned long)dset_size);
+ HDprintf(" Line %d: Error querying dataset size, dset_size=%lu\n", __LINE__,
+ (unsigned long)dset_size);
goto error;
} /* end if */
/* Verify that the size indicates data is uncompressed */
/* (i.e. the deflation filter we asked for was silently ignored) */
- if((H5Tget_size(H5T_NATIVE_INT) * DSET_DIM1 * DSET_DIM2) != dset_size) {
+ if ((H5Tget_size(H5T_NATIVE_INT) * DSET_DIM1 * DSET_DIM2) != dset_size) {
H5_FAILED();
- HDprintf(" Line %d: Incorrect dataset size: %lu\n",__LINE__,(unsigned long)dset_size);
+ HDprintf(" Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
goto error;
} /* end if */
/* Read data */
- if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
+ if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error reading dataset data\n",__LINE__);
+ HDprintf(" Line %d: Error reading dataset data\n", __LINE__);
goto error;
} /* end if */
/* Compare data */
/* Check that the values read are the same as the values written */
- for(i=0; i<(size_t)dims[0]; i++) {
- for(j=0; j<(size_t)dims[1]; j++) {
- if(points[i][j] != check[i][j]) {
+ for (i = 0; i < (size_t)dims[0]; i++) {
+ for (j = 0; j < (size_t)dims[1]; j++) {
+ if (points[i][j] != check[i][j]) {
H5_FAILED();
- HDprintf(" Line %d: Read different values than written.\n",__LINE__);
+ HDprintf(" Line %d: Read different values than written.\n", __LINE__);
HDprintf(" At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
- HDprintf(" At original: %d\n",points[i][j]);
- HDprintf(" At returned: %d\n",check[i][j]);
+ HDprintf(" At original: %d\n", points[i][j]);
+ HDprintf(" At returned: %d\n", check[i][j]);
goto error;
} /* end if */
- } /* end for */
- } /* end for */
+ } /* end for */
+ } /* end for */
/* Close dataset */
- if(H5Dclose(dsid) < 0) {
+ if (H5Dclose(dsid) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't close dataset\n", __LINE__);
goto error;
} /* end if */
/* Close dataspace */
- if(H5Sclose(sid) < 0) {
+ if (H5Sclose(sid) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dataspace\n",__LINE__);
+ HDprintf(" Line %d: Can't close dataspace\n", __LINE__);
goto error;
} /* end if */
/* Close dataset creation property list */
- if(H5Pclose(dcpl) < 0) {
+ if (H5Pclose(dcpl) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dcpl\n",__LINE__);
+ HDprintf(" Line %d: Can't close dcpl\n", __LINE__);
goto error;
} /* end if */
-
/* Try reading existing dataset with deflate filter */
/* Open existing file */
- if((fid = H5Fopen(testfile, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) {
+ if ((fid = H5Fopen(testfile, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't open existing deflated file\n", __LINE__);
goto error;
} /* end if */
/* Open dataset */
- if((dsid = H5Dopen2(fid, "Dataset1", H5P_DEFAULT)) < 0) {
+ if ((dsid = H5Dopen2(fid, "Dataset1", H5P_DEFAULT)) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't open dataset\n", __LINE__);
goto error;
} /* end if */
/* Read data (should fail, since deflate filter is missing) */
- H5E_BEGIN_TRY {
- ret = H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data);
- } H5E_END_TRY;
- if(ret>=0) {
+ H5E_BEGIN_TRY { ret = H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data); }
+ H5E_END_TRY;
+ if (ret >= 0) {
H5_FAILED();
HDprintf(" Line %d: Should not be able to read dataset data\n", __LINE__);
goto error;
} /* end if */
/* Close dataset */
- if(H5Dclose(dsid) < 0) {
+ if (H5Dclose(dsid) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't close dataset\n", __LINE__);
goto error;
} /* end if */
/* Close existing file */
- if(H5Fclose(fid) < 0) {
+ if (H5Fclose(fid) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't close file\n", __LINE__);
goto error;
} /* end if */
/* Re-register the deflate filter */
- /* Verify deflate filter is not registered currently */
- if(H5Zfilter_avail(H5Z_FILTER_DEFLATE)!=FALSE) {
- H5_FAILED();
- HDprintf(" Line %d: Deflate filter available\n",__LINE__);
- goto error;
- } /* end if */
+ /* Verify deflate filter is not registered currently */
+ if (H5Zfilter_avail(H5Z_FILTER_DEFLATE) != FALSE) {
+ H5_FAILED();
+ HDprintf(" Line %d: Deflate filter available\n", __LINE__);
+ goto error;
+ } /* end if */
#ifdef H5_HAVE_FILTER_DEFLATE
- /* Register deflate filter (use internal function to avoid range checks) */
- if(H5Z_register(H5Z_DEFLATE) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't unregister deflate filter\n",__LINE__);
- goto error;
- } /* end if */
+ /* Register deflate filter (use internal function to avoid range checks) */
+ if (H5Z_register(H5Z_DEFLATE) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't unregister deflate filter\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Verify deflate filter is registered currently */
- if(H5Zfilter_avail(H5Z_FILTER_DEFLATE)!=TRUE) {
- H5_FAILED();
- HDprintf(" Line %d: Deflate filter not available\n",__LINE__);
- goto error;
- } /* end if */
+ /* Verify deflate filter is registered currently */
+ if (H5Zfilter_avail(H5Z_FILTER_DEFLATE) != TRUE) {
+ H5_FAILED();
+ HDprintf(" Line %d: Deflate filter not available\n", __LINE__);
+ goto error;
+ } /* end if */
#endif /* H5_HAVE_FILTER_DEFLATE */
/* Pop API context */
- if(api_ctx_pushed && H5CX_pop() < 0) FAIL_STACK_ERROR
+ if (api_ctx_pushed && H5CX_pop() < 0)
+ FAIL_STACK_ERROR
api_ctx_pushed = FALSE;
PASSED();
return SUCCEED;
error:
- if(api_ctx_pushed) H5CX_pop();
+ if (api_ctx_pushed)
+ H5CX_pop();
return FAIL;
} /* end test_missing_filter() */
-
/*-------------------------------------------------------------------------
* Function: test_onebyte_shuffle
*
@@ -2834,29 +3036,34 @@ error:
static herr_t
test_onebyte_shuffle(hid_t file)
{
- hid_t dataset, space,dc;
- const hsize_t size[2] = {10, 20};
- const hsize_t chunk_size[2] = {10, 20};
- unsigned char orig_data[10][20];
- unsigned char new_data[10][20];
- size_t i, j;
+ hid_t dataset, space, dc;
+ const hsize_t size[2] = {10, 20};
+ const hsize_t chunk_size[2] = {10, 20};
+ unsigned char orig_data[10][20];
+ unsigned char new_data[10][20];
+ size_t i, j;
TESTING("8-bit shuffling (setup)");
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Use shuffling algorithm with 8-bit */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk (dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_shuffle (dc) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_shuffle(dc) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_ONEBYTE_SHUF_NAME, H5T_NATIVE_UCHAR,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset = H5Dcreate2(file, DSET_ONEBYTE_SHUF_NAME, H5T_NATIVE_UCHAR, space, H5P_DEFAULT, dc,
+ H5P_DEFAULT)) < 0)
+ goto error;
- for(i= 0;i< 10; i++)
- for(j = 0; j < 20; j++)
+ for (i = 0; i < 10; i++)
+ for (j = 0; j < 20; j++)
orig_data[i][j] = (unsigned char)HDrandom();
PASSED();
@@ -2868,7 +3075,7 @@ test_onebyte_shuffle(hid_t file)
*/
TESTING("8-bit shuffling (write)");
- if(H5Dwrite(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
goto error;
PASSED();
@@ -2880,17 +3087,16 @@ test_onebyte_shuffle(hid_t file)
TESTING("8-bit shuffling (read)");
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
goto error;
/* Check that the values read are the same as the values written */
- for(i=0; i<(size_t)size[0]; i++) {
- for(j=0; j<(size_t)size[1]; j++) {
- if(new_data[i][j] != orig_data[i][j]) {
+ for (i = 0; i < (size_t)size[0]; i++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (new_data[i][j] != orig_data[i][j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
- HDprintf(" At index %lu,%lu\n",
- (unsigned long)i, (unsigned long)j);
+ HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
goto error;
}
}
@@ -2900,8 +3106,10 @@ test_onebyte_shuffle(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Pclose (dc) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -2911,7 +3119,6 @@ error:
return FAIL;
} /* end test_onebyte_shuffle() */
-
/*-------------------------------------------------------------------------
* Function: test_nbit_int
*
@@ -2924,52 +3131,59 @@ error:
static herr_t
test_nbit_int(hid_t file)
{
- hid_t dataset, datatype, mem_datatype, space, dc;
- hsize_t size[2] = {2, 5};
- hsize_t chunk_size[2] = {2,5};
- int orig_data[2][5];
- int new_data[2][5];
- unsigned int mask;
- size_t precision, offset;
- double power;
- size_t i, j;
+ hid_t dataset, datatype, mem_datatype, space, dc;
+ hsize_t size[2] = {2, 5};
+ hsize_t chunk_size[2] = {2, 5};
+ int orig_data[2][5];
+ int new_data[2][5];
+ unsigned int mask;
+ size_t precision, offset;
+ double power;
+ size_t i, j;
HDputs("Testing nbit filter");
TESTING(" nbit int (setup)");
/* Define dataset datatype (integer), and set precision, offset */
- datatype = H5Tcopy(H5T_NATIVE_INT);
+ datatype = H5Tcopy(H5T_NATIVE_INT);
precision = 17; /* precision includes sign bit */
- if(H5Tset_precision(datatype,precision) < 0) goto error;
+ if (H5Tset_precision(datatype, precision) < 0)
+ goto error;
offset = 4;
- if(H5Tset_offset(datatype,offset) < 0) goto error;
+ if (H5Tset_offset(datatype, offset) < 0)
+ goto error;
/* Copy to memory datatype before setting order */
mem_datatype = H5Tcopy(datatype);
/* Set order of dataset datatype */
- if(H5Tset_order(datatype, H5T_ORDER_BE) < 0) goto error;
+ if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
+ goto error;
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Use nbit filter */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk(dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_nbit(dc) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_nbit(dc) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_NBIT_INT_NAME, datatype,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset = H5Dcreate2(file, DSET_NBIT_INT_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
+ goto error;
/* Initialize data, assuming size of long long >= size of int */
- for(i= 0;i< (size_t)size[0]; i++)
- for(j = 0; j < (size_t)size[1]; j++) {
- power = HDpow(2.0f, (double)(precision - 1));
+ for (i = 0; i < (size_t)size[0]; i++)
+ for (j = 0; j < (size_t)size[1]; j++) {
+ power = HDpow(2.0f, (double)(precision - 1));
orig_data[i][j] = (int)(((long long)HDrandom() % (long long)power) << offset);
/* even-numbered values are negtive */
- if((i*size[1]+j+1)%2 == 0)
+ if ((i * size[1] + j + 1) % 2 == 0)
orig_data[i][j] = -orig_data[i][j];
}
@@ -2982,7 +3196,7 @@ test_nbit_int(hid_t file)
*/
TESTING(" nbit int (write)");
- if(H5Dwrite(dataset, mem_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
+ if (H5Dwrite(dataset, mem_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
goto error;
PASSED();
@@ -2993,16 +3207,16 @@ test_nbit_int(hid_t file)
TESTING(" nbit int (read)");
/* Read the dataset back */
- if(H5Dread(dataset, mem_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
+ if (H5Dread(dataset, mem_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
goto error;
/* Check that the values read are the same as the values written
* Use mask for checking the significant bits, ignoring the padding bits
*/
mask = ~((unsigned)~0 << (precision + offset)) & ((unsigned)~0 << offset);
- for(i=0; i<(size_t)size[0]; i++) {
- for(j=0; j<(size_t)size[1]; j++) {
- if(((unsigned)new_data[i][j] & mask) != ((unsigned)orig_data[i][j] & mask)) {
+ for (i = 0; i < (size_t)size[0]; i++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (((unsigned)new_data[i][j] & mask) != ((unsigned)orig_data[i][j] & mask)) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
@@ -3015,11 +3229,16 @@ test_nbit_int(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(datatype) < 0) goto error;
- if(H5Tclose(mem_datatype) < 0) goto error;
- if(H5Pclose(dc) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Tclose(datatype) < 0)
+ goto error;
+ if (H5Tclose(mem_datatype) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -3029,7 +3248,6 @@ error:
return FAIL;
} /* end test_nbit_int() */
-
/*-------------------------------------------------------------------------
* Function: test_nbit_float
*
@@ -3042,49 +3260,49 @@ error:
static herr_t
test_nbit_float(hid_t file)
{
- hid_t dataset, datatype, space, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2, 5};
+ hid_t dataset, datatype, space, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
/* orig_data[] are initialized to be within the range that can be represented by
* dataset datatype (no precision loss during datatype conversion)
*/
- float orig_data[2][5] = {{188384.0f, 19.103516f, -1.0831790e9f, -84.242188f, 5.2045898f},
- {-49140.0f, 2350.25f, -3.2110596e-1f, 6.4998865e-5f, -0.0f}};
- float new_data[2][5];
- size_t precision, offset;
- size_t i, j;
+ float orig_data[2][5] = {{188384.0f, 19.103516f, -1.0831790e9f, -84.242188f, 5.2045898f},
+ {-49140.0f, 2350.25f, -3.2110596e-1f, 6.4998865e-5f, -0.0f}};
+ float new_data[2][5];
+ size_t precision, offset;
+ size_t i, j;
TESTING(" nbit float (setup)");
/* Define user-defined single-precision floating-point type for dataset */
datatype = H5Tcopy(H5T_IEEE_F32BE);
- if(H5Tset_fields(datatype, (size_t)26, (size_t)20, (size_t)6, (size_t)7, (size_t)13) < 0)
+ if (H5Tset_fields(datatype, (size_t)26, (size_t)20, (size_t)6, (size_t)7, (size_t)13) < 0)
FAIL_STACK_ERROR
offset = 7;
- if(H5Tset_offset(datatype,offset) < 0)
+ if (H5Tset_offset(datatype, offset) < 0)
FAIL_STACK_ERROR
precision = 20;
- if(H5Tset_precision(datatype,precision) < 0)
+ if (H5Tset_precision(datatype, precision) < 0)
FAIL_STACK_ERROR
- if(H5Tset_size(datatype, (size_t)4) < 0)
+ if (H5Tset_size(datatype, (size_t)4) < 0)
FAIL_STACK_ERROR
- if(H5Tset_ebias(datatype, (size_t)31) < 0)
+ if (H5Tset_ebias(datatype, (size_t)31) < 0)
FAIL_STACK_ERROR
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0)
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
FAIL_STACK_ERROR
/* Use nbit filter */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
- if(H5Pset_chunk(dc, 2, chunk_size) < 0)
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
FAIL_STACK_ERROR
- if(H5Pset_nbit(dc) < 0)
+ if (H5Pset_nbit(dc) < 0)
FAIL_STACK_ERROR
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_NBIT_FLOAT_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
+ if ((dataset = H5Dcreate2(file, DSET_NBIT_FLOAT_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -3095,7 +3313,7 @@ test_nbit_float(hid_t file)
*/
TESTING(" nbit float (write)");
- if(H5Dwrite(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -3107,17 +3325,17 @@ test_nbit_float(hid_t file)
TESTING(" nbit float (read)");
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
FAIL_STACK_ERROR
/* Check that the values read are the same as the values written
* Assume size of int = size of float
*/
- for(i = 0; i < (size_t)size[0]; i++) {
- for(j = 0; j < (size_t)size[1]; j++) {
- if(HDisnan(orig_data[i][j]))
- continue; /* skip if value is NaN */
- if(!H5_FLT_ABS_EQUAL(new_data[i][j], orig_data[i][j])) {
+ for (i = 0; i < (size_t)size[0]; i++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (HDisnan(orig_data[i][j]))
+ continue; /* skip if value is NaN */
+ if (!H5_FLT_ABS_EQUAL(new_data[i][j], orig_data[i][j])) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
@@ -3130,13 +3348,13 @@ test_nbit_float(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(datatype) < 0)
+ if (H5Tclose(datatype) < 0)
FAIL_STACK_ERROR
- if(H5Pclose(dc) < 0)
+ if (H5Pclose(dc) < 0)
FAIL_STACK_ERROR
- if(H5Sclose(space) < 0)
+ if (H5Sclose(space) < 0)
FAIL_STACK_ERROR
- if(H5Dclose(dataset) < 0)
+ if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -3147,7 +3365,6 @@ error:
return FAIL;
} /* end test_nbit_float() */
-
/*-------------------------------------------------------------------------
* Function: test_nbit_double
*
@@ -3160,63 +3377,54 @@ error:
static herr_t
test_nbit_double(hid_t file)
{
-/* assume unsigned int and float has the same number of bytes */
- hid_t dataset, datatype, space, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2, 5};
+ /* assume unsigned int and float has the same number of bytes */
+ hid_t dataset, datatype, space, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
/* orig_data[] are initialized to be within the range that can be represented by
* dataset datatype (no precision loss during datatype conversion)
*/
- double orig_data[2][5] = {
- {
- (double)1.6081706885101836e+60L,
- -255.32099170994480f,
- (double)1.2677579992621376e-61L,
- 64568.289448797700f,
- (double)-1.0619721778839084e-75L
- },
- {
- (double)2.1499497833454840e+56L,
- 6.6562295504670740e-3f,
- -1.5747263393432150f,
- 1.0711093225222612f,
- -9.8971679387636870e-1f
- }};
- double new_data[2][5];
- size_t precision, offset;
- size_t i, j;
+ double orig_data[2][5] = {{(double)1.6081706885101836e+60L, -255.32099170994480f,
+ (double)1.2677579992621376e-61L, 64568.289448797700f,
+ (double)-1.0619721778839084e-75L},
+ {(double)2.1499497833454840e+56L, 6.6562295504670740e-3f, -1.5747263393432150f,
+ 1.0711093225222612f, -9.8971679387636870e-1f}};
+ double new_data[2][5];
+ size_t precision, offset;
+ size_t i, j;
TESTING(" nbit double (setup)");
/* Define user-defined doule-precision floating-point type for dataset */
datatype = H5Tcopy(H5T_IEEE_F64BE);
- if(H5Tset_fields(datatype, (size_t)55, (size_t)46, (size_t)9, (size_t)5, (size_t)41) < 0)
+ if (H5Tset_fields(datatype, (size_t)55, (size_t)46, (size_t)9, (size_t)5, (size_t)41) < 0)
FAIL_STACK_ERROR
offset = 5;
- if(H5Tset_offset(datatype,offset) < 0)
+ if (H5Tset_offset(datatype, offset) < 0)
FAIL_STACK_ERROR
precision = 51;
- if(H5Tset_precision(datatype,precision) < 0)
+ if (H5Tset_precision(datatype, precision) < 0)
FAIL_STACK_ERROR
- if(H5Tset_size(datatype, (size_t)8) < 0)
+ if (H5Tset_size(datatype, (size_t)8) < 0)
FAIL_STACK_ERROR
- if(H5Tset_ebias(datatype, (size_t)255) < 0)
+ if (H5Tset_ebias(datatype, (size_t)255) < 0)
FAIL_STACK_ERROR
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0)
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
FAIL_STACK_ERROR
/* Use nbit filter */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
- if(H5Pset_chunk(dc, 2, chunk_size) < 0)
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
FAIL_STACK_ERROR
- if(H5Pset_nbit(dc) < 0)
+ if (H5Pset_nbit(dc) < 0)
FAIL_STACK_ERROR
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_NBIT_DOUBLE_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
+ if ((dataset = H5Dcreate2(file, DSET_NBIT_DOUBLE_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) <
+ 0)
FAIL_STACK_ERROR
PASSED();
@@ -3228,7 +3436,7 @@ test_nbit_double(hid_t file)
*/
TESTING(" nbit double (write)");
- if(H5Dwrite(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
+ if (H5Dwrite(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -3239,17 +3447,17 @@ test_nbit_double(hid_t file)
TESTING(" nbit double (read)");
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
+ if (H5Dread(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
FAIL_STACK_ERROR
/* Check that the values read are the same as the values written
* Assume size of long long = size of double
*/
- for(i = 0; i < (size_t)size[0]; i++) {
- for(j = 0; j < (size_t)size[1]; j++) {
- if(HDisnan(orig_data[i][j]))
- continue; /* skip if value is NaN */
- if(!H5_DBL_ABS_EQUAL(new_data[i][j], orig_data[i][j])) {
+ for (i = 0; i < (size_t)size[0]; i++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (HDisnan(orig_data[i][j]))
+ continue; /* skip if value is NaN */
+ if (!H5_DBL_ABS_EQUAL(new_data[i][j], orig_data[i][j])) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
@@ -3262,13 +3470,13 @@ test_nbit_double(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(datatype) < 0)
+ if (H5Tclose(datatype) < 0)
FAIL_STACK_ERROR
- if(H5Pclose(dc) < 0)
+ if (H5Pclose(dc) < 0)
FAIL_STACK_ERROR
- if(H5Sclose(space) < 0)
+ if (H5Sclose(space) < 0)
FAIL_STACK_ERROR
- if(H5Dclose(dataset) < 0)
+ if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -3279,7 +3487,6 @@ error:
return FAIL;
} /* end test_nbit_double() */
-
/*-------------------------------------------------------------------------
* Function: test_nbit_array
*
@@ -3292,31 +3499,34 @@ error:
static herr_t
test_nbit_array(hid_t file)
{
- hid_t dataset, base_datatype, array_datatype, space, dc;
- hid_t mem_base_datatype, mem_array_datatype;
- const hsize_t size[2] = {2, 5};
- const hsize_t adims[2] = {3, 2};
- const hsize_t chunk_size[2] = {2,5};
- unsigned int orig_data[2][5][3][2];
- unsigned int new_data[2][5][3][2];
- size_t precision, offset;
- double power;
- size_t i, j, m, n;
+ hid_t dataset, base_datatype, array_datatype, space, dc;
+ hid_t mem_base_datatype, mem_array_datatype;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t adims[2] = {3, 2};
+ const hsize_t chunk_size[2] = {2, 5};
+ unsigned int orig_data[2][5][3][2];
+ unsigned int new_data[2][5][3][2];
+ size_t precision, offset;
+ double power;
+ size_t i, j, m, n;
TESTING(" nbit array (setup)");
/* Define dataset array datatype's base datatype and set precision, offset */
base_datatype = H5Tcopy(H5T_NATIVE_UINT);
- precision = 22;
- if(H5Tset_precision(base_datatype,precision) < 0) goto error;
+ precision = 22;
+ if (H5Tset_precision(base_datatype, precision) < 0)
+ goto error;
offset = 7;
- if(H5Tset_offset(base_datatype,offset) < 0) goto error;
+ if (H5Tset_offset(base_datatype, offset) < 0)
+ goto error;
/* Copy to memory array datatype's base datatype before setting order */
mem_base_datatype = H5Tcopy(base_datatype);
/* Set order of dataset array datatype's base datatype */
- if(H5Tset_order(base_datatype, H5T_ORDER_BE) < 0) goto error;
+ if (H5Tset_order(base_datatype, H5T_ORDER_BE) < 0)
+ goto error;
/* Create dataset array datatype */
array_datatype = H5Tarray_create2(base_datatype, 2, adims);
@@ -3325,26 +3535,31 @@ test_nbit_array(hid_t file)
mem_array_datatype = H5Tarray_create2(mem_base_datatype, 2, adims);
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Use nbit filter */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk(dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_nbit(dc) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_nbit(dc) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_NBIT_ARRAY_NAME, array_datatype,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset =
+ H5Dcreate2(file, DSET_NBIT_ARRAY_NAME, array_datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
+ goto error;
/* Initialize data, assuming size of long long >= size of unsigned int */
- for(i= 0;i< (size_t)size[0]; i++)
- for(j = 0; j < (size_t)size[1]; j++)
- for(m = 0; m < (size_t)adims[0]; m++)
- for(n = 0; n < (size_t)adims[1]; n++) {
- power = HDpow(2.0F, (double)precision);
- orig_data[i][j][m][n] = (unsigned int)(((long long)HDrandom() %
- (long long)power) << offset);
- } /* end for */
+ for (i = 0; i < (size_t)size[0]; i++)
+ for (j = 0; j < (size_t)size[1]; j++)
+ for (m = 0; m < (size_t)adims[0]; m++)
+ for (n = 0; n < (size_t)adims[1]; n++) {
+ power = HDpow(2.0F, (double)precision);
+ orig_data[i][j][m][n] =
+ (unsigned int)(((long long)HDrandom() % (long long)power) << offset);
+ } /* end for */
PASSED();
/*----------------------------------------------------------------------
@@ -3354,8 +3569,7 @@ test_nbit_array(hid_t file)
*/
TESTING(" nbit array (write)");
- if(H5Dwrite(dataset, mem_array_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- orig_data) < 0)
+ if (H5Dwrite(dataset, mem_array_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
goto error;
PASSED();
@@ -3367,36 +3581,42 @@ test_nbit_array(hid_t file)
TESTING(" nbit array (read)");
/* Read the dataset back */
- if(H5Dread(dataset, mem_array_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- new_data) < 0)
+ if (H5Dread(dataset, mem_array_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
goto error;
/* Check that the values read are the same as the values written
*/
- for(i=0; i<(size_t)size[0]; i++)
- for(j=0; j<(size_t)size[1]; j++)
- for(m = 0; m < (size_t)adims[0]; m++)
- for(n = 0; n < (size_t)adims[1]; n++) {
- if(new_data[i][j][m][n]!= orig_data[i][j][m][n]) {
- H5_FAILED();
- HDprintf(" Read different values than written.\n");
- HDprintf(" At index %lu,%lu,%lu,%lu\n",
- (unsigned long)i, (unsigned long)j, (unsigned long)m, (unsigned long)n);
- goto error;
- }
- }
+ for (i = 0; i < (size_t)size[0]; i++)
+ for (j = 0; j < (size_t)size[1]; j++)
+ for (m = 0; m < (size_t)adims[0]; m++)
+ for (n = 0; n < (size_t)adims[1]; n++) {
+ if (new_data[i][j][m][n] != orig_data[i][j][m][n]) {
+ H5_FAILED();
+ HDprintf(" Read different values than written.\n");
+ HDprintf(" At index %lu,%lu,%lu,%lu\n", (unsigned long)i, (unsigned long)j,
+ (unsigned long)m, (unsigned long)n);
+ goto error;
+ }
+ }
/*----------------------------------------------------------------------
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(array_datatype) < 0) goto error;
- if(H5Tclose(base_datatype) < 0) goto error;
- if(H5Tclose(mem_array_datatype) < 0) goto error;
- if(H5Tclose(mem_base_datatype) < 0) goto error;
- if(H5Pclose(dc) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Tclose(array_datatype) < 0)
+ goto error;
+ if (H5Tclose(base_datatype) < 0)
+ goto error;
+ if (H5Tclose(mem_array_datatype) < 0)
+ goto error;
+ if (H5Tclose(mem_base_datatype) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -3406,7 +3626,6 @@ error:
return FAIL;
} /* end test_nbit_array() */
-
/*-------------------------------------------------------------------------
* Function: test_nbit_compound
*
@@ -3424,125 +3643,125 @@ error:
static herr_t
test_nbit_compound(hid_t file)
{
- typedef struct { /* Struct with atomic fields */
- int i;
- char c;
+ typedef struct { /* Struct with atomic fields */
+ int i;
+ char c;
short s;
float f;
} atomic;
- hid_t i_tid, c_tid, s_tid, f_tid;
- hid_t cmpd_tid; /* atomic compound datatype */
- hid_t mem_cmpd_tid; /* memory atomic compound datatype */
- size_t precision[3] = {15, 7, 10};
- size_t offset[3] = {9, 0, 3};
- hid_t dataset, space, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2, 5};
- const float float_val[2][5] = {{188384.0F, 19.103516F, -1.0831790e9F, -84.242188F, 5.2045898F},
- {-49140.0F, 2350.25F, -3.2110596e-1F, 6.4998865e-5F, -0.0F}};
- atomic orig_data[2][5];
- atomic new_data[2][5];
- unsigned int i_mask, s_mask, c_mask;
- double power;
- size_t i, j;
-
+ hid_t i_tid, c_tid, s_tid, f_tid;
+ hid_t cmpd_tid; /* atomic compound datatype */
+ hid_t mem_cmpd_tid; /* memory atomic compound datatype */
+ size_t precision[3] = {15, 7, 10};
+ size_t offset[3] = {9, 0, 3};
+ hid_t dataset, space, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
+ const float float_val[2][5] = {{188384.0F, 19.103516F, -1.0831790e9F, -84.242188F, 5.2045898F},
+ {-49140.0F, 2350.25F, -3.2110596e-1F, 6.4998865e-5F, -0.0F}};
+ atomic orig_data[2][5];
+ atomic new_data[2][5];
+ unsigned int i_mask, s_mask, c_mask;
+ double power;
+ size_t i, j;
TESTING(" nbit compound (setup)");
/* Define datatypes of members of compound datatype */
- if((i_tid = H5Tcopy(H5T_NATIVE_INT)) < 0)
+ if ((i_tid = H5Tcopy(H5T_NATIVE_INT)) < 0)
FAIL_STACK_ERROR
- if((c_tid = H5Tcopy(H5T_NATIVE_CHAR)) < 0)
+ if ((c_tid = H5Tcopy(H5T_NATIVE_CHAR)) < 0)
FAIL_STACK_ERROR
- if((s_tid = H5Tcopy(H5T_NATIVE_SHORT)) < 0)
+ if ((s_tid = H5Tcopy(H5T_NATIVE_SHORT)) < 0)
FAIL_STACK_ERROR
- if((f_tid = H5Tcopy(H5T_IEEE_F32BE)) < 0)
+ if ((f_tid = H5Tcopy(H5T_IEEE_F32BE)) < 0)
FAIL_STACK_ERROR
/* Set precision and offset etc. */
- if(H5Tset_precision(i_tid,precision[0]) < 0)
+ if (H5Tset_precision(i_tid, precision[0]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(i_tid,offset[0]) < 0)
+ if (H5Tset_offset(i_tid, offset[0]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_precision(c_tid,precision[1]) < 0)
+ if (H5Tset_precision(c_tid, precision[1]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(c_tid,offset[1]) < 0)
+ if (H5Tset_offset(c_tid, offset[1]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_precision(s_tid,precision[2]) < 0)
+ if (H5Tset_precision(s_tid, precision[2]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(s_tid,offset[2]) < 0)
+ if (H5Tset_offset(s_tid, offset[2]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_fields(f_tid, (size_t)26, (size_t)20, (size_t)6, (size_t)7, (size_t)13) < 0)
+ if (H5Tset_fields(f_tid, (size_t)26, (size_t)20, (size_t)6, (size_t)7, (size_t)13) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(f_tid, (size_t)7) < 0)
+ if (H5Tset_offset(f_tid, (size_t)7) < 0)
FAIL_STACK_ERROR
- if(H5Tset_precision(f_tid, (size_t)20) < 0)
+ if (H5Tset_precision(f_tid, (size_t)20) < 0)
FAIL_STACK_ERROR
- if(H5Tset_size(f_tid, (size_t)4) < 0)
+ if (H5Tset_size(f_tid, (size_t)4) < 0)
FAIL_STACK_ERROR
- if(H5Tset_ebias(f_tid, (size_t)31) < 0)
+ if (H5Tset_ebias(f_tid, (size_t)31) < 0)
FAIL_STACK_ERROR
/* Create a memory compound datatype before setting the order */
- if((mem_cmpd_tid = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
+ if ((mem_cmpd_tid = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid, "i", HOFFSET(atomic, i), i_tid) < 0)
+ if (H5Tinsert(mem_cmpd_tid, "i", HOFFSET(atomic, i), i_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid, "c", HOFFSET(atomic, c), c_tid) < 0)
+ if (H5Tinsert(mem_cmpd_tid, "c", HOFFSET(atomic, c), c_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid, "s", HOFFSET(atomic, s), s_tid) < 0)
+ if (H5Tinsert(mem_cmpd_tid, "s", HOFFSET(atomic, s), s_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid, "f", HOFFSET(atomic, f), H5T_NATIVE_FLOAT) < 0)
+ if (H5Tinsert(mem_cmpd_tid, "f", HOFFSET(atomic, f), H5T_NATIVE_FLOAT) < 0)
FAIL_STACK_ERROR
/* Create a dataset compound datatype and insert some atomic types */
- if((cmpd_tid = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
+ if ((cmpd_tid = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid, "i", HOFFSET(atomic, i), i_tid) < 0)
+ if (H5Tinsert(cmpd_tid, "i", HOFFSET(atomic, i), i_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid, "c", HOFFSET(atomic, c), c_tid) < 0)
+ if (H5Tinsert(cmpd_tid, "c", HOFFSET(atomic, c), c_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid, "s", HOFFSET(atomic, s), s_tid) < 0)
+ if (H5Tinsert(cmpd_tid, "s", HOFFSET(atomic, s), s_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid, "f", HOFFSET(atomic, f), f_tid) < 0)
+ if (H5Tinsert(cmpd_tid, "f", HOFFSET(atomic, f), f_tid) < 0)
FAIL_STACK_ERROR
/* Set order of dataset compound datatype */
- if(H5Tset_order(cmpd_tid, H5T_ORDER_BE) < 0)
+ if (H5Tset_order(cmpd_tid, H5T_ORDER_BE) < 0)
FAIL_STACK_ERROR
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0)
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
FAIL_STACK_ERROR
/* Use nbit filter */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
- if(H5Pset_chunk(dc, 2, chunk_size) < 0)
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
FAIL_STACK_ERROR
- if(H5Pset_nbit(dc) < 0)
+ if (H5Pset_nbit(dc) < 0)
FAIL_STACK_ERROR
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_NBIT_COMPOUND_NAME, cmpd_tid, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
+ if ((dataset = H5Dcreate2(file, DSET_NBIT_COMPOUND_NAME, cmpd_tid, space, H5P_DEFAULT, dc, H5P_DEFAULT)) <
+ 0)
FAIL_STACK_ERROR
/* Initialize data, assuming size of long long >= size of member datatypes */
- for(i = 0; i < (size_t)size[0]; i++)
- for(j = 0; j < (size_t)size[1]; j++) {
- power = HDpow(2.0F, (double)(precision[0]-1));
+ for (i = 0; i < (size_t)size[0]; i++)
+ for (j = 0; j < (size_t)size[1]; j++) {
+ power = HDpow(2.0F, (double)(precision[0] - 1));
orig_data[i][j].i = (int)(((long long)HDrandom() % (long long)power) << offset[0]);
- power = HDpow(2.0F, (double)(precision[1]-1));
+ power = HDpow(2.0F, (double)(precision[1] - 1));
orig_data[i][j].c = (char)(((long long)HDrandom() % (long long)power) << offset[1]);
- power = HDpow(2.0F, (double)(precision[2]-1));
+ power = HDpow(2.0F, (double)(precision[2] - 1));
orig_data[i][j].s = (short)(((long long)HDrandom() % (long long)power) << offset[2]);
orig_data[i][j].f = float_val[i][j];
/* some even-numbered integer values are negtive */
- if((i * size[1] + j + 1) % 2 == 0) {
+ if ((i * size[1] + j + 1) % 2 == 0) {
orig_data[i][j].i = -orig_data[i][j].i;
orig_data[i][j].s = (short)-orig_data[i][j].s;
}
@@ -3557,7 +3776,7 @@ test_nbit_compound(hid_t file)
*/
TESTING(" nbit compound (write)");
- if(H5Dwrite(dataset, mem_cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
+ if (H5Dwrite(dataset, mem_cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -3568,7 +3787,7 @@ test_nbit_compound(hid_t file)
TESTING(" nbit compound (read)");
/* Read the dataset back */
- if(H5Dread(dataset, mem_cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
+ if (H5Dread(dataset, mem_cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
FAIL_STACK_ERROR
/* Check that the values read are the same as the values written
@@ -3577,13 +3796,12 @@ test_nbit_compound(hid_t file)
i_mask = ~((unsigned)~0 << (precision[0] + offset[0])) & ((unsigned)~0 << offset[0]);
c_mask = ~((unsigned)~0 << (precision[1] + offset[1])) & ((unsigned)~0 << offset[1]);
s_mask = ~((unsigned)~0 << (precision[2] + offset[2])) & ((unsigned)~0 << offset[2]);
- for(i = 0; i < size[0]; i++) {
- for(j = 0; j < size[1]; j++) {
- if(((unsigned)new_data[i][j].i & i_mask) != ((unsigned)orig_data[i][j].i & i_mask) ||
+ for (i = 0; i < size[0]; i++) {
+ for (j = 0; j < size[1]; j++) {
+ if (((unsigned)new_data[i][j].i & i_mask) != ((unsigned)orig_data[i][j].i & i_mask) ||
((unsigned)new_data[i][j].c & c_mask) != ((unsigned)orig_data[i][j].c & c_mask) ||
((unsigned)new_data[i][j].s & s_mask) != ((unsigned)orig_data[i][j].s & s_mask) ||
- (!HDisnan(orig_data[i][j].f) && !H5_FLT_ABS_EQUAL(new_data[i][j].f, orig_data[i][j].f)))
- {
+ (!HDisnan(orig_data[i][j].f) && !H5_FLT_ABS_EQUAL(new_data[i][j].f, orig_data[i][j].f))) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
@@ -3596,23 +3814,23 @@ test_nbit_compound(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(i_tid) < 0)
+ if (H5Tclose(i_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(c_tid) < 0)
+ if (H5Tclose(c_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(s_tid) < 0)
+ if (H5Tclose(s_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(f_tid) < 0)
+ if (H5Tclose(f_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(cmpd_tid) < 0)
+ if (H5Tclose(cmpd_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(mem_cmpd_tid) < 0)
+ if (H5Tclose(mem_cmpd_tid) < 0)
FAIL_STACK_ERROR
- if(H5Pclose(dc) < 0)
+ if (H5Pclose(dc) < 0)
FAIL_STACK_ERROR
- if(H5Sclose(space) < 0)
+ if (H5Sclose(space) < 0)
FAIL_STACK_ERROR
- if(H5Dclose(dataset) < 0)
+ if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -3623,7 +3841,6 @@ error:
return FAIL;
} /* end test_nbit_compound() */
-
/*-------------------------------------------------------------------------
* Function: test_nbit_compound_2
*
@@ -3641,210 +3858,213 @@ error:
static herr_t
test_nbit_compound_2(hid_t file)
{
- typedef struct { /* Struct with atomic fields */
- int i;
- char c;
+ typedef struct { /* Struct with atomic fields */
+ int i;
+ char c;
short s;
float f;
} atomic;
- typedef struct { /* Struct with complex fields */
- atomic a;
+ typedef struct { /* Struct with complex fields */
+ atomic a;
unsigned int v;
- char b[2][2];
- atomic d[2][2];
+ char b[2][2];
+ atomic d[2][2];
} complex;
- hid_t i_tid, c_tid, s_tid, f_tid, v_tid;
- hid_t cmpd_tid1; /* atomic compound datatype */
- hid_t cmpd_tid2; /* complex compound datatype */
- hid_t mem_cmpd_tid1; /* memory atomic compound datatype */
- hid_t mem_cmpd_tid2; /* memory complex compound datatype */
- hid_t base_tid; /* simple array datatype's base datatype */
- hid_t array_tid; /* simple array datatype */
- hid_t array_cmplx_tid; /* complex array datatype */
- hid_t mem_array_cmplx_tid; /* memory complex array datatype */
- const hsize_t array_dims[2] = {2, 2};
- size_t precision[5] = {31, 8, 10, 23, 8};
- size_t offset[5] = {1, 0, 3, 5, 0};
- hid_t dataset, space, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2, 5};
- const float float_val[2][5] = {{188384.0F, 19.103516F, -1.0831790e9F, -84.242188F, 5.2045898F},
- {-49140.0F, 2350.25F, -3.2110596e-1F, 6.4998865e-5F, -0.0F}};
- complex orig_data[2][5];
- complex new_data[2][5];
- unsigned int i_mask, s_mask, c_mask, b_mask;
- double power;
- size_t i, j, m, n, b_failed, d_failed;
-
+ hid_t i_tid, c_tid, s_tid, f_tid, v_tid;
+ hid_t cmpd_tid1; /* atomic compound datatype */
+ hid_t cmpd_tid2; /* complex compound datatype */
+ hid_t mem_cmpd_tid1; /* memory atomic compound datatype */
+ hid_t mem_cmpd_tid2; /* memory complex compound datatype */
+ hid_t base_tid; /* simple array datatype's base datatype */
+ hid_t array_tid; /* simple array datatype */
+ hid_t array_cmplx_tid; /* complex array datatype */
+ hid_t mem_array_cmplx_tid; /* memory complex array datatype */
+ const hsize_t array_dims[2] = {2, 2};
+ size_t precision[5] = {31, 8, 10, 23, 8};
+ size_t offset[5] = {1, 0, 3, 5, 0};
+ hid_t dataset, space, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
+ const float float_val[2][5] = {{188384.0F, 19.103516F, -1.0831790e9F, -84.242188F, 5.2045898F},
+ {-49140.0F, 2350.25F, -3.2110596e-1F, 6.4998865e-5F, -0.0F}};
+ complex orig_data[2][5];
+ complex new_data[2][5];
+ unsigned int i_mask, s_mask, c_mask, b_mask;
+ double power;
+ size_t i, j, m, n, b_failed, d_failed;
TESTING(" nbit compound complex (setup)");
/* Define datatypes of members of compound datatype */
- if((i_tid = H5Tcopy(H5T_NATIVE_INT)) < 0)
+ if ((i_tid = H5Tcopy(H5T_NATIVE_INT)) < 0)
FAIL_STACK_ERROR
- if((c_tid = H5Tcopy(H5T_NATIVE_CHAR)) < 0)
+ if ((c_tid = H5Tcopy(H5T_NATIVE_CHAR)) < 0)
FAIL_STACK_ERROR
- if((s_tid = H5Tcopy(H5T_NATIVE_SHORT)) < 0)
+ if ((s_tid = H5Tcopy(H5T_NATIVE_SHORT)) < 0)
FAIL_STACK_ERROR
- if((v_tid = H5Tcopy(H5T_NATIVE_UINT)) < 0)
+ if ((v_tid = H5Tcopy(H5T_NATIVE_UINT)) < 0)
FAIL_STACK_ERROR
- if((f_tid = H5Tcopy(H5T_IEEE_F32BE)) < 0)
+ if ((f_tid = H5Tcopy(H5T_IEEE_F32BE)) < 0)
FAIL_STACK_ERROR
/* Set precision and offset etc. of atomic compound datatype members */
- if(H5Tset_precision(i_tid,precision[0]) < 0)
+ if (H5Tset_precision(i_tid, precision[0]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(i_tid,offset[0]) < 0)
+ if (H5Tset_offset(i_tid, offset[0]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_precision(c_tid,precision[1]) < 0)
+ if (H5Tset_precision(c_tid, precision[1]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(c_tid,offset[1]) < 0)
+ if (H5Tset_offset(c_tid, offset[1]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_precision(s_tid,precision[2]) < 0)
+ if (H5Tset_precision(s_tid, precision[2]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(s_tid,offset[2]) < 0)
+ if (H5Tset_offset(s_tid, offset[2]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_fields(f_tid, (size_t)26, (size_t)20, (size_t)6, (size_t)7, (size_t)13) < 0)
+ if (H5Tset_fields(f_tid, (size_t)26, (size_t)20, (size_t)6, (size_t)7, (size_t)13) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(f_tid, (size_t)7) < 0)
+ if (H5Tset_offset(f_tid, (size_t)7) < 0)
FAIL_STACK_ERROR
- if(H5Tset_precision(f_tid, (size_t)20) < 0)
+ if (H5Tset_precision(f_tid, (size_t)20) < 0)
FAIL_STACK_ERROR
- if(H5Tset_size(f_tid, (size_t)4) < 0)
+ if (H5Tset_size(f_tid, (size_t)4) < 0)
FAIL_STACK_ERROR
- if(H5Tset_ebias(f_tid, (size_t)31) < 0)
+ if (H5Tset_ebias(f_tid, (size_t)31) < 0)
FAIL_STACK_ERROR
/* Create a memory atomic compound datatype before setting the order */
- if((mem_cmpd_tid1 = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
+ if ((mem_cmpd_tid1 = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid1, "i", HOFFSET(atomic, i), i_tid) < 0)
+ if (H5Tinsert(mem_cmpd_tid1, "i", HOFFSET(atomic, i), i_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid1, "c", HOFFSET(atomic, c), c_tid) < 0)
+ if (H5Tinsert(mem_cmpd_tid1, "c", HOFFSET(atomic, c), c_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid1, "s", HOFFSET(atomic, s), s_tid) < 0)
+ if (H5Tinsert(mem_cmpd_tid1, "s", HOFFSET(atomic, s), s_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid1, "f", HOFFSET(atomic, f), H5T_NATIVE_FLOAT) < 0)
+ if (H5Tinsert(mem_cmpd_tid1, "f", HOFFSET(atomic, f), H5T_NATIVE_FLOAT) < 0)
FAIL_STACK_ERROR
/* Create a dataset atomic compound datatype and insert some atomic types */
- if((cmpd_tid1 = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
+ if ((cmpd_tid1 = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid1, "i", HOFFSET(atomic, i), i_tid) < 0)
+ if (H5Tinsert(cmpd_tid1, "i", HOFFSET(atomic, i), i_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid1, "c", HOFFSET(atomic, c), c_tid) < 0)
+ if (H5Tinsert(cmpd_tid1, "c", HOFFSET(atomic, c), c_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid1, "s", HOFFSET(atomic, s), s_tid) < 0)
+ if (H5Tinsert(cmpd_tid1, "s", HOFFSET(atomic, s), s_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid1, "f", HOFFSET(atomic, f), f_tid) < 0)
+ if (H5Tinsert(cmpd_tid1, "f", HOFFSET(atomic, f), f_tid) < 0)
FAIL_STACK_ERROR
/* Set order of dataset compound datatype */
- if(H5Tset_order(cmpd_tid1, H5T_ORDER_BE) < 0)
+ if (H5Tset_order(cmpd_tid1, H5T_ORDER_BE) < 0)
FAIL_STACK_ERROR
/* Set precision and offset of the other data member */
- if(H5Tset_precision(v_tid,precision[3]) < 0)
+ if (H5Tset_precision(v_tid, precision[3]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(v_tid,offset[3]) < 0)
+ if (H5Tset_offset(v_tid, offset[3]) < 0)
FAIL_STACK_ERROR
/* Create the simple array datatype */
- if((base_tid = H5Tcopy(H5T_NATIVE_CHAR)) < 0)
+ if ((base_tid = H5Tcopy(H5T_NATIVE_CHAR)) < 0)
FAIL_STACK_ERROR
- if(H5Tset_precision(base_tid,precision[4]) < 0)
+ if (H5Tset_precision(base_tid, precision[4]) < 0)
FAIL_STACK_ERROR
- if(H5Tset_offset(base_tid,offset[4]) < 0)
+ if (H5Tset_offset(base_tid, offset[4]) < 0)
FAIL_STACK_ERROR
- if((array_tid = H5Tarray_create2(base_tid, 2, array_dims)) < 0)
+ if ((array_tid = H5Tarray_create2(base_tid, 2, array_dims)) < 0)
FAIL_STACK_ERROR
/* Create the complex memory and dataset array datatype */
- if((array_cmplx_tid = H5Tarray_create2(cmpd_tid1, 2, array_dims)) < 0)
+ if ((array_cmplx_tid = H5Tarray_create2(cmpd_tid1, 2, array_dims)) < 0)
FAIL_STACK_ERROR
- if((mem_array_cmplx_tid = H5Tarray_create2(mem_cmpd_tid1, 2, array_dims)) < 0)
+ if ((mem_array_cmplx_tid = H5Tarray_create2(mem_cmpd_tid1, 2, array_dims)) < 0)
FAIL_STACK_ERROR
/* Create a memory complex compound datatype before setting the order */
- if((mem_cmpd_tid2 = H5Tcreate(H5T_COMPOUND, sizeof(complex))) < 0)
+ if ((mem_cmpd_tid2 = H5Tcreate(H5T_COMPOUND, sizeof(complex))) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid2, "a", HOFFSET(complex, a), mem_cmpd_tid1) < 0)
+ if (H5Tinsert(mem_cmpd_tid2, "a", HOFFSET(complex, a), mem_cmpd_tid1) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid2, "v", HOFFSET(complex, v), v_tid) < 0)
+ if (H5Tinsert(mem_cmpd_tid2, "v", HOFFSET(complex, v), v_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid2, "b", HOFFSET(complex, b), array_tid) < 0)
+ if (H5Tinsert(mem_cmpd_tid2, "b", HOFFSET(complex, b), array_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(mem_cmpd_tid2, "d", HOFFSET(complex, d), mem_array_cmplx_tid) < 0)
+ if (H5Tinsert(mem_cmpd_tid2, "d", HOFFSET(complex, d), mem_array_cmplx_tid) < 0)
FAIL_STACK_ERROR
/* Set order of dataset other complex compound member datatype */
- if(H5Tset_order(v_tid, H5T_ORDER_BE) < 0)
+ if (H5Tset_order(v_tid, H5T_ORDER_BE) < 0)
FAIL_STACK_ERROR
/* Create a dataset complex compound datatype and insert members */
- if((cmpd_tid2 = H5Tcreate(H5T_COMPOUND, sizeof(complex))) < 0)
+ if ((cmpd_tid2 = H5Tcreate(H5T_COMPOUND, sizeof(complex))) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid2, "a", HOFFSET(complex, a), cmpd_tid1) < 0)
+ if (H5Tinsert(cmpd_tid2, "a", HOFFSET(complex, a), cmpd_tid1) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid2, "v", HOFFSET(complex, v), v_tid) < 0)
+ if (H5Tinsert(cmpd_tid2, "v", HOFFSET(complex, v), v_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid2, "b", HOFFSET(complex, b), array_tid) < 0)
+ if (H5Tinsert(cmpd_tid2, "b", HOFFSET(complex, b), array_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tinsert(cmpd_tid2, "d", HOFFSET(complex, d), array_cmplx_tid) < 0)
+ if (H5Tinsert(cmpd_tid2, "d", HOFFSET(complex, d), array_cmplx_tid) < 0)
FAIL_STACK_ERROR
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0)
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
FAIL_STACK_ERROR
/* Use nbit filter */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
- if(H5Pset_chunk(dc, 2, chunk_size) < 0)
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
FAIL_STACK_ERROR
- if(H5Pset_nbit(dc) < 0)
+ if (H5Pset_nbit(dc) < 0)
FAIL_STACK_ERROR
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_NBIT_COMPOUND_NAME_2, cmpd_tid2, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
+ if ((dataset =
+ H5Dcreate2(file, DSET_NBIT_COMPOUND_NAME_2, cmpd_tid2, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Initialize data, assuming size of long long >= size of member datatypes */
- for(i= 0;i< (size_t)size[0]; i++)
- for(j = 0; j < (size_t)size[1]; j++) {
- power = HDpow(2.0F, (double)(precision[0]-1));
+ for (i = 0; i < (size_t)size[0]; i++)
+ for (j = 0; j < (size_t)size[1]; j++) {
+ power = HDpow(2.0F, (double)(precision[0] - 1));
orig_data[i][j].a.i = (int)(((long long)HDrandom() % (long long)power) << offset[0]);
- power = HDpow(2.0F, (double)(precision[1]-1));
+ power = HDpow(2.0F, (double)(precision[1] - 1));
orig_data[i][j].a.c = (char)(((long long)HDrandom() % (long long)power) << offset[1]);
- power = HDpow(2.0F, (double)(precision[2]-1));
+ power = HDpow(2.0F, (double)(precision[2] - 1));
orig_data[i][j].a.s = (short)(-((long long)HDrandom() % (long long)power) << offset[2]);
orig_data[i][j].a.f = float_val[i][j];
- power = HDpow(2.0F, (double)precision[3]);
+ power = HDpow(2.0F, (double)precision[3]);
orig_data[i][j].v = (unsigned int)(((long long)HDrandom() % (long long)power) << offset[3]);
- for(m = 0; m < (size_t)array_dims[0]; m++)
- for(n = 0; n < (size_t)array_dims[1]; n++) {
- power = HDpow(2.0F, (double)(precision[4]-1));
+ for (m = 0; m < (size_t)array_dims[0]; m++)
+ for (n = 0; n < (size_t)array_dims[1]; n++) {
+ power = HDpow(2.0F, (double)(precision[4] - 1));
orig_data[i][j].b[m][n] = (char)(((long long)HDrandom() % (long long)power) << offset[4]);
} /* end for */
- for(m = 0; m < (size_t)array_dims[0]; m++)
- for(n = 0; n < (size_t)array_dims[1]; n++) {
- power = HDpow(2.0F, (double)(precision[0]-1));
- orig_data[i][j].d[m][n].i = (int)(-((long long)HDrandom() % (long long)power) << offset[0]);
- power = HDpow(2.0F, (double)(precision[1]-1));
- orig_data[i][j].d[m][n].c = (char)(((long long)HDrandom() % (long long)power) << offset[1]);
- power = HDpow(2.0F, (double)(precision[2]-1));
- orig_data[i][j].d[m][n].s = (short)(((long long)HDrandom() % (long long)power) << offset[2]);
+ for (m = 0; m < (size_t)array_dims[0]; m++)
+ for (n = 0; n < (size_t)array_dims[1]; n++) {
+ power = HDpow(2.0F, (double)(precision[0] - 1));
+ orig_data[i][j].d[m][n].i =
+ (int)(-((long long)HDrandom() % (long long)power) << offset[0]);
+ power = HDpow(2.0F, (double)(precision[1] - 1));
+ orig_data[i][j].d[m][n].c =
+ (char)(((long long)HDrandom() % (long long)power) << offset[1]);
+ power = HDpow(2.0F, (double)(precision[2] - 1));
+ orig_data[i][j].d[m][n].s =
+ (short)(((long long)HDrandom() % (long long)power) << offset[2]);
orig_data[i][j].d[m][n].f = float_val[i][j];
} /* end for */
- } /* end for */
+ } /* end for */
PASSED();
@@ -3855,7 +4075,7 @@ test_nbit_compound_2(hid_t file)
*/
TESTING(" nbit compound complex (write)");
- if(H5Dwrite(dataset, mem_cmpd_tid2, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
+ if (H5Dwrite(dataset, mem_cmpd_tid2, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -3866,7 +4086,7 @@ test_nbit_compound_2(hid_t file)
TESTING(" nbit compound complex (read)");
/* Read the dataset back */
- if(H5Dread(dataset, mem_cmpd_tid2, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
+ if (H5Dread(dataset, mem_cmpd_tid2, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
FAIL_STACK_ERROR
/* Check that the values read are the same as the values written
@@ -3878,7 +4098,7 @@ test_nbit_compound_2(hid_t file)
* discovered it using clang compiler with -fcatch-undefined-behavior option (see Issue 7674
* in Jira). So I changed it in a funny way as below to avoid it. SLU - 2011/8/11
*/
- if(sizeof(unsigned) > 4)
+ if (sizeof(unsigned) > 4)
i_mask = ~((unsigned)~0 << (precision[0] + offset[0])) & ((unsigned)~0 << offset[0]);
else {
i_mask = 0xffffffff;
@@ -3887,34 +4107,39 @@ test_nbit_compound_2(hid_t file)
c_mask = ~((unsigned)~0 << (precision[1] + offset[1])) & ((unsigned)~0 << offset[1]);
s_mask = ~((unsigned)~0 << (precision[2] + offset[2])) & ((unsigned)~0 << offset[2]);
b_mask = ~((unsigned)~0 << (precision[4] + offset[4])) & ((unsigned)~0 << offset[4]);
- for(i=0; i<(size_t)size[0]; i++) {
- for(j=0; j<(size_t)size[1]; j++) {
+ for (i = 0; i < (size_t)size[0]; i++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
b_failed = 0;
d_failed = 0;
- for(m = 0; m < (size_t)array_dims[0]; m++)
- for(n = 0; n < (size_t)array_dims[1]; n++)
- if(((unsigned)new_data[i][j].b[m][n] & b_mask)!=((unsigned)orig_data[i][j].b[m][n] & b_mask)) {
- b_failed = 1;
- goto out;
- }
+ for (m = 0; m < (size_t)array_dims[0]; m++)
+ for (n = 0; n < (size_t)array_dims[1]; n++)
+ if (((unsigned)new_data[i][j].b[m][n] & b_mask) !=
+ ((unsigned)orig_data[i][j].b[m][n] & b_mask)) {
+ b_failed = 1;
+ goto out;
+ }
- for(m = 0; m < (size_t)array_dims[0]; m++)
- for(n = 0; n < (size_t)array_dims[1]; n++)
- if(((unsigned)new_data[i][j].d[m][n].i & i_mask) != ((unsigned)orig_data[i][j].d[m][n].i & i_mask)||
- ((unsigned)new_data[i][j].d[m][n].c & c_mask) != ((unsigned)orig_data[i][j].d[m][n].c & c_mask)||
- ((unsigned)new_data[i][j].d[m][n].s & s_mask) != ((unsigned)orig_data[i][j].d[m][n].s & s_mask)||
- (!HDisnan(new_data[i][j].d[m][n].f) && !H5_FLT_ABS_EQUAL(new_data[i][j].d[m][n].f, new_data[i][j].d[m][n].f))) {
+ for (m = 0; m < (size_t)array_dims[0]; m++)
+ for (n = 0; n < (size_t)array_dims[1]; n++)
+ if (((unsigned)new_data[i][j].d[m][n].i & i_mask) !=
+ ((unsigned)orig_data[i][j].d[m][n].i & i_mask) ||
+ ((unsigned)new_data[i][j].d[m][n].c & c_mask) !=
+ ((unsigned)orig_data[i][j].d[m][n].c & c_mask) ||
+ ((unsigned)new_data[i][j].d[m][n].s & s_mask) !=
+ ((unsigned)orig_data[i][j].d[m][n].s & s_mask) ||
+ (!HDisnan(new_data[i][j].d[m][n].f) &&
+ !H5_FLT_ABS_EQUAL(new_data[i][j].d[m][n].f, new_data[i][j].d[m][n].f))) {
d_failed = 1;
goto out;
}
out:
- if(((unsigned)new_data[i][j].a.i & i_mask) != ((unsigned)orig_data[i][j].a.i & i_mask)||
- ((unsigned)new_data[i][j].a.c & c_mask) != ((unsigned)orig_data[i][j].a.c & c_mask)||
- ((unsigned)new_data[i][j].a.s & s_mask) != ((unsigned)orig_data[i][j].a.s & s_mask)||
- (!HDisnan(new_data[i][j].a.f) && !H5_FLT_ABS_EQUAL(new_data[i][j].a.f, new_data[i][j].a.f)) ||
- new_data[i][j].v != orig_data[i][j].v || b_failed || d_failed) {
+ if (((unsigned)new_data[i][j].a.i & i_mask) != ((unsigned)orig_data[i][j].a.i & i_mask) ||
+ ((unsigned)new_data[i][j].a.c & c_mask) != ((unsigned)orig_data[i][j].a.c & c_mask) ||
+ ((unsigned)new_data[i][j].a.s & s_mask) != ((unsigned)orig_data[i][j].a.s & s_mask) ||
+ (!HDisnan(new_data[i][j].a.f) && !H5_FLT_ABS_EQUAL(new_data[i][j].a.f, new_data[i][j].a.f)) ||
+ new_data[i][j].v != orig_data[i][j].v || b_failed || d_failed) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
@@ -3927,37 +4152,37 @@ out:
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(i_tid) < 0)
+ if (H5Tclose(i_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(c_tid) < 0)
+ if (H5Tclose(c_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(s_tid) < 0)
+ if (H5Tclose(s_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(f_tid) < 0)
+ if (H5Tclose(f_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(v_tid) < 0)
+ if (H5Tclose(v_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(cmpd_tid2) < 0)
+ if (H5Tclose(cmpd_tid2) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(cmpd_tid1) < 0)
+ if (H5Tclose(cmpd_tid1) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(mem_cmpd_tid2) < 0)
+ if (H5Tclose(mem_cmpd_tid2) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(mem_cmpd_tid1) < 0)
+ if (H5Tclose(mem_cmpd_tid1) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(array_tid) < 0)
+ if (H5Tclose(array_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(base_tid) < 0)
+ if (H5Tclose(base_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(array_cmplx_tid) < 0)
+ if (H5Tclose(array_cmplx_tid) < 0)
FAIL_STACK_ERROR
- if(H5Tclose(mem_array_cmplx_tid) < 0)
+ if (H5Tclose(mem_array_cmplx_tid) < 0)
FAIL_STACK_ERROR
- if(H5Pclose(dc) < 0)
+ if (H5Pclose(dc) < 0)
FAIL_STACK_ERROR
- if(H5Sclose(space) < 0)
+ if (H5Sclose(space) < 0)
FAIL_STACK_ERROR
- if(H5Dclose(dataset) < 0)
+ if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -3968,7 +4193,6 @@ error:
return FAIL;
} /* end test_nbit_compound_2() */
-
/*-------------------------------------------------------------------------
* Function: test_nbit_compound_3
*
@@ -3986,83 +4210,103 @@ error:
static herr_t
test_nbit_compound_3(hid_t file)
{
- typedef struct { /* Struct with some no-op type fields */
- int i; /* integer field, NOT a no-op type */
- char str[30]; /* fixed-length string, no-op type */
- char *vl_str; /* varible-length string, no-op type */
- hvl_t v; /* VL datatype field, no-op type */
- hobj_ref_t r; /* Object reference field, no-op type */
- unsigned char o[5]; /* Opaque field, no-op type */
+ typedef struct { /* Struct with some no-op type fields */
+ int i; /* integer field, NOT a no-op type */
+ char str[30]; /* fixed-length string, no-op type */
+ char * vl_str; /* varible-length string, no-op type */
+ hvl_t v; /* VL datatype field, no-op type */
+ hobj_ref_t r; /* Object reference field, no-op type */
+ unsigned char o[5]; /* Opaque field, no-op type */
} atomic;
- hid_t i_tid, str_tid, vl_str_tid, v_tid, o_tid;
- hid_t cmpd_tid; /* atomic compound datatype */
- hid_t dataset, space, dc, obj_ref_dataset = -1;
- const hsize_t size[1] = {5};
- const hsize_t chunk_size[1] = {5};
- atomic orig_data[5];
- atomic new_data[5];
- double power;
- size_t i, k, j;
-
+ hid_t i_tid, str_tid, vl_str_tid, v_tid, o_tid;
+ hid_t cmpd_tid; /* atomic compound datatype */
+ hid_t dataset, space, dc, obj_ref_dataset = -1;
+ const hsize_t size[1] = {5};
+ const hsize_t chunk_size[1] = {5};
+ atomic orig_data[5];
+ atomic new_data[5];
+ double power;
+ size_t i, k, j;
TESTING(" nbit compound with no-op type (setup)");
/* Define datatypes of members of compound datatype */
- i_tid=H5Tcopy(H5T_NATIVE_INT);
- if(H5Tset_precision(i_tid, (size_t)17) < 0) goto error;
+ i_tid = H5Tcopy(H5T_NATIVE_INT);
+ if (H5Tset_precision(i_tid, (size_t)17) < 0)
+ goto error;
- str_tid=H5Tcopy(H5T_C_S1);
- if(H5Tset_size(str_tid, (size_t)30) < 0) goto error;
+ str_tid = H5Tcopy(H5T_C_S1);
+ if (H5Tset_size(str_tid, (size_t)30) < 0)
+ goto error;
vl_str_tid = H5Tcopy(H5T_C_S1);
- if(H5Tset_size(vl_str_tid,H5T_VARIABLE) < 0) goto error;
+ if (H5Tset_size(vl_str_tid, H5T_VARIABLE) < 0)
+ goto error;
- if((v_tid = H5Tvlen_create(H5T_NATIVE_UINT)) < 0) goto error;
+ if ((v_tid = H5Tvlen_create(H5T_NATIVE_UINT)) < 0)
+ goto error;
- if((o_tid = H5Tcreate(H5T_OPAQUE, (size_t)5)) < 0) goto error;
- if(H5Tset_tag(o_tid, "testing opaque field") < 0) goto error;
+ if ((o_tid = H5Tcreate(H5T_OPAQUE, (size_t)5)) < 0)
+ goto error;
+ if (H5Tset_tag(o_tid, "testing opaque field") < 0)
+ goto error;
/* Create a dataset compound datatype and insert some atomic types */
cmpd_tid = H5Tcreate(H5T_COMPOUND, sizeof(atomic));
- if(H5Tinsert(cmpd_tid, "i", HOFFSET(atomic, i), i_tid) < 0) goto error;
- if(H5Tinsert(cmpd_tid, "str", HOFFSET(atomic, str), str_tid) < 0) goto error;
- if(H5Tinsert(cmpd_tid, "vl_str", HOFFSET(atomic, vl_str), vl_str_tid) < 0) goto error;
- if(H5Tinsert(cmpd_tid, "v", HOFFSET(atomic, v), v_tid) < 0) goto error;
- if(H5Tinsert(cmpd_tid, "r", HOFFSET(atomic, r), H5T_STD_REF_OBJ) < 0) goto error;
- if(H5Tinsert(cmpd_tid, "o", HOFFSET(atomic, o), o_tid) < 0) goto error;
+ if (H5Tinsert(cmpd_tid, "i", HOFFSET(atomic, i), i_tid) < 0)
+ goto error;
+ if (H5Tinsert(cmpd_tid, "str", HOFFSET(atomic, str), str_tid) < 0)
+ goto error;
+ if (H5Tinsert(cmpd_tid, "vl_str", HOFFSET(atomic, vl_str), vl_str_tid) < 0)
+ goto error;
+ if (H5Tinsert(cmpd_tid, "v", HOFFSET(atomic, v), v_tid) < 0)
+ goto error;
+ if (H5Tinsert(cmpd_tid, "r", HOFFSET(atomic, r), H5T_STD_REF_OBJ) < 0)
+ goto error;
+ if (H5Tinsert(cmpd_tid, "o", HOFFSET(atomic, o), o_tid) < 0)
+ goto error;
/* Create the data space */
- if((space = H5Screate_simple(1, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(1, size, NULL)) < 0)
+ goto error;
/* Use nbit filter */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk(dc, 1, chunk_size) < 0) goto error;
- if(H5Pset_nbit(dc) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dc, 1, chunk_size) < 0)
+ goto error;
+ if (H5Pset_nbit(dc) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_NBIT_COMPOUND_NAME_3, cmpd_tid,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset =
+ H5Dcreate2(file, DSET_NBIT_COMPOUND_NAME_3, cmpd_tid, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
+ goto error;
/* Create the dataset object reference points to */
- if((obj_ref_dataset = H5Dcreate2(file, "nbit_obj_ref", H5T_NATIVE_INT,
- space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) goto error;
+ if ((obj_ref_dataset = H5Dcreate2(file, "nbit_obj_ref", H5T_NATIVE_INT, space, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0)
+ goto error;
/* Initialize data */
- for(i = 0; i < (size_t)size[0]; i++) {
+ for (i = 0; i < (size_t)size[0]; i++) {
power = HDpow(2.0F, 17.0F - 1.0F);
HDmemset(&orig_data[i], 0, sizeof(orig_data[i]));
orig_data[i].i = (int)(HDrandom() % (long)power);
HDstrcpy(orig_data[i].str, "fixed-length C string");
orig_data[i].vl_str = HDstrdup("variable-length C string");
- orig_data[i].v.p = HDmalloc((size_t)(i+1)*sizeof(unsigned int));
- orig_data[i].v.len = (size_t)i+1;
- for(k = 0; k < (i+1); k++) ((unsigned int *)orig_data[i].v.p)[k] = (unsigned int)(i*100 + k);
+ orig_data[i].v.p = HDmalloc((size_t)(i + 1) * sizeof(unsigned int));
+ orig_data[i].v.len = (size_t)i + 1;
+ for (k = 0; k < (i + 1); k++)
+ ((unsigned int *)orig_data[i].v.p)[k] = (unsigned int)(i * 100 + k);
/* Create reference to the dataset "nbit_obj_ref" */
- if(H5Rcreate(&orig_data[i].r, file, "nbit_obj_ref", H5R_OBJECT, (hid_t)-1) < 0) goto error;
+ if (H5Rcreate(&orig_data[i].r, file, "nbit_obj_ref", H5R_OBJECT, (hid_t)-1) < 0)
+ goto error;
- for(j = 0; j < 5; j++) orig_data[i].o[j] = (unsigned char)(i + j);
+ for (j = 0; j < 5; j++)
+ orig_data[i].o[j] = (unsigned char)(i + j);
}
PASSED();
@@ -4074,8 +4318,7 @@ test_nbit_compound_3(hid_t file)
*/
TESTING(" nbit compound with no-op type (write)");
- if(H5Dwrite(dataset, cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- orig_data) < 0)
+ if (H5Dwrite(dataset, cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
goto error;
PASSED();
@@ -4086,36 +4329,30 @@ test_nbit_compound_3(hid_t file)
TESTING(" nbit compound with no-op type (read)");
/* Read the dataset back */
- if(H5Dread(dataset, cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- new_data) < 0)
+ if (H5Dread(dataset, cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
goto error;
/* Check that the values read are the same as the values written */
- for(i = 0; i < (size_t)size[0]; i++) {
- if(new_data[i].i != orig_data[i].i ||
- strcmp(new_data[i].str, orig_data[i].str) !=0 ||
- strcmp(new_data[i].vl_str, orig_data[i].vl_str) !=0 ||
- new_data[i].v.len != orig_data[i].v.len ||
- new_data[i].r != orig_data[i].r)
- {
+ for (i = 0; i < (size_t)size[0]; i++) {
+ if (new_data[i].i != orig_data[i].i || strcmp(new_data[i].str, orig_data[i].str) != 0 ||
+ strcmp(new_data[i].vl_str, orig_data[i].vl_str) != 0 || new_data[i].v.len != orig_data[i].v.len ||
+ new_data[i].r != orig_data[i].r) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu\n", (unsigned long)i);
goto error;
}
- for(k=0; k<i+1; k++)
- if(((unsigned int *)orig_data[i].v.p)[k] !=((unsigned int *)new_data[i].v.p)[k])
- {
+ for (k = 0; k < i + 1; k++)
+ if (((unsigned int *)orig_data[i].v.p)[k] != ((unsigned int *)new_data[i].v.p)[k]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu\n", (unsigned long)i);
goto error;
}
- for(j=0; j<5; j++)
- if(orig_data[i].o[j] != new_data[i].o[j])
- {
+ for (j = 0; j < 5; j++)
+ if (orig_data[i].o[j] != new_data[i].o[j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu\n", (unsigned long)i);
@@ -4127,18 +4364,30 @@ test_nbit_compound_3(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Treclaim(cmpd_tid, space, H5P_DEFAULT, new_data) < 0) goto error;
- if(H5Treclaim(cmpd_tid, space, H5P_DEFAULT, orig_data) < 0) goto error;
- if(H5Tclose(i_tid) < 0) goto error;
- if(H5Tclose(str_tid) < 0) goto error;
- if(H5Tclose(vl_str_tid) < 0) goto error;
- if(H5Tclose(v_tid) < 0) goto error;
- if(H5Tclose(o_tid) < 0) goto error;
- if(H5Tclose(cmpd_tid) < 0) goto error;
- if(H5Pclose(dc) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Dclose(obj_ref_dataset) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Treclaim(cmpd_tid, space, H5P_DEFAULT, new_data) < 0)
+ goto error;
+ if (H5Treclaim(cmpd_tid, space, H5P_DEFAULT, orig_data) < 0)
+ goto error;
+ if (H5Tclose(i_tid) < 0)
+ goto error;
+ if (H5Tclose(str_tid) < 0)
+ goto error;
+ if (H5Tclose(vl_str_tid) < 0)
+ goto error;
+ if (H5Tclose(v_tid) < 0)
+ goto error;
+ if (H5Tclose(o_tid) < 0)
+ goto error;
+ if (H5Tclose(cmpd_tid) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Dclose(obj_ref_dataset) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -4148,7 +4397,6 @@ error:
return FAIL;
} /* end test_nbit_compound_3() */
-
/*-------------------------------------------------------------------------
* Function: test_nbit_int_size
*
@@ -4169,8 +4417,8 @@ test_nbit_int_size(hid_t file)
hid_t dataspace, dataset, datatype, mem_datatype, dset_create_props;
hsize_t dims[2], chunk_size[2];
hsize_t dset_size = 0;
- int **orig = NULL;
- int *orig_data = NULL;
+ int ** orig = NULL;
+ int * orig_data = NULL;
double power;
int i, j;
size_t precision, offset;
@@ -4178,135 +4426,133 @@ test_nbit_int_size(hid_t file)
TESTING(" nbit integer dataset size");
/* Set up data array */
- if(NULL == (orig_data = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
+ if (NULL == (orig_data = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
TEST_ERROR;
- if(NULL == (orig = (int **)HDcalloc(DSET_DIM1, sizeof(orig_data))))
+ if (NULL == (orig = (int **)HDcalloc(DSET_DIM1, sizeof(orig_data))))
TEST_ERROR;
for (i = 0; i < DSET_DIM1; i++)
orig[i] = orig_data + (i * DSET_DIM2);
/* Define dataset datatype (integer), and set precision, offset */
- if((datatype = H5Tcopy(H5T_NATIVE_INT)) < 0) {
+ if ((datatype = H5Tcopy(H5T_NATIVE_INT)) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Tcopy failed\n",__LINE__);
+ HDprintf(" line %d: H5Tcopy failed\n", __LINE__);
goto error;
}
precision = 16; /* precision includes sign bit */
- if(H5Tset_precision(datatype,precision)<0) {
+ if (H5Tset_precision(datatype, precision) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Pset_precision failed\n",__LINE__);
+ HDprintf(" line %d: H5Pset_precision failed\n", __LINE__);
goto error;
}
offset = 8;
- if(H5Tset_offset(datatype,offset)<0) {
+ if (H5Tset_offset(datatype, offset) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Tset_offset failed\n",__LINE__);
+ HDprintf(" line %d: H5Tset_offset failed\n", __LINE__);
goto error;
}
/* Copy to memory datatype */
- if((mem_datatype = H5Tcopy(datatype)) < 0) {
+ if ((mem_datatype = H5Tcopy(datatype)) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Tcopy failed\n",__LINE__);
+ HDprintf(" line %d: H5Tcopy failed\n", __LINE__);
goto error;
}
/* Set order of dataset datatype */
- if(H5Tset_order(datatype, H5T_ORDER_BE)<0) {
+ if (H5Tset_order(datatype, H5T_ORDER_BE) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Pset_order failed\n",__LINE__);
+ HDprintf(" line %d: H5Pset_order failed\n", __LINE__);
goto error;
}
- if(H5Tset_size(datatype, 4)<0) {
+ if (H5Tset_size(datatype, 4) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Pset_size failed\n",__LINE__);
+ HDprintf(" line %d: H5Pset_size failed\n", __LINE__);
goto error;
}
/* Initiliaze data buffer with random data within correct range
* corresponding to the memory datatype's precision and offset.
*/
- for (i=0; i < DSET_DIM1; i++)
- for (j=0; j < DSET_DIM2; j++) {
- power = HDpow(2.0F, (double)(precision-1));
+ for (i = 0; i < DSET_DIM1; i++)
+ for (j = 0; j < DSET_DIM2; j++) {
+ power = HDpow(2.0F, (double)(precision - 1));
orig[i][j] = HDrandom() % (int)power << offset;
}
-
/* Describe the dataspace. */
dims[0] = DSET_DIM1;
dims[1] = DSET_DIM2;
- if((dataspace = H5Screate_simple(2, dims, NULL))<0) {
+ if ((dataspace = H5Screate_simple(2, dims, NULL)) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Pcreate failed\n",__LINE__);
+ HDprintf(" line %d: H5Pcreate failed\n", __LINE__);
goto error;
}
/*
* Set the dataset creation property list to specify the chunks
*/
- chunk_size[0] = DSET_DIM1/10;
- chunk_size[1] = DSET_DIM2/10;
- if((dset_create_props = H5Pcreate(H5P_DATASET_CREATE))<0) {
+ chunk_size[0] = DSET_DIM1 / 10;
+ chunk_size[1] = DSET_DIM2 / 10;
+ if ((dset_create_props = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Pcreate failed\n",__LINE__);
+ HDprintf(" line %d: H5Pcreate failed\n", __LINE__);
goto error;
}
- if(H5Pset_chunk(dset_create_props, 2, chunk_size)<0) {
+ if (H5Pset_chunk(dset_create_props, 2, chunk_size) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Pset_chunk failed\n",__LINE__);
+ HDprintf(" line %d: H5Pset_chunk failed\n", __LINE__);
goto error;
}
/*
* Set for n-bit compression
*/
- if(H5Pset_nbit(dset_create_props)<0) {
+ if (H5Pset_nbit(dset_create_props) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Pset_nbit failed\n",__LINE__);
+ HDprintf(" line %d: H5Pset_nbit failed\n", __LINE__);
goto error;
}
/*
* Create a new dataset within the file.
*/
- if((dataset = H5Dcreate2(file, DSET_NBIT_INT_SIZE_NAME, datatype,
- dataspace, H5P_DEFAULT,
- dset_create_props, H5P_DEFAULT))<0) {
+ if ((dataset = H5Dcreate2(file, DSET_NBIT_INT_SIZE_NAME, datatype, dataspace, H5P_DEFAULT,
+ dset_create_props, H5P_DEFAULT)) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5dwrite failed\n",__LINE__);
+ HDprintf(" line %d: H5dwrite failed\n", __LINE__);
goto error;
}
/*
* Write the array to the file.
*/
- if(H5Dwrite(dataset, mem_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data)<0) {
+ if (H5Dwrite(dataset, mem_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0) {
H5_FAILED();
- HDprintf(" Line %d: H5Dwrite failed\n",__LINE__);
+ HDprintf(" Line %d: H5Dwrite failed\n", __LINE__);
goto error;
}
/*
* Get the precision of the data type
*/
- if((precision = H5Tget_precision(datatype)) == 0) {
+ if ((precision = H5Tget_precision(datatype)) == 0) {
H5_FAILED();
- HDprintf(" Line %d: wrong precision size: %zu\n",__LINE__, precision);
+ HDprintf(" Line %d: wrong precision size: %zu\n", __LINE__, precision);
goto error;
}
/*
* The size of the dataset after compression should around 2 * DSET_DIM1 * DSET_DIM2
*/
- if((dset_size = H5Dget_storage_size(dataset)) < DSET_DIM1*DSET_DIM2*(precision/8) ||
- dset_size > DSET_DIM1*DSET_DIM2*(precision/8) + 1*KB) {
+ if ((dset_size = H5Dget_storage_size(dataset)) < DSET_DIM1 * DSET_DIM2 * (precision / 8) ||
+ dset_size > DSET_DIM1 * DSET_DIM2 * (precision / 8) + 1 * KB) {
H5_FAILED();
- HDfprintf(stdout, " Line %d: wrong dataset size: %Hu\n",__LINE__, dset_size);
+ HDfprintf(stdout, " Line %d: wrong dataset size: %Hu\n", __LINE__, dset_size);
goto error;
}
@@ -4330,7 +4576,6 @@ error:
return FAIL;
} /* end test_nbit_int_size() */
-
/*-------------------------------------------------------------------------
* Function: test_nbit_flt_size
*
@@ -4352,8 +4597,8 @@ test_nbit_flt_size(hid_t file)
hid_t dataspace, dataset, datatype, dset_create_props;
hsize_t dims[2], chunk_size[2];
hsize_t dset_size = 0;
- float **orig = NULL;
- float *orig_data = NULL;
+ float **orig = NULL;
+ float * orig_data = NULL;
int i, j;
size_t precision, offset;
size_t spos, epos, esize, mpos, msize;
@@ -4361,180 +4606,177 @@ test_nbit_flt_size(hid_t file)
TESTING(" nbit floating-number dataset size");
/* Set up data array */
- if(NULL == (orig_data = (float *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(float))))
+ if (NULL == (orig_data = (float *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(float))))
TEST_ERROR;
- if(NULL == (orig = (float **)HDcalloc(DSET_DIM1, sizeof(orig_data))))
+ if (NULL == (orig = (float **)HDcalloc(DSET_DIM1, sizeof(orig_data))))
TEST_ERROR;
for (i = 0; i < DSET_DIM1; i++)
orig[i] = orig_data + (i * DSET_DIM2);
- /* Define floating-point type for dataset
- *-------------------------------------------------------------------
- * size=4 byte, precision=16 bits, offset=8 bits,
- * mantissa size=9 bits, mantissa position=8,
- * exponent size=6 bits, exponent position=17,
- * exponent bias=31.
- * It can be illustrated in little-endian order as:
- * (S - sign bit, E - exponent bit, M - mantissa bit,
- * ? - padding bit)
- *
- * 3 2 1 0
- * ???????? SEEEEEEM MMMMMMMM ????????
- *
- * To create a new floating-point type, the following
- * properties must be set in the order of
- * set fields -> set offset -> set precision -> set size.
- * All these properties must be set before the type can function.
- * Other properties can be set anytime. Derived type size cannot
- * be expanded bigger than original size but can be decreased.
- * There should be no holes among the significant bits. Exponent
- * bias usually is set 2^(n-1)-1, where n is the exponent size.
- *-------------------------------------------------------------------*/
- if((datatype = H5Tcopy(H5T_IEEE_F32LE)) < 0) {
- H5_FAILED();
- HDprintf(" line %d: H5Tcopy failed\n",__LINE__);
- goto error;
- } /* end if */
-
- msize = 9;
- spos = 23;
- epos = 17;
- esize = 6;
- mpos = 8;
- offset = 8;
- precision = 16;
-
- if(H5Tset_fields(datatype, spos, epos, esize, mpos, msize)<0) {
- H5_FAILED();
- HDprintf(" line %d: H5Tset_fields failed\n",__LINE__);
- goto error;
- } /* end if */
-
- if(H5Tset_offset(datatype,offset)<0) {
- H5_FAILED();
- HDprintf(" line %d: H5Tset_offset failed\n",__LINE__);
- goto error;
- } /* end if */
-
- if(H5Tset_precision(datatype,precision)<0) {
- H5_FAILED();
- HDprintf(" line %d: H5Tset_precision failed\n",__LINE__);
- goto error;
- } /* end if */
-
- if(H5Tset_size(datatype, 4)<0) {
- H5_FAILED();
- HDprintf(" line %d: H5Pset_size failed\n",__LINE__);
- goto error;
- } /* end if */
-
- /* Set order of dataset datatype */
- if(H5Tset_order(datatype, H5T_ORDER_BE)<0) {
+ /* Define floating-point type for dataset
+ *-------------------------------------------------------------------
+ * size=4 byte, precision=16 bits, offset=8 bits,
+ * mantissa size=9 bits, mantissa position=8,
+ * exponent size=6 bits, exponent position=17,
+ * exponent bias=31.
+ * It can be illustrated in little-endian order as:
+ * (S - sign bit, E - exponent bit, M - mantissa bit,
+ * ? - padding bit)
+ *
+ * 3 2 1 0
+ * ???????? SEEEEEEM MMMMMMMM ????????
+ *
+ * To create a new floating-point type, the following
+ * properties must be set in the order of
+ * set fields -> set offset -> set precision -> set size.
+ * All these properties must be set before the type can function.
+ * Other properties can be set anytime. Derived type size cannot
+ * be expanded bigger than original size but can be decreased.
+ * There should be no holes among the significant bits. Exponent
+ * bias usually is set 2^(n-1)-1, where n is the exponent size.
+ *-------------------------------------------------------------------*/
+ if ((datatype = H5Tcopy(H5T_IEEE_F32LE)) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Tcopy failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ msize = 9;
+ spos = 23;
+ epos = 17;
+ esize = 6;
+ mpos = 8;
+ offset = 8;
+ precision = 16;
+
+ if (H5Tset_fields(datatype, spos, epos, esize, mpos, msize) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Tset_fields failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ if (H5Tset_offset(datatype, offset) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Tset_offset failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ if (H5Tset_precision(datatype, precision) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Tset_precision failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ if (H5Tset_size(datatype, 4) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Pset_size failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ /* Set order of dataset datatype */
+ if (H5Tset_order(datatype, H5T_ORDER_BE) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Pset_order failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ if (H5Tset_ebias(datatype, 31) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Pset_size failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ /*
+ * Initiliaze data buffer with random data
+ */
+ for (i = 0; i < DSET_DIM1; i++)
+ for (j = 0; j < DSET_DIM2; j++)
+ orig[i][j] = (float)(HDrandom() % 1234567) / 2;
+
+ /* Describe the dataspace. */
+ dims[0] = DSET_DIM1;
+ dims[1] = DSET_DIM2;
+ if ((dataspace = H5Screate_simple(2, dims, NULL)) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Pcreate failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ /*
+ * Set the dataset creation property list to specify the chunks
+ */
+ chunk_size[0] = DSET_DIM1 / 10;
+ chunk_size[1] = DSET_DIM2 / 10;
+ if ((dset_create_props = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Pcreate failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ if (H5Pset_chunk(dset_create_props, 2, chunk_size) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Pset_chunk failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ /*
+ * Set for n-bit compression
+ */
+ if (H5Pset_nbit(dset_create_props) < 0) {
+ H5_FAILED();
+ HDprintf(" line %d: H5Pset_nbit failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ /*
+ * Create a new dataset within the file.
+ */
+ if ((dataset = H5Dcreate2(file, DSET_NBIT_FLT_SIZE_NAME, datatype, dataspace, H5P_DEFAULT,
+ dset_create_props, H5P_DEFAULT)) < 0) {
H5_FAILED();
- HDprintf(" line %d: H5Pset_order failed\n",__LINE__);
- goto error;
- } /* end if */
-
- if(H5Tset_ebias(datatype, 31)<0) {
- H5_FAILED();
- HDprintf(" line %d: H5Pset_size failed\n",__LINE__);
- goto error;
- } /* end if */
-
- /*
- * Initiliaze data buffer with random data
- */
- for (i=0; i < DSET_DIM1; i++)
- for (j=0; j < DSET_DIM2; j++)
- orig[i][j] = (float)(HDrandom() % 1234567) / 2;
-
-
- /* Describe the dataspace. */
- dims[0] = DSET_DIM1;
- dims[1] = DSET_DIM2;
- if((dataspace = H5Screate_simple (2, dims, NULL))<0) {
- H5_FAILED();
- HDprintf(" line %d: H5Pcreate failed\n",__LINE__);
- goto error;
- } /* end if */
-
- /*
- * Set the dataset creation property list to specify the chunks
- */
- chunk_size[0] = DSET_DIM1/10;
- chunk_size[1] = DSET_DIM2/10;
- if((dset_create_props = H5Pcreate (H5P_DATASET_CREATE))<0) {
- H5_FAILED();
- HDprintf(" line %d: H5Pcreate failed\n",__LINE__);
- goto error;
- } /* end if */
-
- if(H5Pset_chunk (dset_create_props, 2, chunk_size)<0) {
- H5_FAILED();
- HDprintf(" line %d: H5Pset_chunk failed\n",__LINE__);
- goto error;
- } /* end if */
-
- /*
- * Set for n-bit compression
- */
- if(H5Pset_nbit (dset_create_props)<0) {
- H5_FAILED();
- HDprintf(" line %d: H5Pset_nbit failed\n",__LINE__);
- goto error;
- } /* end if */
-
- /*
- * Create a new dataset within the file.
- */
- if((dataset = H5Dcreate2 (file, DSET_NBIT_FLT_SIZE_NAME, datatype,
- dataspace, H5P_DEFAULT,
- dset_create_props, H5P_DEFAULT))<0) {
- H5_FAILED();
- HDprintf(" line %d: H5dwrite failed\n",__LINE__);
- goto error;
- } /* end if */
-
- /*
- * Write the array to the file.
- */
- if(H5Dwrite (dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL,
- H5P_DEFAULT, orig_data)<0) {
- H5_FAILED();
- HDprintf(" Line %d: H5Dwrite failed\n",__LINE__);
- goto error;
- } /* end if */
-
- /*
- * Get the precision of the data type
- */
- if((precision = H5Tget_precision(datatype)) == 0) {
- H5_FAILED();
- HDprintf(" Line %d: wrong precision size: %zu\n",__LINE__, precision);
- goto error;
- } /* end if */
-
- /*
- * The size of the dataset after compression should around 2 * DSET_DIM1 * DSET_DIM2
- */
- if((dset_size = H5Dget_storage_size(dataset)) < DSET_DIM1*DSET_DIM2*(precision/8) ||
- dset_size > DSET_DIM1*DSET_DIM2*(precision/8) + 1*KB) {
- H5_FAILED();
- HDfprintf(stdout, " Line %d: wrong dataset size: %Hu\n",__LINE__, dset_size);
- goto error;
- } /* end if */
-
- H5Tclose (datatype);
- H5Dclose (dataset);
- H5Sclose (dataspace);
- H5Pclose (dset_create_props);
+ HDprintf(" line %d: H5dwrite failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ /*
+ * Write the array to the file.
+ */
+ if (H5Dwrite(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: H5Dwrite failed\n", __LINE__);
+ goto error;
+ } /* end if */
+
+ /*
+ * Get the precision of the data type
+ */
+ if ((precision = H5Tget_precision(datatype)) == 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: wrong precision size: %zu\n", __LINE__, precision);
+ goto error;
+ } /* end if */
+
+ /*
+ * The size of the dataset after compression should around 2 * DSET_DIM1 * DSET_DIM2
+ */
+ if ((dset_size = H5Dget_storage_size(dataset)) < DSET_DIM1 * DSET_DIM2 * (precision / 8) ||
+ dset_size > DSET_DIM1 * DSET_DIM2 * (precision / 8) + 1 * KB) {
+ H5_FAILED();
+ HDfprintf(stdout, " Line %d: wrong dataset size: %Hu\n", __LINE__, dset_size);
+ goto error;
+ } /* end if */
+
+ H5Tclose(datatype);
+ H5Dclose(dataset);
+ H5Sclose(dataspace);
+ H5Pclose(dset_create_props);
PASSED();
HDfree(orig);
HDfree(orig_data);
- return SUCCEED;
+ return SUCCEED;
error:
HDfree(orig);
HDfree(orig_data);
@@ -4560,12 +4802,12 @@ error:
static herr_t
test_scaleoffset_int(hid_t file)
{
- hid_t dataset, datatype, space, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2,5};
- int orig_data[2][5];
- int new_data[2][5];
- size_t i, j;
+ hid_t dataset, datatype, space, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
+ int orig_data[2][5];
+ int new_data[2][5];
+ size_t i, j;
HDputs("Testing scaleoffset filter");
TESTING(" scaleoffset int without fill value (setup)");
@@ -4573,34 +4815,41 @@ test_scaleoffset_int(hid_t file)
datatype = H5Tcopy(H5T_NATIVE_INT);
/* Set order of dataset datatype */
- if(H5Tset_order(datatype, H5T_ORDER_BE) < 0) goto error;
+ if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
+ goto error;
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Create the dataset property list */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
/* Fill value undefined */
- if(H5Pset_fill_value(dc, datatype, NULL) < 0) goto error;
+ if (H5Pset_fill_value(dc, datatype, NULL) < 0)
+ goto error;
/* Set up to use scaleoffset filter, let library calculate minbits */
- if(H5Pset_chunk(dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_scaleoffset(dc, H5Z_SO_INT,H5Z_SO_INT_MINBITS_DEFAULT) < 0) goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_scaleoffset(dc, H5Z_SO_INT, H5Z_SO_INT_MINBITS_DEFAULT) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_INT_NAME, datatype,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset =
+ H5Dcreate2(file, DSET_SCALEOFFSET_INT_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
+ goto error;
/* Initialize data */
- for(i= 0;i< (size_t)size[0]; i++)
- for(j = 0; j < (size_t)size[1]; j++) {
- orig_data[i][j] = HDrandom() % 10000;
+ for (i = 0; i < (size_t)size[0]; i++)
+ for (j = 0; j < (size_t)size[1]; j++) {
+ orig_data[i][j] = HDrandom() % 10000;
- /* even-numbered values are negtive */
- if((i*size[1]+j+1)%2 == 0)
- orig_data[i][j] = -orig_data[i][j];
- }
+ /* even-numbered values are negtive */
+ if ((i * size[1] + j + 1) % 2 == 0)
+ orig_data[i][j] = -orig_data[i][j];
+ }
PASSED();
@@ -4611,8 +4860,8 @@ test_scaleoffset_int(hid_t file)
*/
TESTING(" scaleoffset int without fill value (write)");
- if(H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- orig_data) < 0) goto error;
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
+ goto error;
PASSED();
/*----------------------------------------------------------------------
@@ -4622,13 +4871,13 @@ test_scaleoffset_int(hid_t file)
TESTING(" scaleoffset int without fill value (read)");
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- new_data) < 0) goto error;
+ if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
+ goto error;
/* Check that the values read are the same as the values written */
- for(i=0; i<(size_t)size[0]; i++) {
- for(j=0; j<(size_t)size[1]; j++) {
- if(new_data[i][j] != orig_data[i][j]) {
+ for (i = 0; i < (size_t)size[0]; i++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (new_data[i][j] != orig_data[i][j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
@@ -4641,10 +4890,14 @@ test_scaleoffset_int(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(datatype) < 0) goto error;
- if(H5Pclose(dc) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Tclose(datatype) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -4653,7 +4906,6 @@ error:
return FAIL;
} /* end test_scaleoffset_int() */
-
/*-------------------------------------------------------------------------
* Function: test_scaleoffset_int_2
*
@@ -4672,62 +4924,74 @@ error:
static herr_t
test_scaleoffset_int_2(hid_t file)
{
- hid_t dataset, datatype, space, mspace, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2,5};
- int orig_data[2][5];
- int new_data[2][5];
- hsize_t start[2]; /* Start of hyperslab */
- hsize_t stride[2]; /* Stride of hyperslab */
- hsize_t count[2]; /* Block count */
- hsize_t block[2]; /* Block sizes */
- int fillval;
- size_t j;
+ hid_t dataset, datatype, space, mspace, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
+ int orig_data[2][5];
+ int new_data[2][5];
+ hsize_t start[2]; /* Start of hyperslab */
+ hsize_t stride[2]; /* Stride of hyperslab */
+ hsize_t count[2]; /* Block count */
+ hsize_t block[2]; /* Block sizes */
+ int fillval;
+ size_t j;
TESTING(" scaleoffset int with fill value (setup)");
datatype = H5Tcopy(H5T_NATIVE_INT);
/* Set order of dataset datatype */
- if(H5Tset_order(datatype, H5T_ORDER_BE) < 0) goto error;
+ if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
+ goto error;
/* Create the data space for the dataset */
- if((space = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Create the dataset property list */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
/* Set fill value */
fillval = 10000;
- if(H5Pset_fill_value(dc, H5T_NATIVE_INT, &fillval) < 0) goto error;
+ if (H5Pset_fill_value(dc, H5T_NATIVE_INT, &fillval) < 0)
+ goto error;
/* Set up to use scaleoffset filter, let library calculate minbits */
- if(H5Pset_chunk(dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_scaleoffset(dc, H5Z_SO_INT,H5Z_SO_INT_MINBITS_DEFAULT) < 0) goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_scaleoffset(dc, H5Z_SO_INT, H5Z_SO_INT_MINBITS_DEFAULT) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_INT_NAME_2, datatype,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_INT_NAME_2, datatype, space, H5P_DEFAULT, dc,
+ H5P_DEFAULT)) < 0)
+ goto error;
/* Create the memory data space */
- if((mspace = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((mspace = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Select hyperslab for data to write, using 1x5 blocks,
* (1,1) stride and (1,1) count starting at the position (0,0).
*/
- start[0] = 0; start[1] = 0;
- stride[0] = 1; stride[1] = 1;
- count[0] = 1; count[1] = 1;
- block[0] = 1; block[1] = 5;
- if(H5Sselect_hyperslab(mspace, H5S_SELECT_SET, start,
- stride, count, block) < 0) goto error;
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 5;
+ if (H5Sselect_hyperslab(mspace, H5S_SELECT_SET, start, stride, count, block) < 0)
+ goto error;
/* Initialize data of hyperslab */
- for(j = 0; j < (size_t)size[1]; j++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
orig_data[0][j] = (int)HDrandom() % 10000;
/* even-numbered values are negtive */
- if((j+1)%2 == 0)
+ if ((j + 1) % 2 == 0)
orig_data[0][j] = -orig_data[0][j];
}
@@ -4741,8 +5005,8 @@ test_scaleoffset_int_2(hid_t file)
TESTING(" scaleoffset int with fill value (write)");
/* only data in the hyperslab will be written, other value should be fill value */
- if(H5Dwrite(dataset, H5T_NATIVE_INT, mspace, mspace, H5P_DEFAULT,
- orig_data) < 0) goto error;
+ if (H5Dwrite(dataset, H5T_NATIVE_INT, mspace, mspace, H5P_DEFAULT, orig_data) < 0)
+ goto error;
PASSED();
/*----------------------------------------------------------------------
@@ -4752,12 +5016,12 @@ test_scaleoffset_int_2(hid_t file)
TESTING(" scaleoffset int with fill value (read)");
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_INT, mspace, mspace, H5P_DEFAULT,
- new_data) < 0) goto error;
+ if (H5Dread(dataset, H5T_NATIVE_INT, mspace, mspace, H5P_DEFAULT, new_data) < 0)
+ goto error;
/* Check that the values read are the same as the values written */
- for(j=0; j<(size_t)size[1]; j++) {
- if(new_data[0][j] != orig_data[0][j]) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (new_data[0][j] != orig_data[0][j]) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)0, (unsigned long)j);
@@ -4769,10 +5033,14 @@ test_scaleoffset_int_2(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(datatype) < 0) goto error;
- if(H5Pclose(dc) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Tclose(datatype) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -4781,7 +5049,6 @@ error:
return FAIL;
} /* end test_scaleoffset_int_2() */
-
/*-------------------------------------------------------------------------
* Function: test_scaleoffset_float
*
@@ -4800,48 +5067,55 @@ error:
static herr_t
test_scaleoffset_float(hid_t file)
{
- hid_t dataset, datatype, space, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2,5};
- float orig_data[2][5];
- float new_data[2][5];
- size_t i, j;
+ hid_t dataset, datatype, space, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
+ float orig_data[2][5];
+ float new_data[2][5];
+ size_t i, j;
TESTING(" scaleoffset float without fill value, D-scaling (setup)");
datatype = H5Tcopy(H5T_NATIVE_FLOAT);
/* Set order of dataset datatype */
- if(H5Tset_order(datatype, H5T_ORDER_BE) < 0) goto error;
+ if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
+ goto error;
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Create the dataset property list */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
/* Fill value undefined */
- if(H5Pset_fill_value(dc, datatype, NULL) < 0) goto error;
+ if (H5Pset_fill_value(dc, datatype, NULL) < 0)
+ goto error;
/* Set up to use scaleoffset filter, decimal scale factor is 3,
* use variable-minimum-bits method
*/
- if(H5Pset_chunk(dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE,3) < 0) goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE, 3) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_FLOAT_NAME, datatype,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_FLOAT_NAME, datatype, space, H5P_DEFAULT, dc,
+ H5P_DEFAULT)) < 0)
+ goto error;
/* Initialize data */
- for(i= 0;i< (size_t)size[0]; i++)
- for(j = 0; j < (size_t)size[1]; j++) {
- orig_data[i][j] = (float)(HDrandom() % 100000) / 1000.0F;
+ for (i = 0; i < (size_t)size[0]; i++)
+ for (j = 0; j < (size_t)size[1]; j++) {
+ orig_data[i][j] = (float)(HDrandom() % 100000) / 1000.0F;
- /* even-numbered values are negtive */
- if((i*size[1]+j+1)%2 == 0)
- orig_data[i][j] = -orig_data[i][j];
- }
+ /* even-numbered values are negtive */
+ if ((i * size[1] + j + 1) % 2 == 0)
+ orig_data[i][j] = -orig_data[i][j];
+ }
PASSED();
@@ -4852,8 +5126,8 @@ test_scaleoffset_float(hid_t file)
*/
TESTING(" scaleoffset float without fill value, D-scaling (write)");
- if(H5Dwrite(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- orig_data) < 0) goto error;
+ if (H5Dwrite(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
+ goto error;
PASSED();
/*----------------------------------------------------------------------
@@ -4863,13 +5137,13 @@ test_scaleoffset_float(hid_t file)
TESTING(" scaleoffset float without fill value, D-scaling (read)");
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- new_data) < 0) goto error;
+ if (H5Dread(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
+ goto error;
/* Check that the values read are the same as the values written */
- for(i=0; i<(size_t)size[0]; i++) {
- for(j=0; j<(size_t)size[1]; j++) {
- if(HDfabs(new_data[i][j]-orig_data[i][j]) > HDpow(10.0F, -3.0F)) {
+ for (i = 0; i < (size_t)size[0]; i++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (HDfabs(new_data[i][j] - orig_data[i][j]) > HDpow(10.0F, -3.0F)) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
@@ -4882,10 +5156,14 @@ test_scaleoffset_float(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(datatype) < 0) goto error;
- if(H5Pclose(dc) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Tclose(datatype) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -4894,7 +5172,6 @@ error:
return FAIL;
} /* end test_scaleoffset_float() */
-
/*-------------------------------------------------------------------------
* Function: test_scaleoffset_float_2
*
@@ -4913,64 +5190,76 @@ error:
static herr_t
test_scaleoffset_float_2(hid_t file)
{
- hid_t dataset, datatype, space, mspace, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2,5};
- float orig_data[2][5];
- float new_data[2][5];
- float fillval;
- hsize_t start[2]; /* Start of hyperslab */
- hsize_t stride[2]; /* Stride of hyperslab */
- hsize_t count[2]; /* Block count */
- hsize_t block[2]; /* Block sizes */
- size_t j;
+ hid_t dataset, datatype, space, mspace, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
+ float orig_data[2][5];
+ float new_data[2][5];
+ float fillval;
+ hsize_t start[2]; /* Start of hyperslab */
+ hsize_t stride[2]; /* Stride of hyperslab */
+ hsize_t count[2]; /* Block count */
+ hsize_t block[2]; /* Block sizes */
+ size_t j;
TESTING(" scaleoffset float with fill value, D-scaling (setup)");
datatype = H5Tcopy(H5T_NATIVE_FLOAT);
/* Set order of dataset datatype */
- if(H5Tset_order(datatype, H5T_ORDER_BE) < 0) goto error;
+ if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
+ goto error;
/* Create the data space for the dataset */
- if((space = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Create the dataset property list */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
/* Set fill value */
fillval = 10000.0F;
- if(H5Pset_fill_value(dc, H5T_NATIVE_FLOAT, &fillval) < 0) goto error;
+ if (H5Pset_fill_value(dc, H5T_NATIVE_FLOAT, &fillval) < 0)
+ goto error;
/* Set up to use scaleoffset filter, decimal scale factor is 3,
* use variable-minimum-bits method
*/
- if(H5Pset_chunk(dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE,3) < 0) goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE, 3) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_FLOAT_NAME_2, datatype,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_FLOAT_NAME_2, datatype, space, H5P_DEFAULT, dc,
+ H5P_DEFAULT)) < 0)
+ goto error;
/* Create the memory data space */
- if((mspace = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((mspace = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Select hyperslab for data to write, using 1x5 blocks,
* (1,1) stride and (1,1) count starting at the position (0,0).
*/
- start[0] = 0; start[1] = 0;
- stride[0] = 1; stride[1] = 1;
- count[0] = 1; count[1] = 1;
- block[0] = 1; block[1] = 5;
- if(H5Sselect_hyperslab(mspace, H5S_SELECT_SET, start,
- stride, count, block) < 0) goto error;
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 5;
+ if (H5Sselect_hyperslab(mspace, H5S_SELECT_SET, start, stride, count, block) < 0)
+ goto error;
/* Initialize data of hyperslab */
- for(j = 0; j < (size_t)size[1]; j++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
orig_data[0][j] = (float)(HDrandom() % 100000) / 1000.0F;
/* even-numbered values are negtive */
- if((j + 1) % 2 == 0)
+ if ((j + 1) % 2 == 0)
orig_data[0][j] = -orig_data[0][j];
}
@@ -4984,8 +5273,8 @@ test_scaleoffset_float_2(hid_t file)
TESTING(" scaleoffset float with fill value, D-scaling (write)");
/* only data in the hyperslab will be written, other value should be fill value */
- if(H5Dwrite(dataset, H5T_NATIVE_FLOAT, mspace, mspace, H5P_DEFAULT,
- orig_data) < 0) goto error;
+ if (H5Dwrite(dataset, H5T_NATIVE_FLOAT, mspace, mspace, H5P_DEFAULT, orig_data) < 0)
+ goto error;
PASSED();
/*----------------------------------------------------------------------
@@ -4995,12 +5284,12 @@ test_scaleoffset_float_2(hid_t file)
TESTING(" scaleoffset float with fill value, D-scaling (read)");
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_FLOAT, mspace, mspace, H5P_DEFAULT,
- new_data) < 0) goto error;
+ if (H5Dread(dataset, H5T_NATIVE_FLOAT, mspace, mspace, H5P_DEFAULT, new_data) < 0)
+ goto error;
/* Check that the values read are the same as the values written */
- for(j=0; j<(size_t)size[1]; j++) {
- if(HDfabs(new_data[0][j]-orig_data[0][j]) > HDpow(10.0F, -3.0F)) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (HDfabs(new_data[0][j] - orig_data[0][j]) > HDpow(10.0F, -3.0F)) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)0, (unsigned long)j);
@@ -5011,10 +5300,14 @@ test_scaleoffset_float_2(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(datatype) < 0) goto error;
- if(H5Pclose(dc) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Tclose(datatype) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -5023,7 +5316,6 @@ error:
return FAIL;
} /* end test_scaleoffset_float_2() */
-
/*-------------------------------------------------------------------------
* Function: test_scaleoffset_double
*
@@ -5042,48 +5334,55 @@ error:
static herr_t
test_scaleoffset_double(hid_t file)
{
- hid_t dataset, datatype, space, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2,5};
- double orig_data[2][5];
- double new_data[2][5];
- size_t i, j;
+ hid_t dataset, datatype, space, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
+ double orig_data[2][5];
+ double new_data[2][5];
+ size_t i, j;
TESTING(" scaleoffset double without fill value, D-scaling (setup)");
datatype = H5Tcopy(H5T_NATIVE_DOUBLE);
/* Set order of dataset datatype */
- if(H5Tset_order(datatype, H5T_ORDER_BE) < 0) goto error;
+ if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
+ goto error;
/* Create the data space */
- if((space = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Create the dataset property list */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
/* Fill value undefined */
- if(H5Pset_fill_value(dc, datatype, NULL) < 0) goto error;
+ if (H5Pset_fill_value(dc, datatype, NULL) < 0)
+ goto error;
/* Set up to use scaleoffset filter, decimal scale factor is 7,
* use variable-minimum-bits method
*/
- if(H5Pset_chunk(dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE,7) < 0) goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE, 7) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_DOUBLE_NAME, datatype,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_DOUBLE_NAME, datatype, space, H5P_DEFAULT, dc,
+ H5P_DEFAULT)) < 0)
+ goto error;
/* Initialize data */
- for(i= 0;i< (size_t)size[0]; i++)
- for(j = 0; j < (size_t)size[1]; j++) {
- orig_data[i][j] = (float)(HDrandom() % 10000000) / 10000000.0F;
+ for (i = 0; i < (size_t)size[0]; i++)
+ for (j = 0; j < (size_t)size[1]; j++) {
+ orig_data[i][j] = (float)(HDrandom() % 10000000) / 10000000.0F;
- /* even-numbered values are negtive */
- if((i* size[1] + j + 1) % 2 == 0)
- orig_data[i][j] = -orig_data[i][j];
- }
+ /* even-numbered values are negtive */
+ if ((i * size[1] + j + 1) % 2 == 0)
+ orig_data[i][j] = -orig_data[i][j];
+ }
PASSED();
@@ -5094,8 +5393,8 @@ test_scaleoffset_double(hid_t file)
*/
TESTING(" scaleoffset double without fill value, D-scaling (write)");
- if(H5Dwrite(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- orig_data) < 0) goto error;
+ if (H5Dwrite(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
+ goto error;
PASSED();
/*----------------------------------------------------------------------
@@ -5105,13 +5404,13 @@ test_scaleoffset_double(hid_t file)
TESTING(" scaleoffset double without fill value, D-scaling (read)");
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT,
- new_data) < 0) goto error;
+ if (H5Dread(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
+ goto error;
/* Check that the values read are the same as the values written */
- for(i=0; i<(size_t)size[0]; i++) {
- for(j=0; j<(size_t)size[1]; j++) {
- if(HDfabs(new_data[i][j]-orig_data[i][j]) > HDpow(10.0F, -7.0F)) {
+ for (i = 0; i < (size_t)size[0]; i++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (HDfabs(new_data[i][j] - orig_data[i][j]) > HDpow(10.0F, -7.0F)) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
@@ -5124,10 +5423,14 @@ test_scaleoffset_double(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(datatype) < 0) goto error;
- if(H5Pclose(dc) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Tclose(datatype) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -5136,7 +5439,6 @@ error:
return FAIL;
} /* end test_scaleoffset_double() */
-
/*-------------------------------------------------------------------------
* Function: test_scaleoffset_double_2
*
@@ -5155,64 +5457,76 @@ error:
static herr_t
test_scaleoffset_double_2(hid_t file)
{
- hid_t dataset, datatype, space, mspace, dc;
- const hsize_t size[2] = {2, 5};
- const hsize_t chunk_size[2] = {2,5};
- double orig_data[2][5];
- double new_data[2][5];
- double fillval;
- hsize_t start[2]; /* Start of hyperslab */
- hsize_t stride[2]; /* Stride of hyperslab */
- hsize_t count[2]; /* Block count */
- hsize_t block[2]; /* Block sizes */
- size_t j;
+ hid_t dataset, datatype, space, mspace, dc;
+ const hsize_t size[2] = {2, 5};
+ const hsize_t chunk_size[2] = {2, 5};
+ double orig_data[2][5];
+ double new_data[2][5];
+ double fillval;
+ hsize_t start[2]; /* Start of hyperslab */
+ hsize_t stride[2]; /* Stride of hyperslab */
+ hsize_t count[2]; /* Block count */
+ hsize_t block[2]; /* Block sizes */
+ size_t j;
TESTING(" scaleoffset double with fill value, D-scaling (setup)");
datatype = H5Tcopy(H5T_NATIVE_DOUBLE);
/* Set order of dataset datatype */
- if(H5Tset_order(datatype, H5T_ORDER_BE) < 0) goto error;
+ if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
+ goto error;
/* Create the data space for the dataset */
- if((space = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((space = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Create the dataset property list */
- if((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
+ if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
/* Set fill value */
fillval = 10000.0F;
- if(H5Pset_fill_value(dc, H5T_NATIVE_DOUBLE, &fillval) < 0) goto error;
+ if (H5Pset_fill_value(dc, H5T_NATIVE_DOUBLE, &fillval) < 0)
+ goto error;
/* Set up to use scaleoffset filter, decimal scale factor is 7,
* use variable-minimum-bits method
*/
- if(H5Pset_chunk(dc, 2, chunk_size) < 0) goto error;
- if(H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE,7) < 0) goto error;
+ if (H5Pset_chunk(dc, 2, chunk_size) < 0)
+ goto error;
+ if (H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE, 7) < 0)
+ goto error;
/* Create the dataset */
- if((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_DOUBLE_NAME_2, datatype,
- space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_DOUBLE_NAME_2, datatype, space, H5P_DEFAULT, dc,
+ H5P_DEFAULT)) < 0)
+ goto error;
/* Create the memory data space */
- if((mspace = H5Screate_simple(2, size, NULL)) < 0) goto error;
+ if ((mspace = H5Screate_simple(2, size, NULL)) < 0)
+ goto error;
/* Select hyperslab for data to write, using 1x5 blocks,
* (1,1) stride and (1,1) count starting at the position (0,0).
*/
- start[0] = 0; start[1] = 0;
- stride[0] = 1; stride[1] = 1;
- count[0] = 1; count[1] = 1;
- block[0] = 1; block[1] = 5;
- if(H5Sselect_hyperslab(mspace, H5S_SELECT_SET, start,
- stride, count, block) < 0) goto error;
+ start[0] = 0;
+ start[1] = 0;
+ stride[0] = 1;
+ stride[1] = 1;
+ count[0] = 1;
+ count[1] = 1;
+ block[0] = 1;
+ block[1] = 5;
+ if (H5Sselect_hyperslab(mspace, H5S_SELECT_SET, start, stride, count, block) < 0)
+ goto error;
/* Initialize data of hyperslab */
- for(j = 0; j < (size_t)size[1]; j++) {
+ for (j = 0; j < (size_t)size[1]; j++) {
orig_data[0][j] = (float)(HDrandom() % 10000000) / 10000000.0F;
/* even-numbered values are negtive */
- if((j + 1) % 2 == 0)
+ if ((j + 1) % 2 == 0)
orig_data[0][j] = -orig_data[0][j];
}
@@ -5226,8 +5540,8 @@ test_scaleoffset_double_2(hid_t file)
TESTING(" scaleoffset double with fill value, D-scaling (write)");
/* only data in the hyperslab will be written, other value should be fill value */
- if(H5Dwrite(dataset, H5T_NATIVE_DOUBLE, mspace, mspace, H5P_DEFAULT,
- orig_data) < 0) goto error;
+ if (H5Dwrite(dataset, H5T_NATIVE_DOUBLE, mspace, mspace, H5P_DEFAULT, orig_data) < 0)
+ goto error;
PASSED();
/*----------------------------------------------------------------------
@@ -5237,12 +5551,12 @@ test_scaleoffset_double_2(hid_t file)
TESTING(" scaleoffset double with fill value, D-scaling (read)");
/* Read the dataset back */
- if(H5Dread(dataset, H5T_NATIVE_DOUBLE, mspace, mspace, H5P_DEFAULT,
- new_data) < 0) goto error;
+ if (H5Dread(dataset, H5T_NATIVE_DOUBLE, mspace, mspace, H5P_DEFAULT, new_data) < 0)
+ goto error;
/* Check that the values read are the same as the values written */
- for(j=0; j<(size_t)size[1]; j++) {
- if(HDfabs(new_data[0][j]-orig_data[0][j]) > HDpow(10.0F, -7.0F)) {
+ for (j = 0; j < (size_t)size[1]; j++) {
+ if (HDfabs(new_data[0][j] - orig_data[0][j]) > HDpow(10.0F, -7.0F)) {
H5_FAILED();
HDprintf(" Read different values than written.\n");
HDprintf(" At index %lu,%lu\n", (unsigned long)0, (unsigned long)j);
@@ -5254,10 +5568,14 @@ test_scaleoffset_double_2(hid_t file)
* Cleanup
*----------------------------------------------------------------------
*/
- if(H5Tclose(datatype) < 0) goto error;
- if(H5Pclose(dc) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Tclose(datatype) < 0)
+ goto error;
+ if (H5Pclose(dc) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
PASSED();
@@ -5266,7 +5584,6 @@ error:
return FAIL;
} /* end test_scaleoffset_double_2() */
-
/*-------------------------------------------------------------------------
* Function: test_multiopen
*
@@ -5285,55 +5602,69 @@ error:
*-------------------------------------------------------------------------
*/
static herr_t
-test_multiopen (hid_t file)
+test_multiopen(hid_t file)
{
- hid_t dcpl = -1, space = -1, dset1 = -1, dset2 = -1;
- hsize_t cur_size[1] = {10};
- hsize_t tmp_size[1];
+ hid_t dcpl = -1, space = -1, dset1 = -1, dset2 = -1;
+ hsize_t cur_size[1] = {10};
+ hsize_t tmp_size[1];
static hsize_t max_size[1] = {H5S_UNLIMITED};
TESTING("multi-open with extending");
/* Create the dataset and open it twice */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk(dcpl, 1, cur_size) < 0) goto error;
- if((space = H5Screate_simple(1, cur_size, max_size)) < 0) goto error;
- if((dset1 = H5Dcreate2(file, "multiopen", H5T_NATIVE_INT, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) goto error;
- if((dset2 = H5Dopen2(dset1, ".", H5P_DEFAULT)) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dcpl, 1, cur_size) < 0)
+ goto error;
+ if ((space = H5Screate_simple(1, cur_size, max_size)) < 0)
+ goto error;
+ if ((dset1 = H5Dcreate2(file, "multiopen", H5T_NATIVE_INT, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ goto error;
+ if ((dset2 = H5Dopen2(dset1, ".", H5P_DEFAULT)) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
/* Extend with the first handle */
cur_size[0] = 20;
- if(H5Dset_extent(dset1, cur_size) < 0) goto error;
+ if (H5Dset_extent(dset1, cur_size) < 0)
+ goto error;
/* Get the size from the second handle */
- if((space = H5Dget_space(dset2)) < 0) goto error;
- if(H5Sget_simple_extent_dims(space, tmp_size, NULL) < 0) goto error;
- if(cur_size[0] != tmp_size[0]) {
+ if ((space = H5Dget_space(dset2)) < 0)
+ goto error;
+ if (H5Sget_simple_extent_dims(space, tmp_size, NULL) < 0)
+ goto error;
+ if (cur_size[0] != tmp_size[0]) {
H5_FAILED();
HDprintf(" Got %d instead of %d!\n", (int)tmp_size[0], (int)cur_size[0]);
goto error;
} /* end if */
- if(H5Dclose(dset1) < 0) goto error;
- if(H5Dclose(dset2) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Pclose(dcpl) < 0) goto error;
+ if (H5Dclose(dset1) < 0)
+ goto error;
+ if (H5Dclose(dset2) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Pclose(dcpl) < 0)
+ goto error;
PASSED();
return SUCCEED;
- error:
- H5E_BEGIN_TRY {
+error:
+ H5E_BEGIN_TRY
+ {
H5Dclose(dset1);
H5Dclose(dset2);
H5Sclose(space);
H5Pclose(dcpl);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_multiopen() */
-
/*-------------------------------------------------------------------------
* Function: test_types
*
@@ -5351,96 +5682,109 @@ test_multiopen (hid_t file)
static herr_t
test_types(hid_t file)
{
- hid_t grp=-1, type=-1, space=-1, dset=-1;
+ hid_t grp = -1, type = -1, space = -1, dset = -1;
size_t i;
- hsize_t nelmts;
- unsigned char buf[32];
+ hsize_t nelmts;
+ unsigned char buf[32];
TESTING("various datatypes");
- if((grp = H5Gcreate2(file, "typetests", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) goto error;
+ if ((grp = H5Gcreate2(file, "typetests", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ goto error;
/* bitfield_1 */
nelmts = sizeof(buf);
- if((type=H5Tcopy(H5T_STD_B8LE)) < 0 ||
- (space=H5Screate_simple(1, &nelmts, NULL)) < 0 ||
- (dset=H5Dcreate2(grp, "bitfield_1", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
- goto error;
- for(i=0; i<sizeof buf; i++) buf[i] = (unsigned char)(0xff ^ i);
- if(H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
- goto error;
-
- if(H5Sclose(space) < 0) goto error;
- if(H5Tclose(type) < 0) goto error;
- if(H5Dclose(dset) < 0) goto error;
+ if ((type = H5Tcopy(H5T_STD_B8LE)) < 0 || (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
+ (dset = H5Dcreate2(grp, "bitfield_1", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ goto error;
+ for (i = 0; i < sizeof buf; i++)
+ buf[i] = (unsigned char)(0xff ^ i);
+ if (H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
+ goto error;
+
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Tclose(type) < 0)
+ goto error;
+ if (H5Dclose(dset) < 0)
+ goto error;
/* bitfield_2 */
- nelmts = sizeof(buf)/2;
- if((type=H5Tcopy(H5T_STD_B16LE)) < 0 ||
- (space=H5Screate_simple(1, &nelmts, NULL)) < 0 ||
- (dset=H5Dcreate2(grp, "bitfield_2", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
- goto error;
- for(i=0; i<sizeof buf; i++) buf[i] = (unsigned char)(0xff ^ i);
- if(H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
- goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Tclose(type) < 0) goto error;
- if(H5Dclose(dset) < 0) goto error;
+ nelmts = sizeof(buf) / 2;
+ if ((type = H5Tcopy(H5T_STD_B16LE)) < 0 || (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
+ (dset = H5Dcreate2(grp, "bitfield_2", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ goto error;
+ for (i = 0; i < sizeof buf; i++)
+ buf[i] = (unsigned char)(0xff ^ i);
+ if (H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Tclose(type) < 0)
+ goto error;
+ if (H5Dclose(dset) < 0)
+ goto error;
/* opaque_1 */
nelmts = sizeof(buf);
- if((type = H5Tcreate(H5T_OPAQUE, (size_t)1)) < 0 ||
- H5Tset_tag(type, "testing 1-byte opaque type") < 0 ||
- (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
- (dset = H5Dcreate2(grp, "opaque_1", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
- goto error;
- for(i = 0; i < sizeof buf; i++)
+ if ((type = H5Tcreate(H5T_OPAQUE, (size_t)1)) < 0 || H5Tset_tag(type, "testing 1-byte opaque type") < 0 ||
+ (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
+ (dset = H5Dcreate2(grp, "opaque_1", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ goto error;
+ for (i = 0; i < sizeof buf; i++)
buf[i] = (unsigned char)(0xff ^ i);
- if(H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Tclose(type) < 0) goto error;
- if(H5Dclose(dset) < 0) goto error;
+ if (H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Tclose(type) < 0)
+ goto error;
+ if (H5Dclose(dset) < 0)
+ goto error;
/* opaque_2 */
- nelmts = sizeof(buf)/4;
- if((type = H5Tcreate(H5T_OPAQUE, (size_t)4)) < 0 ||
- H5Tset_tag(type, "testing 4-byte opaque type") < 0 ||
- (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
- (dset = H5Dcreate2(grp, "opaque_2", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
- goto error;
- for(i = 0; i < sizeof buf; i++)
+ nelmts = sizeof(buf) / 4;
+ if ((type = H5Tcreate(H5T_OPAQUE, (size_t)4)) < 0 || H5Tset_tag(type, "testing 4-byte opaque type") < 0 ||
+ (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
+ (dset = H5Dcreate2(grp, "opaque_2", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ goto error;
+ for (i = 0; i < sizeof buf; i++)
buf[i] = (unsigned char)(0xff ^ i);
- if(H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0) goto error;
- if(H5Sclose(space) < 0) goto error;
- if(H5Tclose(type) < 0) goto error;
- if(H5Dclose(dset) < 0) goto error;
+ if (H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
+ goto error;
+ if (H5Sclose(space) < 0)
+ goto error;
+ if (H5Tclose(type) < 0)
+ goto error;
+ if (H5Dclose(dset) < 0)
+ goto error;
/* Cleanup */
- if(H5Gclose(grp) < 0) goto error;
+ if (H5Gclose(grp) < 0)
+ goto error;
PASSED();
return SUCCEED;
- error:
- H5E_BEGIN_TRY {
- H5Gclose(grp);
- H5Tclose(type);
- H5Sclose(space);
- H5Dclose(dset);
- } H5E_END_TRY;
+error:
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(grp);
+ H5Tclose(type);
+ H5Sclose(space);
+ H5Dclose(dset);
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_types() */
/* This message derives from H5Z */
const H5Z_class2_t H5Z_CAN_APPLY_TEST[1] = {{
- H5Z_CLASS_T_VERS,
- H5Z_FILTER_CAN_APPLY_TEST, /* Filter id number */
- 1, 1,
- "can_apply_test", /* Filter name for debugging */
- can_apply_bogus, /* The "can apply" callback */
- NULL, /* The "set local" callback */
- filter_bogus, /* The actual filter function */
+ H5Z_CLASS_T_VERS, H5Z_FILTER_CAN_APPLY_TEST, /* Filter id number */
+ 1, 1, "can_apply_test", /* Filter name for debugging */
+ can_apply_bogus, /* The "can apply" callback */
+ NULL, /* The "set local" callback */
+ filter_bogus, /* The actual filter function */
}};
-
/*-------------------------------------------------------------------------
* Function: test_can_apply
*
@@ -5460,149 +5804,153 @@ const H5Z_class2_t H5Z_CAN_APPLY_TEST[1] = {{
static herr_t
test_can_apply(hid_t file)
{
- hid_t dsid; /* Dataset ID */
- hid_t sid; /* Dataspace ID */
- hid_t dcpl; /* Dataspace creation property list ID */
- const hsize_t dims[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
- const hsize_t chunk_dims[2] = {2, 25}; /* Chunk dimensions */
- hsize_t dset_size; /* Dataset size */
- size_t i,j; /* Local index variables */
+ hid_t dsid; /* Dataset ID */
+ hid_t sid; /* Dataspace ID */
+ hid_t dcpl; /* Dataspace creation property list ID */
+ const hsize_t dims[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
+ const hsize_t chunk_dims[2] = {2, 25}; /* Chunk dimensions */
+ hsize_t dset_size; /* Dataset size */
+ size_t i, j; /* Local index variables */
TESTING("dataset filter 'can apply' callback");
/* Create dcpl with special filter */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't create dcpl\n",__LINE__);
+ HDprintf(" Line %d: Can't create dcpl\n", __LINE__);
goto error;
} /* end if */
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't set chunk sizes\n",__LINE__);
+ HDprintf(" Line %d: Can't set chunk sizes\n", __LINE__);
goto error;
} /* end if */
- if(H5Zregister (H5Z_CAN_APPLY_TEST) < 0) {
+ if (H5Zregister(H5Z_CAN_APPLY_TEST) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't register 'can apply' filter\n",__LINE__);
+ HDprintf(" Line %d: Can't register 'can apply' filter\n", __LINE__);
goto error;
}
/* The filter is mandate. */
- if(H5Pset_filter(dcpl, H5Z_FILTER_CAN_APPLY_TEST, 0, (size_t)0, NULL) < 0) {
+ if (H5Pset_filter(dcpl, H5Z_FILTER_CAN_APPLY_TEST, 0, (size_t)0, NULL) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't set bogus filter\n",__LINE__);
+ HDprintf(" Line %d: Can't set bogus filter\n", __LINE__);
goto error;
}
/* Create the data space */
- if((sid = H5Screate_simple(2, dims, NULL)) < 0) {
+ if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't open dataspace\n",__LINE__);
+ HDprintf(" Line %d: Can't open dataspace\n", __LINE__);
goto error;
} /* end if */
/* Create new dataset */
/* (Should fail because the 'can apply' function should indicate inappropriate
* combination. And the filter is mandate.) */
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME, H5T_NATIVE_DOUBLE, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dsid >=0) {
+ }
+ H5E_END_TRY;
+ if (dsid >= 0) {
H5_FAILED();
- HDprintf(" Line %d: Shouldn't have created dataset!\n",__LINE__);
+ HDprintf(" Line %d: Shouldn't have created dataset!\n", __LINE__);
H5Dclose(dsid);
goto error;
} /* end if */
/* (Should fail because the 'can apply' function should fail) */
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME, H5T_NATIVE_FLOAT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dsid >=0) {
+ }
+ H5E_END_TRY;
+ if (dsid >= 0) {
H5_FAILED();
- HDprintf(" Line %d: Shouldn't have created dataset!\n",__LINE__);
+ HDprintf(" Line %d: Shouldn't have created dataset!\n", __LINE__);
H5Dclose(dsid);
goto error;
} /* end if */
/* Create new dataset */
- if((dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) {
+ if ((dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) <
+ 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't create dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't create dataset\n", __LINE__);
goto error;
} /* end if */
/* Write data */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error writing dataset data\n",__LINE__);
+ HDprintf(" Line %d: Error writing dataset data\n", __LINE__);
goto error;
} /* end if */
/* Flush the file (to clear the cache) */
- if(H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) {
+ if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error flushing file\n",__LINE__);
+ HDprintf(" Line %d: Error flushing file\n", __LINE__);
goto error;
} /* end if */
/* Query the dataset's size on disk */
- if((dset_size=H5Dget_storage_size(dsid))==0) {
+ if ((dset_size = H5Dget_storage_size(dsid)) == 0) {
H5_FAILED();
- HDprintf(" Line %d: Error querying dataset size\n",__LINE__);
+ HDprintf(" Line %d: Error querying dataset size\n", __LINE__);
goto error;
} /* end if */
/* Verify that the size indicates data is uncompressed */
- if((H5Tget_size(H5T_NATIVE_INT)*dims[0]*dims[1])!=dset_size) {
+ if ((H5Tget_size(H5T_NATIVE_INT) * dims[0] * dims[1]) != dset_size) {
H5_FAILED();
- HDprintf(" Line %d: Incorrect dataset size: %lu\n",__LINE__,(unsigned long)dset_size);
+ HDprintf(" Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
goto error;
} /* end if */
/* Read data */
- if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
+ if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error reading dataset data\n",__LINE__);
+ HDprintf(" Line %d: Error reading dataset data\n", __LINE__);
goto error;
} /* end if */
/* Compare data */
/* Check that the values read are the same as the values written */
- for(i=0; i<(size_t)dims[0]; i++) {
- for(j=0; j<(size_t)dims[1]; j++) {
- if(points[i][j] != check[i][j]) {
- H5_FAILED();
- HDprintf(" Line %d: Read different values than written.\n",__LINE__);
- HDprintf(" At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
- HDprintf(" At original: %d\n",points[i][j]);
- HDprintf(" At returned: %d\n",check[i][j]);
- goto error;
- } /* end if */
- } /* end for */
- } /* end for */
+ for (i = 0; i < (size_t)dims[0]; i++) {
+ for (j = 0; j < (size_t)dims[1]; j++) {
+ if (points[i][j] != check[i][j]) {
+ H5_FAILED();
+ HDprintf(" Line %d: Read different values than written.\n", __LINE__);
+ HDprintf(" At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
+ HDprintf(" At original: %d\n", points[i][j]);
+ HDprintf(" At returned: %d\n", check[i][j]);
+ goto error;
+ } /* end if */
+ } /* end for */
+ } /* end for */
/* Close dataset */
- if(H5Dclose(dsid) < 0) {
+ if (H5Dclose(dsid) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't close dataset\n", __LINE__);
goto error;
} /* end if */
/* Close dataspace */
- if(H5Sclose(sid) < 0) {
+ if (H5Sclose(sid) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dataspace\n",__LINE__);
+ HDprintf(" Line %d: Can't close dataspace\n", __LINE__);
goto error;
} /* end if */
/* Close dataset creation property list */
- if(H5Pclose(dcpl) < 0) {
+ if (H5Pclose(dcpl) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dcpl\n",__LINE__);
+ HDprintf(" Line %d: Can't close dcpl\n", __LINE__);
goto error;
} /* end if */
-
PASSED();
return SUCCEED;
@@ -5612,16 +5960,13 @@ error:
/* This message derives from H5Z */
const H5Z_class2_t H5Z_CAN_APPLY_TEST2[1] = {{
- H5Z_CLASS_T_VERS,
- H5Z_FILTER_CAN_APPLY_TEST2, /* Filter id number */
- 1, 1,
- "can_apply_test", /* Filter name for debugging */
- can_apply_bogus, /* The "can apply" callback */
- NULL, /* The "set local" callback */
- filter_bogus3, /* The actual filter function */
+ H5Z_CLASS_T_VERS, H5Z_FILTER_CAN_APPLY_TEST2, /* Filter id number */
+ 1, 1, "can_apply_test", /* Filter name for debugging */
+ can_apply_bogus, /* The "can apply" callback */
+ NULL, /* The "set local" callback */
+ filter_bogus3, /* The actual filter function */
}};
-
/*-------------------------------------------------------------------------
* Function: test_can_apply2
*
@@ -5643,125 +5988,125 @@ const H5Z_class2_t H5Z_CAN_APPLY_TEST2[1] = {{
static herr_t
test_can_apply2(hid_t file)
{
- hid_t dsid; /* Dataset ID */
- hid_t sid; /* Dataspace ID */
- hid_t dcpl; /* Dataspace creation property list ID */
- const hsize_t dims[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
- const hsize_t chunk_dims[2] = {2, 25}; /* Chunk dimensions */
- hsize_t dset_size; /* Dataset size */
- size_t i,j; /* Local index variables */
+ hid_t dsid; /* Dataset ID */
+ hid_t sid; /* Dataspace ID */
+ hid_t dcpl; /* Dataspace creation property list ID */
+ const hsize_t dims[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
+ const hsize_t chunk_dims[2] = {2, 25}; /* Chunk dimensions */
+ hsize_t dset_size; /* Dataset size */
+ size_t i, j; /* Local index variables */
TESTING("dataset filter 'can apply' callback second");
/* Create dcpl with special filter */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't create dcpl\n",__LINE__);
+ HDprintf(" Line %d: Can't create dcpl\n", __LINE__);
goto error;
} /* end if */
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't set chunk sizes\n",__LINE__);
+ HDprintf(" Line %d: Can't set chunk sizes\n", __LINE__);
goto error;
} /* end if */
- if(H5Zregister (H5Z_CAN_APPLY_TEST2) < 0) {
+ if (H5Zregister(H5Z_CAN_APPLY_TEST2) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't register 'can apply' filter\n",__LINE__);
+ HDprintf(" Line %d: Can't register 'can apply' filter\n", __LINE__);
goto error;
}
/* The filter is optional. */
- if(H5Pset_filter(dcpl, H5Z_FILTER_CAN_APPLY_TEST2, H5Z_FLAG_OPTIONAL, (size_t)0, NULL) < 0) {
+ if (H5Pset_filter(dcpl, H5Z_FILTER_CAN_APPLY_TEST2, H5Z_FLAG_OPTIONAL, (size_t)0, NULL) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't set bogus filter\n",__LINE__);
+ HDprintf(" Line %d: Can't set bogus filter\n", __LINE__);
goto error;
}
/* Create the data space */
- if((sid = H5Screate_simple(2, dims, NULL)) < 0) {
+ if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't open dataspace\n",__LINE__);
+ HDprintf(" Line %d: Can't open dataspace\n", __LINE__);
goto error;
} /* end if */
/* Create new dataset */
- if((dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME2, H5T_NATIVE_DOUBLE, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) {
+ if ((dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME2, H5T_NATIVE_DOUBLE, sid, H5P_DEFAULT, dcpl,
+ H5P_DEFAULT)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't create dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't create dataset\n", __LINE__);
goto error;
} /* end if */
/* Write data */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error writing dataset data\n",__LINE__);
+ HDprintf(" Line %d: Error writing dataset data\n", __LINE__);
goto error;
} /* end if */
/* Flush the file (to clear the cache) */
- if(H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) {
+ if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error flushing file\n",__LINE__);
+ HDprintf(" Line %d: Error flushing file\n", __LINE__);
goto error;
} /* end if */
/* Query the dataset's size on disk */
- if((dset_size=H5Dget_storage_size(dsid))==0) {
+ if ((dset_size = H5Dget_storage_size(dsid)) == 0) {
H5_FAILED();
- HDprintf(" Line %d: Error querying dataset size\n",__LINE__);
+ HDprintf(" Line %d: Error querying dataset size\n", __LINE__);
goto error;
} /* end if */
/* Verify that the size indicates data is uncompressed */
- if((H5Tget_size(H5T_NATIVE_DOUBLE)*dims[0]*dims[1])!=dset_size) {
+ if ((H5Tget_size(H5T_NATIVE_DOUBLE) * dims[0] * dims[1]) != dset_size) {
H5_FAILED();
- HDprintf(" Line %d: Incorrect dataset size: %lu\n",__LINE__,(unsigned long)dset_size);
+ HDprintf(" Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
goto error;
} /* end if */
/* Read data */
- if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
+ if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error reading dataset data\n",__LINE__);
+ HDprintf(" Line %d: Error reading dataset data\n", __LINE__);
goto error;
} /* end if */
/* Compare data */
/* Check that the values read are the same as the values written */
- for(i=0; i<(size_t)dims[0]; i++) {
- for(j=0; j<(size_t)dims[1]; j++) {
- if(points[i][j] != check[i][j]) {
- H5_FAILED();
- HDprintf(" Line %d: Read different values than written.\n",__LINE__);
- HDprintf(" At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
- HDprintf(" At original: %d\n",points[i][j]);
- HDprintf(" At returned: %d\n",check[i][j]);
- goto error;
- } /* end if */
- } /* end for */
- } /* end for */
+ for (i = 0; i < (size_t)dims[0]; i++) {
+ for (j = 0; j < (size_t)dims[1]; j++) {
+ if (points[i][j] != check[i][j]) {
+ H5_FAILED();
+ HDprintf(" Line %d: Read different values than written.\n", __LINE__);
+ HDprintf(" At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
+ HDprintf(" At original: %d\n", points[i][j]);
+ HDprintf(" At returned: %d\n", check[i][j]);
+ goto error;
+ } /* end if */
+ } /* end for */
+ } /* end for */
/* Close dataset */
- if(H5Dclose(dsid) < 0) {
+ if (H5Dclose(dsid) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't close dataset\n", __LINE__);
goto error;
} /* end if */
/* Close dataspace */
- if(H5Sclose(sid) < 0) {
+ if (H5Sclose(sid) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dataspace\n",__LINE__);
+ HDprintf(" Line %d: Can't close dataspace\n", __LINE__);
goto error;
} /* end if */
/* Close dataset creation property list */
- if(H5Pclose(dcpl) < 0) {
+ if (H5Pclose(dcpl) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dcpl\n",__LINE__);
+ HDprintf(" Line %d: Can't close dcpl\n", __LINE__);
goto error;
} /* end if */
-
PASSED();
return SUCCEED;
@@ -5769,8 +6114,6 @@ error:
return FAIL;
} /* end test_can_apply2() */
-
-
/*-------------------------------------------------------------------------
* Function: test_can_apply_szip
*
@@ -5788,170 +6131,174 @@ error:
static herr_t
test_can_apply_szip(hid_t
#ifndef H5_HAVE_FILTER_SZIP
-H5_ATTR_UNUSED
+ H5_ATTR_UNUSED
#endif /* H5_HAVE_FILTER_SZIP */
-file)
+ file)
{
#ifdef H5_HAVE_FILTER_SZIP
- hid_t dsid; /* Dataset ID */
- hid_t sid; /* Dataspace ID */
- hid_t dcpl; /* Dataspace creation property list ID */
- unsigned szip_options_mask=H5_SZIP_NN_OPTION_MASK;
- unsigned szip_pixels_per_block;
- const hsize_t dims[2] = {500, 4096}; /* Dataspace dimensions */
- const hsize_t dims2[2] = {4, 2}; /* Dataspace dimensions */
- const hsize_t chunk_dims[2] = {250, 2048}; /* Chunk dimensions */
+ hid_t dsid; /* Dataset ID */
+ hid_t sid; /* Dataspace ID */
+ hid_t dcpl; /* Dataspace creation property list ID */
+ unsigned szip_options_mask = H5_SZIP_NN_OPTION_MASK;
+ unsigned szip_pixels_per_block;
+ const hsize_t dims[2] = {500, 4096}; /* Dataspace dimensions */
+ const hsize_t dims2[2] = {4, 2}; /* Dataspace dimensions */
+ const hsize_t chunk_dims[2] = {250, 2048}; /* Chunk dimensions */
const hsize_t chunk_dims2[2] = {2, 1}; /* Chunk dimensions */
- herr_t ret; /* Status value */
-#endif /* H5_HAVE_FILTER_SZIP */
+ herr_t ret; /* Status value */
+#endif /* H5_HAVE_FILTER_SZIP */
TESTING("dataset szip filter 'can apply' callback");
#ifdef H5_HAVE_FILTER_SZIP
- if(h5_szip_can_encode() == 1) {
- /* Create the data space */
- if((sid = H5Screate_simple(2, dims, NULL)) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't open dataspace\n",__LINE__);
- goto error;
- } /* end if */
-
- /* Create dcpl with special filter */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't create dcpl\n",__LINE__);
- goto error;
- } /* end if */
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't set chunk sizes\n",__LINE__);
- goto error;
- } /* end if */
+ if (h5_szip_can_encode() == 1) {
+ /* Create the data space */
+ if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't open dataspace\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Set (invalid at property set time) szip parameters */
- szip_pixels_per_block=3;
- H5E_BEGIN_TRY {
- ret=H5Pset_szip (dcpl, szip_options_mask, szip_pixels_per_block);
- } H5E_END_TRY;
- if(ret>=0) {
- H5_FAILED();
- HDprintf(" Line %d: Shouldn't be able to set szip filter\n",__LINE__);
- goto error;
- }
+ /* Create dcpl with special filter */
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't create dcpl\n", __LINE__);
+ goto error;
+ } /* end if */
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't set chunk sizes\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Set (invalid at property set time) szip parameters */
- szip_pixels_per_block=512;
- H5E_BEGIN_TRY {
- ret=H5Pset_szip (dcpl, szip_options_mask, szip_pixels_per_block);
- } H5E_END_TRY;
- if(ret>=0) {
- H5_FAILED();
- HDprintf(" Line %d: Shouldn't be able to set szip filter\n",__LINE__);
- goto error;
- }
+ /* Set (invalid at property set time) szip parameters */
+ szip_pixels_per_block = 3;
+ H5E_BEGIN_TRY { ret = H5Pset_szip(dcpl, szip_options_mask, szip_pixels_per_block); }
+ H5E_END_TRY;
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Shouldn't be able to set szip filter\n", __LINE__);
+ goto error;
+ }
- /* Set (invalid at dataset creation time) szip parameters */
- szip_pixels_per_block=2;
- if(H5Pset_szip (dcpl, szip_options_mask, szip_pixels_per_block) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't set szip filter\n",__LINE__);
- goto error;
- }
+ /* Set (invalid at property set time) szip parameters */
+ szip_pixels_per_block = 512;
+ H5E_BEGIN_TRY { ret = H5Pset_szip(dcpl, szip_options_mask, szip_pixels_per_block); }
+ H5E_END_TRY;
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Shouldn't be able to set szip filter\n", __LINE__);
+ goto error;
+ }
- /* Create new dataset */
- /* (Should succeed; according to the new algorithm, scanline should be reset
- to 2*128 satisfying 'maximum blocks per scanline' condition) */
- H5E_BEGIN_TRY {
- dsid = H5Dcreate2(file, DSET_CAN_APPLY_SZIP_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dsid <=0) {
- H5_FAILED();
- HDprintf(" Line %d: Should have created dataset!\n",__LINE__);
- goto error;
- } /* end if */
+ /* Set (invalid at dataset creation time) szip parameters */
+ szip_pixels_per_block = 2;
+ if (H5Pset_szip(dcpl, szip_options_mask, szip_pixels_per_block) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't set szip filter\n", __LINE__);
+ goto error;
+ }
- /* Close dataset */
- if(H5Dclose(dsid) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't close dataset\n",__LINE__);
- goto error;
- } /* end if */
+ /* Create new dataset */
+ /* (Should succeed; according to the new algorithm, scanline should be reset
+ to 2*128 satisfying 'maximum blocks per scanline' condition) */
+ H5E_BEGIN_TRY
+ {
+ dsid = H5Dcreate2(file, DSET_CAN_APPLY_SZIP_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+ if (dsid <= 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Should have created dataset!\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Close dataspace */
- if(H5Sclose(sid) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't close dataspace\n",__LINE__);
- goto error;
- } /* end if */
+ /* Close dataset */
+ if (H5Dclose(dsid) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't close dataset\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Close dataset creation property list */
- if(H5Pclose(dcpl) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't close dcpl\n",__LINE__);
- goto error;
- } /* end if */
+ /* Close dataspace */
+ if (H5Sclose(sid) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't close dataspace\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Create another data space */
- if((sid = H5Screate_simple(2, dims2, NULL)) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't open dataspace\n",__LINE__);
- goto error;
- } /* end if */
+ /* Close dataset creation property list */
+ if (H5Pclose(dcpl) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't close dcpl\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Create dcpl with special filter */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't create dcpl\n",__LINE__);
- goto error;
- } /* end if */
- if(H5Pset_chunk(dcpl, 2, chunk_dims2) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't set chunk sizes\n",__LINE__);
- goto error;
- } /* end if */
+ /* Create another data space */
+ if ((sid = H5Screate_simple(2, dims2, NULL)) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't open dataspace\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Set (invalid at dataset creation time) szip parameters */
- szip_pixels_per_block=32;
- if(H5Pset_szip (dcpl, szip_options_mask, szip_pixels_per_block) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't set szip filter\n",__LINE__);
- goto error;
- }
+ /* Create dcpl with special filter */
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't create dcpl\n", __LINE__);
+ goto error;
+ } /* end if */
+ if (H5Pset_chunk(dcpl, 2, chunk_dims2) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't set chunk sizes\n", __LINE__);
+ goto error;
+ } /* end if */
- /* Create new dataset */
- /* (Should fail because the 'can apply' filter should indicate inappropriate combination) */
- H5E_BEGIN_TRY {
- dsid = H5Dcreate2(file, DSET_CAN_APPLY_SZIP_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dsid >=0) {
- H5_FAILED();
- HDprintf(" Line %d: Shouldn't have created dataset!\n",__LINE__);
- H5Dclose(dsid);
- goto error;
- } /* end if */
+ /* Set (invalid at dataset creation time) szip parameters */
+ szip_pixels_per_block = 32;
+ if (H5Pset_szip(dcpl, szip_options_mask, szip_pixels_per_block) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't set szip filter\n", __LINE__);
+ goto error;
+ }
- /* Close dataspace */
- if(H5Sclose(sid) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't close dataspace\n",__LINE__);
- goto error;
- } /* end if */
+ /* Create new dataset */
+ /* (Should fail because the 'can apply' filter should indicate inappropriate combination) */
+ H5E_BEGIN_TRY
+ {
+ dsid = H5Dcreate2(file, DSET_CAN_APPLY_SZIP_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+ if (dsid >= 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Shouldn't have created dataset!\n", __LINE__);
+ H5Dclose(dsid);
+ goto error;
+ } /* end if */
- /* Close dataset creation property list */
- if(H5Pclose(dcpl) < 0) {
- H5_FAILED();
- HDprintf(" Line %d: Can't close dcpl\n",__LINE__);
- goto error;
- } /* end if */
+ /* Close dataspace */
+ if (H5Sclose(sid) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't close dataspace\n", __LINE__);
+ goto error;
+ } /* end if */
+ /* Close dataset creation property list */
+ if (H5Pclose(dcpl) < 0) {
+ H5_FAILED();
+ HDprintf(" Line %d: Can't close dcpl\n", __LINE__);
+ goto error;
+ } /* end if */
- PASSED();
-} else {
- SKIPPED();
- HDputs(" Szip encoding is not enabled.");
-}
-#else /* H5_HAVE_FILTER_SZIP */
+ PASSED();
+ }
+ else {
+ SKIPPED();
+ HDputs(" Szip encoding is not enabled.");
+ }
+#else /* H5_HAVE_FILTER_SZIP */
SKIPPED();
HDputs(" Szip filter is not enabled.");
#endif /* H5_HAVE_FILTER_SZIP */
@@ -5963,19 +6310,15 @@ error:
#endif /* H5_HAVE_FILTER_SZIP */
} /* end test_can_apply_szip() */
-
/* This message derives from H5Z */
const H5Z_class2_t H5Z_SET_LOCAL_TEST[1] = {{
- H5Z_CLASS_T_VERS,
- H5Z_FILTER_SET_LOCAL_TEST, /* Filter id number */
- 1, 1,
- "set_local_test", /* Filter name for debugging */
- NULL, /* The "can apply" callback */
- set_local_bogus2, /* The "set local" callback */
- filter_bogus2, /* The actual filter function */
+ H5Z_CLASS_T_VERS, H5Z_FILTER_SET_LOCAL_TEST, /* Filter id number */
+ 1, 1, "set_local_test", /* Filter name for debugging */
+ NULL, /* The "can apply" callback */
+ set_local_bogus2, /* The "set local" callback */
+ filter_bogus2, /* The actual filter function */
}};
-
/*-------------------------------------------------------------------------
* Function: test_set_local
*
@@ -5992,160 +6335,162 @@ const H5Z_class2_t H5Z_SET_LOCAL_TEST[1] = {{
static herr_t
test_set_local(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t file; /* File ID */
- hid_t dsid; /* Dataset ID */
- hid_t sid; /* Dataspace ID */
- hid_t dcpl; /* Dataspace creation property list ID */
- const hsize_t dims[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
- const hsize_t chunk_dims[2] = {2, 25}; /* Chunk dimensions */
- hsize_t dset_size; /* Dataset size */
- unsigned cd_values[2]={BOGUS2_PARAM_1, BOGUS2_PARAM_2}; /* Parameters for Bogus2 filter */
- size_t i,j; /* Local index variables */
- double n; /* Local index variables */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t file; /* File ID */
+ hid_t dsid; /* Dataset ID */
+ hid_t sid; /* Dataspace ID */
+ hid_t dcpl; /* Dataspace creation property list ID */
+ const hsize_t dims[2] = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
+ const hsize_t chunk_dims[2] = {2, 25}; /* Chunk dimensions */
+ hsize_t dset_size; /* Dataset size */
+ unsigned cd_values[2] = {BOGUS2_PARAM_1, BOGUS2_PARAM_2}; /* Parameters for Bogus2 filter */
+ size_t i, j; /* Local index variables */
+ double n; /* Local index variables */
TESTING("dataset filter 'set local' callback");
h5_fixname(FILENAME[5], fapl, filename, sizeof filename);
/* Initialize the integer & floating-point dataset */
- n=1.0F;
- for(i = 0; i < DSET_DIM1; i++)
- for(j = 0; j < DSET_DIM2; j++) {
- points[i][j] = (int)n++;
- points_dbl[i][j] = (double)1.5F*n++;
- }
+ n = 1.0F;
+ for (i = 0; i < DSET_DIM1; i++)
+ for (j = 0; j < DSET_DIM2; j++) {
+ points[i][j] = (int)n++;
+ points_dbl[i][j] = (double)1.5F * n++;
+ }
/* Open file */
- if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) {
+ if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't open file\n",__LINE__);
- goto error;
+ HDprintf(" Line %d: Can't open file\n", __LINE__);
+ goto error;
}
/* Create dcpl with special filter */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't create dcpl\n",__LINE__);
+ HDprintf(" Line %d: Can't create dcpl\n", __LINE__);
goto error;
} /* end if */
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't set chunk sizes\n",__LINE__);
+ HDprintf(" Line %d: Can't set chunk sizes\n", __LINE__);
goto error;
} /* end if */
- if(H5Zregister (H5Z_SET_LOCAL_TEST) < 0) {
+ if (H5Zregister(H5Z_SET_LOCAL_TEST) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't register 'set local' filter\n",__LINE__);
+ HDprintf(" Line %d: Can't register 'set local' filter\n", __LINE__);
goto error;
}
- if(H5Pset_filter(dcpl, H5Z_FILTER_SET_LOCAL_TEST, 0, (size_t)BOGUS2_PERM_NPARMS, cd_values) < 0) {
+ if (H5Pset_filter(dcpl, H5Z_FILTER_SET_LOCAL_TEST, 0, (size_t)BOGUS2_PERM_NPARMS, cd_values) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't set bogus2 filter\n",__LINE__);
+ HDprintf(" Line %d: Can't set bogus2 filter\n", __LINE__);
goto error;
}
/* Create the data space */
- if((sid = H5Screate_simple(2, dims, NULL)) < 0) {
+ if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't open dataspace\n",__LINE__);
+ HDprintf(" Line %d: Can't open dataspace\n", __LINE__);
goto error;
} /* end if */
/* Create new dataset */
- if((dsid = H5Dcreate2(file, DSET_SET_LOCAL_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) {
+ if ((dsid = H5Dcreate2(file, DSET_SET_LOCAL_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) <
+ 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't create dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't create dataset\n", __LINE__);
goto error;
} /* end if */
/* Write data */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error writing dataset data\n",__LINE__);
+ HDprintf(" Line %d: Error writing dataset data\n", __LINE__);
goto error;
} /* end if */
/* Close dataset */
- if(H5Dclose(dsid) < 0) {
+ if (H5Dclose(dsid) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't close dataset\n", __LINE__);
goto error;
} /* end if */
/* Create new dataset */
/* (Shouldn't get modified by output filter) */
- if((dsid = H5Dcreate2(file, DSET_SET_LOCAL_NAME_2, H5T_NATIVE_DOUBLE, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) {
+ if ((dsid = H5Dcreate2(file, DSET_SET_LOCAL_NAME_2, H5T_NATIVE_DOUBLE, sid, H5P_DEFAULT, dcpl,
+ H5P_DEFAULT)) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't create dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't create dataset\n", __LINE__);
goto error;
} /* end if */
/* Write data */
- if(H5Dwrite(dsid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_dbl_data) < 0) {
+ if (H5Dwrite(dsid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_dbl_data) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Error writing dataset data\n",__LINE__);
+ HDprintf(" Line %d: Error writing dataset data\n", __LINE__);
goto error;
} /* end if */
/* Close dataset */
- if(H5Dclose(dsid) < 0) {
+ if (H5Dclose(dsid) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't close dataset\n", __LINE__);
goto error;
} /* end if */
/* Close dataspace */
- if(H5Sclose(sid) < 0) {
+ if (H5Sclose(sid) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't close dataspace\n", __LINE__);
goto error;
} /* end if */
/* Close dataset creation property list */
- if(H5Pclose(dcpl) < 0) {
+ if (H5Pclose(dcpl) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't close dcpl\n", __LINE__);
goto error;
} /* end if */
/* Close file (flushes & empties cache) */
- if(H5Fclose(file) < 0) {
+ if (H5Fclose(file) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't close file\n", __LINE__);
goto error;
} /* end if */
/* Open file */
- if((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0) {
+ if ((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't open file\n", __LINE__);
goto error;
}
/* Re-open dataset */
- if((dsid = H5Dopen2(file, DSET_SET_LOCAL_NAME, H5P_DEFAULT)) < 0) {
+ if ((dsid = H5Dopen2(file, DSET_SET_LOCAL_NAME, H5P_DEFAULT)) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't open dataset\n", __LINE__);
goto error;
} /* end if */
/* Query the dataset's size on disk */
- if((dset_size = H5Dget_storage_size(dsid)) == 0) {
+ if ((dset_size = H5Dget_storage_size(dsid)) == 0) {
H5_FAILED();
HDprintf(" Line %d: Error querying dataset size\n", __LINE__);
goto error;
} /* end if */
/* Verify that the size indicates data is uncompressed */
- if((H5Tget_size(H5T_NATIVE_INT) * dims[0] * dims[1]) != dset_size) {
+ if ((H5Tget_size(H5T_NATIVE_INT) * dims[0] * dims[1]) != dset_size) {
H5_FAILED();
HDprintf(" Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
goto error;
} /* end if */
/* Read data */
- if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
+ if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
H5_FAILED();
HDprintf(" Line %d: Error reading dataset data\n", __LINE__);
goto error;
@@ -6153,49 +6498,49 @@ test_set_local(hid_t fapl)
/* Compare data */
/* Check that the values read are the modified version of what was written */
- for(i=0; i<dims[0]; i++) {
- for(j=0; j<dims[1]; j++) {
- if((points[i][j]+(int)sizeof(int)) != check[i][j]) {
- H5_FAILED();
- HDprintf(" Line %d: Read different values than written.\n",__LINE__);
- HDprintf(" At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
- HDprintf(" At original: %d\n",points[i][j]);
- HDprintf(" At returned: %d\n",check[i][j]);
- goto error;
- } /* end if */
- } /* end for */
- } /* end for */
+ for (i = 0; i < dims[0]; i++) {
+ for (j = 0; j < dims[1]; j++) {
+ if ((points[i][j] + (int)sizeof(int)) != check[i][j]) {
+ H5_FAILED();
+ HDprintf(" Line %d: Read different values than written.\n", __LINE__);
+ HDprintf(" At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
+ HDprintf(" At original: %d\n", points[i][j]);
+ HDprintf(" At returned: %d\n", check[i][j]);
+ goto error;
+ } /* end if */
+ } /* end for */
+ } /* end for */
/* Close dataset */
- if(H5Dclose(dsid) < 0) {
+ if (H5Dclose(dsid) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't close dataset\n", __LINE__);
goto error;
} /* end if */
/* Re-open second dataset */
- if((dsid = H5Dopen2(file, DSET_SET_LOCAL_NAME_2, H5P_DEFAULT)) < 0) {
+ if ((dsid = H5Dopen2(file, DSET_SET_LOCAL_NAME_2, H5P_DEFAULT)) < 0) {
H5_FAILED();
HDprintf(" Line %d: Can't open dataset\n", __LINE__);
goto error;
} /* end if */
/* Query the dataset's size on disk */
- if((dset_size = H5Dget_storage_size(dsid)) == 0) {
+ if ((dset_size = H5Dget_storage_size(dsid)) == 0) {
H5_FAILED();
HDprintf(" Line %d: Error querying dataset size\n", __LINE__);
goto error;
} /* end if */
/* Verify that the size indicates data is uncompressed */
- if((H5Tget_size(H5T_NATIVE_DOUBLE) * dims[0] * dims[1]) != dset_size) {
+ if ((H5Tget_size(H5T_NATIVE_DOUBLE) * dims[0] * dims[1]) != dset_size) {
H5_FAILED();
HDprintf(" Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
goto error;
} /* end if */
/* Read data */
- if(H5Dread(dsid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_dbl_data) < 0) {
+ if (H5Dread(dsid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_dbl_data) < 0) {
H5_FAILED();
HDprintf(" Line %d: Error reading dataset data\n", __LINE__);
goto error;
@@ -6203,36 +6548,35 @@ test_set_local(hid_t fapl)
/* Compare data */
/* Check that the values read are the modified version of what was written */
- for(i=0; i<dims[0]; i++) {
- for(j=0; j<dims[1]; j++) {
- /* If the difference between two values is greater than 0.001%, they're
+ for (i = 0; i < dims[0]; i++) {
+ for (j = 0; j < dims[1]; j++) {
+ /* If the difference between two values is greater than 0.001%, they're
* considered not equal. */
- if(!H5_DBL_REL_EQUAL(points_dbl[i][j], check_dbl[i][j], (double)0.00001F)) {
- H5_FAILED();
- HDprintf(" Line %d: Read different values than written.\n",__LINE__);
- HDprintf(" At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
- HDprintf(" At original: %f\n",points_dbl[i][j]);
- HDprintf(" At returned: %f\n",check_dbl[i][j]);
- goto error;
- } /* end if */
- } /* end for */
- } /* end for */
+ if (!H5_DBL_REL_EQUAL(points_dbl[i][j], check_dbl[i][j], (double)0.00001F)) {
+ H5_FAILED();
+ HDprintf(" Line %d: Read different values than written.\n", __LINE__);
+ HDprintf(" At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
+ HDprintf(" At original: %f\n", points_dbl[i][j]);
+ HDprintf(" At returned: %f\n", check_dbl[i][j]);
+ goto error;
+ } /* end if */
+ } /* end for */
+ } /* end for */
/* Close dataset */
- if(H5Dclose(dsid) < 0) {
+ if (H5Dclose(dsid) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close dataset\n",__LINE__);
+ HDprintf(" Line %d: Can't close dataset\n", __LINE__);
goto error;
} /* end if */
/* Close file */
- if(H5Fclose(file) < 0) {
+ if (H5Fclose(file) < 0) {
H5_FAILED();
- HDprintf(" Line %d: Can't close file\n",__LINE__);
+ HDprintf(" Line %d: Can't close file\n", __LINE__);
goto error;
} /* end if */
-
PASSED();
return SUCCEED;
@@ -6240,7 +6584,6 @@ error:
return FAIL;
} /* end test_set_local() */
-
/*-------------------------------------------------------------------------
* Function: test_compare_dcpl
*
@@ -6259,73 +6602,90 @@ error:
static herr_t
test_compare_dcpl(hid_t file)
{
- hid_t dsid=(-1); /* Dataset ID */
- hid_t sid=(-1); /* Dataspace ID */
- hid_t dcpl=(-1); /* Dataspace creation property list ID */
- hid_t dcpl1=(-1),dcpl2=(-1); /* Dataspace creation property list IDs from datasets */
- const hsize_t dims[2] = {500, 4096}; /* Dataspace dimensions */
- const hsize_t chunk_dims[2] = {250, 2048}; /* Chunk dimensions */
+ hid_t dsid = (-1); /* Dataset ID */
+ hid_t sid = (-1); /* Dataspace ID */
+ hid_t dcpl = (-1); /* Dataspace creation property list ID */
+ hid_t dcpl1 = (-1), dcpl2 = (-1); /* Dataspace creation property list IDs from datasets */
+ const hsize_t dims[2] = {500, 4096}; /* Dataspace dimensions */
+ const hsize_t chunk_dims[2] = {250, 2048}; /* Chunk dimensions */
TESTING("comparing dataset creation property lists");
/* Create the data space */
- if((sid = H5Screate_simple(2, dims, NULL)) < 0) TEST_ERROR
+ if ((sid = H5Screate_simple(2, dims, NULL)) < 0)
+ TEST_ERROR
/* Create dcpl with special filter */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0) TEST_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ TEST_ERROR
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0)
+ TEST_ERROR
- /* Set gzip parameter (if available) */
+ /* Set gzip parameter (if available) */
#ifdef H5_HAVE_FILTER_DEFLATE
- if(H5Pset_deflate (dcpl, 9) < 0) TEST_ERROR
+ if (H5Pset_deflate(dcpl, 9) < 0)
+ TEST_ERROR
#endif /* H5_HAVE_FILTER_DEFLATE */
/* Create first dataset */
- if((dsid = H5Dcreate2(file, DSET_COMPARE_DCPL_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) TEST_ERROR
+ if ((dsid = H5Dcreate2(file, DSET_COMPARE_DCPL_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
+ H5P_DEFAULT)) < 0)
+ TEST_ERROR
/* Get copy of dataset's dataset creation property list */
- if((dcpl1=H5Dget_create_plist(dsid)) < 0) TEST_ERROR
+ if ((dcpl1 = H5Dget_create_plist(dsid)) < 0)
+ TEST_ERROR
/* Close dataset */
- if(H5Dclose (dsid) < 0) TEST_ERROR
+ if (H5Dclose(dsid) < 0)
+ TEST_ERROR
/* Create second dataset */
- if((dsid = H5Dcreate2(file, DSET_COMPARE_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) TEST_ERROR
+ if ((dsid = H5Dcreate2(file, DSET_COMPARE_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
+ H5P_DEFAULT)) < 0)
+ TEST_ERROR
/* Get copy of dataset's dataset creation property list */
- if((dcpl2=H5Dget_create_plist(dsid)) < 0) TEST_ERROR
+ if ((dcpl2 = H5Dget_create_plist(dsid)) < 0)
+ TEST_ERROR
/* Close dataset */
- if(H5Dclose (dsid) < 0) TEST_ERROR
+ if (H5Dclose(dsid) < 0)
+ TEST_ERROR
/* Close dataspace */
- if(H5Sclose(sid) < 0) TEST_ERROR
+ if (H5Sclose(sid) < 0)
+ TEST_ERROR
/* Compare dataset creation property lists */
- if(H5Pequal(dcpl1,dcpl2)<=0) TEST_ERROR
+ if (H5Pequal(dcpl1, dcpl2) <= 0)
+ TEST_ERROR
/* Close dataset creation property lists */
- if(H5Pclose(dcpl) < 0) TEST_ERROR
- if(H5Pclose(dcpl1) < 0) TEST_ERROR
- if(H5Pclose(dcpl2) < 0) TEST_ERROR
-
+ if (H5Pclose(dcpl) < 0)
+ TEST_ERROR
+ if (H5Pclose(dcpl1) < 0)
+ TEST_ERROR
+ if (H5Pclose(dcpl2) < 0)
+ TEST_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Dclose(dsid);
H5Sclose(sid);
H5Pclose(dcpl);
H5Pclose(dcpl1);
H5Pclose(dcpl2);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_compare_dcpl() */
-
/*-------------------------------------------------------------------------
* Function: test_copy_dcpl
*
@@ -6345,104 +6705,135 @@ error:
static herr_t
test_copy_dcpl(hid_t file, hid_t fapl)
{
- hid_t dsid1=(-1), dsid2=(-1); /* Dataset ID */
- hid_t new_dsid1=(-1), new_dsid2=(-1); /* Dataset ID */
- hid_t sid=(-1); /* Dataspace ID */
- hid_t dcpl=(-1); /* Dataset creation property list ID */
- hid_t dcpl1=(-1),dcpl2=(-1); /* Copies of creation property list IDs */
- hid_t dcpl1_copy=(-1),dcpl2_copy=(-1);/* Copies of creation property list IDs */
- const hsize_t dims[2] = {500, 4096}; /* Dataspace dimensions */
- const hsize_t chunk_dims[2] = {250, 2048}; /* Chunk dimensions */
- char filename[FILENAME_BUF_SIZE];
- hid_t new_file=(-1);
+ hid_t dsid1 = (-1), dsid2 = (-1); /* Dataset ID */
+ hid_t new_dsid1 = (-1), new_dsid2 = (-1); /* Dataset ID */
+ hid_t sid = (-1); /* Dataspace ID */
+ hid_t dcpl = (-1); /* Dataset creation property list ID */
+ hid_t dcpl1 = (-1), dcpl2 = (-1); /* Copies of creation property list IDs */
+ hid_t dcpl1_copy = (-1), dcpl2_copy = (-1); /* Copies of creation property list IDs */
+ const hsize_t dims[2] = {500, 4096}; /* Dataspace dimensions */
+ const hsize_t chunk_dims[2] = {250, 2048}; /* Chunk dimensions */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t new_file = (-1);
TESTING("copying dataset creation property lists");
/* Create the data space */
- if((sid = H5Screate_simple(2, dims, NULL)) < 0) TEST_ERROR
+ if ((sid = H5Screate_simple(2, dims, NULL)) < 0)
+ TEST_ERROR
/* Create dcpl with special filter */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0) TEST_ERROR
- if(H5Pset_fletcher32(dcpl) < 0) TEST_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ TEST_ERROR
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0)
+ TEST_ERROR
+ if (H5Pset_fletcher32(dcpl) < 0)
+ TEST_ERROR
/* Create first dataset of chunking with filter */
- if((dsid1 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_1, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
- H5P_DEFAULT)) < 0) TEST_ERROR
+ if ((dsid1 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_1, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
+ H5P_DEFAULT)) < 0)
+ TEST_ERROR
/* Close dataset */
- if(H5Dclose (dsid1) < 0) TEST_ERROR
+ if (H5Dclose(dsid1) < 0)
+ TEST_ERROR
/* Reopen the first dataset */
- if((dsid1 = H5Dopen2(file, DSET_COPY_DCPL_NAME_1, H5P_DEFAULT)) < 0) TEST_ERROR
+ if ((dsid1 = H5Dopen2(file, DSET_COPY_DCPL_NAME_1, H5P_DEFAULT)) < 0)
+ TEST_ERROR
/* Get the copy of dataset's creation property list */
- if((dcpl1=H5Dget_create_plist(dsid1)) < 0) TEST_ERROR
- if((dcpl1_copy = H5Pcopy(dcpl1)) < 0) TEST_ERROR
+ if ((dcpl1 = H5Dget_create_plist(dsid1)) < 0)
+ TEST_ERROR
+ if ((dcpl1_copy = H5Pcopy(dcpl1)) < 0)
+ TEST_ERROR
/* Close dataset */
- if(H5Dclose (dsid1) < 0) TEST_ERROR
+ if (H5Dclose(dsid1) < 0)
+ TEST_ERROR
/* Change the DCPL for contiguous layout with external storage. The size of the reserved
* space in the external file is the size of the dataset - 500*4096*sizeof(int).
* There's no need to clean up the external file since the library doesn't create it
* until the data is written to it. */
- if(H5Pset_layout(dcpl, H5D_CONTIGUOUS) < 0) TEST_ERROR
- if(H5Premove_filter(dcpl, H5Z_FILTER_FLETCHER32) < 0) TEST_ERROR
- if(H5Pset_external(dcpl, COPY_DCPL_EXTFILE_NAME, (off_t)0, (hsize_t)(500 * 4096 * sizeof(int))) < 0) TEST_ERROR
+ if (H5Pset_layout(dcpl, H5D_CONTIGUOUS) < 0)
+ TEST_ERROR
+ if (H5Premove_filter(dcpl, H5Z_FILTER_FLETCHER32) < 0)
+ TEST_ERROR
+ if (H5Pset_external(dcpl, COPY_DCPL_EXTFILE_NAME, (off_t)0, (hsize_t)(500 * 4096 * sizeof(int))) < 0)
+ TEST_ERROR
/* Create second dataset of contiguous layout with external storage */
- if((dsid2 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
- H5P_DEFAULT)) < 0) TEST_ERROR
+ if ((dsid2 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
+ H5P_DEFAULT)) < 0)
+ TEST_ERROR
/* Close dataset */
- if(H5Dclose (dsid2) < 0) TEST_ERROR
+ if (H5Dclose(dsid2) < 0)
+ TEST_ERROR
/* Reopen the second dataset */
- if((dsid2 = H5Dopen2(file, DSET_COPY_DCPL_NAME_2, H5P_DEFAULT)) < 0) TEST_ERROR
+ if ((dsid2 = H5Dopen2(file, DSET_COPY_DCPL_NAME_2, H5P_DEFAULT)) < 0)
+ TEST_ERROR
/* Get copy of dataset's dataset creation property list */
- if((dcpl2=H5Dget_create_plist(dsid2)) < 0) TEST_ERROR
- if((dcpl2_copy = H5Pcopy(dcpl2)) < 0) TEST_ERROR
+ if ((dcpl2 = H5Dget_create_plist(dsid2)) < 0)
+ TEST_ERROR
+ if ((dcpl2_copy = H5Pcopy(dcpl2)) < 0)
+ TEST_ERROR
/* Close dataset */
- if(H5Dclose (dsid2) < 0) TEST_ERROR
+ if (H5Dclose(dsid2) < 0)
+ TEST_ERROR
/* Create a second file and create 2 datasets with the copies of the DCPLs in the first
* file. Test whether the copies of DCPLs work. */
h5_fixname(FILENAME[13], fapl, filename, sizeof filename);
- if((new_file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ if ((new_file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
TEST_ERROR
- if((new_dsid1 = H5Dcreate2(new_file, DSET_COPY_DCPL_NAME_1, H5T_NATIVE_INT, sid,
- H5P_DEFAULT, dcpl1_copy, H5P_DEFAULT)) < 0) TEST_ERROR
+ if ((new_dsid1 = H5Dcreate2(new_file, DSET_COPY_DCPL_NAME_1, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl1_copy,
+ H5P_DEFAULT)) < 0)
+ TEST_ERROR
- if((new_dsid2 = H5Dcreate2(new_file, DSET_COPY_DCPL_NAME_2, H5T_NATIVE_INT, sid,
- H5P_DEFAULT, dcpl2_copy, H5P_DEFAULT)) < 0) TEST_ERROR
+ if ((new_dsid2 = H5Dcreate2(new_file, DSET_COPY_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl2_copy,
+ H5P_DEFAULT)) < 0)
+ TEST_ERROR
/* Close dataspace */
- if(H5Sclose(sid) < 0) TEST_ERROR
+ if (H5Sclose(sid) < 0)
+ TEST_ERROR
/* Close datasets */
- if(H5Dclose (new_dsid1) < 0) TEST_ERROR
- if(H5Dclose (new_dsid2) < 0) TEST_ERROR
+ if (H5Dclose(new_dsid1) < 0)
+ TEST_ERROR
+ if (H5Dclose(new_dsid2) < 0)
+ TEST_ERROR
/* Close the second file */
- if(H5Fclose (new_file) < 0) TEST_ERROR
+ if (H5Fclose(new_file) < 0)
+ TEST_ERROR
/* Close dataset creation property lists */
- if(H5Pclose(dcpl) < 0) TEST_ERROR
- if(H5Pclose(dcpl1) < 0) TEST_ERROR
- if(H5Pclose(dcpl2) < 0) TEST_ERROR
- if(H5Pclose(dcpl1_copy) < 0) TEST_ERROR
- if(H5Pclose(dcpl2_copy) < 0) TEST_ERROR
+ if (H5Pclose(dcpl) < 0)
+ TEST_ERROR
+ if (H5Pclose(dcpl1) < 0)
+ TEST_ERROR
+ if (H5Pclose(dcpl2) < 0)
+ TEST_ERROR
+ if (H5Pclose(dcpl1_copy) < 0)
+ TEST_ERROR
+ if (H5Pclose(dcpl2_copy) < 0)
+ TEST_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Dclose(dsid1);
H5Dclose(dsid2);
H5Dclose(new_dsid1);
@@ -6453,11 +6844,11 @@ error:
H5Pclose(dcpl2);
H5Pclose(dcpl1_copy);
H5Pclose(dcpl2_copy);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_copy_dcpl() */
-
/*-------------------------------------------------------------------------
* Function: test_filter_delete
*
@@ -6474,98 +6865,116 @@ error:
static herr_t
test_filter_delete(hid_t file)
{
- H5Z_filter_t filtn; /* filter identification number */
- hid_t dsid=-1; /* dataset ID */
- hid_t sid=-1; /* dataspace ID */
- hid_t dcpl=-1; /* dataset creation property list ID */
- hid_t dcpl1=-1; /* dataset creation property list ID */
- hsize_t dims[2]={20,20}; /* dataspace dimensions */
- hsize_t chunk_dims[2]={10,10}; /* chunk dimensions */
- int nfilters; /* number of filters in DCPL */
- unsigned flags; /* flags for filter */
- herr_t ret; /* generic return value */
+ H5Z_filter_t filtn; /* filter identification number */
+ hid_t dsid = -1; /* dataset ID */
+ hid_t sid = -1; /* dataspace ID */
+ hid_t dcpl = -1; /* dataset creation property list ID */
+ hid_t dcpl1 = -1; /* dataset creation property list ID */
+ hsize_t dims[2] = {20, 20}; /* dataspace dimensions */
+ hsize_t chunk_dims[2] = {10, 10}; /* chunk dimensions */
+ int nfilters; /* number of filters in DCPL */
+ unsigned flags; /* flags for filter */
+ herr_t ret; /* generic return value */
int i;
TESTING("filter deletion");
#ifdef H5_HAVE_FILTER_DEFLATE
/* create the data space */
- if((sid = H5Screate_simple(2, dims, NULL)) < 0) goto error;
+ if ((sid = H5Screate_simple(2, dims, NULL)) < 0)
+ goto error;
/* create dcpl */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0) goto error;
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0)
+ goto error;
- if(H5Pset_fletcher32 (dcpl) < 0) goto error;
- if(H5Pset_deflate (dcpl, 6) < 0) goto error;
- if(H5Pset_shuffle (dcpl) < 0) goto error;
+ if (H5Pset_fletcher32(dcpl) < 0)
+ goto error;
+ if (H5Pset_deflate(dcpl, 6) < 0)
+ goto error;
+ if (H5Pset_shuffle(dcpl) < 0)
+ goto error;
/* create a dataset */
- if((dsid = H5Dcreate2(file,"dsetdel", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) goto error;
+ if ((dsid = H5Dcreate2(file, "dsetdel", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ goto error;
/* get copy of dataset's dataset creation property list */
- if((dcpl1=H5Dget_create_plist(dsid)) < 0) goto error;
+ if ((dcpl1 = H5Dget_create_plist(dsid)) < 0)
+ goto error;
- /*----------------------------------------------------------------------
- * delete the deflate filter
- *----------------------------------------------------------------------
- */
+ /*----------------------------------------------------------------------
+ * delete the deflate filter
+ *----------------------------------------------------------------------
+ */
/* delete the deflate filter */
- if(H5Premove_filter(dcpl1,H5Z_FILTER_DEFLATE) < 0) goto error;
+ if (H5Premove_filter(dcpl1, H5Z_FILTER_DEFLATE) < 0)
+ goto error;
/* get information about filters */
- if((nfilters = H5Pget_nfilters(dcpl1)) < 0) goto error;
+ if ((nfilters = H5Pget_nfilters(dcpl1)) < 0)
+ goto error;
/* check if filter was deleted */
- for(i=0; i<nfilters; i++) {
+ for (i = 0; i < nfilters; i++) {
filtn = H5Pget_filter2(dcpl1, (unsigned)i, NULL, NULL, NULL, (size_t)0, NULL, NULL);
- if(H5Z_FILTER_DEFLATE==filtn)
+ if (H5Z_FILTER_DEFLATE == filtn)
goto error;
}
/* try to get the info for the deflate filter */
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
ret = H5Pget_filter_by_id2(dcpl1, H5Z_FILTER_DEFLATE, &flags, NULL, NULL, (size_t)0, NULL, NULL);
- } H5E_END_TRY;
- if(ret >=0) {
+ }
+ H5E_END_TRY;
+ if (ret >= 0) {
H5_FAILED();
- HDprintf(" Line %d: Shouldn't have deleted filter!\n",__LINE__);
+ HDprintf(" Line %d: Shouldn't have deleted filter!\n", __LINE__);
goto error;
} /* end if */
/* try to delete the deflate filter again */
- H5E_BEGIN_TRY {
- ret=H5Premove_filter(dcpl1,H5Z_FILTER_DEFLATE);
- } H5E_END_TRY;
- if(ret >=0) {
+ H5E_BEGIN_TRY { ret = H5Premove_filter(dcpl1, H5Z_FILTER_DEFLATE); }
+ H5E_END_TRY;
+ if (ret >= 0) {
H5_FAILED();
- HDprintf(" Line %d: Shouldn't have deleted filter!\n",__LINE__);
+ HDprintf(" Line %d: Shouldn't have deleted filter!\n", __LINE__);
goto error;
} /* end if */
- /*----------------------------------------------------------------------
- * delete all filters
- *----------------------------------------------------------------------
- */
+ /*----------------------------------------------------------------------
+ * delete all filters
+ *----------------------------------------------------------------------
+ */
/* delete all filters */
- if(H5Premove_filter(dcpl1,H5Z_FILTER_ALL) < 0) goto error;
+ if (H5Premove_filter(dcpl1, H5Z_FILTER_ALL) < 0)
+ goto error;
/* get information about filters */
- if((nfilters = H5Pget_nfilters(dcpl1)) < 0) goto error;
+ if ((nfilters = H5Pget_nfilters(dcpl1)) < 0)
+ goto error;
/* check if filters were deleted */
- if(nfilters)goto error;
+ if (nfilters)
+ goto error;
- /*----------------------------------------------------------------------
- * close
- *----------------------------------------------------------------------
- */
+ /*----------------------------------------------------------------------
+ * close
+ *----------------------------------------------------------------------
+ */
/* clean up objects used for this test */
- if(H5Pclose (dcpl) < 0) goto error;
- if(H5Pclose (dcpl1) < 0) goto error;
- if(H5Dclose (dsid) < 0) goto error;
- if(H5Sclose (sid) < 0) goto error;
+ if (H5Pclose(dcpl) < 0)
+ goto error;
+ if (H5Pclose(dcpl1) < 0)
+ goto error;
+ if (H5Dclose(dsid) < 0)
+ goto error;
+ if (H5Sclose(sid) < 0)
+ goto error;
PASSED();
#else
@@ -6574,17 +6983,17 @@ test_filter_delete(hid_t file)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Pclose(dcpl1);
H5Dclose(dsid);
H5Sclose(sid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_filter_delete() */
-
-
/*-------------------------------------------------------------------------
* Function: auxread_fdata
*
@@ -6601,74 +7010,75 @@ error:
static herr_t
auxread_fdata(hid_t fid, const char *name)
{
- hid_t dset_id=-1; /* dataset ID */
- hid_t dcpl_id=-1; /* dataset creation property list ID */
- hid_t space_id=-1; /* space ID */
- hid_t ftype_id=-1; /* file data type ID */
- hid_t mtype_id=-1; /* memory data type ID */
- size_t msize; /* memory size of memory type */
- void *buf=NULL; /* data buffer */
- hsize_t nelmts; /* number of elements in dataset */
- int rank; /* rank of dataset */
- hsize_t dims[H5S_MAX_RANK];/* dimensions of dataset */
- int i;
+ hid_t dset_id = -1; /* dataset ID */
+ hid_t dcpl_id = -1; /* dataset creation property list ID */
+ hid_t space_id = -1; /* space ID */
+ hid_t ftype_id = -1; /* file data type ID */
+ hid_t mtype_id = -1; /* memory data type ID */
+ size_t msize; /* memory size of memory type */
+ void * buf = NULL; /* data buffer */
+ hsize_t nelmts; /* number of elements in dataset */
+ int rank; /* rank of dataset */
+ hsize_t dims[H5S_MAX_RANK]; /* dimensions of dataset */
+ int i;
- if((dset_id = H5Dopen2(fid, name, H5P_DEFAULT)) < 0)
+ if ((dset_id = H5Dopen2(fid, name, H5P_DEFAULT)) < 0)
goto error;
- if((space_id = H5Dget_space(dset_id)) < 0)
+ if ((space_id = H5Dget_space(dset_id)) < 0)
goto error;
- if((ftype_id = H5Dget_type(dset_id)) < 0)
+ if ((ftype_id = H5Dget_type(dset_id)) < 0)
goto error;
- if((dcpl_id = H5Dget_create_plist(dset_id)) < 0)
+ if ((dcpl_id = H5Dget_create_plist(dset_id)) < 0)
goto error;
- if((rank = H5Sget_simple_extent_ndims(space_id)) < 0)
+ if ((rank = H5Sget_simple_extent_ndims(space_id)) < 0)
goto error;
HDmemset(dims, 0, sizeof dims);
- if(H5Sget_simple_extent_dims(space_id, dims, NULL) < 0)
+ if (H5Sget_simple_extent_dims(space_id, dims, NULL) < 0)
goto error;
nelmts = 1;
- for(i = 0; i < rank; i++)
+ for (i = 0; i < rank; i++)
nelmts *= dims[i];
- if((mtype_id = H5Tget_native_type(ftype_id, H5T_DIR_DEFAULT)) < 0)
+ if ((mtype_id = H5Tget_native_type(ftype_id, H5T_DIR_DEFAULT)) < 0)
goto error;
- if((msize = H5Tget_size(mtype_id)) == 0)
+ if ((msize = H5Tget_size(mtype_id)) == 0)
goto error;
- if(nelmts) {
+ if (nelmts) {
buf = (void *)HDmalloc((size_t)(nelmts * msize));
- if(buf == NULL) {
- HDprintf( "cannot read into memory\n" );
+ if (buf == NULL) {
+ HDprintf("cannot read into memory\n");
goto error;
}
- if(H5Dread(dset_id, mtype_id, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
+ if (H5Dread(dset_id, mtype_id, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
goto error;
}
- if(H5Pclose(dcpl_id) < 0)
+ if (H5Pclose(dcpl_id) < 0)
goto error;
- if(H5Sclose(space_id) < 0)
+ if (H5Sclose(space_id) < 0)
goto error;
- if(H5Dclose(dset_id) < 0)
+ if (H5Dclose(dset_id) < 0)
goto error;
- if(buf)
+ if (buf)
HDfree(buf);
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl_id);
H5Sclose(space_id);
H5Dclose(dset_id);
H5Tclose(ftype_id);
H5Tclose(mtype_id);
- if(buf)
+ if (buf)
HDfree(buf);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end auxread_fdata() */
-
/*-------------------------------------------------------------------------
* Function: test_filters_endianess
*
@@ -6685,60 +7095,67 @@ error:
static herr_t
test_filters_endianess(void)
{
- hid_t fid=-1; /* file ID */
- hid_t dsid=-1; /* dataset ID */
- hid_t sid=-1; /* dataspace ID */
- hid_t dcpl=-1; /* dataset creation property list ID */
+ hid_t fid = -1; /* file ID */
+ hid_t dsid = -1; /* dataset ID */
+ hid_t sid = -1; /* dataspace ID */
+ hid_t dcpl = -1; /* dataset creation property list ID */
const char *data_file = H5_get_srcdir_filename("test_filters_le.h5"); /* Corrected test file name */
TESTING("filters with big-endian/little-endian data");
- /*-------------------------------------------------------------------------
- * step 1: open a file written on a little-endian machine
- *-------------------------------------------------------------------------
- */
+ /*-------------------------------------------------------------------------
+ * step 1: open a file written on a little-endian machine
+ *-------------------------------------------------------------------------
+ */
/* open */
- if((fid = H5Fopen(data_file, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fopen(data_file, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* read */
- if(auxread_fdata(fid,"dset") < 0) TEST_ERROR
+ if (auxread_fdata(fid, "dset") < 0)
+ TEST_ERROR
/* close */
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
- /*-------------------------------------------------------------------------
- * step 2: open a file written on a big-endian machine
- *-------------------------------------------------------------------------
- */
+ /*-------------------------------------------------------------------------
+ * step 2: open a file written on a big-endian machine
+ *-------------------------------------------------------------------------
+ */
/* compose the name of the file to open, using the srcdir, if appropriate */
data_file = H5_get_srcdir_filename("test_filters_be.h5"); /* Corrected test file name */
/* open */
- if((fid = H5Fopen(data_file, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fopen(data_file, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* read */
- if(auxread_fdata(fid,"dset") < 0) TEST_ERROR
+ if (auxread_fdata(fid, "dset") < 0)
+ TEST_ERROR
/* close */
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(dsid);
H5Sclose(sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_filters_endianess() */
-
/*-------------------------------------------------------------------------
* Function: test_zero_dims
*
@@ -6755,140 +7172,179 @@ error:
static herr_t
test_zero_dims(hid_t file)
{
- hid_t s = -1, d = -1, dcpl = -1;
- hid_t s2 = -1, d2 = -1, dcpl2 = -1;
- hsize_t dzero = 0, dmax = H5S_UNLIMITED, csize = 5;
- hsize_t dzero2[2] = {0, 0};
- hsize_t dmax2[2] = {H5S_UNLIMITED, H5S_UNLIMITED};
- hsize_t csize2[2] = {5, 5};
- hid_t fapl; /* File access property list */
+ hid_t s = -1, d = -1, dcpl = -1;
+ hid_t s2 = -1, d2 = -1, dcpl2 = -1;
+ hsize_t dzero = 0, dmax = H5S_UNLIMITED, csize = 5;
+ hsize_t dzero2[2] = {0, 0};
+ hsize_t dmax2[2] = {H5S_UNLIMITED, H5S_UNLIMITED};
+ hsize_t csize2[2] = {5, 5};
+ hid_t fapl; /* File access property list */
H5D_chunk_index_t idx_type; /* Dataset chunk index type */
- H5F_libver_t low; /* File format low bound */
- herr_t ret;
+ H5F_libver_t low; /* File format low bound */
+ herr_t ret;
TESTING("I/O on datasets with zero-sized dims");
/* Get the file's file access property list */
- if((fapl = H5Fget_access_plist(file)) < 0) FAIL_STACK_ERROR
+ if ((fapl = H5Fget_access_plist(file)) < 0)
+ FAIL_STACK_ERROR
/* Get library format */
- if(H5Pget_libver_bounds(fapl, &low, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Pget_libver_bounds(fapl, &low, NULL) < 0)
+ FAIL_STACK_ERROR
/* Close FAPL */
- if(H5Pclose(fapl) < 0) TEST_ERROR
+ if (H5Pclose(fapl) < 0)
+ TEST_ERROR
/*
* One-dimensional dataset
*/
- if((s = H5Screate_simple(1, &dzero, &dmax)) < 0) FAIL_STACK_ERROR
+ if ((s = H5Screate_simple(1, &dzero, &dmax)) < 0)
+ FAIL_STACK_ERROR
/* Try creating chunked dataset with undefined chunk dimensions */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
- if(H5Pset_layout(dcpl, H5D_CHUNKED) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_layout(dcpl, H5D_CHUNKED) < 0)
+ FAIL_STACK_ERROR
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
d = H5Dcreate2(file, ZERODIM_DATASET, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- } H5E_END_TRY;
- if(d > 0) {
+ }
+ H5E_END_TRY;
+ if (d > 0) {
H5Dclose(d);
FAIL_PUTS_ERROR("created dataset with undefined chunk dimensions")
} /* end if */
/* Try creating chunked dataset with zero-sized chunk dimensions */
- H5E_BEGIN_TRY {
- ret = H5Pset_chunk(dcpl, 1, &dzero);
- } H5E_END_TRY;
- if(ret > 0)
+ H5E_BEGIN_TRY { ret = H5Pset_chunk(dcpl, 1, &dzero); }
+ H5E_END_TRY;
+ if (ret > 0)
FAIL_PUTS_ERROR("set zero-sized chunk dimensions")
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
/* Create the zero-sized extendible dataset */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
- if(H5Pset_chunk(dcpl, 1, &csize) < 0) FAIL_STACK_ERROR
- if((d = H5Dcreate2(file, ZERODIM_DATASET, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 1, &csize) < 0)
+ FAIL_STACK_ERROR
+ if ((d = H5Dcreate2(file, ZERODIM_DATASET, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the chunk index type */
- if(H5D__layout_idx_type_test(d, &idx_type) < 0) FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(d, &idx_type) < 0)
+ FAIL_STACK_ERROR
/* Verify index type */
- if(low == H5F_LIBVER_LATEST) {
- if(idx_type != H5D_CHUNK_IDX_EARRAY)
- FAIL_PUTS_ERROR("should be using extensible array as index");
- } else if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (low == H5F_LIBVER_LATEST) {
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
+ FAIL_PUTS_ERROR("should be using extensible array as index");
+ }
+ else if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
/* Various no-op writes */
- if(H5Dwrite(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, (void*)911) < 0) FAIL_STACK_ERROR
- if(H5Dwrite(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, NULL) < 0) FAIL_STACK_ERROR
- if(H5Dwrite(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, (void*)911) < 0) FAIL_STACK_ERROR
- if(H5Dwrite(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, (void *)911) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dwrite(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, NULL) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dwrite(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, (void *)911) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dwrite(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, NULL) < 0)
+ FAIL_STACK_ERROR
/* Various no-op reads */
- if(H5Dread(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, (void*)911) < 0) FAIL_STACK_ERROR
- if(H5Dread(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, NULL) < 0) FAIL_STACK_ERROR
- if(H5Dread(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, (void*)911) < 0) FAIL_STACK_ERROR
- if(H5Dread(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Dread(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, (void *)911) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, NULL) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, (void *)911) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, NULL) < 0)
+ FAIL_STACK_ERROR
- if(H5Dclose(d) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Sclose(s) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(d) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(s) < 0)
+ FAIL_STACK_ERROR
/*
* Two-dimensional dataset
*/
- if((s2 = H5Screate_simple(2, dzero2, dmax2)) < 0) FAIL_STACK_ERROR
+ if ((s2 = H5Screate_simple(2, dzero2, dmax2)) < 0)
+ FAIL_STACK_ERROR
/* Try creating chunked dataset with undefined chunk dimensions */
- if((dcpl2 = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
- if(H5Pset_layout(dcpl2, H5D_CHUNKED) < 0) FAIL_STACK_ERROR
+ if ((dcpl2 = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_layout(dcpl2, H5D_CHUNKED) < 0)
+ FAIL_STACK_ERROR
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
d2 = H5Dcreate2(file, ZERODIM_DATASET2, H5T_NATIVE_INT, s2, H5P_DEFAULT, dcpl2, H5P_DEFAULT);
- } H5E_END_TRY;
- if(d2 > 0) {
+ }
+ H5E_END_TRY;
+ if (d2 > 0) {
H5Dclose(d2);
FAIL_PUTS_ERROR("created dataset with undefined chunk dimensions")
} /* end if */
/* Try creating chunked dataset with zero-sized chunk dimensions */
- H5E_BEGIN_TRY {
- ret = H5Pset_chunk(dcpl2, 2, dzero2);
- } H5E_END_TRY;
- if(ret > 0)
+ H5E_BEGIN_TRY { ret = H5Pset_chunk(dcpl2, 2, dzero2); }
+ H5E_END_TRY;
+ if (ret > 0)
FAIL_PUTS_ERROR("set zero-sized chunk dimensions")
- if(H5Pclose(dcpl2) < 0) FAIL_STACK_ERROR
+ if (H5Pclose(dcpl2) < 0)
+ FAIL_STACK_ERROR
/* Write to the zero-sized extendible dataset */
- if((dcpl2 = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
- if(H5Pset_chunk(dcpl2, 2, csize2) < 0) FAIL_STACK_ERROR
+ if ((dcpl2 = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl2, 2, csize2) < 0)
+ FAIL_STACK_ERROR
/* Create the dataset */
- if((d2 = H5Dcreate2(file, ZERODIM_DATASET2, H5T_NATIVE_INT, s2, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((d2 = H5Dcreate2(file, ZERODIM_DATASET2, H5T_NATIVE_INT, s2, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the chunk index type */
- if(H5D__layout_idx_type_test(d2, &idx_type) < 0) FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(d2, &idx_type) < 0)
+ FAIL_STACK_ERROR
/* Verify index type */
- if(low == H5F_LIBVER_LATEST) {
- if(idx_type != H5D_CHUNK_IDX_BT2)
- FAIL_PUTS_ERROR("should be using v2 B-tree as index");
- } else if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (low == H5F_LIBVER_LATEST) {
+ if (idx_type != H5D_CHUNK_IDX_BT2)
+ FAIL_PUTS_ERROR("should be using v2 B-tree as index");
+ }
+ else if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
/* Just a no-op */
- if(H5Dwrite(d2, H5T_NATIVE_INT, s2, s2, H5P_DEFAULT, (void*)911) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(d2, H5T_NATIVE_INT, s2, s2, H5P_DEFAULT, (void *)911) < 0)
+ FAIL_STACK_ERROR
- if(H5Dclose(d2) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl2) < 0) FAIL_STACK_ERROR
- if(H5Sclose(s2) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(d2) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl2) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(s2) < 0)
+ FAIL_STACK_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(fapl);
H5Pclose(dcpl);
@@ -6898,11 +7354,11 @@ error:
H5Pclose(dcpl2);
H5Dclose(d2);
H5Sclose(s2);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_zero_dims() */
-
/*-------------------------------------------------------------------------
* Function: test_missing_chunk
*
@@ -6921,183 +7377,212 @@ error:
static herr_t
test_missing_chunk(hid_t file)
{
- hid_t d = -1, did2 = -1; /* Dataset IDs */
- hid_t dcpl = -1, dcpl2 = -1; /* Dataset creation property IDs */
- hid_t s = -1, sid2 = -1; /* Dataspace ID */
- hsize_t hs_start[1], hs_stride[1], hs_count[1], hs_block[1]; /* Hyperslab setting */
- hsize_t hs_start2[2], hs_stride2[2], hs_count2[2], hs_block2[2];/* Hyperslab setting */
+ hid_t d = -1, did2 = -1; /* Dataset IDs */
+ hid_t dcpl = -1, dcpl2 = -1; /* Dataset creation property IDs */
+ hid_t s = -1, sid2 = -1; /* Dataspace ID */
+ hsize_t hs_start[1], hs_stride[1], hs_count[1], hs_block[1]; /* Hyperslab setting */
+ hsize_t hs_start2[2], hs_stride2[2], hs_count2[2], hs_block2[2]; /* Hyperslab setting */
/* Buffers for reading/writing dataset */
- int *wdata = NULL;
- int *rdata = NULL;
- int **wdata2 = NULL;
- int **rdata2 = NULL;
- int *wdata2_bytes = NULL;
- int *rdata2_bytes = NULL;
+ int * wdata = NULL;
+ int * rdata = NULL;
+ int **wdata2 = NULL;
+ int **rdata2 = NULL;
+ int * wdata2_bytes = NULL;
+ int * rdata2_bytes = NULL;
/* Setting for 1-D dataset */
- hsize_t dsize=100, dmax=H5S_UNLIMITED;
- hsize_t csize=5;
+ hsize_t dsize = 100, dmax = H5S_UNLIMITED;
+ hsize_t csize = 5;
/* Setting for 2-D dataset */
- hsize_t dsize2[2] = {100, 100}, dmax2[2] = {H5S_UNLIMITED, H5S_UNLIMITED};
- hsize_t csize2[2] = {5, 5};
- size_t u, i, j; /* Local Index variable */
+ hsize_t dsize2[2] = {100, 100}, dmax2[2] = {H5S_UNLIMITED, H5S_UNLIMITED};
+ hsize_t csize2[2] = {5, 5};
+ size_t u, i, j; /* Local Index variable */
- hid_t fapl; /* File access property list */
- H5F_libver_t low; /* File format low bound */
- H5D_chunk_index_t idx_type, idx_type2; /* Dataset chunk index types */
+ hid_t fapl; /* File access property list */
+ H5F_libver_t low; /* File format low bound */
+ H5D_chunk_index_t idx_type, idx_type2; /* Dataset chunk index types */
TESTING("Read dataset with unwritten chunk & undefined fill value");
/* Set up data arrays */
- if(NULL == (wdata = (int *)HDcalloc(MISSING_CHUNK_DIM, sizeof(int))))
+ if (NULL == (wdata = (int *)HDcalloc(MISSING_CHUNK_DIM, sizeof(int))))
TEST_ERROR;
- if(NULL == (rdata = (int *)HDcalloc(MISSING_CHUNK_DIM, sizeof(int))))
+ if (NULL == (rdata = (int *)HDcalloc(MISSING_CHUNK_DIM, sizeof(int))))
TEST_ERROR;
- if(NULL == (wdata2_bytes = (int *)HDcalloc(MISSING_CHUNK_DIM * MISSING_CHUNK_DIM, sizeof(int))))
+ if (NULL == (wdata2_bytes = (int *)HDcalloc(MISSING_CHUNK_DIM * MISSING_CHUNK_DIM, sizeof(int))))
TEST_ERROR;
- if(NULL == (wdata2 = (int **)HDcalloc(MISSING_CHUNK_DIM, sizeof(wdata2_bytes))))
+ if (NULL == (wdata2 = (int **)HDcalloc(MISSING_CHUNK_DIM, sizeof(wdata2_bytes))))
TEST_ERROR;
for (i = 0; i < MISSING_CHUNK_DIM; i++)
wdata2[i] = wdata2_bytes + (i * MISSING_CHUNK_DIM);
- if(NULL == (rdata2_bytes = (int *)HDcalloc(MISSING_CHUNK_DIM * MISSING_CHUNK_DIM, sizeof(int))))
+ if (NULL == (rdata2_bytes = (int *)HDcalloc(MISSING_CHUNK_DIM * MISSING_CHUNK_DIM, sizeof(int))))
TEST_ERROR;
- if(NULL == (rdata2 = (int **)HDcalloc(MISSING_CHUNK_DIM, sizeof(rdata2_bytes))))
+ if (NULL == (rdata2 = (int **)HDcalloc(MISSING_CHUNK_DIM, sizeof(rdata2_bytes))))
TEST_ERROR;
for (i = 0; i < MISSING_CHUNK_DIM; i++)
rdata2[i] = rdata2_bytes + (i * MISSING_CHUNK_DIM);
/* Get the file's file access property list */
- if((fapl = H5Fget_access_plist(file)) < 0) TEST_ERROR;
+ if ((fapl = H5Fget_access_plist(file)) < 0)
+ TEST_ERROR;
/* Get library format */
- if(H5Pget_libver_bounds(fapl, &low, NULL) < 0) TEST_ERROR;
+ if (H5Pget_libver_bounds(fapl, &low, NULL) < 0)
+ TEST_ERROR;
/* Close FAPL */
- if(H5Pclose(fapl) < 0) TEST_ERROR
+ if (H5Pclose(fapl) < 0)
+ TEST_ERROR
/* Initialize data for 1-D dataset */
- for(u = 0; u < MISSING_CHUNK_DIM; u++) {
+ for (u = 0; u < MISSING_CHUNK_DIM; u++) {
wdata[u] = (int)u;
rdata[u] = 911;
} /* end for */
/* Initialize data for 2-D dataset */
- for(i = 0; i < MISSING_CHUNK_DIM; i++) {
- for(j = 0; j < MISSING_CHUNK_DIM; j++) {
+ for (i = 0; i < MISSING_CHUNK_DIM; i++) {
+ for (j = 0; j < MISSING_CHUNK_DIM; j++) {
wdata2[i][j] = (int)(j + (i * MISSING_CHUNK_DIM));
rdata2[i][j] = 911;
}
} /* end for */
/* Create dataspace */
- if((s = H5Screate_simple(1, &dsize, &dmax)) < 0) TEST_ERROR;
- if((sid2 = H5Screate_simple(2, dsize2, dmax2)) < 0) TEST_ERROR;
+ if ((s = H5Screate_simple(1, &dsize, &dmax)) < 0)
+ TEST_ERROR;
+ if ((sid2 = H5Screate_simple(2, dsize2, dmax2)) < 0)
+ TEST_ERROR;
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR;
- if((dcpl2 = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR;
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ TEST_ERROR;
+ if ((dcpl2 = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ TEST_ERROR;
/* Set to chunked */
- if(H5Pset_chunk(dcpl, 1, &csize) < 0) TEST_ERROR;
- if(H5Pset_chunk(dcpl2, 2, csize2) < 0) TEST_ERROR;
+ if (H5Pset_chunk(dcpl, 1, &csize) < 0)
+ TEST_ERROR;
+ if (H5Pset_chunk(dcpl2, 2, csize2) < 0)
+ TEST_ERROR;
/* Undefine fill value */
- if(H5Pset_fill_value(dcpl, H5T_NATIVE_INT, NULL) < 0) TEST_ERROR;
- if(H5Pset_fill_value(dcpl2, H5T_NATIVE_INT, NULL) < 0) TEST_ERROR;
+ if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, NULL) < 0)
+ TEST_ERROR;
+ if (H5Pset_fill_value(dcpl2, H5T_NATIVE_INT, NULL) < 0)
+ TEST_ERROR;
/* Create the 1-D & 2-D datasets */
- if((d = H5Dcreate2(file, MISSING_CHUNK_DATASET, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) TEST_ERROR;
- if((did2 = H5Dcreate2(file, MISSING_CHUNK_DATASET2, H5T_NATIVE_INT, sid2, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0) TEST_ERROR;
+ if ((d = H5Dcreate2(file, MISSING_CHUNK_DATASET, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
+ if ((did2 = H5Dcreate2(file, MISSING_CHUNK_DATASET2, H5T_NATIVE_INT, sid2, H5P_DEFAULT, dcpl2,
+ H5P_DEFAULT)) < 0)
+ TEST_ERROR;
/* Get the chunk index types */
- if(H5D__layout_idx_type_test(d, &idx_type) < 0) TEST_ERROR;
- if(H5D__layout_idx_type_test(did2, &idx_type2) < 0) TEST_ERROR;
+ if (H5D__layout_idx_type_test(d, &idx_type) < 0)
+ TEST_ERROR;
+ if (H5D__layout_idx_type_test(did2, &idx_type2) < 0)
+ TEST_ERROR;
/* Verify index type */
- if(low == H5F_LIBVER_LATEST) {
- if(idx_type != H5D_CHUNK_IDX_EARRAY)
+ if (low == H5F_LIBVER_LATEST) {
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
FAIL_PUTS_ERROR("should be using Extensible Array as index");
- if(idx_type2 != H5D_CHUNK_IDX_BT2)
+ if (idx_type2 != H5D_CHUNK_IDX_BT2)
FAIL_PUTS_ERROR("should be using v2 B-tree as index");
- } else {
- if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
- if(idx_type2 != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ }
+ else {
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (idx_type2 != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
}
/* Select elements in every other chunk for 1-D dataset */
- hs_start[0]=0;
- hs_stride[0]=10;
- hs_count[0]=10;
- hs_block[0]=5;
- if(H5Sselect_hyperslab(s, H5S_SELECT_SET, hs_start, hs_stride, hs_count,
- hs_block) < 0) TEST_ERROR;
+ hs_start[0] = 0;
+ hs_stride[0] = 10;
+ hs_count[0] = 10;
+ hs_block[0] = 5;
+ if (H5Sselect_hyperslab(s, H5S_SELECT_SET, hs_start, hs_stride, hs_count, hs_block) < 0)
+ TEST_ERROR;
/* Select elements in every other chunk for 2-D dataset */
hs_start2[0] = hs_start2[1] = 0;
hs_stride2[0] = hs_stride2[1] = 10;
hs_count2[0] = hs_count2[1] = 10;
hs_block2[0] = hs_block2[1] = 5;
- if(H5Sselect_hyperslab(sid2, H5S_SELECT_SET, hs_start2, hs_stride2, hs_count2,
- hs_block2) < 0) TEST_ERROR;
+ if (H5Sselect_hyperslab(sid2, H5S_SELECT_SET, hs_start2, hs_stride2, hs_count2, hs_block2) < 0)
+ TEST_ERROR;
/* Write selected data to the datasets */
- if(H5Dwrite(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, wdata) < 0) TEST_ERROR;
- if(H5Dwrite(did2, H5T_NATIVE_INT, sid2, sid2, H5P_DEFAULT, wdata2_bytes) < 0) TEST_ERROR;
+ if (H5Dwrite(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, wdata) < 0)
+ TEST_ERROR;
+ if (H5Dwrite(did2, H5T_NATIVE_INT, sid2, sid2, H5P_DEFAULT, wdata2_bytes) < 0)
+ TEST_ERROR;
/* Read all data from the datasets */
- if(H5Dread(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata) < 0) TEST_ERROR;
- if(H5Dread(did2, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata2_bytes) < 0) TEST_ERROR;
+ if (H5Dread(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata) < 0)
+ TEST_ERROR;
+ if (H5Dread(did2, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata2_bytes) < 0)
+ TEST_ERROR;
/* Validata values read for the 1-D dataset */
- for(u=0; u<MISSING_CHUNK_DIM; u++) {
- if((u%10)>=5) {
- if(rdata[u]!=911) {
- HDprintf(" Line %d: Incorrect value, rdata[%u]=%d\n",__LINE__,(unsigned)u,rdata[u]);
+ for (u = 0; u < MISSING_CHUNK_DIM; u++) {
+ if ((u % 10) >= 5) {
+ if (rdata[u] != 911) {
+ HDprintf(" Line %d: Incorrect value, rdata[%u]=%d\n", __LINE__, (unsigned)u, rdata[u]);
TEST_ERROR;
} /* end if */
- } /* end if */
+ } /* end if */
else {
- if(rdata[u]!=wdata[u]) {
- HDprintf(" Line %d: Incorrect value, wdata[%u]=%d, rdata[%u]=%d\n",__LINE__,(unsigned)u,wdata[u],(unsigned)u,rdata[u]);
+ if (rdata[u] != wdata[u]) {
+ HDprintf(" Line %d: Incorrect value, wdata[%u]=%d, rdata[%u]=%d\n", __LINE__, (unsigned)u,
+ wdata[u], (unsigned)u, rdata[u]);
TEST_ERROR;
} /* end if */
- } /* end else */
- } /* end for */
+ } /* end else */
+ } /* end for */
/* Validata values read for the 2-D dataset */
- for(i = 0; i < MISSING_CHUNK_DIM; i++) {
- for(j = 0; j < MISSING_CHUNK_DIM; j++) {
-
- if((i % 10) >= 5 || (j % 10) >= 5) {
- if(rdata2[i][j] != 911) {
- HDprintf(" Line %d: Incorrect value, rdata2[%u][%u] = %d\n",
- __LINE__,(unsigned)i, (unsigned)j, rdata2[i][j]);
- TEST_ERROR;
- } /* end if */
- } /* end if */
- else {
- if(rdata2[i][j] != wdata2[i][j]) {
- HDprintf(" Line %d: Incorrect value, wdata2[%u][%u] = %d, rdata2[%u][%u] = %d\n",
- __LINE__,(unsigned)i, (unsigned)j, wdata2[i][j],(unsigned)i, (unsigned)j, rdata2[i][j]);
- TEST_ERROR;
- } /* end if */
- } /* end else */
- } /* end for */
- } /* end for */
+ for (i = 0; i < MISSING_CHUNK_DIM; i++) {
+ for (j = 0; j < MISSING_CHUNK_DIM; j++) {
+
+ if ((i % 10) >= 5 || (j % 10) >= 5) {
+ if (rdata2[i][j] != 911) {
+ HDprintf(" Line %d: Incorrect value, rdata2[%u][%u] = %d\n", __LINE__, (unsigned)i,
+ (unsigned)j, rdata2[i][j]);
+ TEST_ERROR;
+ } /* end if */
+ } /* end if */
+ else {
+ if (rdata2[i][j] != wdata2[i][j]) {
+ HDprintf(" Line %d: Incorrect value, wdata2[%u][%u] = %d, rdata2[%u][%u] = %d\n",
+ __LINE__, (unsigned)i, (unsigned)j, wdata2[i][j], (unsigned)i, (unsigned)j,
+ rdata2[i][j]);
+ TEST_ERROR;
+ } /* end if */
+ } /* end else */
+ } /* end for */
+ } /* end for */
/* Close everything */
- if(H5Pclose(dcpl) < 0) TEST_ERROR;
- if(H5Pclose(dcpl2) < 0) TEST_ERROR;
- if(H5Sclose(s) < 0) TEST_ERROR;
- if(H5Sclose(sid2) < 0) TEST_ERROR;
- if(H5Dclose(d) < 0) TEST_ERROR;
- if(H5Dclose(did2) < 0) TEST_ERROR;
+ if (H5Pclose(dcpl) < 0)
+ TEST_ERROR;
+ if (H5Pclose(dcpl2) < 0)
+ TEST_ERROR;
+ if (H5Sclose(s) < 0)
+ TEST_ERROR;
+ if (H5Sclose(sid2) < 0)
+ TEST_ERROR;
+ if (H5Dclose(d) < 0)
+ TEST_ERROR;
+ if (H5Dclose(did2) < 0)
+ TEST_ERROR;
HDfree(rdata);
HDfree(wdata);
@@ -7110,7 +7595,8 @@ test_missing_chunk(hid_t file)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(fapl);
H5Pclose(dcpl);
@@ -7119,7 +7605,8 @@ error:
H5Dclose(did2);
H5Sclose(s);
H5Sclose(sid2);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
HDfree(rdata);
HDfree(wdata);
@@ -7148,10 +7635,11 @@ gcd(long l0, long r0)
do {
if (l < r) {
- r = r % l;
+ r = r % l;
remainder = r;
- } else /* r <= l */ {
- l = l % r;
+ }
+ else /* r <= l */ {
+ l = l % r;
remainder = l;
}
} while (remainder != 0);
@@ -7214,23 +7702,22 @@ make_random_offset_and_increment(long nelts, long *offsetp, long *incp)
static herr_t
test_random_chunks_real(const char *testname, hbool_t early_alloc, hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t s=-1, m=-1, d=-1, dcpl=-1, file=-1;
- int wbuf[NPOINTS],
- rbuf[NPOINTS],
- check2[20][20];
- hsize_t coord[NPOINTS][2];
- const hsize_t dsize[2]={100,100}, dmax[2]={H5S_UNLIMITED, H5S_UNLIMITED}, csize[2]={10,10}, nsize[2]={200,200};
- hsize_t fixed_dmax[2] = {1000, 1000};
- hsize_t msize[1]={NPOINTS};
- const char dname[]="dataset";
- int chunk_row, chunk_col;
- size_t i, j;
+ char filename[FILENAME_BUF_SIZE];
+ hid_t s = -1, m = -1, d = -1, dcpl = -1, file = -1;
+ int wbuf[NPOINTS], rbuf[NPOINTS], check2[20][20];
+ hsize_t coord[NPOINTS][2];
+ const hsize_t dsize[2] = {100, 100}, dmax[2] = {H5S_UNLIMITED, H5S_UNLIMITED}, csize[2] = {10, 10},
+ nsize[2] = {200, 200};
+ hsize_t fixed_dmax[2] = {1000, 1000};
+ hsize_t msize[1] = {NPOINTS};
+ const char dname[] = "dataset";
+ int chunk_row, chunk_col;
+ size_t i, j;
H5D_chunk_index_t idx_type; /* Dataset chunk index type */
- H5F_libver_t low; /* File format low bound */
- long ofs, inc;
- long rows;
- long cols;
+ H5F_libver_t low; /* File format low bound */
+ long ofs, inc;
+ long rows;
+ long cols;
TESTING(testname);
@@ -7238,157 +7725,197 @@ test_random_chunks_real(const char *testname, hbool_t early_alloc, hid_t fapl)
h5_fixname(FILENAME[6], fapl, filename, sizeof filename);
- if(H5Pget_libver_bounds(fapl, &low, NULL) < 0) TEST_ERROR;
+ if (H5Pget_libver_bounds(fapl, &low, NULL) < 0)
+ TEST_ERROR;
/* Create file for first test */
- if((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR;
+ if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ TEST_ERROR;
/* Create dataspace */
- if((s = H5Screate_simple(2, dsize, NULL)) < 0) TEST_ERROR;
+ if ((s = H5Screate_simple(2, dsize, NULL)) < 0)
+ TEST_ERROR;
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR;
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ TEST_ERROR;
/* Set chunked layout */
- if(H5Pset_chunk(dcpl, 2, csize) < 0) TEST_ERROR;
+ if (H5Pset_chunk(dcpl, 2, csize) < 0)
+ TEST_ERROR;
/* Set early allocation time for one dataset; the other dataset is using default alloc time */
- if(early_alloc)
- if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0) TEST_ERROR;
+ if (early_alloc)
+ if (H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0)
+ TEST_ERROR;
/* Create dataset */
- if((d = H5Dcreate2(file, dname, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) TEST_ERROR;
+ if ((d = H5Dcreate2(file, dname, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
/* Initialization of check array for repeated coordinates */
- for(i=0; i<dsize[0]/csize[0]; i++)
- for(j=0; j<dsize[1]/csize[1]; j++)
+ for (i = 0; i < dsize[0] / csize[0]; i++)
+ for (j = 0; j < dsize[1] / csize[1]; j++)
check2[i][j] = 0;
- rows = (long)(dsize[0]/csize[0]);
- cols = (long)(dsize[1]/csize[1]);
+ rows = (long)(dsize[0] / csize[0]);
+ cols = (long)(dsize[1] / csize[1]);
make_random_offset_and_increment(rows * cols, &ofs, &inc);
/* Generate random point coordinates. Only one point is selected per chunk */
- for(i=0; i<NPOINTS; i++){
+ for (i = 0; i < NPOINTS; i++) {
H5_CHECKED_ASSIGN(chunk_row, int, ofs / cols, long);
H5_CHECKED_ASSIGN(chunk_col, int, ofs % cols, long);
ofs = (ofs + inc) % (rows * cols);
HDassert(!check2[chunk_row][chunk_col]);
- wbuf[i] = check2[chunk_row][chunk_col] = chunk_row+chunk_col+1;
- coord[i][0] = (hsize_t)chunk_row * csize[0];
- coord[i][1] = (hsize_t)chunk_col * csize[1];
+ wbuf[i] = check2[chunk_row][chunk_col] = chunk_row + chunk_col + 1;
+ coord[i][0] = (hsize_t)chunk_row * csize[0];
+ coord[i][1] = (hsize_t)chunk_col * csize[1];
}
/* Create dataspace for write buffer */
- if((m = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ if ((m = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
/* Select the random points for writing */
- if(H5Sselect_elements(s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0) TEST_ERROR;
+ if (H5Sselect_elements(s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0)
+ TEST_ERROR;
/* Write into dataset */
- if(H5Dwrite(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, wbuf) < 0) TEST_ERROR;
+ if (H5Dwrite(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, wbuf) < 0)
+ TEST_ERROR;
/* Close resources*/
- if(H5Sclose(s) < 0) TEST_ERROR;
- if(H5Sclose(m) < 0) TEST_ERROR;
- if(H5Pclose(dcpl) < 0) TEST_ERROR;
- if(H5Dclose(d) < 0) TEST_ERROR;
- if(H5Fclose(file) < 0) TEST_ERROR;
+ if (H5Sclose(s) < 0)
+ TEST_ERROR;
+ if (H5Sclose(m) < 0)
+ TEST_ERROR;
+ if (H5Pclose(dcpl) < 0)
+ TEST_ERROR;
+ if (H5Dclose(d) < 0)
+ TEST_ERROR;
+ if (H5Fclose(file) < 0)
+ TEST_ERROR;
/* Open first file again */
- if((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0) TEST_ERROR;
+ if ((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
+ TEST_ERROR;
/* Open dataset */
- if((d = H5Dopen2(file, dname, H5P_DEFAULT)) < 0) TEST_ERROR;
+ if ((d = H5Dopen2(file, dname, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
/* Get the chunk index type */
- if(H5D__layout_idx_type_test(d, &idx_type) < 0) TEST_ERROR;
+ if (H5D__layout_idx_type_test(d, &idx_type) < 0)
+ TEST_ERROR;
/* Verify index type */
- if(low == H5F_LIBVER_LATEST) {
- if(early_alloc) {
- if(idx_type != H5D_CHUNK_IDX_NONE)
+ if (low == H5F_LIBVER_LATEST) {
+ if (early_alloc) {
+ if (idx_type != H5D_CHUNK_IDX_NONE)
FAIL_PUTS_ERROR("should be using Non-Index as index");
} /* end if */
else {
- if(idx_type != H5D_CHUNK_IDX_FARRAY)
+ if (idx_type != H5D_CHUNK_IDX_FARRAY)
FAIL_PUTS_ERROR("should be using Fixed Array as index");
} /* end else */
- } else if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ }
+ else if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
/* Get dataset dataspace */
- if((s = H5Dget_space(d)) < 0) TEST_ERROR;
+ if ((s = H5Dget_space(d)) < 0)
+ TEST_ERROR;
/* Create dataspace for read buffer */
- if((m = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ if ((m = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
/* Select the random points for reading */
- if(H5Sselect_elements (s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0) TEST_ERROR;
+ if (H5Sselect_elements(s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0)
+ TEST_ERROR;
/* Read from dataset */
- if(H5Dread(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, rbuf) < 0) TEST_ERROR;
+ if (H5Dread(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, rbuf) < 0)
+ TEST_ERROR;
/* Verify that written and read data are the same */
- for(i = 0; i < NPOINTS; i++)
- if(rbuf[i] != wbuf[i]){
- HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n",__LINE__,(unsigned)i,wbuf[i],(unsigned)i,rbuf[i]);
- HDprintf(" coord[%u] = {%lu, %lu}\n", (unsigned)i, (unsigned long)coord[i][0], (unsigned long)coord[i][1]);
+ for (i = 0; i < NPOINTS; i++)
+ if (rbuf[i] != wbuf[i]) {
+ HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n", __LINE__, (unsigned)i,
+ wbuf[i], (unsigned)i, rbuf[i]);
+ HDprintf(" coord[%u] = {%lu, %lu}\n", (unsigned)i, (unsigned long)coord[i][0],
+ (unsigned long)coord[i][1]);
TEST_ERROR;
} /* end if */
/* Close resources */
- if(H5Sclose(s) < 0) TEST_ERROR;
- if(H5Sclose(m) < 0) TEST_ERROR;
- if(H5Dclose(d) < 0) TEST_ERROR;
- if(H5Fclose(file) < 0) TEST_ERROR;
-
+ if (H5Sclose(s) < 0)
+ TEST_ERROR;
+ if (H5Sclose(m) < 0)
+ TEST_ERROR;
+ if (H5Dclose(d) < 0)
+ TEST_ERROR;
+ if (H5Fclose(file) < 0)
+ TEST_ERROR;
/* Create second file */
- if((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR;
+ if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ TEST_ERROR;
/* Create dataspace with unlimited maximum dimensions */
- if(early_alloc) {
- if((s = H5Screate_simple(2, dsize, fixed_dmax)) < 0) TEST_ERROR;
- } else
- if((s = H5Screate_simple(2, dsize, dmax)) < 0) TEST_ERROR;
+ if (early_alloc) {
+ if ((s = H5Screate_simple(2, dsize, fixed_dmax)) < 0)
+ TEST_ERROR;
+ }
+ else if ((s = H5Screate_simple(2, dsize, dmax)) < 0)
+ TEST_ERROR;
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR;
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ TEST_ERROR;
/* Set chunked layout */
- if(H5Pset_chunk(dcpl, 2, csize) < 0) TEST_ERROR;
+ if (H5Pset_chunk(dcpl, 2, csize) < 0)
+ TEST_ERROR;
/* Set early allocation time for one dataset; the other dataset is using default alloc time */
- if(early_alloc)
- if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0) TEST_ERROR;
+ if (early_alloc)
+ if (H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0)
+ TEST_ERROR;
/* Create dataset */
- if((d = H5Dcreate2(file, dname, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) TEST_ERROR;
+ if ((d = H5Dcreate2(file, dname, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
/* Get the chunk index type */
- if(H5D__layout_idx_type_test(d, &idx_type) < 0) TEST_ERROR;
+ if (H5D__layout_idx_type_test(d, &idx_type) < 0)
+ TEST_ERROR;
/* Verify index type */
- if(low == H5F_LIBVER_LATEST) {
- if(early_alloc) {
- if(idx_type != H5D_CHUNK_IDX_NONE)
- FAIL_PUTS_ERROR("should be using implicit indexing");
- } else if(idx_type != H5D_CHUNK_IDX_BT2)
- FAIL_PUTS_ERROR("should be using v2 B-tree as index");
- } else if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (low == H5F_LIBVER_LATEST) {
+ if (early_alloc) {
+ if (idx_type != H5D_CHUNK_IDX_NONE)
+ FAIL_PUTS_ERROR("should be using implicit indexing");
+ }
+ else if (idx_type != H5D_CHUNK_IDX_BT2)
+ FAIL_PUTS_ERROR("should be using v2 B-tree as index");
+ }
+ else if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
/* Extend both dimensions of the dataset */
- if(H5Dset_extent(d, nsize) < 0) TEST_ERROR;
+ if (H5Dset_extent(d, nsize) < 0)
+ TEST_ERROR;
/* Reset the dataset dataspace to new dimensions */
- if(H5Sset_extent_simple(s, 2, nsize, dmax) < 0) TEST_ERROR;
+ if (H5Sset_extent_simple(s, 2, nsize, dmax) < 0)
+ TEST_ERROR;
/* Initialize check buffer for repeated coordinates */
- for(i = 0; i < nsize[0]/csize[0]; i++)
- for(j = 0; j < nsize[1] / csize[1]; j++)
+ for (i = 0; i < nsize[0] / csize[0]; i++)
+ for (j = 0; j < nsize[1] / csize[1]; j++)
check2[i][j] = 0;
H5_CHECKED_ASSIGN(rows, int, nsize[0] / csize[0], long);
@@ -7396,109 +7923,137 @@ test_random_chunks_real(const char *testname, hbool_t early_alloc, hid_t fapl)
make_random_offset_and_increment(rows * cols, &ofs, &inc);
/* Generate random point coordinates. Only one point is selected per chunk */
- for(i = 0; i < NPOINTS; i++){
+ for (i = 0; i < NPOINTS; i++) {
H5_CHECKED_ASSIGN(chunk_row, int, ofs / cols, long);
H5_CHECKED_ASSIGN(chunk_col, int, ofs % cols, long);
ofs = (ofs + inc) % (rows * cols);
HDassert(!check2[chunk_row][chunk_col]);
wbuf[i] = check2[chunk_row][chunk_col] = chunk_row + chunk_col + 1;
- coord[i][0] = (hsize_t)chunk_row * csize[0];
- coord[i][1] = (hsize_t)chunk_col * csize[1];
+ coord[i][0] = (hsize_t)chunk_row * csize[0];
+ coord[i][1] = (hsize_t)chunk_col * csize[1];
}
/* Create dataspace for write buffer */
- if((m = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ if ((m = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
/* Select the random points for writing */
- if(H5Sselect_elements(s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0) TEST_ERROR;
+ if (H5Sselect_elements(s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0)
+ TEST_ERROR;
/* Write into dataset */
- if(H5Dwrite(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, wbuf) < 0) TEST_ERROR;
+ if (H5Dwrite(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, wbuf) < 0)
+ TEST_ERROR;
/* Close resources */
- if(H5Sclose(s) < 0) TEST_ERROR;
- if(H5Sclose(m) < 0) TEST_ERROR;
- if(H5Pclose(dcpl) < 0) TEST_ERROR;
- if(H5Dclose(d) < 0) TEST_ERROR;
- if(H5Fclose(file) < 0) TEST_ERROR;
+ if (H5Sclose(s) < 0)
+ TEST_ERROR;
+ if (H5Sclose(m) < 0)
+ TEST_ERROR;
+ if (H5Pclose(dcpl) < 0)
+ TEST_ERROR;
+ if (H5Dclose(d) < 0)
+ TEST_ERROR;
+ if (H5Fclose(file) < 0)
+ TEST_ERROR;
/* Open second file again */
- if((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0) TEST_ERROR;
+ if ((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
+ TEST_ERROR;
/* Open dataset */
- if((d = H5Dopen2(file, dname, H5P_DEFAULT)) < 0) TEST_ERROR;
+ if ((d = H5Dopen2(file, dname, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
/* Get dataset dataspace */
- if((s = H5Dget_space(d)) < 0) TEST_ERROR;
+ if ((s = H5Dget_space(d)) < 0)
+ TEST_ERROR;
/* Create dataspace for read buffer */
- if((m = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ if ((m = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
/* Select the random points for reading */
- if(H5Sselect_elements (s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0) TEST_ERROR;
+ if (H5Sselect_elements(s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0)
+ TEST_ERROR;
/* Read from dataset */
- if(H5Dread(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, rbuf) < 0) TEST_ERROR;
+ if (H5Dread(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, rbuf) < 0)
+ TEST_ERROR;
/* Verify that written and read data are the same */
- for(i = 0; i < NPOINTS; i++)
- if(rbuf[i] != wbuf[i]){
- HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n",__LINE__,(unsigned)i,wbuf[i],(unsigned)i,rbuf[i]);
- TEST_ERROR;
+ for (i = 0; i < NPOINTS; i++)
+ if (rbuf[i] != wbuf[i]) {
+ HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n", __LINE__, (unsigned)i,
+ wbuf[i], (unsigned)i, rbuf[i]);
+ TEST_ERROR;
} /* end if */
/* Close resources */
- if(H5Sclose(s) < 0) TEST_ERROR;
- if(H5Sclose(m) < 0) TEST_ERROR;
- if(H5Dclose(d) < 0) TEST_ERROR;
- if(H5Fclose(file) < 0) TEST_ERROR;
-
+ if (H5Sclose(s) < 0)
+ TEST_ERROR;
+ if (H5Sclose(m) < 0)
+ TEST_ERROR;
+ if (H5Dclose(d) < 0)
+ TEST_ERROR;
+ if (H5Fclose(file) < 0)
+ TEST_ERROR;
/* Create third file */
- if((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR;
+ if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ TEST_ERROR;
/* Create dataspace with fixed maximum dimensions */
- if((s = H5Screate_simple(2, dsize, fixed_dmax)) < 0) TEST_ERROR;
+ if ((s = H5Screate_simple(2, dsize, fixed_dmax)) < 0)
+ TEST_ERROR;
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR;
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ TEST_ERROR;
/* Set chunked layout */
- if(H5Pset_chunk(dcpl, 2, csize) < 0) TEST_ERROR;
+ if (H5Pset_chunk(dcpl, 2, csize) < 0)
+ TEST_ERROR;
/* Set early allocation time for one dataset; the other dataset is using default alloc time */
- if(early_alloc)
- if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0) TEST_ERROR;
+ if (early_alloc)
+ if (H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0)
+ TEST_ERROR;
/* Create dataset */
- if((d = H5Dcreate2(file, dname, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) TEST_ERROR;
+ if ((d = H5Dcreate2(file, dname, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
/* Get the chunk index type */
- if(H5D__layout_idx_type_test(d, &idx_type) < 0) TEST_ERROR;
+ if (H5D__layout_idx_type_test(d, &idx_type) < 0)
+ TEST_ERROR;
/* Verify index type */
- if(low == H5F_LIBVER_LATEST) {
- if(early_alloc) {
- if(idx_type != H5D_CHUNK_IDX_NONE)
+ if (low == H5F_LIBVER_LATEST) {
+ if (early_alloc) {
+ if (idx_type != H5D_CHUNK_IDX_NONE)
FAIL_PUTS_ERROR("should be using Non-Index as index");
} /* end if */
else {
- if(idx_type != H5D_CHUNK_IDX_FARRAY)
+ if (idx_type != H5D_CHUNK_IDX_FARRAY)
FAIL_PUTS_ERROR("should be using Fixed Array as index");
} /* end else */
- } else if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ }
+ else if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
/* Extend both dimensions of the dataset */
- if(H5Dset_extent(d, nsize) < 0) TEST_ERROR;
+ if (H5Dset_extent(d, nsize) < 0)
+ TEST_ERROR;
/* Reset the dataset dataspace to new dimensions */
- if(H5Sset_extent_simple(s, 2, nsize, dmax) < 0) TEST_ERROR;
+ if (H5Sset_extent_simple(s, 2, nsize, dmax) < 0)
+ TEST_ERROR;
/* Initialize check buffer for repeated coordinates */
- for(i = 0; i < nsize[0]/csize[0]; i++)
- for(j = 0; j < nsize[1] / csize[1]; j++)
+ for (i = 0; i < nsize[0] / csize[0]; i++)
+ for (j = 0; j < nsize[1] / csize[1]; j++)
check2[i][j] = 0;
rows = (long)(nsize[0] / csize[0]);
@@ -7506,79 +8061,99 @@ test_random_chunks_real(const char *testname, hbool_t early_alloc, hid_t fapl)
make_random_offset_and_increment(rows * cols, &ofs, &inc);
/* Generate random point coordinates. Only one point is selected per chunk */
- for(i = 0; i < NPOINTS; i++){
+ for (i = 0; i < NPOINTS; i++) {
H5_CHECKED_ASSIGN(chunk_row, int, ofs / cols, long);
H5_CHECKED_ASSIGN(chunk_col, int, ofs % cols, long);
ofs = (ofs + inc) % (rows * cols);
HDassert(!check2[chunk_row][chunk_col]);
wbuf[i] = check2[chunk_row][chunk_col] = chunk_row + chunk_col + 1;
- coord[i][0] = (hsize_t)chunk_row * csize[0];
- coord[i][1] = (hsize_t)chunk_col * csize[1];
+ coord[i][0] = (hsize_t)chunk_row * csize[0];
+ coord[i][1] = (hsize_t)chunk_col * csize[1];
}
/* Create dataspace for write buffer */
- if((m = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ if ((m = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
/* Select the random points for writing */
- if(H5Sselect_elements(s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0) TEST_ERROR;
+ if (H5Sselect_elements(s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0)
+ TEST_ERROR;
/* Write into dataset */
- if(H5Dwrite(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, wbuf) < 0) TEST_ERROR;
+ if (H5Dwrite(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, wbuf) < 0)
+ TEST_ERROR;
/* Close resources */
- if(H5Sclose(s) < 0) TEST_ERROR;
- if(H5Sclose(m) < 0) TEST_ERROR;
- if(H5Pclose(dcpl) < 0) TEST_ERROR;
- if(H5Dclose(d) < 0) TEST_ERROR;
- if(H5Fclose(file) < 0) TEST_ERROR;
+ if (H5Sclose(s) < 0)
+ TEST_ERROR;
+ if (H5Sclose(m) < 0)
+ TEST_ERROR;
+ if (H5Pclose(dcpl) < 0)
+ TEST_ERROR;
+ if (H5Dclose(d) < 0)
+ TEST_ERROR;
+ if (H5Fclose(file) < 0)
+ TEST_ERROR;
/* Open third file again */
- if((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0) TEST_ERROR;
+ if ((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
+ TEST_ERROR;
/* Open dataset */
- if((d = H5Dopen2(file, dname, H5P_DEFAULT)) < 0) TEST_ERROR;
+ if ((d = H5Dopen2(file, dname, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
/* Get dataset dataspace */
- if((s = H5Dget_space(d)) < 0) TEST_ERROR;
+ if ((s = H5Dget_space(d)) < 0)
+ TEST_ERROR;
/* Create dataspace for read buffer */
- if((m = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ if ((m = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
/* Select the random points for reading */
- if(H5Sselect_elements (s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0) TEST_ERROR;
+ if (H5Sselect_elements(s, H5S_SELECT_SET, (size_t)NPOINTS, (const hsize_t *)coord) < 0)
+ TEST_ERROR;
/* Read from dataset */
- if(H5Dread(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, rbuf) < 0) TEST_ERROR;
+ if (H5Dread(d, H5T_NATIVE_INT, m, s, H5P_DEFAULT, rbuf) < 0)
+ TEST_ERROR;
/* Verify that written and read data are the same */
- for(i = 0; i < NPOINTS; i++)
- if(rbuf[i] != wbuf[i]){
- HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n",__LINE__,(unsigned)i,wbuf[i],(unsigned)i,rbuf[i]);
- TEST_ERROR;
+ for (i = 0; i < NPOINTS; i++)
+ if (rbuf[i] != wbuf[i]) {
+ HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n", __LINE__, (unsigned)i,
+ wbuf[i], (unsigned)i, rbuf[i]);
+ TEST_ERROR;
} /* end if */
/* Close resources */
- if(H5Sclose(s) < 0) TEST_ERROR;
- if(H5Sclose(m) < 0) TEST_ERROR;
- if(H5Dclose(d) < 0) TEST_ERROR;
- if(H5Fclose(file) < 0) TEST_ERROR;
+ if (H5Sclose(s) < 0)
+ TEST_ERROR;
+ if (H5Sclose(m) < 0)
+ TEST_ERROR;
+ if (H5Dclose(d) < 0)
+ TEST_ERROR;
+ if (H5Fclose(file) < 0)
+ TEST_ERROR;
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Sclose(s);
H5Sclose(m);
H5Dclose(d);
H5Fclose(file);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_random_chunks_real() */
-
/*-------------------------------------------------------------------------
* Function: test_random_chunks
*
@@ -7607,12 +8182,14 @@ error:
static herr_t
test_random_chunks(hid_t fapl)
{
- int nerrors = 0; /* Errors in sub-tests */
+ int nerrors = 0; /* Errors in sub-tests */
- nerrors += test_random_chunks_real("Write/read on randomly selected chunks w/non-implicit index", FALSE, fapl);
+ nerrors +=
+ test_random_chunks_real("Write/read on randomly selected chunks w/non-implicit index", FALSE, fapl);
nerrors += test_random_chunks_real("Write/read on randomly selected chunks w/implicit index", TRUE, fapl);
- return nerrors;;
+ return nerrors;
+ ;
} /* end test_random_chunks() */
#ifndef H5_NO_DEPRECATED_SYMBOLS
@@ -7626,19 +8203,18 @@ can_apply_deprec(hid_t H5_ATTR_UNUSED dcpl_id, hid_t H5_ATTR_UNUSED type_id, hid
static herr_t
set_local_deprec(hid_t H5_ATTR_UNUSED dcpl_id, hid_t H5_ATTR_UNUSED type_id, hid_t H5_ATTR_UNUSED space_id)
{
- return(SUCCEED);
+ return (SUCCEED);
}
/* Old style H5Z_class_t, essentially a copy of the "bogus" filter */
const H5Z_class1_t H5Z_DEPREC[1] = {{
- H5Z_FILTER_DEPREC, /* Filter id number */
- "deprec", /* Filter name for debugging */
- can_apply_deprec, /* The "can apply" callback */
- set_local_deprec, /* The "set local" callback */
- filter_bogus, /* The actual filter function */
+ H5Z_FILTER_DEPREC, /* Filter id number */
+ "deprec", /* Filter name for debugging */
+ can_apply_deprec, /* The "can apply" callback */
+ set_local_deprec, /* The "set local" callback */
+ filter_bogus, /* The actual filter function */
}};
-
/*-------------------------------------------------------------------------
* Function: test_deprec
*
@@ -7655,69 +8231,70 @@ const H5Z_class1_t H5Z_DEPREC[1] = {{
static herr_t
test_deprec(hid_t file)
{
- hid_t dataset, space, small_space, create_parms, dcpl;
- hsize_t dims[2], small_dims[2];
- hsize_t deprec_size;
- herr_t H5_ATTR_NDEBUG_UNUSED status;
- hsize_t csize[2];
+ hid_t dataset, space, small_space, create_parms, dcpl;
+ hsize_t dims[2], small_dims[2];
+ hsize_t deprec_size;
+ herr_t H5_ATTR_NDEBUG_UNUSED status;
+ hsize_t csize[2];
TESTING("deprecated API routines");
/* Create the data space */
dims[0] = 256;
dims[1] = 512;
- space = H5Screate_simple(2, dims, NULL);
- assert(space>=0);
+ space = H5Screate_simple(2, dims, NULL);
+ assert(space >= 0);
/* Create a small data space for compact dataset */
small_dims[0] = 16;
small_dims[1] = 8;
- small_space = H5Screate_simple(2, small_dims, NULL);
- assert(space>=0);
+ small_space = H5Screate_simple(2, small_dims, NULL);
+ assert(space >= 0);
/*
* Create a dataset using the default dataset creation properties. We're
* not sure what they are, so we won't check.
*/
- if((dataset = H5Dcreate1(file, DSET_DEPREC_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT)) < 0) goto error;
+ if ((dataset = H5Dcreate1(file, DSET_DEPREC_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT)) < 0)
+ goto error;
/* Close the dataset */
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
/*
* Try creating a dataset that already exists. This should fail since a
* dataset can only be created once. Temporarily turn off error
* reporting.
*/
- H5E_BEGIN_TRY {
- dataset = H5Dcreate1(file, DSET_DEFAULT_NAME, H5T_NATIVE_DOUBLE, space,
- H5P_DEFAULT);
- } H5E_END_TRY;
- if(dataset >= 0) {
- H5_FAILED();
- HDputs(" Library allowed overwrite of existing dataset.");
- goto error;
+ H5E_BEGIN_TRY { dataset = H5Dcreate1(file, DSET_DEFAULT_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT); }
+ H5E_END_TRY;
+ if (dataset >= 0) {
+ H5_FAILED();
+ HDputs(" Library allowed overwrite of existing dataset.");
+ goto error;
}
/*
* Open the dataset we created above and then close it. This is how
* existing datasets are accessed.
*/
- if((dataset = H5Dopen1(file, DSET_DEPREC_NAME)) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if ((dataset = H5Dopen1(file, DSET_DEPREC_NAME)) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
/*
* Try opening a non-existent dataset. This should fail since new datasets
* cannot be created with this function. Temporarily turn off error
* reporting.
*/
- H5E_BEGIN_TRY {
- dataset = H5Dopen1(file, "does_not_exist");
- } H5E_END_TRY;
- if(dataset >= 0) {
- H5_FAILED();
- HDputs(" Opened a non-existent dataset.");
- goto error;
+ H5E_BEGIN_TRY { dataset = H5Dopen1(file, "does_not_exist"); }
+ H5E_END_TRY;
+ if (dataset >= 0) {
+ H5_FAILED();
+ HDputs(" Opened a non-existent dataset.");
+ goto error;
}
/*
@@ -7729,66 +8306,73 @@ test_deprec(hid_t file)
/* Add the deflate filter, if available */
#if defined H5_HAVE_FILTER_DEFLATE
-{
- H5Z_filter_t filtn; /* filter identification number */
- size_t cd_nelmts = 1; /* Number of filter parameters */
- unsigned cd_value; /* Filter parameter */
+ {
+ H5Z_filter_t filtn; /* filter identification number */
+ size_t cd_nelmts = 1; /* Number of filter parameters */
+ unsigned cd_value; /* Filter parameter */
- if(H5Pset_deflate(create_parms, 6) < 0) goto error;
+ if (H5Pset_deflate(create_parms, 6) < 0)
+ goto error;
- /* Check for the deflate filter */
- filtn = H5Pget_filter1(create_parms, (unsigned)0, NULL, &cd_nelmts, &cd_value, (size_t)0, NULL);
- if(H5Z_FILTER_DEFLATE != filtn)
- goto error;
- if(1 != cd_nelmts)
- goto error;
- if(6 != cd_value)
- goto error;
+ /* Check for the deflate filter */
+ filtn = H5Pget_filter1(create_parms, (unsigned)0, NULL, &cd_nelmts, &cd_value, (size_t)0, NULL);
+ if (H5Z_FILTER_DEFLATE != filtn)
+ goto error;
+ if (1 != cd_nelmts)
+ goto error;
+ if (6 != cd_value)
+ goto error;
- /* Check for the deflate filter */
- if(H5Pget_filter_by_id1(create_parms, H5Z_FILTER_DEFLATE, NULL, &cd_nelmts, &cd_value, (size_t)0, NULL) < 0) goto error;
- if(1 != cd_nelmts)
- goto error;
- if(6 != cd_value)
- goto error;
-}
+ /* Check for the deflate filter */
+ if (H5Pget_filter_by_id1(create_parms, H5Z_FILTER_DEFLATE, NULL, &cd_nelmts, &cd_value, (size_t)0,
+ NULL) < 0)
+ goto error;
+ if (1 != cd_nelmts)
+ goto error;
+ if (6 != cd_value)
+ goto error;
+ }
#endif /* H5_HAVE_FILTER_DEFLATE */
/* Attempt to create a dataset with invalid chunk sizes */
- csize[0] = dims[0]*2;
- csize[1] = dims[1]*2;
- status = H5Pset_chunk(create_parms, 2, csize);
+ csize[0] = dims[0] * 2;
+ csize[1] = dims[1] * 2;
+ status = H5Pset_chunk(create_parms, 2, csize);
assert(status >= 0);
- H5E_BEGIN_TRY {
- dataset = H5Dcreate1(file, DSET_DEPREC_NAME_CHUNKED, H5T_NATIVE_DOUBLE, space,
- create_parms);
- } H5E_END_TRY;
- if(dataset >= 0) {
- H5_FAILED();
- HDputs(" Opened a dataset with incorrect chunking parameters.");
- goto error;
+ H5E_BEGIN_TRY
+ {
+ dataset = H5Dcreate1(file, DSET_DEPREC_NAME_CHUNKED, H5T_NATIVE_DOUBLE, space, create_parms);
+ }
+ H5E_END_TRY;
+ if (dataset >= 0) {
+ H5_FAILED();
+ HDputs(" Opened a dataset with incorrect chunking parameters.");
+ goto error;
}
csize[0] = 5;
csize[1] = 100;
- status = H5Pset_chunk(create_parms, 2, csize);
+ status = H5Pset_chunk(create_parms, 2, csize);
assert(status >= 0);
- if((dataset = H5Dcreate1(file, DSET_DEPREC_NAME_CHUNKED, H5T_NATIVE_DOUBLE, space, create_parms)) < 0) goto error;
+ if ((dataset = H5Dcreate1(file, DSET_DEPREC_NAME_CHUNKED, H5T_NATIVE_DOUBLE, space, create_parms)) < 0)
+ goto error;
H5Pclose(create_parms);
/*
* Close the chunked dataset.
*/
- if(H5Dclose(dataset) < 0) goto error;
-
+ if (H5Dclose(dataset) < 0)
+ goto error;
/*
* Open the dataset we created above and then close it. This is how
* existing datasets are accessed.
*/
- if((dataset = H5Dopen1(file, DSET_DEPREC_NAME_CHUNKED)) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if ((dataset = H5Dopen1(file, DSET_DEPREC_NAME_CHUNKED)) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
/*
* Create a compact dataset, then close it.
@@ -7800,36 +8384,47 @@ test_deprec(hid_t file)
status = H5Pset_alloc_time(create_parms, H5D_ALLOC_TIME_EARLY);
assert(status >= 0);
- if((dataset = H5Dcreate1(file, DSET_DEPREC_NAME_COMPACT, H5T_NATIVE_DOUBLE, small_space, create_parms)) < 0) goto error;
+ if ((dataset = H5Dcreate1(file, DSET_DEPREC_NAME_COMPACT, H5T_NATIVE_DOUBLE, small_space, create_parms)) <
+ 0)
+ goto error;
H5Pclose(create_parms);
- if(H5Dclose(dataset) < 0) goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
/*
* Open the dataset we created above and then close it. This is how
* existing datasets are accessed.
*/
- if((dataset = H5Dopen1(file, DSET_DEPREC_NAME_COMPACT)) < 0) goto error;
- if(H5Dclose(dataset) < 0) goto error;
+ if ((dataset = H5Dopen1(file, DSET_DEPREC_NAME_COMPACT)) < 0)
+ goto error;
+ if (H5Dclose(dataset) < 0)
+ goto error;
/* Test H5Zregister with deprecated H5Z_class1_t */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
- if(H5Pset_chunk(dcpl, 2, csize) < 0) goto error;
- if(H5Zregister(H5Z_DEPREC) < 0) goto error;
- if(H5Pset_filter(dcpl, H5Z_FILTER_DEPREC, 0, (size_t)0, NULL) < 0) goto error;
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ goto error;
+ if (H5Pset_chunk(dcpl, 2, csize) < 0)
+ goto error;
+ if (H5Zregister(H5Z_DEPREC) < 0)
+ goto error;
+ if (H5Pset_filter(dcpl, H5Z_FILTER_DEPREC, 0, (size_t)0, NULL) < 0)
+ goto error;
HDputs("");
- if(test_filter_internal(file,DSET_DEPREC_NAME_FILTER,dcpl,DISABLE_FLETCHER32,DATA_NOT_CORRUPTED,&deprec_size) < 0) goto error;
+ if (test_filter_internal(file, DSET_DEPREC_NAME_FILTER, dcpl, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED,
+ &deprec_size) < 0)
+ goto error;
- if(H5Pclose(dcpl) < 0) goto error;
+ if (H5Pclose(dcpl) < 0)
+ goto error;
return SUCCEED;
- error:
+error:
return FAIL;
} /* end test_deprec() */
#endif /* H5_NO_DEPRECATED_SYMBOLS */
-
/*-------------------------------------------------------------------------
* Function: test_huge_chunks
*
@@ -7846,102 +8441,114 @@ test_deprec(hid_t file)
static herr_t
test_huge_chunks(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t sid = -1; /* Dataspace ID */
- hid_t dsid = -1; /* Dataset ID */
- hsize_t dim, chunk_dim; /* Dataset and chunk dimensions */
- hsize_t dim2[3], chunk_dim2[3]; /* Dataset and chunk dimensions */
- herr_t ret; /* Generic return value */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t dsid = -1; /* Dataset ID */
+ hsize_t dim, chunk_dim; /* Dataset and chunk dimensions */
+ hsize_t dim2[3], chunk_dim2[3]; /* Dataset and chunk dimensions */
+ herr_t ret; /* Generic return value */
TESTING("creating dataset with >4GB chunks");
h5_fixname(FILENAME[7], fapl, filename, sizeof filename);
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Try to set too large of a chunk for 1-D dataset (# of elements) */
chunk_dim = TOO_HUGE_CHUNK_DIM;
- H5E_BEGIN_TRY {
- ret = H5Pset_chunk(dcpl, 1, &chunk_dim);
- } H5E_END_TRY;
- if(ret >= 0)
- FAIL_PUTS_ERROR(" Set chunk size with too large of chunk dimensions.")
+ H5E_BEGIN_TRY { ret = H5Pset_chunk(dcpl, 1, &chunk_dim); }
+ H5E_END_TRY;
+ if (ret >= 0)
+ FAIL_PUTS_ERROR(" Set chunk size with too large of chunk dimensions.")
/* Try to set too large of a chunk for n-D dataset (# of elements) */
chunk_dim2[0] = TOO_HUGE_CHUNK_DIM2_0;
chunk_dim2[1] = TOO_HUGE_CHUNK_DIM2_1;
chunk_dim2[2] = TOO_HUGE_CHUNK_DIM2_2;
- H5E_BEGIN_TRY {
- ret = H5Pset_chunk(dcpl, 3, chunk_dim2);
- } H5E_END_TRY;
- if(ret >= 0)
- FAIL_PUTS_ERROR(" Set chunk size with too large of chunk dimensions.")
+ H5E_BEGIN_TRY { ret = H5Pset_chunk(dcpl, 3, chunk_dim2); }
+ H5E_END_TRY;
+ if (ret >= 0)
+ FAIL_PUTS_ERROR(" Set chunk size with too large of chunk dimensions.")
/* Set 1-D chunk size */
chunk_dim = HUGE_CHUNK_DIM;
- if(H5Pset_chunk(dcpl, 1, &chunk_dim) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 1, &chunk_dim) < 0)
+ FAIL_STACK_ERROR
/* Create 1-D dataspace */
dim = HUGE_DIM;
- if((sid = H5Screate_simple(1, &dim, NULL)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(1, &dim, NULL)) < 0)
+ FAIL_STACK_ERROR
/* Try to create dataset */
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
dsid = H5Dcreate2(fid, HUGE_DATASET, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dsid >= 0)
- FAIL_PUTS_ERROR(" 1-D Dataset with too large of chunk dimensions created.")
+ }
+ H5E_END_TRY;
+ if (dsid >= 0)
+ FAIL_PUTS_ERROR(" 1-D Dataset with too large of chunk dimensions created.")
/* Close 1-D dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
-
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
/* Set n-D chunk size */
chunk_dim2[0] = HUGE_CHUNK_DIM2_0;
chunk_dim2[1] = HUGE_CHUNK_DIM2_1;
chunk_dim2[2] = HUGE_CHUNK_DIM2_2;
- if(H5Pset_chunk(dcpl, 3, chunk_dim2) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 3, chunk_dim2) < 0)
+ FAIL_STACK_ERROR
/* Create n-D dataspace */
dim2[0] = HUGE_DIM2_0;
dim2[1] = HUGE_DIM2_1;
dim2[2] = HUGE_DIM2_2;
- if((sid = H5Screate_simple(3, dim2, NULL)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(3, dim2, NULL)) < 0)
+ FAIL_STACK_ERROR
/* Try to create dataset */
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
dsid = H5Dcreate2(fid, HUGE_DATASET2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dsid >= 0)
- FAIL_PUTS_ERROR(" n-D Dataset with too large of chunk dimensions created.")
+ }
+ H5E_END_TRY;
+ if (dsid >= 0)
+ FAIL_PUTS_ERROR(" n-D Dataset with too large of chunk dimensions created.")
/* Close n-D dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
/* Close everything else */
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(dsid);
H5Sclose(sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_huge_chunks() */
-
/*-------------------------------------------------------------------------
* Function: test_chunk_cache
*
@@ -7959,184 +8566,227 @@ error:
static herr_t
test_chunk_cache(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t fapl_local = -1; /* Local fapl */
- hid_t fapl_def = -1; /* Default fapl */
- hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t dapl1 = -1; /* Dataset access property list ID */
- hid_t dapl2 = -1; /* Dataset access property list ID */
- hid_t sid = -1; /* Dataspace ID */
- hid_t dsid = -1; /* Dataset ID */
- hsize_t dim, chunk_dim; /* Dataset and chunk dimensions */
- size_t nslots_1, nslots_2, nslots_3, nslots_4; /* rdcc number of elements */
- size_t nbytes_1, nbytes_2, nbytes_3, nbytes_4; /* rdcc number of bytes */
- size_t nlinks; /* Number of link traversals */
- double w0_1, w0_2, w0_3, w0_4; /* rdcc preemption policy */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t fapl_local = -1; /* Local fapl */
+ hid_t fapl_def = -1; /* Default fapl */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
+ hid_t dapl1 = -1; /* Dataset access property list ID */
+ hid_t dapl2 = -1; /* Dataset access property list ID */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t dsid = -1; /* Dataset ID */
+ hsize_t dim, chunk_dim; /* Dataset and chunk dimensions */
+ size_t nslots_1, nslots_2, nslots_3, nslots_4; /* rdcc number of elements */
+ size_t nbytes_1, nbytes_2, nbytes_3, nbytes_4; /* rdcc number of bytes */
+ size_t nlinks; /* Number of link traversals */
+ double w0_1, w0_2, w0_3, w0_4; /* rdcc preemption policy */
TESTING("dataset chunk cache configuration");
/* Create a default fapl and dapl */
- if ((fapl_def = H5Pcreate(H5P_FILE_ACCESS)) < 0) FAIL_STACK_ERROR
- if ((dapl1 = H5Pcreate(H5P_DATASET_ACCESS)) < 0) FAIL_STACK_ERROR
+ if ((fapl_def = H5Pcreate(H5P_FILE_ACCESS)) < 0)
+ FAIL_STACK_ERROR
+ if ((dapl1 = H5Pcreate(H5P_DATASET_ACCESS)) < 0)
+ FAIL_STACK_ERROR
/* Verify that H5Pget_chunk_cache(dapl) returns the same values as are in
* the default fapl.
*/
- if (H5Pget_cache(fapl_def, NULL, &nslots_1, &nbytes_1, &w0_1) < 0) FAIL_STACK_ERROR
- if (H5Pget_chunk_cache(dapl1, &nslots_4, &nbytes_4, &w0_4) < 0) FAIL_STACK_ERROR
+ if (H5Pget_cache(fapl_def, NULL, &nslots_1, &nbytes_1, &w0_1) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pget_chunk_cache(dapl1, &nslots_4, &nbytes_4, &w0_4) < 0)
+ FAIL_STACK_ERROR
if ((nslots_1 != nslots_4) || (nbytes_1 != nbytes_4) || !H5_DBL_ABS_EQUAL(w0_1, w0_4))
FAIL_PUTS_ERROR(" Cache values from default dapl do not match those from fapl.")
/* Set a lapl property on dapl1 (to verify inheritance) */
- if (H5Pset_nlinks(dapl1, (size_t)134) < 0) FAIL_STACK_ERROR
- if (H5Pget_nlinks(dapl1, &nlinks) < 0) FAIL_STACK_ERROR
+ if (H5Pset_nlinks(dapl1, (size_t)134) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pget_nlinks(dapl1, &nlinks) < 0)
+ FAIL_STACK_ERROR
if (nlinks != 134)
FAIL_PUTS_ERROR(" nlinks parameter not set properly on dapl.")
/* Copy fapl passed to this function (as we will be modifying it) */
- if ((fapl_local = H5Pcopy(fapl)) < 0) FAIL_STACK_ERROR
+ if ((fapl_local = H5Pcopy(fapl)) < 0)
+ FAIL_STACK_ERROR
/* Set new rdcc settings on fapl */
nslots_2 = nslots_1 * 2;
nbytes_2 = nbytes_1 * 2;
- w0_2 = w0_1 / (double)2.0F;
- if (H5Pset_cache(fapl_local, 0, nslots_2, nbytes_2, w0_2) < 0) FAIL_STACK_ERROR
+ w0_2 = w0_1 / (double)2.0F;
+ if (H5Pset_cache(fapl_local, 0, nslots_2, nbytes_2, w0_2) < 0)
+ FAIL_STACK_ERROR
h5_fixname(FILENAME[8], fapl, filename, sizeof filename);
/* Create file */
- if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_local)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_local)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset creation property list */
- if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Set chunking */
chunk_dim = 10;
- if (H5Pset_chunk(dcpl, 1, &chunk_dim) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 1, &chunk_dim) < 0)
+ FAIL_STACK_ERROR
/* Create 1-D dataspace */
dim = 100;
- if ((sid = H5Screate_simple(1, &dim, NULL)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(1, &dim, NULL)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset with default dapl */
if ((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, dapl1)) < 0)
FAIL_STACK_ERROR
/* Retrieve dapl from dataset, verfiy cache values are the same as on fapl_local */
- if ((dapl2 = H5Dget_access_plist(dsid)) < 0) FAIL_STACK_ERROR
- if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0) FAIL_STACK_ERROR
+ if ((dapl2 = H5Dget_access_plist(dsid)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0)
+ FAIL_STACK_ERROR
if ((nslots_2 != nslots_4) || (nbytes_2 != nbytes_4) || !H5_DBL_ABS_EQUAL(w0_2, w0_4))
FAIL_PUTS_ERROR(" Cache values from retrieved dapl do not match those from fapl.")
- if (H5Pclose(dapl2) < 0) FAIL_STACK_ERROR
+ if (H5Pclose(dapl2) < 0)
+ FAIL_STACK_ERROR
/* Set new values on dapl1. nbytes will be set to default, so the file
* property will override this setting */
nslots_3 = nslots_2 * 2;
nbytes_3 = H5D_CHUNK_CACHE_NBYTES_DEFAULT;
- w0_3 = w0_2 / 2;
- if (H5Pset_chunk_cache(dapl1, nslots_3, nbytes_3, w0_3) < 0) FAIL_STACK_ERROR
+ w0_3 = w0_2 / 2;
+ if (H5Pset_chunk_cache(dapl1, nslots_3, nbytes_3, w0_3) < 0)
+ FAIL_STACK_ERROR
/* Close dataset, reopen with dapl1. Note the use of a dapl with H5Oopen */
- if (H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if ((dsid = H5Oopen(fid, "dset", dapl1)) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if ((dsid = H5Oopen(fid, "dset", dapl1)) < 0)
+ FAIL_STACK_ERROR
/* Retrieve dapl from dataset, verfiy cache values are the same as on dapl1 */
/* Note we rely on the knowledge that H5Pget_chunk_cache retrieves these
* values directly from the dataset structure, and not from a copy of the
* dapl used to open the dataset (which is not preserved).
*/
- if ((dapl2 = H5Dget_access_plist(dsid)) < 0) FAIL_STACK_ERROR
- if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0) FAIL_STACK_ERROR
+ if ((dapl2 = H5Dget_access_plist(dsid)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0)
+ FAIL_STACK_ERROR
if ((nslots_3 != nslots_4) || (nbytes_2 != nbytes_4) || !H5_DBL_ABS_EQUAL(w0_3, w0_4))
FAIL_PUTS_ERROR(" Cache values from retrieved dapl do not match those from dapl1.")
- if (H5Pclose(dapl2) < 0) FAIL_STACK_ERROR
+ if (H5Pclose(dapl2) < 0)
+ FAIL_STACK_ERROR
/* Close dataset, reopen with H5P_DEFAULT as dapl */
- if (H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if ((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Retrieve dapl from dataset, verfiy cache values are the same on fapl_local */
- if ((dapl2 = H5Dget_access_plist(dsid)) < 0) FAIL_STACK_ERROR
- if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0) FAIL_STACK_ERROR
+ if ((dapl2 = H5Dget_access_plist(dsid)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0)
+ FAIL_STACK_ERROR
if ((nslots_2 != nslots_4) || (nbytes_2 != nbytes_4) || !H5_DBL_ABS_EQUAL(w0_2, w0_4))
FAIL_PUTS_ERROR(" Cache values from retrieved dapl do not match those from fapl.")
- if (H5Pclose(dapl2) < 0) FAIL_STACK_ERROR
+ if (H5Pclose(dapl2) < 0)
+ FAIL_STACK_ERROR
/* Similary, test use of H5Dcreate2 with H5P_DEFAULT */
- if (H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
if ((dsid = H5Dcreate2(fid, "dset2", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
- if ((dapl2 = H5Dget_access_plist(dsid)) < 0) FAIL_STACK_ERROR
- if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0) FAIL_STACK_ERROR
+ if ((dapl2 = H5Dget_access_plist(dsid)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0)
+ FAIL_STACK_ERROR
if ((nslots_2 != nslots_4) || (nbytes_2 != nbytes_4) || !H5_DBL_ABS_EQUAL(w0_2, w0_4))
FAIL_PUTS_ERROR(" Cache values from retrieved dapl do not match those from fapl.")
/* Don't close dapl2, we will use it in the next section */
/* Modify cache values on fapl_local */
nbytes_3 = nbytes_2 * 2;
- if (H5Pset_cache(fapl_local, 0, nslots_3, nbytes_3, w0_3) < 0) FAIL_STACK_ERROR
+ if (H5Pset_cache(fapl_local, 0, nslots_3, nbytes_3, w0_3) < 0)
+ FAIL_STACK_ERROR
/* Close and reopen file with new fapl_local */
- if (H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if (H5Fclose(fid) < 0) FAIL_STACK_ERROR
- if ((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl_local)) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
+ if ((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl_local)) < 0)
+ FAIL_STACK_ERROR
/* Verify that dapl2 retrieved earlier (using values from the old fapl)
* sets its values in the new file (test use of H5Dopen2 with a dapl)
*/
- if ((dsid = H5Dopen2(fid, "dset", dapl2)) < 0) FAIL_STACK_ERROR
- if (H5Pclose(dapl2) < 0) FAIL_STACK_ERROR /* Close dapl2, to avoid id leak */
- if ((dapl2 = H5Dget_access_plist(dsid)) < 0) FAIL_STACK_ERROR
- if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0) FAIL_STACK_ERROR
- if ((nslots_2 != nslots_4) || (nbytes_2 != nbytes_4) || !H5_DBL_ABS_EQUAL(w0_2, w0_4))
- FAIL_PUTS_ERROR(" Cache values from retrieved dapl do not match those from dapl2.")
+ if ((dsid = H5Dopen2(fid, "dset", dapl2)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dapl2) < 0)
+ FAIL_STACK_ERROR /* Close dapl2, to avoid id leak */
+ if ((dapl2 = H5Dget_access_plist(dsid)) < 0)
+ FAIL_STACK_ERROR if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0)
+ FAIL_STACK_ERROR if ((nslots_2 != nslots_4) || (nbytes_2 != nbytes_4) ||
+ !H5_DBL_ABS_EQUAL(w0_2, w0_4))
+ FAIL_PUTS_ERROR(" Cache values from retrieved dapl do not match those from dapl2.")
- /* Test H5D_CHUNK_CACHE_NSLOTS_DEFAULT and H5D_CHUNK_CACHE_W0_DEFAULT */
- nslots_2 = H5D_CHUNK_CACHE_NSLOTS_DEFAULT;
+ /* Test H5D_CHUNK_CACHE_NSLOTS_DEFAULT and H5D_CHUNK_CACHE_W0_DEFAULT */
+ nslots_2 = H5D_CHUNK_CACHE_NSLOTS_DEFAULT;
w0_2 = H5D_CHUNK_CACHE_W0_DEFAULT;
- if (H5Pset_chunk_cache(dapl2, nslots_2, nbytes_2, w0_2) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk_cache(dapl2, nslots_2, nbytes_2, w0_2) < 0)
+ FAIL_STACK_ERROR
- if (H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if ((dsid = H5Dopen2(fid, "dset", dapl2)) < 0) FAIL_STACK_ERROR
- if (H5Pclose(dapl2) < 0) FAIL_STACK_ERROR /* Close dapl2, to avoid id leak */
- if ((dapl2 = H5Dget_access_plist(dsid)) < 0) FAIL_STACK_ERROR
- if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0) FAIL_STACK_ERROR
- if ((nslots_3 != nslots_4) || (nbytes_2 != nbytes_4) || !H5_DBL_ABS_EQUAL(w0_3, w0_4))
- FAIL_PUTS_ERROR(" Cache values from retrieved dapl do not match those expected.")
- if (H5Pclose(dapl2) < 0) FAIL_STACK_ERROR
-
- /* Verify that the file has indeed started using the new cache values (test
- * use of H5Oopen with H5P_DEFAULT) */
- if (H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if ((dsid = H5Oopen(fid, "dset", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
- if ((dapl2 = H5Dget_access_plist(dsid)) < 0) FAIL_STACK_ERROR
- if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0) FAIL_STACK_ERROR
- if ((nslots_3 != nslots_4) || (nbytes_3 != nbytes_4) || !H5_DBL_ABS_EQUAL(w0_3, w0_4))
- FAIL_PUTS_ERROR(" Cache values from retrieved dapl do not match those from fapl.")
- if (H5Pclose(dapl2) < 0) FAIL_STACK_ERROR
-
- /* Verify functionality of H5Pcopy with a dapl */
- if ((dapl2 = H5Pcopy(dapl1)) < 0) FAIL_STACK_ERROR
- if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0) FAIL_STACK_ERROR
- if ((nslots_3 != nslots_4) || (nbytes_1 != nbytes_4) || !H5_DBL_ABS_EQUAL(w0_3, w0_4))
- FAIL_PUTS_ERROR(" Cache values from dapl2 do not match those from dapl1.")
-
- /* Close */
- if (H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if (H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if (H5Pclose(fapl_local) < 0) FAIL_STACK_ERROR
- if (H5Pclose(fapl_def) < 0) FAIL_STACK_ERROR
- if (H5Pclose(dapl1) < 0) FAIL_STACK_ERROR
- if (H5Pclose(dapl2) < 0) FAIL_STACK_ERROR
- if (H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if (H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset", dapl2)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dapl2) < 0)
+ FAIL_STACK_ERROR /* Close dapl2, to avoid id leak */
+ if ((dapl2 = H5Dget_access_plist(dsid)) <
+ 0) FAIL_STACK_ERROR if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) <
+ 0) FAIL_STACK_ERROR if ((nslots_3 != nslots_4) ||
+ (nbytes_2 != nbytes_4) ||
+ !H5_DBL_ABS_EQUAL(w0_3, w0_4))
+ FAIL_PUTS_ERROR(
+ " Cache values from retrieved dapl do not match those expected.") if (H5Pclose(dapl2) <
+ 0)
+ FAIL_STACK_ERROR
- PASSED();
+ /* Verify that the file has indeed started using the new cache values (test
+ * use of H5Oopen with H5P_DEFAULT) */
+ if (H5Dclose(dsid) < 0) FAIL_STACK_ERROR if ((dsid = H5Oopen(fid, "dset", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR if ((dapl2 = H5Dget_access_plist(dsid)) < 0)
+ FAIL_STACK_ERROR if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0)
+ FAIL_STACK_ERROR if ((nslots_3 != nslots_4) || (nbytes_3 != nbytes_4) ||
+ !H5_DBL_ABS_EQUAL(w0_3, w0_4))
+ FAIL_PUTS_ERROR(" Cache values from retrieved dapl do not match those from "
+ "fapl.") if (H5Pclose(dapl2) < 0) FAIL_STACK_ERROR
+
+ /* Verify functionality of H5Pcopy with a dapl */
+ if ((dapl2 = H5Pcopy(dapl1)) < 0)
+ FAIL_STACK_ERROR if (H5Pget_chunk_cache(dapl2, &nslots_4, &nbytes_4, &w0_4) < 0)
+ FAIL_STACK_ERROR if ((nslots_3 != nslots_4) || (nbytes_1 != nbytes_4) ||
+ !H5_DBL_ABS_EQUAL(w0_3, w0_4))
+ FAIL_PUTS_ERROR(" Cache values from dapl2 do not match those from dapl1.")
+
+ /* Close */
+ if (H5Dclose(dsid) < 0) FAIL_STACK_ERROR if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR if (H5Pclose(fapl_local) < 0) FAIL_STACK_ERROR if (H5Pclose(fapl_def) < 0)
+ FAIL_STACK_ERROR if (H5Pclose(dapl1) < 0) FAIL_STACK_ERROR if (H5Pclose(dapl2) < 0)
+ FAIL_STACK_ERROR if (H5Pclose(dcpl) < 0) FAIL_STACK_ERROR if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
+
+ PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(fapl_local);
H5Pclose(fapl_def);
H5Pclose(dapl1);
@@ -8145,11 +8795,11 @@ error:
H5Dclose(dsid);
H5Sclose(sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_chunk_cache() */
-
/*-------------------------------------------------------------------------
* Function: test_big_chunks_bypass_cache
*
@@ -8171,121 +8821,145 @@ error:
static herr_t
test_big_chunks_bypass_cache(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t fapl_local = -1; /* File access property list ID */
- hid_t dcpl = -1, t_dcpl = -1; /* Dataset creation property list ID */
- hid_t sid = -1, t_sid = -1; /* Dataspace ID */
- hid_t mid; /* Memory space ID */
- hid_t dsid = -1, t_dsid = -1; /* Dataset ID */
- hsize_t dim, chunk_dim; /* Dataset and chunk dimensions */
- hsize_t t_dim[2], t_max[2], t_chunk_dim[2]; /* Dataset and chunk dimensions */
- size_t rdcc_nelmts, rdcc_nbytes; /* Chunk cache parameters */
- int fvalue = BYPASS_FILL_VALUE; /* Fill value */
- hsize_t count, stride, offset, block; /* Setting for hyperslab (1-D) */
- hsize_t t_count[2], t_stride[2], t_offset[2], t_block[2]; /* Setting for hyperslab (2-D) */
- /* Buffers for reading and writing data (1-D) */
- int *wdata = NULL, *rdata1 = NULL, *rdata2 = NULL;
- /* Buffers for reading and writing data (2-D) */
- int **t_wdata = NULL;
- int **t_rdata1 = NULL;
- int **t_rdata2 = NULL;
- int *t_wdata_bytes = NULL;
- int *t_rdata1_bytes = NULL;
- int *t_rdata2_bytes = NULL;
- int i, j; /* Local index variables */
- H5F_libver_t low; /* File format low bound */
- H5D_chunk_index_t idx_type, t_idx_type; /* Dataset chunk index types */
-
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t fapl_local = -1; /* File access property list ID */
+ hid_t dcpl = -1, t_dcpl = -1; /* Dataset creation property list ID */
+ hid_t sid = -1, t_sid = -1; /* Dataspace ID */
+ hid_t mid; /* Memory space ID */
+ hid_t dsid = -1, t_dsid = -1; /* Dataset ID */
+ hsize_t dim, chunk_dim; /* Dataset and chunk dimensions */
+ hsize_t t_dim[2], t_max[2], t_chunk_dim[2]; /* Dataset and chunk dimensions */
+ size_t rdcc_nelmts, rdcc_nbytes; /* Chunk cache parameters */
+ int fvalue = BYPASS_FILL_VALUE; /* Fill value */
+ hsize_t count, stride, offset, block; /* Setting for hyperslab (1-D) */
+ hsize_t t_count[2], t_stride[2], t_offset[2], t_block[2]; /* Setting for hyperslab (2-D) */
+ /* Buffers for reading and writing data (1-D) */
+ int *wdata = NULL, *rdata1 = NULL, *rdata2 = NULL;
+ /* Buffers for reading and writing data (2-D) */
+ int ** t_wdata = NULL;
+ int ** t_rdata1 = NULL;
+ int ** t_rdata2 = NULL;
+ int * t_wdata_bytes = NULL;
+ int * t_rdata1_bytes = NULL;
+ int * t_rdata2_bytes = NULL;
+ int i, j; /* Local index variables */
+ H5F_libver_t low; /* File format low bound */
+ H5D_chunk_index_t idx_type, t_idx_type; /* Dataset chunk index types */
TESTING("big chunks bypassing the cache");
h5_fixname(FILENAME[9], fapl, filename, sizeof filename);
/* Set up data arrays */
- if(NULL == (t_wdata_bytes = (int *)HDcalloc((BYPASS_CHUNK_DIM/2) * (BYPASS_CHUNK_DIM/2), sizeof(int))))
+ if (NULL ==
+ (t_wdata_bytes = (int *)HDcalloc((BYPASS_CHUNK_DIM / 2) * (BYPASS_CHUNK_DIM / 2), sizeof(int))))
TEST_ERROR;
- if(NULL == (t_wdata = (int **)HDcalloc((BYPASS_CHUNK_DIM/2), sizeof(t_wdata_bytes))))
+ if (NULL == (t_wdata = (int **)HDcalloc((BYPASS_CHUNK_DIM / 2), sizeof(t_wdata_bytes))))
TEST_ERROR;
- for (i = 0; i < (BYPASS_CHUNK_DIM/2); i++)
- t_wdata[i] = t_wdata_bytes + (i * (BYPASS_CHUNK_DIM/2));
+ for (i = 0; i < (BYPASS_CHUNK_DIM / 2); i++)
+ t_wdata[i] = t_wdata_bytes + (i * (BYPASS_CHUNK_DIM / 2));
- if(NULL == (t_rdata1_bytes = (int *)HDcalloc(BYPASS_DIM * BYPASS_DIM, sizeof(int))))
+ if (NULL == (t_rdata1_bytes = (int *)HDcalloc(BYPASS_DIM * BYPASS_DIM, sizeof(int))))
TEST_ERROR;
- if(NULL == (t_rdata1 = (int **)HDcalloc(BYPASS_DIM, sizeof(t_rdata1_bytes))))
+ if (NULL == (t_rdata1 = (int **)HDcalloc(BYPASS_DIM, sizeof(t_rdata1_bytes))))
TEST_ERROR;
for (i = 0; i < BYPASS_DIM; i++)
t_rdata1[i] = t_rdata1_bytes + (i * BYPASS_DIM);
- if(NULL == (t_rdata2_bytes = (int *)HDcalloc((BYPASS_CHUNK_DIM/2) * (BYPASS_CHUNK_DIM/2), sizeof(int))))
+ if (NULL ==
+ (t_rdata2_bytes = (int *)HDcalloc((BYPASS_CHUNK_DIM / 2) * (BYPASS_CHUNK_DIM / 2), sizeof(int))))
TEST_ERROR;
- if(NULL == (t_rdata2 = (int **)HDcalloc((BYPASS_CHUNK_DIM/2), sizeof(t_rdata2_bytes))))
+ if (NULL == (t_rdata2 = (int **)HDcalloc((BYPASS_CHUNK_DIM / 2), sizeof(t_rdata2_bytes))))
TEST_ERROR;
- for (i = 0; i < (BYPASS_CHUNK_DIM/2); i++)
- t_rdata2[i] = t_rdata2_bytes + (i * (BYPASS_CHUNK_DIM/2));
+ for (i = 0; i < (BYPASS_CHUNK_DIM / 2); i++)
+ t_rdata2[i] = t_rdata2_bytes + (i * (BYPASS_CHUNK_DIM / 2));
-
- /* Check if we are using the latest version of the format */
- if(H5Pget_libver_bounds(fapl, &low, NULL) < 0) FAIL_STACK_ERROR
+ /* Check if we are using the latest version of the format */
+ if (H5Pget_libver_bounds(fapl, &low, NULL) < 0)
+ FAIL_STACK_ERROR
/* Copy fapl passed to this function (as we will be modifying it) */
- if((fapl_local = H5Pcopy(fapl)) < 0) FAIL_STACK_ERROR
+ if ((fapl_local = H5Pcopy(fapl)) < 0)
+ FAIL_STACK_ERROR
/* Define cache size to be smaller than chunk size */
- rdcc_nelmts = BYPASS_CHUNK_DIM/5;
- rdcc_nbytes = sizeof(int)*BYPASS_CHUNK_DIM/5;
- if(H5Pset_cache(fapl_local, 0, rdcc_nelmts, rdcc_nbytes, 0.0F) < 0) FAIL_STACK_ERROR
+ rdcc_nelmts = BYPASS_CHUNK_DIM / 5;
+ rdcc_nbytes = sizeof(int) * BYPASS_CHUNK_DIM / 5;
+ if (H5Pset_cache(fapl_local, 0, rdcc_nelmts, rdcc_nbytes, 0.0F) < 0)
+ FAIL_STACK_ERROR
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_local)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_local)) < 0)
+ FAIL_STACK_ERROR
/* Create 1-D & 2-D dataspace */
dim = t_dim[0] = t_dim[1] = BYPASS_DIM;
t_max[0] = t_max[1] = H5S_UNLIMITED;
- if((sid = H5Screate_simple(1, &dim, NULL)) < 0) FAIL_STACK_ERROR
- if((t_sid = H5Screate_simple(2, t_dim, t_max)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(1, &dim, NULL)) < 0)
+ FAIL_STACK_ERROR
+ if ((t_sid = H5Screate_simple(2, t_dim, t_max)) < 0)
+ FAIL_STACK_ERROR
/* Create 1-D & 2-D dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
- if((t_dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
+ if ((t_dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Define chunk size. */
/* There will be 2 chunks in 1-D dataset & 4 chunks in the 2-D dataset */
chunk_dim = t_chunk_dim[0] = t_chunk_dim[1] = BYPASS_CHUNK_DIM;
- if(H5Pset_chunk(dcpl, 1, &chunk_dim) < 0) FAIL_STACK_ERROR
- if(H5Pset_chunk(t_dcpl, 2, t_chunk_dim) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 1, &chunk_dim) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_chunk(t_dcpl, 2, t_chunk_dim) < 0)
+ FAIL_STACK_ERROR
/* Define fill value, fill time, and chunk allocation time */
- if(H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fvalue) < 0) FAIL_STACK_ERROR
- if(H5Pset_fill_value(t_dcpl, H5T_NATIVE_INT, &fvalue) < 0) FAIL_STACK_ERROR
+ if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fvalue) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_fill_value(t_dcpl, H5T_NATIVE_INT, &fvalue) < 0)
+ FAIL_STACK_ERROR
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_IFSET) < 0) FAIL_STACK_ERROR
- if(H5Pset_fill_time(t_dcpl, H5D_FILL_TIME_IFSET) < 0) FAIL_STACK_ERROR
+ if (H5Pset_fill_time(dcpl, H5D_FILL_TIME_IFSET) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_fill_time(t_dcpl, H5D_FILL_TIME_IFSET) < 0)
+ FAIL_STACK_ERROR
- if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_INCR) < 0) FAIL_STACK_ERROR
- if(H5Pset_alloc_time(t_dcpl, H5D_ALLOC_TIME_INCR) < 0) FAIL_STACK_ERROR
+ if (H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_INCR) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_alloc_time(t_dcpl, H5D_ALLOC_TIME_INCR) < 0)
+ FAIL_STACK_ERROR
/* Create the first 1-D dataset */
- if((dsid = H5Dcreate2(fid, BYPASS_DATASET1, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, BYPASS_DATASET1, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Create the first 2-D dataset */
- if((t_dsid = H5Dcreate2(fid, T_BYPASS_DATASET1, H5T_NATIVE_INT, t_sid, H5P_DEFAULT, t_dcpl, H5P_DEFAULT)) < 0)
+ if ((t_dsid =
+ H5Dcreate2(fid, T_BYPASS_DATASET1, H5T_NATIVE_INT, t_sid, H5P_DEFAULT, t_dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Get the chunk index types for 1-D and 2-d datasets */
- if(H5D__layout_idx_type_test(dsid, &idx_type) < 0) FAIL_STACK_ERROR
- if(H5D__layout_idx_type_test(t_dsid, &t_idx_type) < 0) FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(dsid, &idx_type) < 0)
+ FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(t_dsid, &t_idx_type) < 0)
+ FAIL_STACK_ERROR
/* Chunk index type expected depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST) {
- /* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_FARRAY) FAIL_PUTS_ERROR("should be using Fixed Array as index");
- if(t_idx_type != H5D_CHUNK_IDX_BT2) FAIL_PUTS_ERROR("should be using v2 B-tree as index");
- } else {
- /* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_BTREE) FAIL_PUTS_ERROR("should be using v1 B-tree as index");
- if(t_idx_type != H5D_CHUNK_IDX_BTREE) FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (low == H5F_LIBVER_LATEST) {
+ /* Verify index type */
+ if (idx_type != H5D_CHUNK_IDX_FARRAY)
+ FAIL_PUTS_ERROR("should be using Fixed Array as index");
+ if (t_idx_type != H5D_CHUNK_IDX_BT2)
+ FAIL_PUTS_ERROR("should be using v2 B-tree as index");
+ }
+ else {
+ /* Verify index type */
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (t_idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
} /* end else */
/* Select first chunk to write the data */
@@ -8293,27 +8967,27 @@ test_big_chunks_bypass_cache(hid_t fapl)
count = t_count[0] = t_count[1] = 1;
stride = t_stride[0] = t_stride[1] = 1;
block = t_block[0] = t_block[1] = BYPASS_CHUNK_DIM / 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, &offset, &stride, &count, &block) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, &offset, &stride, &count, &block) < 0)
FAIL_STACK_ERROR
- if(H5Sselect_hyperslab(t_sid, H5S_SELECT_SET, t_offset, t_stride, t_count, t_block) < 0)
+ if (H5Sselect_hyperslab(t_sid, H5S_SELECT_SET, t_offset, t_stride, t_count, t_block) < 0)
FAIL_STACK_ERROR
/* Allocate buffers */
- if(NULL == (wdata = (int *)HDmalloc(sizeof(int) * (BYPASS_CHUNK_DIM / 2))))
+ if (NULL == (wdata = (int *)HDmalloc(sizeof(int) * (BYPASS_CHUNK_DIM / 2))))
TEST_ERROR
- if(NULL == (rdata1 = (int *)HDmalloc(sizeof(int) * BYPASS_DIM)))
+ if (NULL == (rdata1 = (int *)HDmalloc(sizeof(int) * BYPASS_DIM)))
TEST_ERROR
- if(NULL == (rdata2 = (int *)HDmalloc(sizeof(int) * (BYPASS_CHUNK_DIM / 2))))
+ if (NULL == (rdata2 = (int *)HDmalloc(sizeof(int) * (BYPASS_CHUNK_DIM / 2))))
TEST_ERROR
/* Initialize data to write for 1-D dataset */
- for(i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
+ for (i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
wdata[i] = i;
/* Initialize data to write for 2-D dataset */
- for(i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
- for(j = 0; j < BYPASS_CHUNK_DIM / 2; j++)
+ for (i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
+ for (j = 0; j < BYPASS_CHUNK_DIM / 2; j++)
t_wdata[i][j] = j;
/* Set up memory space for the 2-D dataset */
@@ -8321,125 +8995,149 @@ test_big_chunks_bypass_cache(hid_t fapl)
/* Write to the first 1-D & 2-D datasets */
/* This write should go through the cache because fill value is used. */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, wdata) < 0)
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, wdata) < 0)
FAIL_STACK_ERROR
- if(H5Dwrite(t_dsid, H5T_NATIVE_INT, mid, t_sid, H5P_DEFAULT, t_wdata_bytes) < 0)
+ if (H5Dwrite(t_dsid, H5T_NATIVE_INT, mid, t_sid, H5P_DEFAULT, t_wdata_bytes) < 0)
FAIL_STACK_ERROR
/* Close the first 1-D & 2-D datasets */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(t_dsid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(t_dsid) < 0)
+ FAIL_STACK_ERROR
/* Reopen the first 1-D & 2-D datasets */
- if((dsid = H5Dopen2(fid, BYPASS_DATASET1, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
- if((t_dsid = H5Dopen2(fid, T_BYPASS_DATASET1, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, BYPASS_DATASET1, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
+ if ((t_dsid = H5Dopen2(fid, T_BYPASS_DATASET1, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Reads both 2 chunks. Reading the second chunk should bypass the cache because the
* chunk is bigger than the cache size and it isn't allocated on disk. */
- if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata1) < 0)
+ if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata1) < 0)
FAIL_STACK_ERROR
- if(H5Dread(t_dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, t_rdata1_bytes) < 0)
+ if (H5Dread(t_dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, t_rdata1_bytes) < 0)
FAIL_STACK_ERROR
/* Verify data for the first 1-D dataset */
- for(i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
- if(rdata1[i] != i) {
+ for (i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
+ if (rdata1[i] != i) {
HDprintf(" Read different values than written in the 1st chunk.\n");
- HDprintf(" At line %d and index %d, rdata1 = %d. It should be %d.\n", __LINE__, i, rdata1[i], i);
+ HDprintf(" At line %d and index %d, rdata1 = %d. It should be %d.\n", __LINE__, i, rdata1[i],
+ i);
TEST_ERROR
} /* end if */
- for(j = BYPASS_CHUNK_DIM / 2; j < BYPASS_DIM; j++)
- if(rdata1[j] != fvalue) {
+ for (j = BYPASS_CHUNK_DIM / 2; j < BYPASS_DIM; j++)
+ if (rdata1[j] != fvalue) {
HDprintf(" Read different values than written in the 2nd chunk.\n");
- HDprintf(" At line %d and index %d, rdata1 = %d. It should be %d.\n", __LINE__, i, rdata1[i], fvalue);
+ HDprintf(" At line %d and index %d, rdata1 = %d. It should be %d.\n", __LINE__, i, rdata1[i],
+ fvalue);
TEST_ERROR
} /* end if */
/* Verify data for the first 2-D dataset */
- for(i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
- for(j = 0; j < BYPASS_CHUNK_DIM / 2; j++)
- if(t_rdata1[i][j] != j) {
- HDprintf(" Read different values than written in the 1st chunk.\n");
- HDprintf(" At line %d and index (%d, %d), t_rdata1 = %d. It should be %d.\n",
- __LINE__, i, j, t_rdata1[i][j], j);
- TEST_ERROR
- } /* end if */
+ for (i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
+ for (j = 0; j < BYPASS_CHUNK_DIM / 2; j++)
+ if (t_rdata1[i][j] != j) {
+ HDprintf(" Read different values than written in the 1st chunk.\n");
+ HDprintf(" At line %d and index (%d, %d), t_rdata1 = %d. It should be %d.\n", __LINE__, i,
+ j, t_rdata1[i][j], j);
+ TEST_ERROR
+ } /* end if */
- for(i = BYPASS_CHUNK_DIM / 2; i < BYPASS_DIM; i++)
- for(j = BYPASS_CHUNK_DIM / 2; j < BYPASS_DIM; j++)
- if(t_rdata1[i][j] != fvalue) {
- HDprintf(" Read different values than written in the 2nd chunk.\n");
- HDprintf(" At line %d and index (%d, %d), t_rdata1 = %d. It should be %d.\n",
- __LINE__, i, j, t_rdata1[i][j], fvalue);
- TEST_ERROR
- } /* end if */
+ for (i = BYPASS_CHUNK_DIM / 2; i < BYPASS_DIM; i++)
+ for (j = BYPASS_CHUNK_DIM / 2; j < BYPASS_DIM; j++)
+ if (t_rdata1[i][j] != fvalue) {
+ HDprintf(" Read different values than written in the 2nd chunk.\n");
+ HDprintf(" At line %d and index (%d, %d), t_rdata1 = %d. It should be %d.\n", __LINE__, i,
+ j, t_rdata1[i][j], fvalue);
+ TEST_ERROR
+ } /* end if */
/* Close the first 1-D & 2-D datasets */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(t_dsid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(t_dsid) < 0)
+ FAIL_STACK_ERROR
/* Create a second dataset without fill value. This time, both write
* and read should bypass the cache because the chunk is bigger than the
* cache size and it's not allocated on disk. */
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) FAIL_STACK_ERROR
- if(H5Pset_fill_time(t_dcpl, H5D_FILL_TIME_NEVER) < 0) FAIL_STACK_ERROR
+ if (H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_fill_time(t_dcpl, H5D_FILL_TIME_NEVER) < 0)
+ FAIL_STACK_ERROR
/* Create a second 1-D & 2-D dataset */
- if((dsid = H5Dcreate2(fid, BYPASS_DATASET2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, BYPASS_DATASET2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
- if((t_dsid = H5Dcreate2(fid, T_BYPASS_DATASET2, H5T_NATIVE_INT, t_sid, H5P_DEFAULT, t_dcpl, H5P_DEFAULT)) < 0)
+ if ((t_dsid =
+ H5Dcreate2(fid, T_BYPASS_DATASET2, H5T_NATIVE_INT, t_sid, H5P_DEFAULT, t_dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Write to the second 1-D & 2-D dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, wdata) < 0)
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, wdata) < 0)
FAIL_STACK_ERROR
- if(H5Dwrite(t_dsid, H5T_NATIVE_INT, mid, t_sid, H5P_DEFAULT, t_wdata_bytes) < 0)
+ if (H5Dwrite(t_dsid, H5T_NATIVE_INT, mid, t_sid, H5P_DEFAULT, t_wdata_bytes) < 0)
FAIL_STACK_ERROR
/* Close the second 1-D & 2-D dataset */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(t_dsid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(t_dsid) < 0)
+ FAIL_STACK_ERROR
/* Reopen the second 1-d dataset and 2-d dataset */
- if((dsid = H5Dopen2(fid, BYPASS_DATASET2, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
- if((t_dsid = H5Dopen2(fid, T_BYPASS_DATASET2, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, BYPASS_DATASET2, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
+ if ((t_dsid = H5Dopen2(fid, T_BYPASS_DATASET2, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Read back only the part that was written to the file. Reading the
* half chunk should bypass the cache because the chunk is bigger than
* the cache size. */
- if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, rdata2) < 0)
- FAIL_STACK_ERROR
- if(H5Dread(t_dsid, H5T_NATIVE_INT, mid, t_sid, H5P_DEFAULT, t_rdata2_bytes) < 0)
- FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, rdata2) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(t_dsid, H5T_NATIVE_INT, mid, t_sid, H5P_DEFAULT, t_rdata2_bytes) < 0)
+ FAIL_STACK_ERROR
/* Verify data for the second 1-D dataset */
- for(i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
- if(rdata2[i] != i) {
+ for (i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
+ if (rdata2[i] != i) {
HDprintf(" Read different values than written in the chunk.\n");
- HDprintf(" At line %d and index %d, rdata2 = %d. It should be %d.\n", __LINE__, i, rdata2[i], i);
+ HDprintf(" At line %d and index %d, rdata2 = %d. It should be %d.\n", __LINE__, i, rdata2[i],
+ i);
TEST_ERROR
} /* end if */
/* Verify data for the second 2-D dataset */
- for(i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
- for(j = 0; j < BYPASS_CHUNK_DIM / 2; j++)
- if(t_rdata2[i][j] != j) {
- HDprintf(" Read different values than written in the chunk.\n");
- HDprintf(" At line %d and index (%d, %d), t_rdata2 = %d. It should be %d.\n",
- __LINE__, i, j, t_rdata2[i][j], j);
- TEST_ERROR
- } /* end if */
+ for (i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
+ for (j = 0; j < BYPASS_CHUNK_DIM / 2; j++)
+ if (t_rdata2[i][j] != j) {
+ HDprintf(" Read different values than written in the chunk.\n");
+ HDprintf(" At line %d and index (%d, %d), t_rdata2 = %d. It should be %d.\n", __LINE__, i,
+ j, t_rdata2[i][j], j);
+ TEST_ERROR
+ } /* end if */
/* Close IDs */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(t_sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(t_dsid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Pclose(t_dcpl) < 0) FAIL_STACK_ERROR
- if(H5Pclose(fapl_local) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(t_sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(t_dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(t_dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(fapl_local) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
/* Release buffers */
HDfree(wdata);
@@ -8456,7 +9154,8 @@ test_big_chunks_bypass_cache(hid_t fapl)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Pclose(t_dcpl);
H5Pclose(fapl_local);
@@ -8465,7 +9164,8 @@ error:
H5Sclose(sid);
H5Sclose(t_sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
HDfree(wdata);
HDfree(rdata1);
@@ -8480,7 +9180,6 @@ error:
return FAIL;
} /* end test_big_chunks_bypass_cache() */
-
/*-------------------------------------------------------------------------
* Function: test_chunk_fast
*
@@ -8497,43 +9196,48 @@ error:
static herr_t
test_chunk_fast(const char *env_h5_driver, hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t my_fapl = -1; /* File access property list ID */
- hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t sid = -1; /* Dataspace ID */
- hid_t scalar_sid = -1;/* Scalar dataspace ID */
- hid_t dsid = -1; /* Dataset ID */
- hsize_t fill; /* Temporary value, for filling arrays */
- hsize_t hs_size[EARRAY_MAX_RANK]; /* Hyperslab size */
- hsize_t chunk_dim[EARRAY_MAX_RANK]; /* Chunk dimensions */
- H5F_libver_t low; /* File format low bound */
- unsigned swmr; /* Whether file should be written with SWMR access enabled */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t my_fapl = -1; /* File access property list ID */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t scalar_sid = -1; /* Scalar dataspace ID */
+ hid_t dsid = -1; /* Dataset ID */
+ hsize_t fill; /* Temporary value, for filling arrays */
+ hsize_t hs_size[EARRAY_MAX_RANK]; /* Hyperslab size */
+ hsize_t chunk_dim[EARRAY_MAX_RANK]; /* Chunk dimensions */
+ H5F_libver_t low; /* File format low bound */
+ unsigned swmr; /* Whether file should be written with SWMR access enabled */
TESTING("datasets w/extensible array as chunk index");
h5_fixname(FILENAME[10], fapl, filename, sizeof filename);
/* Copy the file access property list */
- if((my_fapl = H5Pcopy(fapl)) < 0) FAIL_STACK_ERROR
+ if ((my_fapl = H5Pcopy(fapl)) < 0)
+ FAIL_STACK_ERROR
- /* Turn on the chunk cache again */
- {
- int mdc_nelmts; /* # of elements in metadata cache */
- size_t rdcc_nelmts; /* # of chunks in chunk cache */
- size_t rdcc_nbytes; /* # of bytes in chunk cache */
- double rdcc_w0; /* write-ratio for chunk cache */
+ /* Turn on the chunk cache again */
+ {
+ int mdc_nelmts; /* # of elements in metadata cache */
+ size_t rdcc_nelmts; /* # of chunks in chunk cache */
+ size_t rdcc_nbytes; /* # of bytes in chunk cache */
+ double rdcc_w0; /* write-ratio for chunk cache */
- if(H5Pget_cache(my_fapl, &mdc_nelmts, &rdcc_nelmts, &rdcc_nbytes, &rdcc_w0) < 0) FAIL_STACK_ERROR
- rdcc_nbytes = 1048576;
- if(H5Pset_cache(my_fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0) < 0) FAIL_STACK_ERROR
- } /* end block */
+ if (H5Pget_cache(my_fapl, &mdc_nelmts, &rdcc_nelmts, &rdcc_nbytes, &rdcc_w0) < 0)
+ FAIL_STACK_ERROR
+ rdcc_nbytes = 1048576;
+ if (H5Pset_cache(my_fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0) < 0)
+ FAIL_STACK_ERROR
+ } /* end block */
/* Check if we are using the latest version of the format */
- if(H5Pget_libver_bounds(my_fapl, &low, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Pget_libver_bounds(my_fapl, &low, NULL) < 0)
+ FAIL_STACK_ERROR
/* Create scalar dataspace */
- if((scalar_sid = H5Screate(H5S_SCALAR)) < 0) FAIL_STACK_ERROR
+ if ((scalar_sid = H5Screate(H5S_SCALAR)) < 0)
+ FAIL_STACK_ERROR
/* Initialize chunk dimensions */
fill = EARRAY_CHUNK_DIM;
@@ -8544,8 +9248,8 @@ test_chunk_fast(const char *env_h5_driver, hid_t fapl)
H5VM_array_fill(hs_size, &fill, sizeof(fill), EARRAY_MAX_RANK);
/* Loop over using SWMR access to write */
- for(swmr = 0; swmr <= 1; swmr++) {
- int compress; /* Whether chunks should be compressed */
+ for (swmr = 0; swmr <= 1; swmr++) {
+ int compress; /* Whether chunks should be compressed */
/* SWMR is now supported with/without latest format: */
/* (1) write+latest-format (2) SWMR-write+non-latest-format */
@@ -8553,59 +9257,67 @@ test_chunk_fast(const char *env_h5_driver, hid_t fapl)
/* Skip this iteration if SWMR I/O is not supported for the VFD specified
* by the environment variable.
*/
- if(swmr && !H5FD__supports_swmr_test(env_h5_driver))
+ if (swmr && !H5FD__supports_swmr_test(env_h5_driver))
continue;
#ifdef H5_HAVE_FILTER_DEFLATE
/* Loop over compressing chunks */
- for(compress = 0; compress <= 1; compress++)
+ for (compress = 0; compress <= 1; compress++)
#else
/* Loop over without compression */
- for(compress = 0; compress <= 0; compress++)
+ for (compress = 0; compress <= 0; compress++)
#endif /* H5_HAVE_FILTER_DEFLATE */
{
- H5D_alloc_time_t alloc_time; /* Storage allocation time */
+ H5D_alloc_time_t alloc_time; /* Storage allocation time */
/* Loop over storage allocation time */
- for(alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
- unsigned ndims; /* Current # of dims to test */
+ for (alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
+ unsigned ndims; /* Current # of dims to test */
/* Loop over dataspace ranks to test */
- for(ndims = 1; ndims < (EARRAY_MAX_RANK + 1); ndims++) {
+ for (ndims = 1; ndims < (EARRAY_MAX_RANK + 1); ndims++) {
unsigned unlim_dim;
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Set chunking & chunk dims */
- if(H5Pset_chunk(dcpl, (int)ndims, chunk_dim) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, (int)ndims, chunk_dim) < 0)
+ FAIL_STACK_ERROR
#ifdef H5_HAVE_FILTER_DEFLATE
/* Check if we should compress the chunks */
- if(compress)
- if(H5Pset_deflate(dcpl, 9) < 0) FAIL_STACK_ERROR
+ if (compress)
+ if (H5Pset_deflate(dcpl, 9) < 0)
+ FAIL_STACK_ERROR
#endif /* H5_HAVE_FILTER_DEFLATE */
/* Set fill time */
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) FAIL_STACK_ERROR
+ if (H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
+ FAIL_STACK_ERROR
/* Set allocation time */
- if(H5Pset_alloc_time(dcpl, alloc_time) < 0) FAIL_STACK_ERROR
+ if (H5Pset_alloc_time(dcpl, alloc_time) < 0)
+ FAIL_STACK_ERROR
/* Loop over which dimension is unlimited */
- for(unlim_dim = 0; unlim_dim < ndims; unlim_dim++) {
- H5D_chunk_index_t idx_type; /* Dataset chunk index type */
+ for (unlim_dim = 0; unlim_dim < ndims; unlim_dim++) {
+ H5D_chunk_index_t idx_type; /* Dataset chunk index type */
hsize_t dim[EARRAY_MAX_RANK], max_dim[EARRAY_MAX_RANK]; /* Dataset dimensions */
- hsize_t swizzled_dim[EARRAY_MAX_RANK]; /* Dimensions, with unlimited dimension moved to rank 0 */
- hsize_t down[EARRAY_MAX_RANK]; /* 'down' sizes, for computing array index */
- hsize_t hs_offset[EARRAY_MAX_RANK]; /* Hyperslab offset */
- hssize_t snpoints; /* # of points in dataspace extent (signed) */
- hsize_t npoints; /* # of points in dataspace extent */
- unsigned write_elem, read_elem; /* Element written/read */
- hsize_t u; /* Local index variable */
+ hsize_t swizzled_dim[EARRAY_MAX_RANK]; /* Dimensions, with unlimited dimension moved
+ to rank 0 */
+ hsize_t down[EARRAY_MAX_RANK]; /* 'down' sizes, for computing array index */
+ hsize_t hs_offset[EARRAY_MAX_RANK]; /* Hyperslab offset */
+ hssize_t snpoints; /* # of points in dataspace extent (signed) */
+ hsize_t npoints; /* # of points in dataspace extent */
+ unsigned write_elem, read_elem; /* Element written/read */
+ hsize_t u; /* Local index variable */
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC | (swmr ? H5F_ACC_SWMR_WRITE : 0), H5P_DEFAULT, my_fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC | (swmr ? H5F_ACC_SWMR_WRITE : 0),
+ H5P_DEFAULT, my_fapl)) < 0)
+ FAIL_STACK_ERROR
/* Create n-D dataspace */
fill = EARRAY_DSET_DIM;
@@ -8613,112 +9325,143 @@ test_chunk_fast(const char *env_h5_driver, hid_t fapl)
fill = EARRAY_DSET_DIM;
H5VM_array_fill(max_dim, &fill, sizeof(fill), EARRAY_MAX_RANK);
max_dim[unlim_dim] = H5S_UNLIMITED;
- fill = EARRAY_DSET_DIM;
+ fill = EARRAY_DSET_DIM;
H5VM_array_fill(swizzled_dim, &fill, sizeof(fill), EARRAY_MAX_RANK);
- if((sid = H5Screate_simple((int)ndims, dim, max_dim)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple((int)ndims, dim, max_dim)) < 0)
+ FAIL_STACK_ERROR
/* Get the number of points in the dataspace */
- if((snpoints = H5Sget_simple_extent_npoints(sid)) < 0) FAIL_STACK_ERROR
+ if ((snpoints = H5Sget_simple_extent_npoints(sid)) < 0)
+ FAIL_STACK_ERROR
npoints = (hsize_t)snpoints;
/* Compute the "down" dimension values */
- if(H5VM_array_down(ndims, dim, down) < 0) FAIL_STACK_ERROR
+ if (H5VM_array_down(ndims, dim, down) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset */
- if((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl,
+ H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Get the chunk index type */
- if(H5D__layout_idx_type_test(dsid, &idx_type) < 0) FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(dsid, &idx_type) < 0)
+ FAIL_STACK_ERROR
- /* Chunk index type expected depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST || swmr) {
+ /* Chunk index type expected depends on whether we are using the latest version of the
+ * format */
+ if (low == H5F_LIBVER_LATEST || swmr) {
/* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_EARRAY) FAIL_PUTS_ERROR("should be using extensible array as index");
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
+ FAIL_PUTS_ERROR("should be using extensible array as index");
} /* end if */
else {
/* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_BTREE) FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
} /* end else */
/* Fill existing elements */
- for(u = 0; u < npoints; u++) {
+ for (u = 0; u < npoints; u++) {
/* Compute the coordinate from the linear offset */
- if(H5VM_array_calc_pre(u, ndims, down, hs_offset) < 0) FAIL_STACK_ERROR
+ if (H5VM_array_calc_pre(u, ndims, down, hs_offset) < 0)
+ FAIL_STACK_ERROR
/* Un-swizzle hyperslab offset in same way as swizzled dimensions */
H5VM_unswizzle_coords(hsize_t, hs_offset, unlim_dim);
/* Select a single element in the dataset */
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, hs_offset, NULL, hs_size, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, hs_offset, NULL, hs_size, NULL) < 0)
+ FAIL_STACK_ERROR
/* Read (unwritten) element from dataset */
read_elem = 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
/* Verify unwritten element is fill value (0) */
- if(read_elem != 0) FAIL_PUTS_ERROR("invalid unwritten element read");
+ if (read_elem != 0)
+ FAIL_PUTS_ERROR("invalid unwritten element read");
/* Write element to dataset */
write_elem = (unsigned)u;
- if(H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) <
+ 0)
+ FAIL_STACK_ERROR
/* Read element from dataset */
read_elem = write_elem + 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
/* Verify written element is read in */
- if(read_elem != write_elem) FAIL_PUTS_ERROR("invalid written element read");
+ if (read_elem != write_elem)
+ FAIL_PUTS_ERROR("invalid written element read");
} /* end for */
/* Incrementally extend dataset and verify write/reads */
- while(dim[unlim_dim] < EARRAY_MAX_EXTEND) {
- hssize_t snew_npoints; /* # of points in dataspace extent (signed) */
- hsize_t new_npoints; /* # of points in dataspace extent */
+ while (dim[unlim_dim] < EARRAY_MAX_EXTEND) {
+ hssize_t snew_npoints; /* # of points in dataspace extent (signed) */
+ hsize_t new_npoints; /* # of points in dataspace extent */
/* Extend dataset */
dim[unlim_dim] += EARRAY_EXTEND_INCR;
swizzled_dim[0] += EARRAY_EXTEND_INCR;
- if(H5Dset_extent(dsid, dim) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, dim) < 0)
+ FAIL_STACK_ERROR
/* Close old dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
/* Get dataspace for dataset now */
- if((sid = H5Dget_space(dsid)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Dget_space(dsid)) < 0)
+ FAIL_STACK_ERROR
/* Get the new number of points in the dataspace */
- if((snew_npoints = H5Sget_simple_extent_npoints(sid)) < 0) FAIL_STACK_ERROR
+ if ((snew_npoints = H5Sget_simple_extent_npoints(sid)) < 0)
+ FAIL_STACK_ERROR
new_npoints = (hsize_t)snew_npoints;
/* Fill new elements */
- for(u = npoints; u < new_npoints; u++) {
+ for (u = npoints; u < new_npoints; u++) {
/* Compute the coordinate from the linear offset */
- if(H5VM_array_calc(u, ndims, swizzled_dim, hs_offset) < 0) FAIL_STACK_ERROR
+ if (H5VM_array_calc(u, ndims, swizzled_dim, hs_offset) < 0)
+ FAIL_STACK_ERROR
/* Un-swizzle hyperslab offset in same way as swizzled dimensions */
H5VM_unswizzle_coords(hsize_t, hs_offset, unlim_dim);
/* Select a single element in the dataset */
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, hs_offset, NULL, hs_size, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, hs_offset, NULL, hs_size, NULL) <
+ 0)
+ FAIL_STACK_ERROR
/* Read (unwritten) element from dataset */
read_elem = 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) <
+ 0)
+ FAIL_STACK_ERROR
/* Verify unwritten element is fill value (0) */
- if(read_elem != 0) FAIL_PUTS_ERROR("invalid unwritten element read");
+ if (read_elem != 0)
+ FAIL_PUTS_ERROR("invalid unwritten element read");
/* Write element to dataset */
write_elem = (unsigned)u;
- if(H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT,
+ &write_elem) < 0)
+ FAIL_STACK_ERROR
/* Read element from dataset */
read_elem = write_elem + 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) <
+ 0)
+ FAIL_STACK_ERROR
/* Verify written element is read in */
- if(read_elem != write_elem) FAIL_PUTS_ERROR("invalid written element read");
+ if (read_elem != write_elem)
+ FAIL_PUTS_ERROR("invalid written element read");
} /* end for */
/* Update the number of points in the dataspace */
@@ -8726,108 +9469,134 @@ test_chunk_fast(const char *env_h5_driver, hid_t fapl)
} /* end while */
/* Close everything */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
/* Re-open file & dataset */
- if((fid = H5Fopen(filename, H5F_ACC_RDONLY | (swmr ? H5F_ACC_SWMR_READ : 0), my_fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fopen(filename, H5F_ACC_RDONLY | (swmr ? H5F_ACC_SWMR_READ : 0),
+ my_fapl)) < 0)
+ FAIL_STACK_ERROR
/* Open dataset */
- if((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the chunk index type */
- if(H5D__layout_idx_type_test(dsid, &idx_type) < 0) FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(dsid, &idx_type) < 0)
+ FAIL_STACK_ERROR
- /* Chunk index tyepe expected depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST || swmr) {
+ /* Chunk index tyepe expected depends on whether we are using the latest version of
+ * the format */
+ if (low == H5F_LIBVER_LATEST || swmr) {
/* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_EARRAY) FAIL_PUTS_ERROR("should be using extensible array as index");
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
+ FAIL_PUTS_ERROR("should be using extensible array as index");
} /* end if */
else {
/* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_BTREE) FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
} /* end else */
/* Get dataspace for dataset now */
- if((sid = H5Dget_space(dsid)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Dget_space(dsid)) < 0)
+ FAIL_STACK_ERROR
/* Get the number of points in the dataspace */
- if((snpoints = H5Sget_simple_extent_npoints(sid)) < 0) FAIL_STACK_ERROR
+ if ((snpoints = H5Sget_simple_extent_npoints(sid)) < 0)
+ FAIL_STACK_ERROR
npoints = (hsize_t)snpoints;
/* Get the current dimensions into swizzled_dim array */
- if(H5Sget_simple_extent_dims(sid, swizzled_dim, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Sget_simple_extent_dims(sid, swizzled_dim, NULL) < 0)
+ FAIL_STACK_ERROR
/* Generate the swizzled dimensions */
H5VM_swizzle_coords(hsize_t, swizzled_dim, unlim_dim);
/* Compute the "down" dimension values */
- if(H5VM_array_down(ndims, swizzled_dim, down) < 0) FAIL_STACK_ERROR
+ if (H5VM_array_down(ndims, swizzled_dim, down) < 0)
+ FAIL_STACK_ERROR
/* Read elements */
- for(u = 0; u < npoints; u++) {
+ for (u = 0; u < npoints; u++) {
/* Compute the coordinate from the linear offset */
- if(H5VM_array_calc_pre(u, ndims, down, hs_offset) < 0) FAIL_STACK_ERROR
+ if (H5VM_array_calc_pre(u, ndims, down, hs_offset) < 0)
+ FAIL_STACK_ERROR
/* Unswizzle hyperslab offset in same way as swizzled dimensions */
H5VM_unswizzle_coords(hsize_t, hs_offset, unlim_dim);
/* Select a single element in the dataset */
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, hs_offset, NULL, hs_size, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, hs_offset, NULL, hs_size, NULL) < 0)
+ FAIL_STACK_ERROR
/* Read written element from dataset */
read_elem = (unsigned)(u + 1);
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
/* Verify written element is correct */
- if(read_elem != u) FAIL_PUTS_ERROR("invalid element read");
+ if (read_elem != u)
+ FAIL_PUTS_ERROR("invalid element read");
} /* end for */
/* Close everything */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
/* Re-open file */
- if((fid = H5Fopen(filename, H5F_ACC_RDWR, my_fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fopen(filename, H5F_ACC_RDWR, my_fapl)) < 0)
+ FAIL_STACK_ERROR
/* Delete dataset */
- if(H5Ldelete(fid, "dset", H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ldelete(fid, "dset", H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Close everything */
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
} /* end for */
/* Close everything */
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
} /* end for */
- } /* end for */
- } /* end for */
- } /* end for */
+ } /* end for */
+ } /* end for */
+ } /* end for */
/* Close everything */
- if(H5Sclose(scalar_sid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(my_fapl) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(scalar_sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(my_fapl) < 0)
+ FAIL_STACK_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(dsid);
H5Sclose(sid);
H5Sclose(scalar_sid);
H5Fclose(fid);
H5Pclose(my_fapl);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_chunk_fast() */
-
/*-------------------------------------------------------------------------
* Function: test_reopen_chunk_fast
*
@@ -8849,90 +9618,104 @@ error:
static herr_t
test_reopen_chunk_fast(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t sid = -1; /* Dataspace ID */
- hid_t scalar_sid = -1;/* Scalar dataspace ID */
- hid_t dsid = -1; /* Dataset ID */
- hsize_t dim, max_dim, chunk_dim; /* Dataset and chunk dimensions */
- hsize_t hs_offset; /* Hyperslab offset */
- hsize_t hs_size; /* Hyperslab size */
- H5D_alloc_time_t alloc_time; /* Storage allocation time */
- unsigned write_elem, read_elem; /* Element written/read */
- unsigned u; /* Local index variable */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t scalar_sid = -1; /* Scalar dataspace ID */
+ hid_t dsid = -1; /* Dataset ID */
+ hsize_t dim, max_dim, chunk_dim; /* Dataset and chunk dimensions */
+ hsize_t hs_offset; /* Hyperslab offset */
+ hsize_t hs_size; /* Hyperslab size */
+ H5D_alloc_time_t alloc_time; /* Storage allocation time */
+ unsigned write_elem, read_elem; /* Element written/read */
+ unsigned u; /* Local index variable */
TESTING("datasets w/extensible array open/reopen with read/write");
h5_fixname(FILENAME[10], fapl, filename, sizeof filename);
/* Loop over storage allocation time */
- for(alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
- /* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ for (alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
+ /* Create file */
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
- /* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ /* Create dataset creation property list */
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
- /* Set chunking */
- chunk_dim = 10;
- if(H5Pset_chunk(dcpl, 1, &chunk_dim) < 0) FAIL_STACK_ERROR
+ /* Set chunking */
+ chunk_dim = 10;
+ if (H5Pset_chunk(dcpl, 1, &chunk_dim) < 0)
+ FAIL_STACK_ERROR
- /* Set fill time */
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) FAIL_STACK_ERROR
+ /* Set fill time */
+ if (H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
+ FAIL_STACK_ERROR
- /* Set allocation time */
- if(H5Pset_alloc_time(dcpl, alloc_time) < 0) FAIL_STACK_ERROR
+ /* Set allocation time */
+ if (H5Pset_alloc_time(dcpl, alloc_time) < 0)
+ FAIL_STACK_ERROR
- /* Create scalar dataspace */
- if((scalar_sid = H5Screate(H5S_SCALAR)) < 0) FAIL_STACK_ERROR
+ /* Create scalar dataspace */
+ if ((scalar_sid = H5Screate(H5S_SCALAR)) < 0)
+ FAIL_STACK_ERROR
- /* Create 1-D dataspace */
- dim = 100;
- max_dim = H5S_UNLIMITED;
- if((sid = H5Screate_simple(1, &dim, &max_dim)) < 0) FAIL_STACK_ERROR
+ /* Create 1-D dataspace */
+ dim = 100;
+ max_dim = H5S_UNLIMITED;
+ if ((sid = H5Screate_simple(1, &dim, &max_dim)) < 0)
+ FAIL_STACK_ERROR
- /* Create chunked dataset */
- if((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
- FAIL_STACK_ERROR
+ /* Create chunked dataset */
+ if ((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
- /* Fill existing elements */
- hs_size = 1;
- for(u = 0; u < 100; u++) {
- /* Select a single element in the dataset */
- hs_offset = u;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0)
- FAIL_STACK_ERROR
- /* Write element to dataset */
- write_elem = u;
- if(H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0)
- FAIL_STACK_ERROR
- } /* end for */
+ /* Fill existing elements */
+ hs_size = 1;
+ for (u = 0; u < 100; u++) {
+ /* Select a single element in the dataset */
+ hs_offset = u;
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0)
+ FAIL_STACK_ERROR
+ /* Write element to dataset */
+ write_elem = u;
+ if (H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0)
+ FAIL_STACK_ERROR
+ } /* end for */
- /* Close everything */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ /* Close everything */
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
- /* Reopen the dataset */
- if((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ /* Reopen the dataset */
+ if ((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
hs_size = 1;
- /* Read from dataset */
- for(u = 0; u < 100; u++) {
- /* Select a single element in the dataset */
- hs_offset = u;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0)
- FAIL_STACK_ERROR
+ /* Read from dataset */
+ for (u = 0; u < 100; u++) {
+ /* Select a single element in the dataset */
+ hs_offset = u;
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0)
+ FAIL_STACK_ERROR
- /* Read element from dataset */
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
- FAIL_STACK_ERROR
- } /* end for */
+ /* Read element from dataset */
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
+ } /* end for */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(scalar_sid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(scalar_sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
} /* end for */
@@ -8940,17 +9723,18 @@ test_reopen_chunk_fast(hid_t fapl)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(dsid);
H5Sclose(sid);
H5Sclose(scalar_sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_reopen_chunk_fast() */
-
/*-------------------------------------------------------------------------
* Function: test_chunk_fast_bug1
*
@@ -8971,99 +9755,110 @@ error:
static herr_t
test_chunk_fast_bug1(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t sid = -1; /* Dataspace ID */
- hid_t dsid = -1; /* Dataset ID */
- hsize_t dim[2], max_dim[2], chunk_dim[2]; /* Dataset and chunk dimensions */
- H5D_alloc_time_t alloc_time; /* Storage allocation time */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t dsid = -1; /* Dataset ID */
+ hsize_t dim[2], max_dim[2], chunk_dim[2]; /* Dataset and chunk dimensions */
+ H5D_alloc_time_t alloc_time; /* Storage allocation time */
- unsigned **wbuf = NULL;
- unsigned **rbuf = NULL;
- unsigned *wbuf_bytes = NULL;
- unsigned *rbuf_bytes = NULL;
+ unsigned **wbuf = NULL;
+ unsigned **rbuf = NULL;
+ unsigned * wbuf_bytes = NULL;
+ unsigned * rbuf_bytes = NULL;
- unsigned i, j; /* Local index variables */
+ unsigned i, j; /* Local index variables */
TESTING("datasets w/extensible array chunk indexing bug");
h5_fixname(FILENAME[10], fapl, filename, sizeof filename);
/* Set up data array */
- if(NULL == (wbuf_bytes = (unsigned *)HDcalloc(40 * 20, sizeof(unsigned))))
+ if (NULL == (wbuf_bytes = (unsigned *)HDcalloc(40 * 20, sizeof(unsigned))))
TEST_ERROR;
- if(NULL == (wbuf = (unsigned **)HDcalloc(40, sizeof(wbuf_bytes))))
+ if (NULL == (wbuf = (unsigned **)HDcalloc(40, sizeof(wbuf_bytes))))
TEST_ERROR;
for (i = 0; i < 40; i++)
wbuf[i] = wbuf_bytes + (i * 20);
- if(NULL == (rbuf_bytes = (unsigned *)HDcalloc(40 * 20, sizeof(unsigned))))
+ if (NULL == (rbuf_bytes = (unsigned *)HDcalloc(40 * 20, sizeof(unsigned))))
TEST_ERROR;
- if(NULL == (rbuf = (unsigned **)HDcalloc(40, sizeof(rbuf_bytes))))
+ if (NULL == (rbuf = (unsigned **)HDcalloc(40, sizeof(rbuf_bytes))))
TEST_ERROR;
for (i = 0; i < 40; i++)
rbuf[i] = rbuf_bytes + (i * 20);
/* Initialize write buffer */
- for(i=0; i<40; i++)
- for(j=0; j<20; j++)
+ for (i = 0; i < 40; i++)
+ for (j = 0; j < 20; j++)
wbuf[i][j] = (i * 20) + j;
/* Create 2-D dataspace */
- dim[0] = 40;
- dim[1] = 20;
+ dim[0] = 40;
+ dim[1] = 20;
max_dim[0] = 40;
max_dim[1] = H5S_UNLIMITED;
- if((sid = H5Screate_simple(2, dim, max_dim)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(2, dim, max_dim)) < 0)
+ FAIL_STACK_ERROR
/* Loop over storage allocation time */
- for(alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
+ for (alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Set chunking */
chunk_dim[0] = 20;
chunk_dim[1] = 10;
- if(H5Pset_chunk(dcpl, 2, chunk_dim) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 2, chunk_dim) < 0)
+ FAIL_STACK_ERROR
/* Set allocation time */
- if(H5Pset_alloc_time(dcpl, alloc_time) < 0) FAIL_STACK_ERROR
+ if (H5Pset_alloc_time(dcpl, alloc_time) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset */
- if((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Write buffer to dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_UINT, sid, sid, H5P_DEFAULT, wbuf_bytes) < 0)
+ if (H5Dwrite(dsid, H5T_NATIVE_UINT, sid, sid, H5P_DEFAULT, wbuf_bytes) < 0)
FAIL_STACK_ERROR
/* Close everything */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Reopen the dataset */
- if((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Read from dataset */
- if(H5Dread(dsid, H5T_NATIVE_UINT, sid, sid, H5P_DEFAULT, rbuf_bytes) < 0)
+ if (H5Dread(dsid, H5T_NATIVE_UINT, sid, sid, H5P_DEFAULT, rbuf_bytes) < 0)
FAIL_STACK_ERROR
/* Verify read data */
- for(i=0; i<40; i++)
- for(j=0; j<20; j++)
- if(wbuf[i][j] != rbuf[i][j])
+ for (i = 0; i < 40; i++)
+ for (j = 0; j < 20; j++)
+ if (wbuf[i][j] != rbuf[i][j])
FAIL_PUTS_ERROR("invalid element read");
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
} /* end for */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
HDfree(wbuf);
HDfree(rbuf);
@@ -9074,12 +9869,14 @@ test_chunk_fast_bug1(hid_t fapl)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(dsid);
H5Sclose(sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
HDfree(wbuf);
HDfree(rbuf);
@@ -9091,19 +9888,18 @@ error:
/* This message derives from H5Z */
const H5Z_class2_t H5Z_EXPAND[1] = {{
- H5Z_CLASS_T_VERS, /* H5Z_class_t version */
- H5Z_FILTER_EXPAND, /* Filter id number */
- 1, 1, /* Encoding and decoding enabled */
- "expand", /* Filter name for debugging */
- NULL, /* The "can apply" callback */
- NULL, /* The "set local" callback */
- filter_expand, /* The actual filter function */
+ H5Z_CLASS_T_VERS, /* H5Z_class_t version */
+ H5Z_FILTER_EXPAND, /* Filter id number */
+ 1, 1, /* Encoding and decoding enabled */
+ "expand", /* Filter name for debugging */
+ NULL, /* The "can apply" callback */
+ NULL, /* The "set local" callback */
+ filter_expand, /* The actual filter function */
}};
/* Global "expansion factor" for filter_expand() routine */
static size_t filter_expand_factor_g = 0;
-
/*-------------------------------------------------------------------------
* Function: filter_expand
*
@@ -9125,19 +9921,19 @@ static size_t filter_expand_factor_g = 0;
*/
static size_t
filter_expand(unsigned int flags, size_t H5_ATTR_UNUSED cd_nelmts,
- const unsigned int H5_ATTR_UNUSED *cd_values, size_t nbytes,
- size_t *buf_size, void H5_ATTR_UNUSED **buf)
+ const unsigned int H5_ATTR_UNUSED *cd_values, size_t nbytes, size_t *buf_size,
+ void H5_ATTR_UNUSED **buf)
{
- size_t ret_value = 0;
+ size_t ret_value = 0;
- if(flags & H5Z_FLAG_REVERSE) {
+ if (flags & H5Z_FLAG_REVERSE) {
/* Don't do anything when filter is applied in reverse */
*buf_size = nbytes;
ret_value = nbytes;
} /* end if */
else {
/* Check for expanding the chunk */
- if(filter_expand_factor_g > 0) {
+ if (filter_expand_factor_g > 0) {
/* Expand the buffer size beyond what can be encoded */
*buf_size = nbytes * 256 * 256 * 256 * filter_expand_factor_g;
ret_value = *buf_size;
@@ -9147,12 +9943,11 @@ filter_expand(unsigned int flags, size_t H5_ATTR_UNUSED cd_nelmts,
*buf_size = nbytes;
ret_value = nbytes;
} /* end else */
- } /* end else */
+ } /* end else */
return ret_value;
} /* end filter_expand() */
-
/*-------------------------------------------------------------------------
* Function: test_chunk_expand
*
@@ -9170,364 +9965,495 @@ filter_expand(unsigned int flags, size_t H5_ATTR_UNUSED cd_nelmts,
static herr_t
test_chunk_expand(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1, dcpl2 = -1; /* Dataset creation property list ID */
- hid_t sid = -1, sid2 = -1; /* Dataspace ID */
- hid_t scalar_sid = -1; /* Scalar dataspace ID */
- hid_t dsid = -1, dsid2 = -1; /* Dataset ID */
- hsize_t dim, max_dim, chunk_dim; /* Dataset and chunk dimensions */
- hsize_t dim2[2], max_dim2[2], chunk_dim2[2]; /* Dataset and chunk dimensions */
- H5D_chunk_index_t idx_type, idx_type2; /* Dataset chunk index type */
- H5F_libver_t low, high; /* File format bounds */
- hsize_t hs_offset, hs_offset2[2]; /* Hyperslab offset */
- hsize_t hs_size, hs_size2[2]; /* Hyperslab size */
- H5D_alloc_time_t alloc_time; /* Storage allocation time */
- unsigned write_elem, read_elem; /* Element written/read */
- unsigned write_elem2, read_elem2; /* Element written/read */
- unsigned u; /* Local index variable */
- herr_t status; /* Generic return value */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1, dcpl2 = -1; /* Dataset creation property list ID */
+ hid_t sid = -1, sid2 = -1; /* Dataspace ID */
+ hid_t scalar_sid = -1; /* Scalar dataspace ID */
+ hid_t dsid = -1, dsid2 = -1; /* Dataset ID */
+ hsize_t dim, max_dim, chunk_dim; /* Dataset and chunk dimensions */
+ hsize_t dim2[2], max_dim2[2], chunk_dim2[2]; /* Dataset and chunk dimensions */
+ H5D_chunk_index_t idx_type, idx_type2; /* Dataset chunk index type */
+ H5F_libver_t low, high; /* File format bounds */
+ hsize_t hs_offset, hs_offset2[2]; /* Hyperslab offset */
+ hsize_t hs_size, hs_size2[2]; /* Hyperslab size */
+ H5D_alloc_time_t alloc_time; /* Storage allocation time */
+ unsigned write_elem, read_elem; /* Element written/read */
+ unsigned write_elem2, read_elem2; /* Element written/read */
+ unsigned u; /* Local index variable */
+ herr_t status; /* Generic return value */
TESTING("filter expanding chunks too much");
h5_fixname(FILENAME[11], fapl, filename, sizeof filename);
/* Check if we are using the latest version of the format */
- if(H5Pget_libver_bounds(fapl, &low, &high) < 0) FAIL_STACK_ERROR
+ if (H5Pget_libver_bounds(fapl, &low, &high) < 0)
+ FAIL_STACK_ERROR
- if(sizeof(size_t) <= 4 && low != H5F_LIBVER_LATEST) {
- SKIPPED();
- HDputs(" Current machine can't test for error w/old file format");
+ if (sizeof(size_t) <= 4 && low != H5F_LIBVER_LATEST) {
+ SKIPPED();
+ HDputs(" Current machine can't test for error w/old file format");
} /* end if */
else {
/* Register "expansion" filter */
- if(H5Zregister(H5Z_EXPAND) < 0) FAIL_STACK_ERROR
+ if (H5Zregister(H5Z_EXPAND) < 0)
+ FAIL_STACK_ERROR
/* Check that the filter was registered */
- if(TRUE != H5Zfilter_avail(H5Z_FILTER_EXPAND)) FAIL_STACK_ERROR
+ if (TRUE != H5Zfilter_avail(H5Z_FILTER_EXPAND))
+ FAIL_STACK_ERROR
/* Loop over storage allocation time */
- for(alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
+ for (alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
- if((dcpl2 = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
+ if ((dcpl2 = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Set chunking */
chunk_dim = chunk_dim2[0] = chunk_dim2[1] = 10;
- if(H5Pset_chunk(dcpl, 1, &chunk_dim) < 0) FAIL_STACK_ERROR
- if(H5Pset_chunk(dcpl2, 2, chunk_dim2) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 1, &chunk_dim) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl2, 2, chunk_dim2) < 0)
+ FAIL_STACK_ERROR
/* Set fill time */
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) FAIL_STACK_ERROR
- if(H5Pset_fill_time(dcpl2, H5D_FILL_TIME_ALLOC) < 0) FAIL_STACK_ERROR
+ if (H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_fill_time(dcpl2, H5D_FILL_TIME_ALLOC) < 0)
+ FAIL_STACK_ERROR
/* Set allocation time */
- if(H5Pset_alloc_time(dcpl, alloc_time) < 0) FAIL_STACK_ERROR
- if(H5Pset_alloc_time(dcpl2, alloc_time) < 0) FAIL_STACK_ERROR
+ if (H5Pset_alloc_time(dcpl, alloc_time) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_alloc_time(dcpl2, alloc_time) < 0)
+ FAIL_STACK_ERROR
/* Set "expand" filter */
- if(H5Pset_filter(dcpl, H5Z_FILTER_EXPAND, 0, (size_t)0, NULL) < 0) FAIL_STACK_ERROR
- if(H5Pset_filter(dcpl2, H5Z_FILTER_EXPAND, 0, (size_t)0, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Pset_filter(dcpl, H5Z_FILTER_EXPAND, 0, (size_t)0, NULL) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_filter(dcpl2, H5Z_FILTER_EXPAND, 0, (size_t)0, NULL) < 0)
+ FAIL_STACK_ERROR
/* Create scalar dataspace */
- if((scalar_sid = H5Screate(H5S_SCALAR)) < 0) FAIL_STACK_ERROR
+ if ((scalar_sid = H5Screate(H5S_SCALAR)) < 0)
+ FAIL_STACK_ERROR
/* Create 1-D and 2-D dataspace */
dim = dim2[0] = dim2[1] = 100;
- max_dim = max_dim2[0] = max_dim2[1] = H5S_UNLIMITED;
- if((sid = H5Screate_simple(1, &dim, &max_dim)) < 0) FAIL_STACK_ERROR
- if((sid2 = H5Screate_simple(2, dim2, max_dim2)) < 0) FAIL_STACK_ERROR
+ max_dim = max_dim2[0] = max_dim2[1] = H5S_UNLIMITED;
+ if ((sid = H5Screate_simple(1, &dim, &max_dim)) < 0)
+ FAIL_STACK_ERROR
+ if ((sid2 = H5Screate_simple(2, dim2, max_dim2)) < 0)
+ FAIL_STACK_ERROR
/* Create 1-D & 2-D chunked datasets */
- if(H5D_ALLOC_TIME_EARLY == alloc_time) {
+ if (H5D_ALLOC_TIME_EARLY == alloc_time) {
/* Make the expansion factor large enough to cause failure right away */
filter_expand_factor_g = 8;
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dsid >= 0) FAIL_PUTS_ERROR("should fail to create dataset when allocation time is early");
+ }
+ H5E_END_TRY;
+ if (dsid >= 0)
+ FAIL_PUTS_ERROR("should fail to create dataset when allocation time is early");
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
dsid2 = H5Dcreate2(fid, "dset2", H5T_NATIVE_UINT, sid2, H5P_DEFAULT, dcpl2, H5P_DEFAULT);
- } H5E_END_TRY;
- if(dsid2 >= 0) FAIL_PUTS_ERROR("should fail to create dataset when allocation time is early");
+ }
+ H5E_END_TRY;
+ if (dsid2 >= 0)
+ FAIL_PUTS_ERROR("should fail to create dataset when allocation time is early");
} /* end if */
else {
- if((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) <
+ 0)
FAIL_STACK_ERROR
- if((dsid2 = H5Dcreate2(fid, "dset2", H5T_NATIVE_UINT, sid2, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0)
+ if ((dsid2 = H5Dcreate2(fid, "dset2", H5T_NATIVE_UINT, sid2, H5P_DEFAULT, dcpl2,
+ H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Get the chunk index type */
- if(H5D__layout_idx_type_test(dsid, &idx_type) < 0) FAIL_STACK_ERROR
- if(H5D__layout_idx_type_test(dsid2, &idx_type2) < 0) FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(dsid, &idx_type) < 0)
+ FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(dsid2, &idx_type2) < 0)
+ FAIL_STACK_ERROR
- /* Chunk index type expected depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST) {
+ /* Chunk index type expected depends on whether we are using the latest version of the format
+ */
+ if (low == H5F_LIBVER_LATEST) {
/* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_EARRAY) FAIL_PUTS_ERROR("should be using extensible array as index");
- if(idx_type2 != H5D_CHUNK_IDX_BT2) FAIL_PUTS_ERROR("should be using v2 B-tree as index");
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
+ FAIL_PUTS_ERROR("should be using extensible array as index");
+ if (idx_type2 != H5D_CHUNK_IDX_BT2)
+ FAIL_PUTS_ERROR("should be using v2 B-tree as index");
} /* end if */
else {
/* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_BTREE) FAIL_PUTS_ERROR("should be using v1 B-tree as index");
- if(idx_type2 != H5D_CHUNK_IDX_BTREE) FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (idx_type2 != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
} /* end else */
/* Fill elements */
hs_size = hs_size2[0] = hs_size2[1] = 1;
- for(u = 0; u < 100; u++) {
+ for (u = 0; u < 100; u++) {
hs_offset = hs_offset2[0] = hs_offset2[1] = u;
/* Select a single element in the 1-D dataset */
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0)
+ FAIL_STACK_ERROR
/* Select a single element in the 2-D dataset; NOT every element is selected */
- if(H5Sselect_hyperslab(sid2, H5S_SELECT_SET, hs_offset2, NULL, hs_size2, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Sselect_hyperslab(sid2, H5S_SELECT_SET, hs_offset2, NULL, hs_size2, NULL) < 0)
+ FAIL_STACK_ERROR
/* Read (unwritten) element from dataset */
read_elem = read_elem2 = 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
- if(H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0)
+ FAIL_STACK_ERROR
/* Verify unwritten element is fill value (0) */
- if(read_elem != 0) FAIL_PUTS_ERROR("invalid unwritten element read");
- if(read_elem2 != 0) FAIL_PUTS_ERROR("invalid unwritten element read");
+ if (read_elem != 0)
+ FAIL_PUTS_ERROR("invalid unwritten element read");
+ if (read_elem2 != 0)
+ FAIL_PUTS_ERROR("invalid unwritten element read");
/* Don't expand chunks yet */
filter_expand_factor_g = 0;
/* Write element to the datasets */
write_elem = write_elem2 = u;
- if(H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0) FAIL_STACK_ERROR
- if(H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2) < 0)
+ FAIL_STACK_ERROR
/* Read element from the datasets */
- read_elem = write_elem + 1;
+ read_elem = write_elem + 1;
read_elem2 = write_elem2 + 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
- if(H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0)
+ FAIL_STACK_ERROR
/* Verify written element is read in */
- if(read_elem != write_elem) FAIL_PUTS_ERROR("invalid written element read");
- if(read_elem2 != write_elem2) FAIL_PUTS_ERROR("invalid written element read");
+ if (read_elem != write_elem)
+ FAIL_PUTS_ERROR("invalid written element read");
+ if (read_elem2 != write_elem2)
+ FAIL_PUTS_ERROR("invalid written element read");
/* Expand chunks now */
filter_expand_factor_g = 8;
/* Write element to the datasets */
write_elem = write_elem2 = u;
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
status = H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem);
- } H5E_END_TRY;
- if(status >= 0) FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
-
- H5E_BEGIN_TRY {
- status = H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2);
- } H5E_END_TRY;
- if(status >= 0) FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
+ }
+ H5E_END_TRY;
+ if (status >= 0)
+ FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
+
+ H5E_BEGIN_TRY
+ {
+ status =
+ H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2);
+ }
+ H5E_END_TRY;
+ if (status >= 0)
+ FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
} /* end for */
/* Incrementally extend dataset and verify write/reads */
- while(dim < 1000) {
+ while (dim < 1000) {
/* Extend the datasets */
dim += 100;
dim2[0] += 100;
dim2[1] += 100;
- if(H5Dset_extent(dsid, &dim) < 0) FAIL_STACK_ERROR
- if(H5Dset_extent(dsid2, dim2) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, &dim) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid2, dim2) < 0)
+ FAIL_STACK_ERROR
/* Close old dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid2) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid2) < 0)
+ FAIL_STACK_ERROR
/* Get dataspace for the datasets now */
- if((sid = H5Dget_space(dsid)) < 0) FAIL_STACK_ERROR
- if((sid2 = H5Dget_space(dsid2)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Dget_space(dsid)) < 0)
+ FAIL_STACK_ERROR
+ if ((sid2 = H5Dget_space(dsid2)) < 0)
+ FAIL_STACK_ERROR
/* Fill new elements */
hs_size = hs_size2[0] = hs_size2[1] = 1;
- for(u = 0; u < 100; u++) {
+ for (u = 0; u < 100; u++) {
/* Select a single element in the datasets */
- hs_offset = (dim + u) - 100;
+ hs_offset = (dim + u) - 100;
hs_offset2[0] = (dim2[0] + u) - 100;
hs_offset2[1] = (dim2[1] + u) - 100;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0) FAIL_STACK_ERROR
- if(H5Sselect_hyperslab(sid2, H5S_SELECT_SET, hs_offset2, NULL, hs_size2, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sselect_hyperslab(sid2, H5S_SELECT_SET, hs_offset2, NULL, hs_size2, NULL) < 0)
+ FAIL_STACK_ERROR
/* Read (unwritten) element from the datasets */
read_elem = read_elem2 = 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
- if(H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0)
+ FAIL_STACK_ERROR
/* Verify unwritten element is fill value (0) */
- if(read_elem != 0) FAIL_PUTS_ERROR("invalid unwritten element read");
- if(read_elem2 != 0) FAIL_PUTS_ERROR("invalid unwritten element read");
+ if (read_elem != 0)
+ FAIL_PUTS_ERROR("invalid unwritten element read");
+ if (read_elem2 != 0)
+ FAIL_PUTS_ERROR("invalid unwritten element read");
/* Don't expand chunks yet */
filter_expand_factor_g = 0;
/* Write element to the datasets */
write_elem = write_elem2 = u;
- if(H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0) FAIL_STACK_ERROR
- if(H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2) < 0)
+ FAIL_STACK_ERROR
/* Read element from the datasets */
- read_elem = write_elem + 1;
+ read_elem = write_elem + 1;
read_elem2 = write_elem2 + 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
- if(H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0)
+ FAIL_STACK_ERROR
/* Verify written element is read in */
- if(read_elem != write_elem) FAIL_PUTS_ERROR("invalid written element read");
- if(read_elem2 != write_elem2) FAIL_PUTS_ERROR("invalid written element read");
+ if (read_elem != write_elem)
+ FAIL_PUTS_ERROR("invalid written element read");
+ if (read_elem2 != write_elem2)
+ FAIL_PUTS_ERROR("invalid written element read");
/* Expand chunks now */
filter_expand_factor_g = 8;
/* Write element to the datasets */
write_elem = write_elem2 = u;
- H5E_BEGIN_TRY {
- status = H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem);
- } H5E_END_TRY;
- if(status >= 0) FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
-
- H5E_BEGIN_TRY {
- status = H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2);
- } H5E_END_TRY;
- if(status >= 0) FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
+ H5E_BEGIN_TRY
+ {
+ status =
+ H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem);
+ }
+ H5E_END_TRY;
+ if (status >= 0)
+ FAIL_PUTS_ERROR(
+ "should fail to write to dataset when allocation time is not early");
+
+ H5E_BEGIN_TRY
+ {
+ status =
+ H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2);
+ }
+ H5E_END_TRY;
+ if (status >= 0)
+ FAIL_PUTS_ERROR(
+ "should fail to write to dataset when allocation time is not early");
} /* end for */
- } /* end while */
+ } /* end while */
/* Close the datasets */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid2) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid2) < 0)
+ FAIL_STACK_ERROR
} /* end else */
/* Close everything */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid2) < 0) FAIL_STACK_ERROR
- if(H5Sclose(scalar_sid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl2) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid2) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(scalar_sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl2) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
/* If the dataset was created, do some extra testing */
- if(H5D_ALLOC_TIME_EARLY != alloc_time) {
+ if (H5D_ALLOC_TIME_EARLY != alloc_time) {
/* Re-open file & datasets */
- if((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Open the datasets */
- if((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
- if((dsid2 = H5Dopen2(fid, "dset2", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
+ if ((dsid2 = H5Dopen2(fid, "dset2", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the chunk index type for the two datasets */
- if(H5D__layout_idx_type_test(dsid, &idx_type) < 0) FAIL_STACK_ERROR
- if(H5D__layout_idx_type_test(dsid2, &idx_type2) < 0) FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(dsid, &idx_type) < 0)
+ FAIL_STACK_ERROR
+ if (H5D__layout_idx_type_test(dsid2, &idx_type2) < 0)
+ FAIL_STACK_ERROR
- /* Chunk index type expected depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST) {
+ /* Chunk index type expected depends on whether we are using the latest version of the format
+ */
+ if (low == H5F_LIBVER_LATEST) {
/* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_EARRAY) FAIL_PUTS_ERROR("should be using extensible array as index");
- if(idx_type2 != H5D_CHUNK_IDX_BT2) FAIL_PUTS_ERROR("should be using v2 B-tree as index");
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
+ FAIL_PUTS_ERROR("should be using extensible array as index");
+ if (idx_type2 != H5D_CHUNK_IDX_BT2)
+ FAIL_PUTS_ERROR("should be using v2 B-tree as index");
} /* end if */
else {
/* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_BTREE) FAIL_PUTS_ERROR("should be using v1 B-tree as index");
- if(idx_type2 != H5D_CHUNK_IDX_BTREE) FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ if (idx_type2 != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
} /* end else */
/* Create scalar dataspace */
- if((scalar_sid = H5Screate(H5S_SCALAR)) < 0) FAIL_STACK_ERROR
+ if ((scalar_sid = H5Screate(H5S_SCALAR)) < 0)
+ FAIL_STACK_ERROR
/* Get dataspace for the datasets now */
- if((sid = H5Dget_space(dsid)) < 0) FAIL_STACK_ERROR
- if((sid2 = H5Dget_space(dsid2)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Dget_space(dsid)) < 0)
+ FAIL_STACK_ERROR
+ if ((sid2 = H5Dget_space(dsid2)) < 0)
+ FAIL_STACK_ERROR
/* Read elements */
hs_size = hs_size2[0] = hs_size2[1] = 1;
- for(u = 0; u < 1000; u++) {
+ for (u = 0; u < 1000; u++) {
/* Select a single element in the datasets */
hs_offset = hs_offset2[0] = hs_offset2[1] = u;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0) FAIL_STACK_ERROR
- if(H5Sselect_hyperslab(sid2, H5S_SELECT_SET, hs_offset2, NULL, hs_size2, NULL) < 0) FAIL_STACK_ERROR
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sselect_hyperslab(sid2, H5S_SELECT_SET, hs_offset2, NULL, hs_size2, NULL) < 0)
+ FAIL_STACK_ERROR
/* Read element from the datasets */
read_elem = read_elem2 = u + 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
- if(H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0)
+ FAIL_STACK_ERROR
/* Verify unwritten element is proper value */
- if(read_elem != (u % 100)) FAIL_PUTS_ERROR("invalid element read");
- if(read_elem2 != (u % 100)) FAIL_PUTS_ERROR("invalid element read");
+ if (read_elem != (u % 100))
+ FAIL_PUTS_ERROR("invalid element read");
+ if (read_elem2 != (u % 100))
+ FAIL_PUTS_ERROR("invalid element read");
/* Don't expand chunks yet */
filter_expand_factor_g = 0;
/* Write element to the datasets */
write_elem = write_elem2 = u % 100;
- if(H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0) FAIL_STACK_ERROR
- if(H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2) < 0)
+ FAIL_STACK_ERROR
/* Read element from the datasets */
- read_elem = write_elem + 1;
+ read_elem = write_elem + 1;
read_elem2 = write_elem2 + 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
- if(H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dread(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &read_elem2) < 0)
+ FAIL_STACK_ERROR
/* Verify written element is read in */
- if(read_elem != write_elem) FAIL_PUTS_ERROR("invalid written element read");
- if(read_elem2 != write_elem2) FAIL_PUTS_ERROR("invalid written element read");
+ if (read_elem != write_elem)
+ FAIL_PUTS_ERROR("invalid written element read");
+ if (read_elem2 != write_elem2)
+ FAIL_PUTS_ERROR("invalid written element read");
/* Expand chunks now */
filter_expand_factor_g = 8;
/* Write element to the datasets */
write_elem = write_elem2 = u % 100;
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
status = H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem);
- } H5E_END_TRY;
- if(status >= 0) FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
-
- H5E_BEGIN_TRY {
- status = H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2);
- } H5E_END_TRY;
- if(status >= 0) FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
+ }
+ H5E_END_TRY;
+ if (status >= 0)
+ FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
+
+ H5E_BEGIN_TRY
+ {
+ status =
+ H5Dwrite(dsid2, H5T_NATIVE_UINT, scalar_sid, sid2, H5P_DEFAULT, &write_elem2);
+ }
+ H5E_END_TRY;
+ if (status >= 0)
+ FAIL_PUTS_ERROR("should fail to write to dataset when allocation time is not early");
} /* end for */
/* Close everything */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid2) < 0) FAIL_STACK_ERROR
- if(H5Sclose(scalar_sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid2) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid2) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(scalar_sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid2) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
/* Re-open file */
- if((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Delete the datasets */
- if(H5Ldelete(fid, "dset", H5P_DEFAULT) < 0) FAIL_STACK_ERROR
- if(H5Ldelete(fid, "dset2", H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ldelete(fid, "dset", H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
+ if (H5Ldelete(fid, "dset2", H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Close everything */
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
} /* end if */
- } /* end for */
+ } /* end for */
/* Unregister "expansion" filter */
- if(H5Zunregister(H5Z_FILTER_EXPAND) < 0) FAIL_STACK_ERROR
+ if (H5Zunregister(H5Z_FILTER_EXPAND) < 0)
+ FAIL_STACK_ERROR
/* Check that the filter was unregistered */
- if(FALSE != H5Zfilter_avail(H5Z_FILTER_EXPAND)) FAIL_STACK_ERROR
+ if (FALSE != H5Zfilter_avail(H5Z_FILTER_EXPAND))
+ FAIL_STACK_ERROR
PASSED();
} /* end else */
@@ -9535,7 +10461,8 @@ test_chunk_expand(hid_t fapl)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Pclose(dcpl2);
H5Dclose(dsid);
@@ -9544,11 +10471,11 @@ error:
H5Sclose(sid2);
H5Sclose(scalar_sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_chunk_expand() */
-
/*-------------------------------------------------------------------------
* Function: test_fixed_array
*
@@ -9582,413 +10509,474 @@ error:
static herr_t
test_fixed_array(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE]; /* File name */
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1; /* Dataset creation property list ID */
+ char filename[FILENAME_BUF_SIZE]; /* File name */
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t sid = -1; /* Dataspace ID for dataset with fixed dimensions */
- hid_t sid_big = -1; /* Dataspate ID for big dataset */
- hid_t sid_max = -1; /* Dataspace ID for dataset with maximum dimensions set */
+ hid_t sid = -1; /* Dataspace ID for dataset with fixed dimensions */
+ hid_t sid_big = -1; /* Dataspate ID for big dataset */
+ hid_t sid_max = -1; /* Dataspace ID for dataset with maximum dimensions set */
- hid_t dsid = -1; /* Dataset ID for dataset with fixed dimensions */
- hid_t dsid_big = -1; /* Dataset ID for big dataset with fixed dimensions */
- hid_t dsid_max = -1; /* Dataset ID for dataset with maximum dimensions set */
+ hid_t dsid = -1; /* Dataset ID for dataset with fixed dimensions */
+ hid_t dsid_big = -1; /* Dataset ID for big dataset with fixed dimensions */
+ hid_t dsid_max = -1; /* Dataset ID for dataset with maximum dimensions set */
- hsize_t dim2[2] = {48, 18}; /* Dataset dimensions */
- const hsize_t dim2_big[2] = {500, 60}; /* Big dataset dimensions */
- hsize_t dim2_max[2] = {120, 50}; /* Maximum dataset dimensions */
+ hsize_t dim2[2] = {48, 18}; /* Dataset dimensions */
+ const hsize_t dim2_big[2] = {500, 60}; /* Big dataset dimensions */
+ hsize_t dim2_max[2] = {120, 50}; /* Maximum dataset dimensions */
- hid_t mem_id; /* Memory space ID */
- hid_t big_mem_id; /* Memory space ID for big dataset */
+ hid_t mem_id; /* Memory space ID */
+ hid_t big_mem_id; /* Memory space ID for big dataset */
- hsize_t msize[1] = {POINTS}; /* Size of memory space */
- hsize_t msize_big[1] = {POINTS_BIG}; /* Size of memory space for big dataset */
+ hsize_t msize[1] = {POINTS}; /* Size of memory space */
+ hsize_t msize_big[1] = {POINTS_BIG}; /* Size of memory space for big dataset */
- int wbuf[POINTS]; /* write buffer */
- int *wbuf_big = NULL; /* write buffer for big dataset */
- int rbuf[POINTS]; /* read buffer */
- int *rbuf_big = NULL; /* read buffer for big dataset */
+ int wbuf[POINTS]; /* write buffer */
+ int *wbuf_big = NULL; /* write buffer for big dataset */
+ int rbuf[POINTS]; /* read buffer */
+ int *rbuf_big = NULL; /* read buffer for big dataset */
- const hsize_t chunk_dim2[2] = {4, 3}; /* Chunk dimensions */
+ const hsize_t chunk_dim2[2] = {4, 3}; /* Chunk dimensions */
- int **chunks = NULL; /* # of chunks for dataset dimensions */
- int **chunks_big = NULL; /* # of chunks for big dataset dimensions */
- int *chunks_bytes = NULL;
- int *chunks_big_bytes = NULL;
+ int **chunks = NULL; /* # of chunks for dataset dimensions */
+ int **chunks_big = NULL; /* # of chunks for big dataset dimensions */
+ int * chunks_bytes = NULL;
+ int * chunks_big_bytes = NULL;
- int chunk_row; /* chunk row index */
- int chunk_col; /* chunk column index */
+ int chunk_row; /* chunk row index */
+ int chunk_col; /* chunk column index */
- hsize_t **coord = NULL; /* datdaset coordinates */
- hsize_t **coord_big = NULL; /* big datdaset coordinates */
- hsize_t *coord_bytes = NULL;
- hsize_t *coord_big_bytes = NULL;
+ hsize_t **coord = NULL; /* datdaset coordinates */
+ hsize_t **coord_big = NULL; /* big datdaset coordinates */
+ hsize_t * coord_bytes = NULL;
+ hsize_t * coord_big_bytes = NULL;
- H5D_chunk_index_t idx_type; /* Dataset chunk index type */
- H5F_libver_t low, high; /* File format bounds */
- H5D_alloc_time_t alloc_time; /* Storage allocation time */
+ H5D_chunk_index_t idx_type; /* Dataset chunk index type */
+ H5F_libver_t low, high; /* File format bounds */
+ H5D_alloc_time_t alloc_time; /* Storage allocation time */
#ifdef H5_HAVE_FILTER_DEFLATE
- unsigned compress; /* Whether chunks should be compressed */
-#endif /* H5_HAVE_FILTER_DEFLATE */
+ unsigned compress; /* Whether chunks should be compressed */
+#endif /* H5_HAVE_FILTER_DEFLATE */
- h5_stat_size_t empty_size; /* Size of an empty file */
- h5_stat_size_t file_size; /* Size of each file created */
+ h5_stat_size_t empty_size; /* Size of an empty file */
+ h5_stat_size_t file_size; /* Size of each file created */
- size_t i, j; /* local index variables */
- herr_t ret; /* Generic return value */
- long ofs, inc;
- long rows;
- long cols;
+ size_t i, j; /* local index variables */
+ herr_t ret; /* Generic return value */
+ long ofs, inc;
+ long rows;
+ long cols;
TESTING("datasets w/fixed array as chunk index");
h5_fixname(FILENAME[12], fapl, filename, sizeof filename);
/* Set up 2D data arrays */
- if(NULL == (chunks_bytes = (int *)HDcalloc(12 * 6, sizeof(int))))
+ if (NULL == (chunks_bytes = (int *)HDcalloc(12 * 6, sizeof(int))))
TEST_ERROR;
- if(NULL == (chunks = (int **)HDcalloc(12, sizeof(chunks_bytes))))
+ if (NULL == (chunks = (int **)HDcalloc(12, sizeof(chunks_bytes))))
TEST_ERROR;
for (i = 0; i < 12; i++)
chunks[i] = chunks_bytes + (i * 6);
- if(NULL == (chunks_big_bytes = (int *)HDcalloc(125 * 20, sizeof(int))))
+ if (NULL == (chunks_big_bytes = (int *)HDcalloc(125 * 20, sizeof(int))))
TEST_ERROR;
- if(NULL == (chunks_big = (int **)HDcalloc(125, sizeof(chunks_big_bytes))))
+ if (NULL == (chunks_big = (int **)HDcalloc(125, sizeof(chunks_big_bytes))))
TEST_ERROR;
for (i = 0; i < 125; i++)
chunks_big[i] = chunks_big_bytes + (i * 20);
- if(NULL == (coord_bytes = (hsize_t *)HDcalloc(POINTS * 2, sizeof(hsize_t))))
+ if (NULL == (coord_bytes = (hsize_t *)HDcalloc(POINTS * 2, sizeof(hsize_t))))
TEST_ERROR;
- if(NULL == (coord = (hsize_t **)HDcalloc(POINTS, sizeof(coord_bytes))))
+ if (NULL == (coord = (hsize_t **)HDcalloc(POINTS, sizeof(coord_bytes))))
TEST_ERROR;
for (i = 0; i < POINTS; i++)
coord[i] = coord_bytes + (i * 2);
- if(NULL == (coord_big_bytes = (hsize_t *)HDcalloc(POINTS_BIG * 2, sizeof(hsize_t))))
+ if (NULL == (coord_big_bytes = (hsize_t *)HDcalloc(POINTS_BIG * 2, sizeof(hsize_t))))
TEST_ERROR;
- if(NULL == (coord_big = (hsize_t **)HDcalloc(POINTS_BIG, sizeof(coord_big_bytes))))
+ if (NULL == (coord_big = (hsize_t **)HDcalloc(POINTS_BIG, sizeof(coord_big_bytes))))
TEST_ERROR;
for (i = 0; i < POINTS_BIG; i++)
coord_big[i] = coord_big_bytes + (i * 2);
/* Check if we are using the latest version of the format */
- if(H5Pget_libver_bounds(fapl, &low, &high) < 0) FAIL_STACK_ERROR
+ if (H5Pget_libver_bounds(fapl, &low, &high) < 0)
+ FAIL_STACK_ERROR
/* Create and close the file to get the file size */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
STACK_ERROR
- if(H5Fclose(fid) < 0)
+ if (H5Fclose(fid) < 0)
STACK_ERROR
/* Get the size of the empty file */
- if((empty_size = h5_get_file_size(filename, fapl)) < 0)
+ if ((empty_size = h5_get_file_size(filename, fapl)) < 0)
TEST_ERROR
/* Allocate the "big" buffers */
- if(NULL == (wbuf_big = (int *)HDmalloc(sizeof(int) * POINTS_BIG)))
+ if (NULL == (wbuf_big = (int *)HDmalloc(sizeof(int) * POINTS_BIG)))
TEST_ERROR
- if(NULL == (rbuf_big = (int *)HDmalloc(sizeof(int) * POINTS_BIG)))
+ if (NULL == (rbuf_big = (int *)HDmalloc(sizeof(int) * POINTS_BIG)))
TEST_ERROR
#ifdef H5_HAVE_FILTER_DEFLATE
/* Loop over compressing chunks */
- for(compress = FALSE; compress <= TRUE; compress++) {
+ for (compress = FALSE; compress <= TRUE; compress++) {
#endif /* H5_HAVE_FILTER_DEFLATE */
/* Loop over storage allocation time */
- for(alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
+ for (alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Set chunking */
- if((ret = H5Pset_chunk(dcpl, 2, chunk_dim2)) < 0)
- FAIL_PUTS_ERROR(" Problem with setting chunk.")
+ if ((ret = H5Pset_chunk(dcpl, 2, chunk_dim2)) < 0)
+ FAIL_PUTS_ERROR(" Problem with setting chunk.")
#ifdef H5_HAVE_FILTER_DEFLATE
/* Check if we should compress the chunks */
- if(compress)
- if(H5Pset_deflate(dcpl, 9) < 0) FAIL_STACK_ERROR
+ if (compress)
+ if (H5Pset_deflate(dcpl, 9) < 0)
+ FAIL_STACK_ERROR
#endif /* H5_HAVE_FILTER_DEFLATE */
/* Set fill time */
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) FAIL_STACK_ERROR
+ if (H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
+ FAIL_STACK_ERROR
/* Set allocation time */
- if(H5Pset_alloc_time(dcpl, alloc_time) < 0) FAIL_STACK_ERROR
-
- /* Initialization of chunk array for repeated coordinates */
- for(i = 0; i < dim2[0]/chunk_dim2[0]; i++)
- for(j = 0; j < dim2[1]/chunk_dim2[1]; j++)
- chunks[i][j] = 0;
-
- rows = (long)(dim2[0]/chunk_dim2[0]);
- cols = (long)(dim2[1]/chunk_dim2[1]);
- make_random_offset_and_increment(rows * cols, &ofs, &inc);
-
- /* Generate random point coordinates. Only one point is selected per chunk */
- for(i = 0; i < POINTS; i++){
- H5_CHECKED_ASSIGN(chunk_row, int, ofs / cols, long);
- H5_CHECKED_ASSIGN(chunk_col, int, ofs % cols, long);
- ofs = (ofs + inc) % (rows * cols);
- HDassert(!chunks[chunk_row][chunk_col]);
-
- wbuf[i] = chunks[chunk_row][chunk_col] = chunk_row+chunk_col+1;
- coord[i][0] = (hsize_t)chunk_row * chunk_dim2[0];
- coord[i][1] = (hsize_t)chunk_col * chunk_dim2[1];
- } /* end for */
+ if (H5Pset_alloc_time(dcpl, alloc_time) < 0)
+ FAIL_STACK_ERROR
- /* Create first dataset with cur and max dimensions */
- if((sid_max = H5Screate_simple(2, dim2, dim2_max)) < 0) FAIL_STACK_ERROR
- dsid_max = H5Dcreate2(fid, DSET_FIXED_MAX, H5T_NATIVE_INT, sid_max, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- if(dsid_max < 0)
- FAIL_PUTS_ERROR(" Creating Chunked Dataset with maximum dimensions.")
+ /* Initialization of chunk array for repeated coordinates */
+ for (i = 0; i < dim2[0] / chunk_dim2[0]; i++)
+ for (j = 0; j < dim2[1] / chunk_dim2[1]; j++)
+ chunks[i][j] = 0;
+
+ rows = (long)(dim2[0] / chunk_dim2[0]);
+ cols = (long)(dim2[1] / chunk_dim2[1]);
+ make_random_offset_and_increment(rows * cols, &ofs, &inc);
+
+ /* Generate random point coordinates. Only one point is selected per chunk */
+ for (i = 0; i < POINTS; i++) {
+ H5_CHECKED_ASSIGN(chunk_row, int, ofs / cols, long);
+ H5_CHECKED_ASSIGN(chunk_col, int, ofs % cols, long);
+ ofs = (ofs + inc) % (rows * cols);
+ HDassert(!chunks[chunk_row][chunk_col]);
+
+ wbuf[i] = chunks[chunk_row][chunk_col] = chunk_row + chunk_col + 1;
+ coord[i][0] = (hsize_t)chunk_row * chunk_dim2[0];
+ coord[i][1] = (hsize_t)chunk_col * chunk_dim2[1];
+ } /* end for */
- /* Get the chunk index type */
- if(H5D__layout_idx_type_test(dsid_max, &idx_type) < 0) FAIL_STACK_ERROR
+ /* Create first dataset with cur and max dimensions */
+ if ((sid_max = H5Screate_simple(2, dim2, dim2_max)) < 0)
+ FAIL_STACK_ERROR
+ dsid_max =
+ H5Dcreate2(fid, DSET_FIXED_MAX, H5T_NATIVE_INT, sid_max, H5P_DEFAULT, dcpl, H5P_DEFAULT);
+ if (dsid_max < 0)
+ FAIL_PUTS_ERROR(" Creating Chunked Dataset with maximum dimensions.")
+
+ /* Get the chunk index type */
+ if (H5D__layout_idx_type_test(dsid_max, &idx_type) < 0)
+ FAIL_STACK_ERROR
- /* Chunk index type depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST) {
- if(alloc_time == H5D_ALLOC_TIME_EARLY
+ /* Chunk index type depends on whether we are using the latest version of the format */
+ if (low == H5F_LIBVER_LATEST) {
+ if (alloc_time == H5D_ALLOC_TIME_EARLY
#ifdef H5_HAVE_FILTER_DEFLATE
- && !compress
+ && !compress
#endif /* H5_HAVE_FILTER_DEFLATE */
- ) {
- if(idx_type != H5D_CHUNK_IDX_NONE)
- FAIL_PUTS_ERROR("should be using Non Index as index");
- } else if (idx_type != H5D_CHUNK_IDX_FARRAY)
- FAIL_PUTS_ERROR("should be using Fixed Array as index");
- } /* end if */
- else {
- if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
- } /* end else */
-
- /* Create dataspace for write buffer */
- if((mem_id = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ ) {
+ if (idx_type != H5D_CHUNK_IDX_NONE)
+ FAIL_PUTS_ERROR("should be using Non Index as index");
+ }
+ else if (idx_type != H5D_CHUNK_IDX_FARRAY)
+ FAIL_PUTS_ERROR("should be using Fixed Array as index");
+ } /* end if */
+ else {
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ } /* end else */
- /* Select the random points for writing */
- if(H5Sselect_elements(sid_max, H5S_SELECT_SET, POINTS, (const hsize_t *)coord_bytes) < 0)
- TEST_ERROR;
+ /* Create dataspace for write buffer */
+ if ((mem_id = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
- /* Write into dataset */
- if(H5Dwrite(dsid_max, H5T_NATIVE_INT, mem_id, sid_max, H5P_DEFAULT, wbuf) < 0) TEST_ERROR;
+ /* Select the random points for writing */
+ if (H5Sselect_elements(sid_max, H5S_SELECT_SET, POINTS, (const hsize_t *)coord_bytes) < 0)
+ TEST_ERROR;
- /* Closing */
- if(H5Dclose(dsid_max) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid_max) < 0) FAIL_STACK_ERROR
- if(H5Sclose(mem_id) < 0) FAIL_STACK_ERROR
+ /* Write into dataset */
+ if (H5Dwrite(dsid_max, H5T_NATIVE_INT, mem_id, sid_max, H5P_DEFAULT, wbuf) < 0)
+ TEST_ERROR;
+ /* Closing */
+ if (H5Dclose(dsid_max) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid_max) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(mem_id) < 0)
+ FAIL_STACK_ERROR
- /* Create second dataset with curr dim but NULL max dim */
- if((sid = H5Screate_simple(2, dim2, NULL)) < 0) FAIL_STACK_ERROR
- dsid = H5Dcreate2(fid, DSET_FIXED_NOMAX, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- if(dsid < 0)
- FAIL_PUTS_ERROR(" Creating Chunked Dataset.")
+ /* Create second dataset with curr dim but NULL max dim */
+ if ((sid = H5Screate_simple(2, dim2, NULL)) < 0)
+ FAIL_STACK_ERROR
+ dsid = H5Dcreate2(fid, DSET_FIXED_NOMAX, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
+ if (dsid < 0)
+ FAIL_PUTS_ERROR(" Creating Chunked Dataset.")
- /* Get the chunk index type */
- if(H5D__layout_idx_type_test(dsid, &idx_type) < 0) FAIL_STACK_ERROR
+ /* Get the chunk index type */
+ if (H5D__layout_idx_type_test(dsid, &idx_type) < 0)
+ FAIL_STACK_ERROR
- /* Chunk index type depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST) {
- if(alloc_time == H5D_ALLOC_TIME_EARLY
+ /* Chunk index type depends on whether we are using the latest version of the format */
+ if (low == H5F_LIBVER_LATEST) {
+ if (alloc_time == H5D_ALLOC_TIME_EARLY
#ifdef H5_HAVE_FILTER_DEFLATE
- && !compress
+ && !compress
#endif /* H5_HAVE_FILTER_DEFLATE */
- ) {
- if(idx_type != H5D_CHUNK_IDX_NONE)
- FAIL_PUTS_ERROR("should be using Non Index as index");
- } else if(idx_type != H5D_CHUNK_IDX_FARRAY)
- FAIL_PUTS_ERROR("should be using Fixed Array as index");
- } else {
- if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
- } /* end else */
+ ) {
+ if (idx_type != H5D_CHUNK_IDX_NONE)
+ FAIL_PUTS_ERROR("should be using Non Index as index");
+ }
+ else if (idx_type != H5D_CHUNK_IDX_FARRAY)
+ FAIL_PUTS_ERROR("should be using Fixed Array as index");
+ }
+ else {
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ } /* end else */
- /* Create dataspace for write buffer */
- if((mem_id = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ /* Create dataspace for write buffer */
+ if ((mem_id = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
- /* Select the random points for writing */
- if(H5Sselect_elements(sid, H5S_SELECT_SET, POINTS, (const hsize_t *)coord_bytes) < 0)
- TEST_ERROR;
+ /* Select the random points for writing */
+ if (H5Sselect_elements(sid, H5S_SELECT_SET, POINTS, (const hsize_t *)coord_bytes) < 0)
+ TEST_ERROR;
- /* Write into dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, mem_id, sid, H5P_DEFAULT, wbuf) < 0) TEST_ERROR;
+ /* Write into dataset */
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, mem_id, sid, H5P_DEFAULT, wbuf) < 0)
+ TEST_ERROR;
- /* Closing */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(mem_id) < 0) FAIL_STACK_ERROR
+ /* Closing */
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(mem_id) < 0)
+ FAIL_STACK_ERROR
- /* Create the third dataset with bigger size and both curr & max dimensions are the same */
- if((sid_big = H5Screate_simple(2, dim2_big, dim2_big)) < 0) FAIL_STACK_ERROR
- dsid_big = H5Dcreate2(fid, DSET_FIXED_BIG, H5T_NATIVE_INT, sid_big, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- if(dsid_big < 0)
- FAIL_PUTS_ERROR(" Creating Big Chunked Dataset.")
+ /* Create the third dataset with bigger size and both curr & max dimensions are the same */
+ if ((sid_big = H5Screate_simple(2, dim2_big, dim2_big)) < 0)
+ FAIL_STACK_ERROR
+ dsid_big =
+ H5Dcreate2(fid, DSET_FIXED_BIG, H5T_NATIVE_INT, sid_big, H5P_DEFAULT, dcpl, H5P_DEFAULT);
+ if (dsid_big < 0)
+ FAIL_PUTS_ERROR(" Creating Big Chunked Dataset.")
- /* Get the chunk index type */
- if(H5D__layout_idx_type_test(dsid_big, &idx_type) < 0) FAIL_STACK_ERROR
+ /* Get the chunk index type */
+ if (H5D__layout_idx_type_test(dsid_big, &idx_type) < 0)
+ FAIL_STACK_ERROR
- /* Chunk index type depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST) {
- if(alloc_time == H5D_ALLOC_TIME_EARLY
+ /* Chunk index type depends on whether we are using the latest version of the format */
+ if (low == H5F_LIBVER_LATEST) {
+ if (alloc_time == H5D_ALLOC_TIME_EARLY
#ifdef H5_HAVE_FILTER_DEFLATE
- && !compress
+ && !compress
#endif /* H5_HAVE_FILTER_DEFLATE */
- ) {
- if(idx_type != H5D_CHUNK_IDX_NONE)
- FAIL_PUTS_ERROR("should be using Non Index as index");
- } else if(idx_type != H5D_CHUNK_IDX_FARRAY)
- FAIL_PUTS_ERROR("should be using Fixed Array as index");
- } /* end if */
- else {
- if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
- } /* end else */
+ ) {
+ if (idx_type != H5D_CHUNK_IDX_NONE)
+ FAIL_PUTS_ERROR("should be using Non Index as index");
+ }
+ else if (idx_type != H5D_CHUNK_IDX_FARRAY)
+ FAIL_PUTS_ERROR("should be using Fixed Array as index");
+ } /* end if */
+ else {
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ } /* end else */
- /* Initialization of chunk array for repeated coordinates */
- for(i = 0; i < dim2_big[0]/chunk_dim2[0]; i++)
- for(j = 0; j < dim2_big[1]/chunk_dim2[1]; j++)
- chunks_big[i][j] = 0;
-
- rows = (long)(dim2_big[0]/chunk_dim2[0]);
- cols = (long)(dim2_big[1]/chunk_dim2[1]);
- make_random_offset_and_increment(rows * cols, &ofs, &inc);
-
- /* Generate random point coordinates. Only one point is selected per chunk */
- for(i = 0; i < POINTS_BIG; i++){
- H5_CHECKED_ASSIGN(chunk_row, int, ofs / cols, long);
- H5_CHECKED_ASSIGN(chunk_col, int, ofs % cols, long);
- ofs = (ofs + inc) % (rows * cols);
- HDassert(!chunks_big[chunk_row][chunk_col]);
-
- wbuf_big[i] = chunks_big[chunk_row][chunk_col] = chunk_row+chunk_col+1;
- coord_big[i][0] = (hsize_t)chunk_row * chunk_dim2[0];
- coord_big[i][1] = (hsize_t)chunk_col * chunk_dim2[1];
- } /* end for */
+ /* Initialization of chunk array for repeated coordinates */
+ for (i = 0; i < dim2_big[0] / chunk_dim2[0]; i++)
+ for (j = 0; j < dim2_big[1] / chunk_dim2[1]; j++)
+ chunks_big[i][j] = 0;
+
+ rows = (long)(dim2_big[0] / chunk_dim2[0]);
+ cols = (long)(dim2_big[1] / chunk_dim2[1]);
+ make_random_offset_and_increment(rows * cols, &ofs, &inc);
+
+ /* Generate random point coordinates. Only one point is selected per chunk */
+ for (i = 0; i < POINTS_BIG; i++) {
+ H5_CHECKED_ASSIGN(chunk_row, int, ofs / cols, long);
+ H5_CHECKED_ASSIGN(chunk_col, int, ofs % cols, long);
+ ofs = (ofs + inc) % (rows * cols);
+ HDassert(!chunks_big[chunk_row][chunk_col]);
+
+ wbuf_big[i] = chunks_big[chunk_row][chunk_col] = chunk_row + chunk_col + 1;
+ coord_big[i][0] = (hsize_t)chunk_row * chunk_dim2[0];
+ coord_big[i][1] = (hsize_t)chunk_col * chunk_dim2[1];
+ } /* end for */
- /* Create dataspace for write buffer */
- if((big_mem_id = H5Screate_simple(1, msize_big, NULL)) < 0) TEST_ERROR;
+ /* Create dataspace for write buffer */
+ if ((big_mem_id = H5Screate_simple(1, msize_big, NULL)) < 0)
+ TEST_ERROR;
- /* Select the random points for writing */
- if(H5Sselect_elements(sid_big, H5S_SELECT_SET, POINTS_BIG, (const hsize_t *)coord_big_bytes) < 0)
- TEST_ERROR;
+ /* Select the random points for writing */
+ if (H5Sselect_elements(sid_big, H5S_SELECT_SET, POINTS_BIG, (const hsize_t *)coord_big_bytes) < 0)
+ TEST_ERROR;
- /* Write into dataset */
- if(H5Dwrite(dsid_big, H5T_NATIVE_INT, big_mem_id, sid_big, H5P_DEFAULT, wbuf_big) < 0) TEST_ERROR;
+ /* Write into dataset */
+ if (H5Dwrite(dsid_big, H5T_NATIVE_INT, big_mem_id, sid_big, H5P_DEFAULT, wbuf_big) < 0)
+ TEST_ERROR;
- /* Closing */
- if(H5Dclose(dsid_big) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid_big) < 0) FAIL_STACK_ERROR
- if(H5Sclose(big_mem_id) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
+ /* Closing */
+ if (H5Dclose(dsid_big) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid_big) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(big_mem_id) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
- /* Open the first dataset */
- if((dsid = H5Dopen2(fid, DSET_FIXED_MAX, H5P_DEFAULT)) < 0) TEST_ERROR;
+ /* Open the first dataset */
+ if ((dsid = H5Dopen2(fid, DSET_FIXED_MAX, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
- /* Get dataset dataspace */
- if((sid = H5Dget_space(dsid)) < 0) TEST_ERROR;
+ /* Get dataset dataspace */
+ if ((sid = H5Dget_space(dsid)) < 0)
+ TEST_ERROR;
- /* Create dataspace for read buffer */
- if((mem_id = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ /* Create dataspace for read buffer */
+ if ((mem_id = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
- /* Select the random points for reading */
- if(H5Sselect_elements (sid, H5S_SELECT_SET, POINTS, (const hsize_t *)coord_bytes) < 0) TEST_ERROR;
+ /* Select the random points for reading */
+ if (H5Sselect_elements(sid, H5S_SELECT_SET, POINTS, (const hsize_t *)coord_bytes) < 0)
+ TEST_ERROR;
- /* Read from dataset */
- if(H5Dread(dsid, H5T_NATIVE_INT, mem_id, sid, H5P_DEFAULT, rbuf) < 0) TEST_ERROR;
+ /* Read from dataset */
+ if (H5Dread(dsid, H5T_NATIVE_INT, mem_id, sid, H5P_DEFAULT, rbuf) < 0)
+ TEST_ERROR;
- /* Verify that written and read data are the same */
- for(i = 0; i < POINTS; i++)
- if(rbuf[i] != wbuf[i]){
- HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n",
- __LINE__,(unsigned)i,wbuf[i],(unsigned)i,rbuf[i]);
- TEST_ERROR;
- } /* end if */
+ /* Verify that written and read data are the same */
+ for (i = 0; i < POINTS; i++)
+ if (rbuf[i] != wbuf[i]) {
+ HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n", __LINE__,
+ (unsigned)i, wbuf[i], (unsigned)i, rbuf[i]);
+ TEST_ERROR;
+ } /* end if */
- /* Closing */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(mem_id) < 0) FAIL_STACK_ERROR
+ /* Closing */
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(mem_id) < 0)
+ FAIL_STACK_ERROR
- /* Open the second dataset */
- if((dsid = H5Dopen2(fid, DSET_FIXED_NOMAX, H5P_DEFAULT)) < 0) TEST_ERROR;
+ /* Open the second dataset */
+ if ((dsid = H5Dopen2(fid, DSET_FIXED_NOMAX, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
- /* Get dataset dataspace */
- if((sid = H5Dget_space(dsid)) < 0) TEST_ERROR;
+ /* Get dataset dataspace */
+ if ((sid = H5Dget_space(dsid)) < 0)
+ TEST_ERROR;
- /* Create dataspace for read buffer */
- if((mem_id = H5Screate_simple(1, msize, NULL)) < 0) TEST_ERROR;
+ /* Create dataspace for read buffer */
+ if ((mem_id = H5Screate_simple(1, msize, NULL)) < 0)
+ TEST_ERROR;
- /* Select the random points for reading */
- if(H5Sselect_elements (sid, H5S_SELECT_SET, POINTS, (const hsize_t *)coord_bytes) < 0) TEST_ERROR;
+ /* Select the random points for reading */
+ if (H5Sselect_elements(sid, H5S_SELECT_SET, POINTS, (const hsize_t *)coord_bytes) < 0)
+ TEST_ERROR;
- /* Read from dataset */
- if(H5Dread(dsid, H5T_NATIVE_INT, mem_id, sid, H5P_DEFAULT, rbuf) < 0) TEST_ERROR;
+ /* Read from dataset */
+ if (H5Dread(dsid, H5T_NATIVE_INT, mem_id, sid, H5P_DEFAULT, rbuf) < 0)
+ TEST_ERROR;
- /* Verify that written and read data are the same */
- for(i = 0; i < POINTS; i++)
- if(rbuf[i] != wbuf[i]){
- HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n",
- __LINE__,(unsigned)i,wbuf[i],(unsigned)i,rbuf[i]);
- TEST_ERROR;
- } /* end if */
+ /* Verify that written and read data are the same */
+ for (i = 0; i < POINTS; i++)
+ if (rbuf[i] != wbuf[i]) {
+ HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n", __LINE__,
+ (unsigned)i, wbuf[i], (unsigned)i, rbuf[i]);
+ TEST_ERROR;
+ } /* end if */
- /* Closing */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(mem_id) < 0) FAIL_STACK_ERROR
+ /* Closing */
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(mem_id) < 0)
+ FAIL_STACK_ERROR
- /* Open the third dataset */
- if((dsid_big = H5Dopen2(fid, DSET_FIXED_BIG, H5P_DEFAULT)) < 0) TEST_ERROR;
- /* Get dataset dataspace */
- if((sid_big = H5Dget_space(dsid_big)) < 0) TEST_ERROR;
+ /* Open the third dataset */
+ if ((dsid_big = H5Dopen2(fid, DSET_FIXED_BIG, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
+ /* Get dataset dataspace */
+ if ((sid_big = H5Dget_space(dsid_big)) < 0)
+ TEST_ERROR;
- /* Create dataspace for read buffer */
- if((big_mem_id = H5Screate_simple(1, msize_big, NULL)) < 0) TEST_ERROR;
+ /* Create dataspace for read buffer */
+ if ((big_mem_id = H5Screate_simple(1, msize_big, NULL)) < 0)
+ TEST_ERROR;
- /* Select the random points for reading */
- if(H5Sselect_elements (sid_big, H5S_SELECT_SET, POINTS_BIG, (const hsize_t *)coord_big_bytes) < 0) TEST_ERROR;
- /* Read from dataset */
- if(H5Dread(dsid_big, H5T_NATIVE_INT, big_mem_id, sid_big, H5P_DEFAULT, rbuf_big) < 0) TEST_ERROR;
+ /* Select the random points for reading */
+ if (H5Sselect_elements(sid_big, H5S_SELECT_SET, POINTS_BIG, (const hsize_t *)coord_big_bytes) < 0)
+ TEST_ERROR;
+ /* Read from dataset */
+ if (H5Dread(dsid_big, H5T_NATIVE_INT, big_mem_id, sid_big, H5P_DEFAULT, rbuf_big) < 0)
+ TEST_ERROR;
- /* Verify that written and read data are the same */
- for(i = 0; i < POINTS_BIG; i++)
- if(rbuf_big[i] != wbuf_big[i]) {
- HDprintf(" Line %d: Incorrect value, wbuf_bif[%u]=%d, rbuf_big[%u]=%d\n",
- __LINE__,(unsigned)i,wbuf_big[i],(unsigned)i,rbuf_big[i]);
- TEST_ERROR;
- } /* end if */
+ /* Verify that written and read data are the same */
+ for (i = 0; i < POINTS_BIG; i++)
+ if (rbuf_big[i] != wbuf_big[i]) {
+ HDprintf(" Line %d: Incorrect value, wbuf_bif[%u]=%d, rbuf_big[%u]=%d\n", __LINE__,
+ (unsigned)i, wbuf_big[i], (unsigned)i, rbuf_big[i]);
+ TEST_ERROR;
+ } /* end if */
- /* Closing */
- if(H5Dclose(dsid_big) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid_big) < 0) FAIL_STACK_ERROR
- if(H5Sclose(big_mem_id) < 0) FAIL_STACK_ERROR
+ /* Closing */
+ if (H5Dclose(dsid_big) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid_big) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(big_mem_id) < 0)
+ FAIL_STACK_ERROR
/* Delete datasets */
- if(H5Ldelete(fid, DSET_FIXED_BIG, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
- if(H5Ldelete(fid, DSET_FIXED_NOMAX, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
- if(H5Ldelete(fid, DSET_FIXED_MAX, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ldelete(fid, DSET_FIXED_BIG, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
+ if (H5Ldelete(fid, DSET_FIXED_NOMAX, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
+ if (H5Ldelete(fid, DSET_FIXED_MAX, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Close everything */
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
- /* Get the size of the file */
- if((file_size = h5_get_file_size(filename, fapl)) < 0)
- TEST_ERROR
+ /* Get the size of the file */
+ if ((file_size = h5_get_file_size(filename, fapl)) < 0)
+ TEST_ERROR
- /* Verify the file is correct size */
- if(file_size != empty_size)
- TEST_ERROR
+ /* Verify the file is correct size */
+ if (file_size != empty_size)
+ TEST_ERROR
} /* end for */
#ifdef H5_HAVE_FILTER_DEFLATE
- } /* end for */
+ } /* end for */
#endif /* H5_HAVE_FILTER_DEFLATE */
/* Release buffers */
@@ -10008,13 +10996,15 @@ test_fixed_array(hid_t fapl)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(dsid);
H5Sclose(sid);
H5Sclose(mem_id);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
HDfree(wbuf_big);
HDfree(rbuf_big);
@@ -10030,7 +11020,6 @@ error:
return FAIL;
} /* end test_fixed_array() */
-
/*-------------------------------------------------------------------------
* Function: test_single_chunk
*
@@ -10059,211 +11048,241 @@ error:
static herr_t
test_single_chunk(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE]; /* File name */
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t t_dcpl = -1; /* Dataset creation property list ID */
-
- hid_t sid = -1, sid_max = -1; /* Dataspace ID for dataset with fixed dimensions */
- hid_t did = -1, did_max = -1; /* Dataset ID for dataset with fixed dimensions */
- hsize_t dim2[2] = {DSET_DIM1, DSET_DIM2}; /* Dataset dimensions */
- hsize_t t_dim2[2] = {DSET_TMP_DIM1, DSET_TMP_DIM2}; /* Dataset dimensions */
- int *wbuf = NULL; /* write buffer */
- int *t_wbuf = NULL; /* write buffer */
- int *rbuf = NULL; /* read buffer */
- int *t_rbuf = NULL; /* read buffer */
-
- H5D_chunk_index_t idx_type; /* Dataset chunk index type */
- H5F_libver_t low, high; /* File format bounds */
- H5D_alloc_time_t alloc_time; /* Storage allocation time */
+ char filename[FILENAME_BUF_SIZE]; /* File name */
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
+ hid_t t_dcpl = -1; /* Dataset creation property list ID */
+
+ hid_t sid = -1, sid_max = -1; /* Dataspace ID for dataset with fixed dimensions */
+ hid_t did = -1, did_max = -1; /* Dataset ID for dataset with fixed dimensions */
+ hsize_t dim2[2] = {DSET_DIM1, DSET_DIM2}; /* Dataset dimensions */
+ hsize_t t_dim2[2] = {DSET_TMP_DIM1, DSET_TMP_DIM2}; /* Dataset dimensions */
+ int * wbuf = NULL; /* write buffer */
+ int * t_wbuf = NULL; /* write buffer */
+ int * rbuf = NULL; /* read buffer */
+ int * t_rbuf = NULL; /* read buffer */
+
+ H5D_chunk_index_t idx_type; /* Dataset chunk index type */
+ H5F_libver_t low, high; /* File format bounds */
+ H5D_alloc_time_t alloc_time; /* Storage allocation time */
#ifdef H5_HAVE_FILTER_DEFLATE
- unsigned compress; /* Whether chunks should be compressed */
-#endif /* H5_HAVE_FILTER_DEFLATE */
+ unsigned compress; /* Whether chunks should be compressed */
+#endif /* H5_HAVE_FILTER_DEFLATE */
- size_t n, i; /* local index variables */
- herr_t ret; /* Generic return value */
- h5_stat_size_t empty_size; /* Size of an empty file */
- h5_stat_size_t file_size; /* Size of each file created */
+ size_t n, i; /* local index variables */
+ herr_t ret; /* Generic return value */
+ h5_stat_size_t empty_size; /* Size of an empty file */
+ h5_stat_size_t file_size; /* Size of each file created */
TESTING("datasets w/Single Chunk indexing");
h5_fixname(FILENAME[17], fapl, filename, sizeof filename);
/* Check if we are using the latest version of the format */
- if(H5Pget_libver_bounds(fapl, &low, &high) < 0) FAIL_STACK_ERROR
+ if (H5Pget_libver_bounds(fapl, &low, &high) < 0)
+ FAIL_STACK_ERROR
/* Create and close the file to get the file size */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
STACK_ERROR
- if(H5Fclose(fid) < 0)
+ if (H5Fclose(fid) < 0)
STACK_ERROR
/* Get the size of the empty file */
- if((empty_size = h5_get_file_size(filename, fapl)) < 0)
+ if ((empty_size = h5_get_file_size(filename, fapl)) < 0)
TEST_ERROR
/* Allocate the buffers */
- if(NULL == (wbuf = (int *)HDmalloc(sizeof(int) * (DSET_DIM1 * DSET_DIM2))))
+ if (NULL == (wbuf = (int *)HDmalloc(sizeof(int) * (DSET_DIM1 * DSET_DIM2))))
TEST_ERROR
- if(NULL == (rbuf = (int *)HDmalloc(sizeof(int) * (DSET_DIM1 * DSET_DIM2))))
+ if (NULL == (rbuf = (int *)HDmalloc(sizeof(int) * (DSET_DIM1 * DSET_DIM2))))
TEST_ERROR
- if(NULL == (t_wbuf = (int *)HDmalloc(sizeof(int) * (DSET_TMP_DIM1 * DSET_TMP_DIM2))))
+ if (NULL == (t_wbuf = (int *)HDmalloc(sizeof(int) * (DSET_TMP_DIM1 * DSET_TMP_DIM2))))
TEST_ERROR
- if(NULL == (t_rbuf = (int *)HDmalloc(sizeof(int) * (DSET_TMP_DIM1 * DSET_TMP_DIM2))))
+ if (NULL == (t_rbuf = (int *)HDmalloc(sizeof(int) * (DSET_TMP_DIM1 * DSET_TMP_DIM2))))
TEST_ERROR
- for(i = n = 0; i < (DSET_DIM1 * DSET_DIM2); i++)
- wbuf[i] = (int)n++;
+ for (i = n = 0; i < (DSET_DIM1 * DSET_DIM2); i++)
+ wbuf[i] = (int)n++;
- for(i = n = 0; i < (DSET_TMP_DIM1* DSET_TMP_DIM2); i++)
- t_wbuf[i] = (int)n++;
+ for (i = n = 0; i < (DSET_TMP_DIM1 * DSET_TMP_DIM2); i++)
+ t_wbuf[i] = (int)n++;
#ifdef H5_HAVE_FILTER_DEFLATE
/* Loop over compressing chunks */
- for(compress = FALSE; compress <= TRUE; compress++) {
+ for (compress = FALSE; compress <= TRUE; compress++) {
#endif /* H5_HAVE_FILTER_DEFLATE */
/* Loop over storage allocation time */
- for(alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
+ for (alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
- if((t_dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
+ if ((t_dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Set chunking */
- if((ret = H5Pset_chunk(dcpl, 2, dim2)) < 0)
- FAIL_PUTS_ERROR(" Problem with setting chunk.")
+ if ((ret = H5Pset_chunk(dcpl, 2, dim2)) < 0)
+ FAIL_PUTS_ERROR(" Problem with setting chunk.")
- if((ret = H5Pset_chunk(t_dcpl, 2, t_dim2)) < 0)
- FAIL_PUTS_ERROR(" Problem with setting chunk.")
+ if ((ret = H5Pset_chunk(t_dcpl, 2, t_dim2)) < 0)
+ FAIL_PUTS_ERROR(" Problem with setting chunk.")
#ifdef H5_HAVE_FILTER_DEFLATE
/* Check if we should compress the chunks */
- if(compress) {
- if(H5Pset_deflate(dcpl, 9) < 0) FAIL_STACK_ERROR
- if(H5Pset_deflate(t_dcpl, 9) < 0) FAIL_STACK_ERROR
- }
+ if (compress) {
+ if (H5Pset_deflate(dcpl, 9) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_deflate(t_dcpl, 9) < 0)
+ FAIL_STACK_ERROR
+ }
#endif /* H5_HAVE_FILTER_DEFLATE */
/* Set fill time */
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) FAIL_STACK_ERROR
- if(H5Pset_fill_time(t_dcpl, H5D_FILL_TIME_ALLOC) < 0) FAIL_STACK_ERROR
+ if (H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_fill_time(t_dcpl, H5D_FILL_TIME_ALLOC) < 0)
+ FAIL_STACK_ERROR
/* Set allocation time */
- if(H5Pset_alloc_time(dcpl, alloc_time) < 0) FAIL_STACK_ERROR
- if(H5Pset_alloc_time(t_dcpl, alloc_time) < 0) FAIL_STACK_ERROR
+ if (H5Pset_alloc_time(dcpl, alloc_time) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_alloc_time(t_dcpl, alloc_time) < 0)
+ FAIL_STACK_ERROR
- /* Create first dataset with cur and max dimensions */
- if((sid_max = H5Screate_simple(2, dim2, dim2)) < 0) FAIL_STACK_ERROR
- did_max = H5Dcreate2(fid, DSET_SINGLE_MAX, H5T_NATIVE_INT, sid_max, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- if(did_max < 0)
- FAIL_PUTS_ERROR(" Creating Chunked Dataset with maximum dimensions.")
+ /* Create first dataset with cur and max dimensions */
+ if ((sid_max = H5Screate_simple(2, dim2, dim2)) < 0)
+ FAIL_STACK_ERROR
+ did_max =
+ H5Dcreate2(fid, DSET_SINGLE_MAX, H5T_NATIVE_INT, sid_max, H5P_DEFAULT, dcpl, H5P_DEFAULT);
+ if (did_max < 0)
+ FAIL_PUTS_ERROR(" Creating Chunked Dataset with maximum dimensions.")
- /* Get the chunk index type */
- if(H5D__layout_idx_type_test(did_max, &idx_type) < 0) FAIL_STACK_ERROR
+ /* Get the chunk index type */
+ if (H5D__layout_idx_type_test(did_max, &idx_type) < 0)
+ FAIL_STACK_ERROR
- /* Chunk index type depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST) {
- if(idx_type != H5D_CHUNK_IDX_SINGLE)
- FAIL_PUTS_ERROR("should be using Single Chunk indexing");
- } /* end if */
- else {
- if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
- } /* end else */
+ /* Chunk index type depends on whether we are using the latest version of the format */
+ if (low == H5F_LIBVER_LATEST) {
+ if (idx_type != H5D_CHUNK_IDX_SINGLE)
+ FAIL_PUTS_ERROR("should be using Single Chunk indexing");
+ } /* end if */
+ else {
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ } /* end else */
- /* Write into dataset */
- if(H5Dwrite(did_max, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0) TEST_ERROR;
+ /* Write into dataset */
+ if (H5Dwrite(did_max, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
+ TEST_ERROR;
- /* Closing */
- if(H5Dclose(did_max) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid_max) < 0) FAIL_STACK_ERROR
+ /* Closing */
+ if (H5Dclose(did_max) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid_max) < 0)
+ FAIL_STACK_ERROR
- /* Create second dataset with curr dim but NULL max dim */
- if((sid = H5Screate_simple(2, t_dim2, NULL)) < 0) FAIL_STACK_ERROR
- did = H5Dcreate2(fid, DSET_SINGLE_NOMAX, H5T_NATIVE_INT, sid, H5P_DEFAULT, t_dcpl, H5P_DEFAULT);
- if(did < 0)
- FAIL_PUTS_ERROR(" Creating Chunked Dataset.")
+ /* Create second dataset with curr dim but NULL max dim */
+ if ((sid = H5Screate_simple(2, t_dim2, NULL)) < 0)
+ FAIL_STACK_ERROR
+ did = H5Dcreate2(fid, DSET_SINGLE_NOMAX, H5T_NATIVE_INT, sid, H5P_DEFAULT, t_dcpl, H5P_DEFAULT);
+ if (did < 0)
+ FAIL_PUTS_ERROR(" Creating Chunked Dataset.")
- /* Get the chunk index type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0) FAIL_STACK_ERROR
-
- /* Chunk index type depends on whether we are using the latest version of the format */
- if(low == H5F_LIBVER_LATEST) {
- if(idx_type != H5D_CHUNK_IDX_SINGLE)
- FAIL_PUTS_ERROR("should be using Single Chunk indexing");
- } else {
- if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index");
- } /* end else */
+ /* Get the chunk index type */
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
+ FAIL_STACK_ERROR
- /* Write into dataset */
- if(H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, t_wbuf) < 0) TEST_ERROR;
+ /* Chunk index type depends on whether we are using the latest version of the format */
+ if (low == H5F_LIBVER_LATEST) {
+ if (idx_type != H5D_CHUNK_IDX_SINGLE)
+ FAIL_PUTS_ERROR("should be using Single Chunk indexing");
+ }
+ else {
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index");
+ } /* end else */
- /* Closing */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
+ /* Write into dataset */
+ if (H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, t_wbuf) < 0)
+ TEST_ERROR;
- /* Open the first dataset */
- if((did_max = H5Dopen2(fid, DSET_SINGLE_MAX, H5P_DEFAULT)) < 0) TEST_ERROR;
+ /* Closing */
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
- /* Read from dataset */
- if(H5Dread(did_max, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0) TEST_ERROR;
+ /* Open the first dataset */
+ if ((did_max = H5Dopen2(fid, DSET_SINGLE_MAX, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
- /* Verify that written and read data are the same */
- for(i = 0; i < (DSET_DIM1 * DSET_DIM2); i++)
- if(rbuf[i] != wbuf[i]){
- HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n",
- __LINE__,(unsigned)i,wbuf[i],(unsigned)i,rbuf[i]);
- TEST_ERROR;
- } /* end if */
+ /* Read from dataset */
+ if (H5Dread(did_max, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
+ TEST_ERROR;
- /* Closing */
- if(H5Dclose(did_max) < 0) FAIL_STACK_ERROR
+ /* Verify that written and read data are the same */
+ for (i = 0; i < (DSET_DIM1 * DSET_DIM2); i++)
+ if (rbuf[i] != wbuf[i]) {
+ HDprintf(" Line %d: Incorrect value, wbuf[%u]=%d, rbuf[%u]=%d\n", __LINE__,
+ (unsigned)i, wbuf[i], (unsigned)i, rbuf[i]);
+ TEST_ERROR;
+ } /* end if */
- /* Open the second dataset */
- if((did = H5Dopen2(fid, DSET_SINGLE_NOMAX, H5P_DEFAULT)) < 0) TEST_ERROR;
+ /* Closing */
+ if (H5Dclose(did_max) < 0)
+ FAIL_STACK_ERROR
- HDmemset(rbuf, 0, sizeof(int) * (DSET_DIM1 * DSET_DIM2));
+ /* Open the second dataset */
+ if ((did = H5Dopen2(fid, DSET_SINGLE_NOMAX, H5P_DEFAULT)) < 0)
+ TEST_ERROR;
- /* Read from dataset */
- if(H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, t_rbuf) < 0) TEST_ERROR;
+ HDmemset(rbuf, 0, sizeof(int) * (DSET_DIM1 * DSET_DIM2));
- /* Verify that written and read data are the same */
- for(i = 0; i < (DSET_TMP_DIM1* DSET_TMP_DIM2); i++)
- if(t_rbuf[i] != t_wbuf[i]) {
- HDprintf(" Line %d: Incorrect value, t_wbuf[%u]=%d, t_rbuf[%u]=%d\n",
- __LINE__,(unsigned)i,t_wbuf[i],(unsigned)i,t_rbuf[i]);
- TEST_ERROR;
- } /* end if */
+ /* Read from dataset */
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, t_rbuf) < 0)
+ TEST_ERROR;
- /* Closing */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
+ /* Verify that written and read data are the same */
+ for (i = 0; i < (DSET_TMP_DIM1 * DSET_TMP_DIM2); i++)
+ if (t_rbuf[i] != t_wbuf[i]) {
+ HDprintf(" Line %d: Incorrect value, t_wbuf[%u]=%d, t_rbuf[%u]=%d\n", __LINE__,
+ (unsigned)i, t_wbuf[i], (unsigned)i, t_rbuf[i]);
+ TEST_ERROR;
+ } /* end if */
- /* Delete datasets */
- if(H5Ldelete(fid, DSET_SINGLE_NOMAX, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
- if(H5Ldelete(fid, DSET_SINGLE_MAX, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ /* Closing */
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
+
+ /* Delete datasets */
+ if (H5Ldelete(fid, DSET_SINGLE_NOMAX, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
+ if (H5Ldelete(fid, DSET_SINGLE_MAX, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Close everything */
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
- /* Get the size of the file */
- if((file_size = h5_get_file_size(filename, fapl)) < 0)
+ /* Get the size of the file */
+ if ((file_size = h5_get_file_size(filename, fapl)) < 0)
TEST_ERROR
/* Verify the file is correct size */
- if(file_size != empty_size)
+ if (file_size != empty_size)
TEST_ERROR
} /* end for */
#ifdef H5_HAVE_FILTER_DEFLATE
- } /* end for */
+ } /* end for */
#endif /* H5_HAVE_FILTER_DEFLATE */
-
/* Release buffers */
HDfree(wbuf);
HDfree(rbuf);
@@ -10274,7 +11293,8 @@ test_single_chunk(hid_t fapl)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Pclose(t_dcpl);
H5Dclose(did);
@@ -10282,19 +11302,19 @@ error:
H5Sclose(sid);
H5Sclose(sid_max);
H5Fclose(fid);
- } H5E_END_TRY;
- if(wbuf)
+ }
+ H5E_END_TRY;
+ if (wbuf)
HDfree(wbuf);
- if(rbuf)
+ if (rbuf)
HDfree(rbuf);
- if(t_wbuf)
+ if (t_wbuf)
HDfree(t_wbuf);
- if(t_rbuf)
+ if (t_rbuf)
HDfree(t_rbuf);
return FAIL;
} /* end test_single_chunk() */
-
/*-------------------------------------------------------------------------
*
* test_idx_compatible():
@@ -10308,62 +11328,69 @@ error:
static herr_t
test_idx_compatible(void)
{
- hid_t fid = -1; /* File id */
- hid_t did = -1; /* Dataset id */
- const char *filename = NULL; /* old test file name */
- unsigned j; /* Local index variable */
- H5D_chunk_index_t idx_type; /* Chunked dataset index type */
+ hid_t fid = -1; /* File id */
+ hid_t did = -1; /* Dataset id */
+ const char * filename = NULL; /* old test file name */
+ unsigned j; /* Local index variable */
+ H5D_chunk_index_t idx_type; /* Chunked dataset index type */
/* Output message about test being performed */
TESTING("compatibility for 1.6/1.8 datasets that use B-tree indexing");
- for(j = 0; j < NELMTS(OLD_FILENAME); j++) {
+ for (j = 0; j < NELMTS(OLD_FILENAME); j++) {
- /* Generate correct name for test file by prepending the source path */
- filename = H5_get_srcdir_filename(OLD_FILENAME[j]);
+ /* Generate correct name for test file by prepending the source path */
+ filename = H5_get_srcdir_filename(OLD_FILENAME[j]);
- /* Open the file */
- if((fid = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
- TEST_ERROR
+ /* Open the file */
+ if ((fid = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
+ TEST_ERROR
- /* Should be able to read the dataset w/o filter created under 1.8/1.6 */
- if((did = H5Dopen2(fid, DSET, H5P_DEFAULT)) < 0)
- TEST_ERROR
+ /* Should be able to read the dataset w/o filter created under 1.8/1.6 */
+ if ((did = H5Dopen2(fid, DSET, H5P_DEFAULT)) < 0)
+ TEST_ERROR
- /* Get the chunk index type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0) FAIL_STACK_ERROR
+ /* Get the chunk index type */
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
+ FAIL_STACK_ERROR
- /* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index")
+ /* Verify index type */
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index")
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
- /* Should be able to read the dataset w/ filter created under 1.8/1.6 */
- if((did = H5Dopen2(fid, DSET_FILTER, H5P_DEFAULT)) < 0)
- TEST_ERROR
+ /* Should be able to read the dataset w/ filter created under 1.8/1.6 */
+ if ((did = H5Dopen2(fid, DSET_FILTER, H5P_DEFAULT)) < 0)
+ TEST_ERROR
- /* Get the chunk index type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0) FAIL_STACK_ERROR
+ /* Get the chunk index type */
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
+ FAIL_STACK_ERROR
- /* Verify index type */
- if(idx_type != H5D_CHUNK_IDX_BTREE)
- FAIL_PUTS_ERROR("should be using v1 B-tree as index")
+ /* Verify index type */
+ if (idx_type != H5D_CHUNK_IDX_BTREE)
+ FAIL_PUTS_ERROR("should be using v1 B-tree as index")
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
- /* Close the file */
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ /* Close the file */
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
}
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Dclose(did);
- H5Fclose(fid);
- } H5E_END_TRY;
+ H5Fclose(fid);
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_idx_compatible() */
@@ -10380,17 +11407,17 @@ error:
static herr_t
test_unfiltered_edge_chunks(hid_t fapl)
{
- hid_t fid = -1; /* File id */
- hid_t did = -1; /* Dataset id */
- hid_t sid = -1; /* Dataspace id */
- hid_t dcpl = -1; /* DCPL id */
- hsize_t dim[2] = {4, 3}; /* Dataset dimensions */
- hsize_t cdim[2] = {2, 2}; /* Chunk dimension */
- char wbuf[4][3]; /* Write buffer */
- char rbuf[4][3]; /* Read buffer */
- char filename[FILENAME_BUF_SIZE] = ""; /* old test file name */
- unsigned opts; /* Chunk options */
- unsigned i, j; /* Local index variables */
+ hid_t fid = -1; /* File id */
+ hid_t did = -1; /* Dataset id */
+ hid_t sid = -1; /* Dataspace id */
+ hid_t dcpl = -1; /* DCPL id */
+ hsize_t dim[2] = {4, 3}; /* Dataset dimensions */
+ hsize_t cdim[2] = {2, 2}; /* Chunk dimension */
+ char wbuf[4][3]; /* Write buffer */
+ char rbuf[4][3]; /* Read buffer */
+ char filename[FILENAME_BUF_SIZE] = ""; /* old test file name */
+ unsigned opts; /* Chunk options */
+ unsigned i, j; /* Local index variables */
/* Output message about test being performed */
TESTING("disabled partial chunk filters");
@@ -10398,116 +11425,116 @@ test_unfiltered_edge_chunks(hid_t fapl)
h5_fixname(FILENAME[14], fapl, filename, sizeof filename);
/* Create the file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
TEST_ERROR
/* Register byte-counting filter */
- if(H5Zregister(H5Z_COUNT) < 0)
+ if (H5Zregister(H5Z_COUNT) < 0)
TEST_ERROR
/* Create dataspace */
- if((sid = H5Screate_simple(2, dim, NULL)) < 0)
+ if ((sid = H5Screate_simple(2, dim, NULL)) < 0)
TEST_ERROR
/* Create DCPL */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
TEST_ERROR
/* Set chunk dimensions */
- if(H5Pset_chunk(dcpl, 2, cdim) < 0)
+ if (H5Pset_chunk(dcpl, 2, cdim) < 0)
TEST_ERROR
/* Add "count" filter */
- if(H5Pset_filter(dcpl, H5Z_FILTER_COUNT, 0u, (size_t)0, NULL) < 0)
+ if (H5Pset_filter(dcpl, H5Z_FILTER_COUNT, 0u, (size_t)0, NULL) < 0)
TEST_ERROR
/* Disable filters on partial chunks */
- if(H5Pget_chunk_opts(dcpl, &opts) < 0)
+ if (H5Pget_chunk_opts(dcpl, &opts) < 0)
TEST_ERROR
opts |= H5D_CHUNK_DONT_FILTER_PARTIAL_CHUNKS;
- if(H5Pset_chunk_opts(dcpl, opts) < 0)
+ if (H5Pset_chunk_opts(dcpl, opts) < 0)
TEST_ERROR
/* Initialize write buffer */
- for(i=0; i<dim[0]; i++)
- for(j=0; j<dim[1]; j++)
+ for (i = 0; i < dim[0]; i++)
+ for (j = 0; j < dim[1]; j++)
wbuf[i][j] = (char)((2 * i) - j);
/* Reset byte counts */
- count_nbytes_read = (size_t)0;
+ count_nbytes_read = (size_t)0;
count_nbytes_written = (size_t)0;
/* Create dataset */
- if((did = H5Dcreate2(fid, DSET_CHUNKED_NAME, H5T_NATIVE_CHAR, sid,
- H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid, DSET_CHUNKED_NAME, H5T_NATIVE_CHAR, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
TEST_ERROR
/* Nothing should have been written, as we are not using early allocation */
- if(count_nbytes_read != (size_t)0)
+ if (count_nbytes_read != (size_t)0)
TEST_ERROR
- if(count_nbytes_written != (size_t)0)
+ if (count_nbytes_written != (size_t)0)
TEST_ERROR
/* Write data */
- if(H5Dwrite(did, H5T_NATIVE_CHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
+ if (H5Dwrite(did, H5T_NATIVE_CHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
TEST_ERROR
/* Close dataset */
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
TEST_ERROR
/* Make sure only 2 of the 4 chunks were written through the filter (4 bytes
* each) */
- if(count_nbytes_read != (size_t)0)
+ if (count_nbytes_read != (size_t)0)
TEST_ERROR
- if(count_nbytes_written != (size_t)(2 * cdim[0] * cdim[1]))
+ if (count_nbytes_written != (size_t)(2 * cdim[0] * cdim[1]))
TEST_ERROR
/* Reopen the dataset */
- if((did = H5Dopen2(fid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(fid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
TEST_ERROR
/* Read the dataset */
- if(H5Dread(did, H5T_NATIVE_CHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
+ if (H5Dread(did, H5T_NATIVE_CHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
TEST_ERROR
/* Verify that data read == data written */
- for(i=0; i<dim[0]; i++)
- for(j=0; j<dim[1]; j++)
- if(rbuf[i][j] != wbuf[i][j])
+ for (i = 0; i < dim[0]; i++)
+ for (j = 0; j < dim[1]; j++)
+ if (rbuf[i][j] != wbuf[i][j])
TEST_ERROR
/* Make sure only 2 of the 4 chunks were read through the filter (4 bytes
* each) */
- if(count_nbytes_read != (size_t)(2 * cdim[0] * cdim[1]))
+ if (count_nbytes_read != (size_t)(2 * cdim[0] * cdim[1]))
TEST_ERROR
- if(count_nbytes_written != (size_t)(2 * cdim[0] * cdim[1]))
+ if (count_nbytes_written != (size_t)(2 * cdim[0] * cdim[1]))
TEST_ERROR
/* Close IDs */
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
TEST_ERROR
- if(H5Pclose(dcpl) < 0)
+ if (H5Pclose(dcpl) < 0)
TEST_ERROR
- if(H5Sclose(sid) < 0)
+ if (H5Sclose(sid) < 0)
TEST_ERROR
- if(H5Fclose(fid) < 0)
+ if (H5Fclose(fid) < 0)
TEST_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Dclose(did);
H5Pclose(dcpl);
H5Sclose(sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_unfiltered_edge_chunks() */
-
/*-------------------------------------------------------------------------
* Function: test_large_chunk_shrink
*
@@ -10525,104 +11552,125 @@ error:
static herr_t
test_large_chunk_shrink(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t sid = -1; /* Dataspace ID */
- hid_t scalar_sid = -1;/* Scalar dataspace ID */
- hid_t dsid = -1; /* Dataset ID */
- hsize_t dim, max_dim, chunk_dim; /* Dataset and chunk dimensions */
- hsize_t hs_offset; /* Hyperslab offset */
- hsize_t hs_size; /* Hyperslab size */
- unsigned write_elem, read_elem; /* Element written/read */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t scalar_sid = -1; /* Scalar dataspace ID */
+ hid_t dsid = -1; /* Dataset ID */
+ hsize_t dim, max_dim, chunk_dim; /* Dataset and chunk dimensions */
+ hsize_t hs_offset; /* Hyperslab offset */
+ hsize_t hs_size; /* Hyperslab size */
+ unsigned write_elem, read_elem; /* Element written/read */
TESTING("shrinking large chunk");
h5_fixname(FILENAME[10], fapl, filename, sizeof filename);
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Set 2 MB chunk size */
chunk_dim = 2 * 1024 * 1024 / sizeof(unsigned);
- if(H5Pset_chunk(dcpl, 1, &chunk_dim) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 1, &chunk_dim) < 0)
+ FAIL_STACK_ERROR
/* Create scalar dataspace */
- if((scalar_sid = H5Screate(H5S_SCALAR)) < 0) FAIL_STACK_ERROR
+ if ((scalar_sid = H5Screate(H5S_SCALAR)) < 0)
+ FAIL_STACK_ERROR
/* Create 1-D dataspace */
- dim = 2 * 1024 * 1024 / sizeof(unsigned);
+ dim = 2 * 1024 * 1024 / sizeof(unsigned);
max_dim = H5S_UNLIMITED;
- if((sid = H5Screate_simple(1, &dim, &max_dim)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(1, &dim, &max_dim)) < 0)
+ FAIL_STACK_ERROR
/* Create 2 MB chunked dataset */
- if((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_UINT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Select last element in the dataset */
hs_offset = dim - 1;
- hs_size = 1;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0) FAIL_STACK_ERROR
+ hs_size = 1;
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, &hs_offset, NULL, &hs_size, NULL) < 0)
+ FAIL_STACK_ERROR
/* Read (unwritten) element from dataset */
read_elem = 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
/* Verify unwritten element is fill value (0) */
- if(read_elem != 0) FAIL_PUTS_ERROR("invalid unwritten element read");
+ if (read_elem != 0)
+ FAIL_PUTS_ERROR("invalid unwritten element read");
/* Write element to dataset */
write_elem = 2;
- if(H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &write_elem) < 0)
+ FAIL_STACK_ERROR
/* Read element from dataset */
read_elem = write_elem + 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
/* Verify written element is read in */
- if(read_elem != write_elem) FAIL_PUTS_ERROR("invalid written element read");
+ if (read_elem != write_elem)
+ FAIL_PUTS_ERROR("invalid written element read");
/* Shrink dataset to 512 KB */
dim = 512 * 1024 / sizeof(unsigned);
- if(H5Dset_extent(dsid, &dim) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, &dim) < 0)
+ FAIL_STACK_ERROR
/* Expand dataset back to 2MB */
dim = 2 * 1024 * 1024 / sizeof(unsigned);
- if(H5Dset_extent(dsid, &dim) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, &dim) < 0)
+ FAIL_STACK_ERROR
/* Read element from dataset */
read_elem = 1;
- if(H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_UINT, scalar_sid, sid, H5P_DEFAULT, &read_elem) < 0)
+ FAIL_STACK_ERROR
/* Verify element is now 0 */
- if(read_elem != 0) FAIL_PUTS_ERROR("invalid element read");
+ if (read_elem != 0)
+ FAIL_PUTS_ERROR("invalid element read");
/* Close everything */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Sclose(scalar_sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(scalar_sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(dsid);
H5Sclose(sid);
H5Sclose(scalar_sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_large_chunk_shrink() */
-
/*-------------------------------------------------------------------------
* Function: test_zero_dim_dset
*
@@ -10640,28 +11688,27 @@ error:
static herr_t
test_zero_dim_dset(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t sid = -1; /* Dataspace ID */
- hid_t dsid = -1; /* Dataset ID */
- hsize_t dim, chunk_dim; /* Dataset and chunk dimensions */
- int data[1];
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t dsid = -1; /* Dataset ID */
+ hsize_t dim, chunk_dim; /* Dataset and chunk dimensions */
+ int data[1];
H5F_libver_t low, high; /* File format bounds */
- herr_t ret; /* Generic return value */
+ herr_t ret; /* Generic return value */
TESTING("chunked dataset with zero dimension");
/* Loop through all the combinations of low/high library format bounds,
skipping invalid combination, and verify support for reading a 1D
chunked dataset with dimension size = 0 */
- for(low = H5F_LIBVER_EARLIEST; low < H5F_LIBVER_NBOUNDS; low++) {
- for(high = H5F_LIBVER_EARLIEST; high < H5F_LIBVER_NBOUNDS; high++) {
+ for (low = H5F_LIBVER_EARLIEST; low < H5F_LIBVER_NBOUNDS; low++) {
+ for (high = H5F_LIBVER_EARLIEST; high < H5F_LIBVER_NBOUNDS; high++) {
/* Set version bounds before opening the file */
- H5E_BEGIN_TRY {
- ret = H5Pset_libver_bounds(fapl, low, high);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Pset_libver_bounds(fapl, low, high); }
+ H5E_END_TRY;
if (ret < 0) /* Invalid low/high combinations */
continue;
@@ -10669,53 +11716,64 @@ test_zero_dim_dset(hid_t fapl)
h5_fixname(FILENAME[16], fapl, filename, sizeof filename);
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Set 1 chunk size */
chunk_dim = 1;
- if(H5Pset_chunk(dcpl, 1, &chunk_dim) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 1, &chunk_dim) < 0)
+ FAIL_STACK_ERROR
/* Create 1D dataspace with 0 dim size */
dim = 0;
- if((sid = H5Screate_simple(1, &dim, NULL)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(1, &dim, NULL)) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset */
- if((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
- FAIL_STACK_ERROR
+ if ((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* write 0 elements from dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data) < 0)
+ FAIL_STACK_ERROR
/* Read 0 elements from dataset */
- if(H5Dread(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data) < 0) FAIL_STACK_ERROR
+ if (H5Dread(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data) < 0)
+ FAIL_STACK_ERROR
/* Close everything */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
} /* end for high */
- } /* end for low */
+ } /* end for low */
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(dsid);
H5Sclose(sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_zero_dim_dset() */
-
/*-------------------------------------------------------------------------
* Function: test_swmr_non_latest
*
@@ -10732,240 +11790,261 @@ error:
static herr_t
test_swmr_non_latest(const char *env_h5_driver, hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t gid = -1; /* Group ID */
- hid_t dcpl = -1; /* Dataset creation property list ID */
- hid_t sid = -1; /* Dataspace ID */
- hid_t did = -1; /* Dataset ID */
- hsize_t dim[1], dims2[2]; /* Size of dataset */
- hsize_t max_dim[1], max_dims2[2]; /* Maximum size of dataset */
- hsize_t chunk_dim[1], chunk_dims2[2]; /* Chunk dimensions */
- H5D_chunk_index_t idx_type; /* Chunk index type */
- int data; /* Data to be written to the dataset */
- H5F_libver_t low; /* File format low bound */
-
- TESTING("File created with write+latest-format/SWMR-write+non-latest-format: dataset with latest chunk index");
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t gid = -1; /* Group ID */
+ hid_t dcpl = -1; /* Dataset creation property list ID */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t did = -1; /* Dataset ID */
+ hsize_t dim[1], dims2[2]; /* Size of dataset */
+ hsize_t max_dim[1], max_dims2[2]; /* Maximum size of dataset */
+ hsize_t chunk_dim[1], chunk_dims2[2]; /* Chunk dimensions */
+ H5D_chunk_index_t idx_type; /* Chunk index type */
+ int data; /* Data to be written to the dataset */
+ H5F_libver_t low; /* File format low bound */
+
+ TESTING("File created with write+latest-format/SWMR-write+non-latest-format: dataset with latest chunk "
+ "index");
/* Skip this test if SWMR I/O is not supported for the VFD specified
* by the environment variable.
*/
- if(!H5FD__supports_swmr_test(env_h5_driver)) {
+ if (!H5FD__supports_swmr_test(env_h5_driver)) {
SKIPPED();
HDputs(" Test skipped due to VFD not supporting SWMR I/O.");
return SUCCEED;
}
/* Check if we are using the latest version of the format */
- if(H5Pget_libver_bounds(fapl, &low, NULL) < 0)
+ if (H5Pget_libver_bounds(fapl, &low, NULL) < 0)
FAIL_STACK_ERROR
h5_fixname(FILENAME[18], fapl, filename, sizeof filename);
- if(low == H5F_LIBVER_LATEST) {
+ if (low == H5F_LIBVER_LATEST) {
/* Create file with write+latest-format */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR
}
else {
/* Create file with SWMR-write+non-latest-format */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC|H5F_ACC_SWMR_WRITE, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC | H5F_ACC_SWMR_WRITE, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR
} /* end else */
/* Create a chunked dataset: this will use extensible array chunk indexing */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
chunk_dim[0] = 6;
- if(H5Pset_chunk(dcpl, 1, chunk_dim) < 0)
+ if (H5Pset_chunk(dcpl, 1, chunk_dim) < 0)
FAIL_STACK_ERROR
- dim[0] = 1;
+ dim[0] = 1;
max_dim[0] = H5S_UNLIMITED;
- if((sid = H5Screate_simple(1, dim, max_dim)) < 0)
+ if ((sid = H5Screate_simple(1, dim, max_dim)) < 0)
FAIL_STACK_ERROR
- if((did = H5Dcreate2(fid, DSET_CHUNKED_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid, DSET_CHUNKED_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Write to the dataset */
data = 100;
- if(H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &data) < 0)
+ if (H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &data) < 0)
FAIL_STACK_ERROR
/* Verify the dataset's indexing type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0)
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
FAIL_STACK_ERROR
- if(idx_type != H5D_CHUNK_IDX_EARRAY)
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
FAIL_PUTS_ERROR("created dataset not indexed by extensible array")
/* Closing */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
/* Open the file again */
- if((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
+ if ((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
FAIL_STACK_ERROR
/* Open the dataset in the file */
- if((did = H5Dopen2(fid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(fid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Verify the dataset's indexing type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0)
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
FAIL_STACK_ERROR
- if(idx_type != H5D_CHUNK_IDX_EARRAY)
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
FAIL_PUTS_ERROR("created dataset not indexed by extensible array")
/* Read from the dataset and verify data read is correct */
- if(H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &data) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &data) < 0)
FAIL_STACK_ERROR
- if(data != 100)
+ if (data != 100)
TEST_ERROR
/* Close the dataset */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
/* Create a group in the file */
- if((gid = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ if ((gid = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Create a chunked dataset in the group: this will use v2 B-tree chunk indexing */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
chunk_dims2[0] = chunk_dims2[1] = 10;
- if(H5Pset_chunk(dcpl, 2, chunk_dims2) < 0)
+ if (H5Pset_chunk(dcpl, 2, chunk_dims2) < 0)
FAIL_STACK_ERROR
dims2[0] = dims2[1] = 1;
max_dims2[0] = max_dims2[1] = H5S_UNLIMITED;
- if((sid = H5Screate_simple(2, dims2, max_dims2)) < 0)
+ if ((sid = H5Screate_simple(2, dims2, max_dims2)) < 0)
FAIL_STACK_ERROR
- if((did = H5Dcreate2(gid, DSET_CHUNKED_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(gid, DSET_CHUNKED_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Verify the dataset's indexing type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0)
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
FAIL_STACK_ERROR
- if(idx_type != H5D_CHUNK_IDX_BT2)
+ if (idx_type != H5D_CHUNK_IDX_BT2)
FAIL_PUTS_ERROR("created dataset not indexed by v2 B-tree")
/* Closing */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Gclose(gid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Gclose(gid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
/* Open the file again */
- if((fid = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0)
+ if ((fid = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0)
FAIL_STACK_ERROR
/* Open the group */
- if((gid = H5Gopen2(fid, "group", H5P_DEFAULT)) < 0)
+ if ((gid = H5Gopen2(fid, "group", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Open the dataset in the group */
- if((did = H5Dopen2(gid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(gid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Verify the dataset's indexing type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0)
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
FAIL_STACK_ERROR
- if(idx_type != H5D_CHUNK_IDX_BT2)
+ if (idx_type != H5D_CHUNK_IDX_BT2)
FAIL_PUTS_ERROR("created dataset not indexed by v2 B-tree")
/* Closing */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
- if(H5Gclose(gid) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
+ if (H5Gclose(gid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
/* Reopen the file with SWMR-write */
- if((fid = H5Fopen(filename, H5F_ACC_RDWR | H5F_ACC_SWMR_WRITE, fapl)) < 0)
+ if ((fid = H5Fopen(filename, H5F_ACC_RDWR | H5F_ACC_SWMR_WRITE, fapl)) < 0)
FAIL_STACK_ERROR
/* Open the dataset in the file */
- if((did = H5Dopen2(fid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(fid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Verify the dataset's indexing type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0)
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
FAIL_STACK_ERROR
- if(idx_type != H5D_CHUNK_IDX_EARRAY)
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
FAIL_PUTS_ERROR("created dataset not indexed by extensible array")
/* Close the dataset */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
/* Open the group */
- if((gid = H5Gopen2(fid, "group", H5P_DEFAULT)) < 0)
+ if ((gid = H5Gopen2(fid, "group", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Open the dataset in the group */
- if((did = H5Dopen2(gid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(gid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Verify the dataset's indexing type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0)
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
FAIL_STACK_ERROR
- if(idx_type != H5D_CHUNK_IDX_BT2)
+ if (idx_type != H5D_CHUNK_IDX_BT2)
FAIL_PUTS_ERROR("created dataset not indexed by v2 B-tree")
/* Write to the dataset in the group */
data = 99;
- if(H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &data) < 0)
+ if (H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &data) < 0)
FAIL_STACK_ERROR
/* Closing */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
- if(H5Gclose(gid) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
+ if (H5Gclose(gid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
/* Open the file again with SWMR read access */
- if((fid = H5Fopen(filename, H5F_ACC_RDONLY | H5F_ACC_SWMR_READ, fapl)) < 0)
+ if ((fid = H5Fopen(filename, H5F_ACC_RDONLY | H5F_ACC_SWMR_READ, fapl)) < 0)
FAIL_STACK_ERROR
- if((gid = H5Gopen2(fid, "group", H5P_DEFAULT)) < 0)
+ if ((gid = H5Gopen2(fid, "group", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Open the dataset */
- if((did = H5Dopen2(gid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(gid, DSET_CHUNKED_NAME, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Read from the dataset and verify data read is correct */
data = 0;
- if(H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &data) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &data) < 0)
FAIL_STACK_ERROR
- if(data != 99)
+ if (data != 99)
TEST_ERROR
/* Closing */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
- if(H5Gclose(gid) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Dclose(did) < 0)
+ FAIL_STACK_ERROR
+ if (H5Gclose(gid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(did);
H5Sclose(sid);
H5Gclose(gid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* test_swmr_non_latest() */
-
/*-------------------------------------------------------------------------
* Function: test_earray_hdr_fd
*
@@ -10981,91 +12060,91 @@ error:
static herr_t
test_earray_hdr_fd(const char *env_h5_driver, hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1;
- hid_t sid = -1;
- hid_t did = -1;
- hid_t tid = -1;
- hid_t dcpl = -1;
- hid_t msid = -1;
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1;
+ hid_t sid = -1;
+ hid_t did = -1;
+ hid_t tid = -1;
+ hid_t dcpl = -1;
+ hid_t msid = -1;
H5D_chunk_index_t idx_type;
- const hsize_t shape[1] = { 8 };
- const hsize_t maxshape[1] = { H5S_UNLIMITED };
- const hsize_t chunk[1] = { 8 };
- const int buffer[8] = {0, 1, 2, 3, 4, 5, 6, 7};
- H5O_info2_t info;
+ const hsize_t shape[1] = {8};
+ const hsize_t maxshape[1] = {H5S_UNLIMITED};
+ const hsize_t chunk[1] = {8};
+ const int buffer[8] = {0, 1, 2, 3, 4, 5, 6, 7};
+ H5O_info2_t info;
TESTING("Extensible array chunk index header flush dependencies handled correctly");
/* Skip this test if SWMR I/O is not supported for the VFD specified
* by the environment variable.
*/
- if(!H5FD__supports_swmr_test(env_h5_driver)) {
+ if (!H5FD__supports_swmr_test(env_h5_driver)) {
SKIPPED();
HDputs(" Test skipped due to VFD not supporting SWMR I/O.");
return SUCCEED;
}
- if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
+ if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
FAIL_STACK_ERROR;
- if(H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
+ if (H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
FAIL_STACK_ERROR;
h5_fixname(FILENAME[19], fapl, filename, sizeof(filename));
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create a dataset with one unlimited dimension */
- if((sid = H5Screate_simple(1, shape, maxshape)) < 0)
+ if ((sid = H5Screate_simple(1, shape, maxshape)) < 0)
FAIL_STACK_ERROR;
- if((tid = H5Tcopy(H5T_NATIVE_INT32)) < 0)
+ if ((tid = H5Tcopy(H5T_NATIVE_INT32)) < 0)
FAIL_STACK_ERROR;
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR;
- if(H5Pset_chunk(dcpl, 1, chunk) < 0)
+ if (H5Pset_chunk(dcpl, 1, chunk) < 0)
FAIL_STACK_ERROR;
- if((did = H5Dcreate2(fid, DSET_EARRAY_HDR_FD, tid, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT )) < 0)
+ if ((did = H5Dcreate2(fid, DSET_EARRAY_HDR_FD, tid, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify the chunk index type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0)
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
FAIL_STACK_ERROR;
- if(idx_type != H5D_CHUNK_IDX_EARRAY)
+ if (idx_type != H5D_CHUNK_IDX_EARRAY)
FAIL_PUTS_ERROR("should be using extensible array as index");
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
FAIL_STACK_ERROR;
- if(H5Pclose(dcpl) < 0)
+ if (H5Pclose(dcpl) < 0)
FAIL_STACK_ERROR;
- if(H5Tclose(tid) < 0)
+ if (H5Tclose(tid) < 0)
FAIL_STACK_ERROR;
- if(H5Sclose(sid) < 0)
+ if (H5Sclose(sid) < 0)
FAIL_STACK_ERROR;
- if(H5Fstart_swmr_write(fid) < 0)
+ if (H5Fstart_swmr_write(fid) < 0)
FAIL_STACK_ERROR;
/* Write data to the dataset */
- if((did = H5Dopen2(fid, DSET_EARRAY_HDR_FD, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(fid, DSET_EARRAY_HDR_FD, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
- if((tid = H5Dget_type(did)) < 0)
+ if ((tid = H5Dget_type(did)) < 0)
FAIL_STACK_ERROR;
- if(H5Dwrite(did, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, buffer) < 0)
+ if (H5Dwrite(did, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, buffer) < 0)
FAIL_STACK_ERROR;
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
FAIL_STACK_ERROR;
- if(H5Tclose(tid) < 0)
+ if (H5Tclose(tid) < 0)
FAIL_STACK_ERROR;
/* The second call triggered a bug in the library (JIRA issue: SWMR-95) */
- if(H5Oget_info_by_name3(fid, DSET_EARRAY_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
+ if (H5Oget_info_by_name3(fid, DSET_EARRAY_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
- if(H5Oget_info_by_name3(fid, DSET_EARRAY_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
+ if (H5Oget_info_by_name3(fid, DSET_EARRAY_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
- if(H5Pclose(fapl) < 0)
+ if (H5Pclose(fapl) < 0)
FAIL_STACK_ERROR;
- if(H5Fclose(fid) < 0)
+ if (H5Fclose(fid) < 0)
TEST_ERROR;
PASSED();
@@ -11073,7 +12152,8 @@ test_earray_hdr_fd(const char *env_h5_driver, hid_t fapl)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(fapl);
H5Fclose(fid);
H5Dclose(did);
@@ -11081,11 +12161,11 @@ error:
H5Tclose(tid);
H5Sclose(sid);
H5Sclose(msid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* test_earray_hdr_fd() */
-
/*-------------------------------------------------------------------------
* Function: test_farray_hdr_fd
*
@@ -11101,91 +12181,91 @@ error:
static herr_t
test_farray_hdr_fd(const char *env_h5_driver, hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1;
- hid_t sid = -1;
- hid_t did = -1;
- hid_t tid = -1;
- hid_t dcpl = -1;
- hid_t msid = -1;
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1;
+ hid_t sid = -1;
+ hid_t did = -1;
+ hid_t tid = -1;
+ hid_t dcpl = -1;
+ hid_t msid = -1;
H5D_chunk_index_t idx_type;
- const hsize_t shape[1] = { 8 };
- const hsize_t maxshape[1] = { 64 };
- const hsize_t chunk[1] = { 8 };
- const int buffer[8] = {0, 1, 2, 3, 4, 5, 6, 7};
- H5O_info2_t info;
+ const hsize_t shape[1] = {8};
+ const hsize_t maxshape[1] = {64};
+ const hsize_t chunk[1] = {8};
+ const int buffer[8] = {0, 1, 2, 3, 4, 5, 6, 7};
+ H5O_info2_t info;
TESTING("Fixed array chunk index header flush dependencies handled correctly");
/* Skip this test if SWMR I/O is not supported for the VFD specified
* by the environment variable.
*/
- if(!H5FD__supports_swmr_test(env_h5_driver)) {
+ if (!H5FD__supports_swmr_test(env_h5_driver)) {
SKIPPED();
HDputs(" Test skipped due to VFD not supporting SWMR I/O.");
return SUCCEED;
}
- if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
+ if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
FAIL_STACK_ERROR;
- if(H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
+ if (H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
FAIL_STACK_ERROR;
h5_fixname(FILENAME[20], fapl, filename, sizeof(filename));
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create a chunked dataset with fixed dimensions */
- if((sid = H5Screate_simple(1, shape, maxshape)) < 0)
+ if ((sid = H5Screate_simple(1, shape, maxshape)) < 0)
FAIL_STACK_ERROR;
- if((tid = H5Tcopy(H5T_NATIVE_INT32)) < 0)
+ if ((tid = H5Tcopy(H5T_NATIVE_INT32)) < 0)
FAIL_STACK_ERROR;
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR;
- if(H5Pset_chunk(dcpl, 1, chunk) < 0)
+ if (H5Pset_chunk(dcpl, 1, chunk) < 0)
FAIL_STACK_ERROR;
- if((did = H5Dcreate2(fid, DSET_FARRAY_HDR_FD, tid, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT )) < 0)
+ if ((did = H5Dcreate2(fid, DSET_FARRAY_HDR_FD, tid, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify the chunk index type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0)
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
FAIL_STACK_ERROR;
- if(idx_type != H5D_CHUNK_IDX_FARRAY)
+ if (idx_type != H5D_CHUNK_IDX_FARRAY)
FAIL_PUTS_ERROR("should be using fixed array as index");
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
FAIL_STACK_ERROR;
- if(H5Pclose(dcpl) < 0)
+ if (H5Pclose(dcpl) < 0)
FAIL_STACK_ERROR;
- if(H5Tclose(tid) < 0)
+ if (H5Tclose(tid) < 0)
FAIL_STACK_ERROR;
- if(H5Sclose(sid) < 0)
+ if (H5Sclose(sid) < 0)
FAIL_STACK_ERROR;
- if(H5Fstart_swmr_write(fid) < 0)
+ if (H5Fstart_swmr_write(fid) < 0)
FAIL_STACK_ERROR;
/* Write data to the dataset */
- if((did = H5Dopen2(fid, DSET_FARRAY_HDR_FD, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(fid, DSET_FARRAY_HDR_FD, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
- if((tid = H5Dget_type(did)) < 0)
+ if ((tid = H5Dget_type(did)) < 0)
FAIL_STACK_ERROR;
- if(H5Dwrite(did, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, buffer) < 0)
+ if (H5Dwrite(did, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, buffer) < 0)
FAIL_STACK_ERROR;
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
FAIL_STACK_ERROR;
- if(H5Tclose(tid) < 0)
+ if (H5Tclose(tid) < 0)
FAIL_STACK_ERROR;
/* The second call triggered a bug in the library (JIRA issue: SWMR-95) */
- if(H5Oget_info_by_name3(fid, DSET_FARRAY_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
+ if (H5Oget_info_by_name3(fid, DSET_FARRAY_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
- if(H5Oget_info_by_name3(fid, DSET_FARRAY_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
+ if (H5Oget_info_by_name3(fid, DSET_FARRAY_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
- if(H5Pclose(fapl) < 0)
+ if (H5Pclose(fapl) < 0)
FAIL_STACK_ERROR;
- if(H5Fclose(fid) < 0)
+ if (H5Fclose(fid) < 0)
TEST_ERROR;
PASSED();
@@ -11193,7 +12273,8 @@ test_farray_hdr_fd(const char *env_h5_driver, hid_t fapl)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(fapl);
H5Fclose(fid);
H5Dclose(did);
@@ -11201,11 +12282,11 @@ error:
H5Tclose(tid);
H5Sclose(sid);
H5Sclose(msid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_farray_hdr_fd() */
-
/*-------------------------------------------------------------------------
* Function: test_bt2_hdr_fd
*
@@ -11221,91 +12302,91 @@ error:
static herr_t
test_bt2_hdr_fd(const char *env_h5_driver, hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1;
- hid_t sid = -1;
- hid_t did = -1;
- hid_t tid = -1;
- hid_t dcpl = -1;
- hid_t msid = -1;
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1;
+ hid_t sid = -1;
+ hid_t did = -1;
+ hid_t tid = -1;
+ hid_t dcpl = -1;
+ hid_t msid = -1;
H5D_chunk_index_t idx_type;
- const hsize_t shape[2] = { 8, 8 };
- const hsize_t maxshape[2] = { H5S_UNLIMITED, H5S_UNLIMITED };
- const hsize_t chunk[2] = { 8, 8 };
- const int buffer[8] = {0, 1, 2, 3, 4, 5, 6, 7};
- H5O_info2_t info;
+ const hsize_t shape[2] = {8, 8};
+ const hsize_t maxshape[2] = {H5S_UNLIMITED, H5S_UNLIMITED};
+ const hsize_t chunk[2] = {8, 8};
+ const int buffer[8] = {0, 1, 2, 3, 4, 5, 6, 7};
+ H5O_info2_t info;
TESTING("Version 2 B-tree chunk index header flush dependencies handled correctly");
/* Skip this test if SWMR I/O is not supported for the VFD specified
* by the environment variable.
*/
- if(!H5FD__supports_swmr_test(env_h5_driver)) {
+ if (!H5FD__supports_swmr_test(env_h5_driver)) {
SKIPPED();
HDputs(" Test skipped due to VFD not supporting SWMR I/O.");
return SUCCEED;
}
- if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
+ if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
FAIL_STACK_ERROR;
- if(H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
+ if (H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
FAIL_STACK_ERROR;
h5_fixname(FILENAME[21], fapl, filename, sizeof(filename));
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create a chunked dataset with fixed dimensions */
- if((sid = H5Screate_simple(2, shape, maxshape)) < 0)
+ if ((sid = H5Screate_simple(2, shape, maxshape)) < 0)
FAIL_STACK_ERROR;
- if((tid = H5Tcopy(H5T_NATIVE_INT32)) < 0)
+ if ((tid = H5Tcopy(H5T_NATIVE_INT32)) < 0)
FAIL_STACK_ERROR;
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR;
- if(H5Pset_chunk(dcpl, 2, chunk) < 0)
+ if (H5Pset_chunk(dcpl, 2, chunk) < 0)
FAIL_STACK_ERROR;
- if((did = H5Dcreate2(fid, DSET_BT2_HDR_FD, tid, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT )) < 0)
+ if ((did = H5Dcreate2(fid, DSET_BT2_HDR_FD, tid, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify the chunk index type */
- if(H5D__layout_idx_type_test(did, &idx_type) < 0)
+ if (H5D__layout_idx_type_test(did, &idx_type) < 0)
FAIL_STACK_ERROR;
- if(idx_type != H5D_CHUNK_IDX_BT2)
+ if (idx_type != H5D_CHUNK_IDX_BT2)
FAIL_PUTS_ERROR("should be using fixed array as index");
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
FAIL_STACK_ERROR;
- if(H5Pclose(dcpl) < 0)
+ if (H5Pclose(dcpl) < 0)
FAIL_STACK_ERROR;
- if(H5Tclose(tid) < 0)
+ if (H5Tclose(tid) < 0)
FAIL_STACK_ERROR;
- if(H5Sclose(sid) < 0)
+ if (H5Sclose(sid) < 0)
FAIL_STACK_ERROR;
- if(H5Fstart_swmr_write(fid) < 0)
+ if (H5Fstart_swmr_write(fid) < 0)
FAIL_STACK_ERROR;
/* Write data to the dataset */
- if((did = H5Dopen2(fid, DSET_BT2_HDR_FD, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(fid, DSET_BT2_HDR_FD, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
- if((tid = H5Dget_type(did)) < 0)
+ if ((tid = H5Dget_type(did)) < 0)
FAIL_STACK_ERROR;
- if(H5Dwrite(did, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, buffer) < 0)
+ if (H5Dwrite(did, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, buffer) < 0)
FAIL_STACK_ERROR;
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
FAIL_STACK_ERROR;
- if(H5Tclose(tid) < 0)
+ if (H5Tclose(tid) < 0)
FAIL_STACK_ERROR;
/* The second call triggered a bug in the library (JIRA issue: SWMR-95) */
- if(H5Oget_info_by_name3(fid, DSET_BT2_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
+ if (H5Oget_info_by_name3(fid, DSET_BT2_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
- if(H5Oget_info_by_name3(fid, DSET_BT2_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
+ if (H5Oget_info_by_name3(fid, DSET_BT2_HDR_FD, &info, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
- if(H5Pclose(fapl) < 0)
+ if (H5Pclose(fapl) < 0)
FAIL_STACK_ERROR;
- if(H5Fclose(fid) < 0)
+ if (H5Fclose(fid) < 0)
TEST_ERROR;
PASSED();
@@ -11313,7 +12394,8 @@ test_bt2_hdr_fd(const char *env_h5_driver, hid_t fapl)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(fapl);
H5Fclose(fid);
H5Dclose(did);
@@ -11321,11 +12403,11 @@ error:
H5Tclose(tid);
H5Sclose(sid);
H5Sclose(msid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_bt2_hdr_fd() */
-
/*-------------------------------------------------------------------------
* Function: test_storage_size
*
@@ -11343,383 +12425,479 @@ error:
static herr_t
test_storage_size(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1, dcpl2 = -1; /* Dataset creation property list IDs */
- hid_t sid = -1; /* Dataspace ID */
- hid_t dsid = -1; /* Dataset ID */
- hsize_t dims[2], max_dims[2]; /* Dataset dimensions */
- hsize_t new_dims[2]; /* New dataset dimensions */
- hsize_t chunk_dims[2]; /* Chunk dimensions */
- int wdata[STORAGE_SIZE_DIM1][STORAGE_SIZE_DIM2];
- hsize_t ssize; /* Dataset storage size */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1, dcpl2 = -1; /* Dataset creation property list IDs */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t dsid = -1; /* Dataset ID */
+ hsize_t dims[2], max_dims[2]; /* Dataset dimensions */
+ hsize_t new_dims[2]; /* New dataset dimensions */
+ hsize_t chunk_dims[2]; /* Chunk dimensions */
+ int wdata[STORAGE_SIZE_DIM1][STORAGE_SIZE_DIM2];
+ hsize_t ssize; /* Dataset storage size */
TESTING("querying storage size");
h5_fixname(FILENAME[22], fapl, filename, sizeof filename);
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ FAIL_STACK_ERROR
/* Set chunk size */
chunk_dims[0] = STORAGE_SIZE_CHUNK_DIM1;
chunk_dims[1] = STORAGE_SIZE_CHUNK_DIM2;
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0) FAIL_STACK_ERROR
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0)
+ FAIL_STACK_ERROR
/* Copy the DCPL, and set it to early allocation */
- if((dcpl2 = H5Pcopy(dcpl)) < 0) FAIL_STACK_ERROR
- if(H5Pset_alloc_time(dcpl2, H5D_ALLOC_TIME_EARLY) < 0) FAIL_STACK_ERROR
+ if ((dcpl2 = H5Pcopy(dcpl)) < 0)
+ FAIL_STACK_ERROR
+ if (H5Pset_alloc_time(dcpl2, H5D_ALLOC_TIME_EARLY) < 0)
+ FAIL_STACK_ERROR
/* Create 2D dataspace, with max dims same as current dimensions */
- dims[0] = STORAGE_SIZE_DIM1;
- dims[1] = STORAGE_SIZE_DIM2;
+ dims[0] = STORAGE_SIZE_DIM1;
+ dims[1] = STORAGE_SIZE_DIM2;
max_dims[0] = STORAGE_SIZE_DIM1;
max_dims[1] = STORAGE_SIZE_DIM2;
- if((sid = H5Screate_simple(2, dims, max_dims)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(2, dims, max_dims)) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset */
- if((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Initialize buffer to zeroes */
HDmemset(wdata, 0, sizeof(wdata));
/* write elements to dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close dataset & dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Copy the dataset */
- if(H5Ocopy(fid, "dset", fid, "dset_copy", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ocopy(fid, "dset", fid, "dset_copy", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Open the copied dataset */
- if((dsid = H5Dopen2(fid, "dset_copy", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset_copy", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close copied dataset */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Create 2D dataspace with max dims > current dims (but not unlimited) */
- dims[0] = STORAGE_SIZE_DIM1;
- dims[1] = STORAGE_SIZE_DIM2;
+ dims[0] = STORAGE_SIZE_DIM1;
+ dims[1] = STORAGE_SIZE_DIM2;
max_dims[0] = STORAGE_SIZE_MAX_DIM1;
max_dims[1] = STORAGE_SIZE_MAX_DIM2;
- if((sid = H5Screate_simple(2, dims, max_dims)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(2, dims, max_dims)) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset */
- if((dsid = H5Dcreate2(fid, "dset2", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset2", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Initialize buffer to zeroes */
HDmemset(wdata, 0, sizeof(wdata));
/* write elements to dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Extend dataset's dimensions */
new_dims[0] = STORAGE_SIZE_DIM1 * 2;
new_dims[1] = STORAGE_SIZE_DIM2 * 2;
- if(H5Dset_extent(dsid, new_dims) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, new_dims) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close dataset & dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Copy the dataset */
- if(H5Ocopy(fid, "dset2", fid, "dset2_copy", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ocopy(fid, "dset2", fid, "dset2_copy", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Open the copied dataset */
- if((dsid = H5Dopen2(fid, "dset2_copy", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset2_copy", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close copied dataset */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Create 2D dataspace with max dims > current dims (but not unlimited) */
- dims[0] = STORAGE_SIZE_DIM1;
- dims[1] = STORAGE_SIZE_DIM2;
+ dims[0] = STORAGE_SIZE_DIM1;
+ dims[1] = STORAGE_SIZE_DIM2;
max_dims[0] = STORAGE_SIZE_MAX_DIM1;
max_dims[1] = STORAGE_SIZE_MAX_DIM2;
- if((sid = H5Screate_simple(2, dims, max_dims)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(2, dims, max_dims)) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset, w/early allocation */
- if((dsid = H5Dcreate2(fid, "dset2a", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset2a", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Initialize buffer to zeroes */
HDmemset(wdata, 0, sizeof(wdata));
/* write elements to dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Extend dataset's dimensions */
new_dims[0] = STORAGE_SIZE_DIM1 * 2;
new_dims[1] = STORAGE_SIZE_DIM2 * 2;
- if(H5Dset_extent(dsid, new_dims) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, new_dims) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close dataset & dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Copy the dataset */
- if(H5Ocopy(fid, "dset2a", fid, "dset2a_copy", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ocopy(fid, "dset2a", fid, "dset2a_copy", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Open the copied dataset */
- if((dsid = H5Dopen2(fid, "dset2a_copy", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset2a_copy", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close copied dataset */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Create 2D dataspace with max dims > current dims (and 1 unlimited dim) */
- dims[0] = STORAGE_SIZE_DIM1;
- dims[1] = STORAGE_SIZE_DIM2;
+ dims[0] = STORAGE_SIZE_DIM1;
+ dims[1] = STORAGE_SIZE_DIM2;
max_dims[0] = H5S_UNLIMITED;
max_dims[1] = STORAGE_SIZE_MAX_DIM2;
- if((sid = H5Screate_simple(2, dims, max_dims)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(2, dims, max_dims)) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset */
- if((dsid = H5Dcreate2(fid, "dset3", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset3", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Initialize buffer to zeroes */
HDmemset(wdata, 0, sizeof(wdata));
/* write elements to dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Extend dataset's dimensions */
new_dims[0] = STORAGE_SIZE_DIM1 * 2;
new_dims[1] = STORAGE_SIZE_DIM2 * 2;
- if(H5Dset_extent(dsid, new_dims) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, new_dims) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close dataset & dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Copy the dataset */
- if(H5Ocopy(fid, "dset3", fid, "dset3_copy", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ocopy(fid, "dset3", fid, "dset3_copy", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Open the copied dataset */
- if((dsid = H5Dopen2(fid, "dset3_copy", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset3_copy", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close copied dataset */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Create 2D dataspace with max dims > current dims (and 1 unlimited dim) */
- dims[0] = STORAGE_SIZE_DIM1;
- dims[1] = STORAGE_SIZE_DIM2;
+ dims[0] = STORAGE_SIZE_DIM1;
+ dims[1] = STORAGE_SIZE_DIM2;
max_dims[0] = H5S_UNLIMITED;
max_dims[1] = STORAGE_SIZE_MAX_DIM2;
- if((sid = H5Screate_simple(2, dims, max_dims)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(2, dims, max_dims)) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset, w/early allocation */
- if((dsid = H5Dcreate2(fid, "dset3a", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset3a", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Initialize buffer to zeroes */
HDmemset(wdata, 0, sizeof(wdata));
/* write elements to dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Extend dataset's dimensions */
new_dims[0] = STORAGE_SIZE_DIM1 * 2;
new_dims[1] = STORAGE_SIZE_DIM2 * 2;
- if(H5Dset_extent(dsid, new_dims) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, new_dims) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close dataset & dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Copy the dataset */
- if(H5Ocopy(fid, "dset3a", fid, "dset3a_copy", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ocopy(fid, "dset3a", fid, "dset3a_copy", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Open the copied dataset */
- if((dsid = H5Dopen2(fid, "dset3a_copy", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset3a_copy", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close copied dataset */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Create 2D dataspace with max dims > current dims (and 2 unlimited dims) */
- dims[0] = STORAGE_SIZE_DIM1;
- dims[1] = STORAGE_SIZE_DIM2;
+ dims[0] = STORAGE_SIZE_DIM1;
+ dims[1] = STORAGE_SIZE_DIM2;
max_dims[0] = H5S_UNLIMITED;
max_dims[1] = H5S_UNLIMITED;
- if((sid = H5Screate_simple(2, dims, max_dims)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(2, dims, max_dims)) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset */
- if((dsid = H5Dcreate2(fid, "dset4", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset4", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Initialize buffer to zeroes */
HDmemset(wdata, 0, sizeof(wdata));
/* write elements to dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Extend dataset's dimensions */
new_dims[0] = STORAGE_SIZE_DIM1 * 2;
new_dims[1] = STORAGE_SIZE_DIM2 * 2;
- if(H5Dset_extent(dsid, new_dims) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, new_dims) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close dataset & dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Copy the dataset */
- if(H5Ocopy(fid, "dset4", fid, "dset4_copy", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ocopy(fid, "dset4", fid, "dset4_copy", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Open the copied dataset */
- if((dsid = H5Dopen2(fid, "dset4_copy", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset4_copy", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close copied dataset */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Create 2D dataspace with max dims > current dims (and 2 unlimited dims) */
- dims[0] = STORAGE_SIZE_DIM1;
- dims[1] = STORAGE_SIZE_DIM2;
+ dims[0] = STORAGE_SIZE_DIM1;
+ dims[1] = STORAGE_SIZE_DIM2;
max_dims[0] = H5S_UNLIMITED;
max_dims[1] = H5S_UNLIMITED;
- if((sid = H5Screate_simple(2, dims, max_dims)) < 0) FAIL_STACK_ERROR
+ if ((sid = H5Screate_simple(2, dims, max_dims)) < 0)
+ FAIL_STACK_ERROR
/* Create chunked dataset, w/early allocation */
- if((dsid = H5Dcreate2(fid, "dset4a", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0)
+ if ((dsid = H5Dcreate2(fid, "dset4a", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl2, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Initialize buffer to zeroes */
HDmemset(wdata, 0, sizeof(wdata));
/* write elements to dataset */
- if(H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0) FAIL_STACK_ERROR
+ if (H5Dwrite(dsid, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, wdata) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 6 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Extend dataset's dimensions */
new_dims[0] = STORAGE_SIZE_DIM1 * 2;
new_dims[1] = STORAGE_SIZE_DIM2 * 2;
- if(H5Dset_extent(dsid, new_dims) < 0) FAIL_STACK_ERROR
+ if (H5Dset_extent(dsid, new_dims) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close dataset & dataspace */
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
+ if (H5Sclose(sid) < 0)
+ FAIL_STACK_ERROR
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Copy the dataset */
- if(H5Ocopy(fid, "dset4a", fid, "dset4a_copy", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
+ if (H5Ocopy(fid, "dset4a", fid, "dset4a_copy", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ FAIL_STACK_ERROR
/* Open the copied dataset */
- if((dsid = H5Dopen2(fid, "dset4a_copy", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
+ if ((dsid = H5Dopen2(fid, "dset4a_copy", H5P_DEFAULT)) < 0)
+ FAIL_STACK_ERROR
/* Get the storage size */
- if(0 == (ssize = H5Dget_storage_size(dsid))) FAIL_STACK_ERROR
- if((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize) TEST_ERROR
+ if (0 == (ssize = H5Dget_storage_size(dsid)))
+ FAIL_STACK_ERROR
+ if ((sizeof(int) * 15 * STORAGE_SIZE_CHUNK_DIM1 * STORAGE_SIZE_CHUNK_DIM2) != ssize)
+ TEST_ERROR
/* Close copied dataset */
- if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
-
+ if (H5Dclose(dsid) < 0)
+ FAIL_STACK_ERROR
/* Close rest */
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
+ if (H5Pclose(dcpl) < 0)
+ FAIL_STACK_ERROR
+ if (H5Fclose(fid) < 0)
+ FAIL_STACK_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Pclose(dcpl2);
H5Dclose(dsid);
H5Sclose(sid);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_storage_size() */
-
/*-------------------------------------------------------------------------
* Function: test_power2up
*
@@ -11738,79 +12916,80 @@ error:
static herr_t
test_power2up(hid_t fapl)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t fid = -1; /* File ID */
- hid_t dcpl = -1; /* Dataset creation property list */
- hid_t sid = -1; /* Dataspace ID */
- hid_t did = -1; /* Dataset ID */
- hsize_t dims[2]; /* Dataset dimension sizes */
- hsize_t max_dims[2]; /* Maximum dimension sizes */
- hsize_t chunk_dims[2]; /* Chunk dimensions */
- hsize_t ext_dims[2]; /* Extended dimension sizes */
- herr_t status; /* Error status */
+ char filename[FILENAME_BUF_SIZE];
+ hid_t fid = -1; /* File ID */
+ hid_t dcpl = -1; /* Dataset creation property list */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t did = -1; /* Dataset ID */
+ hsize_t dims[2]; /* Dataset dimension sizes */
+ hsize_t max_dims[2]; /* Maximum dimension sizes */
+ hsize_t chunk_dims[2]; /* Chunk dimensions */
+ hsize_t ext_dims[2]; /* Extended dimension sizes */
+ herr_t status; /* Error status */
TESTING("the next power of 2");
h5_fixname(FILENAME[24], fapl, filename, sizeof filename);
/* Create file */
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ FAIL_STACK_ERROR
/* Set dims[1] to ((2^63) -1) */
- dims[0] = 0;
- dims[1] = ((hsize_t)1 << ((sizeof(hsize_t) * CHAR_BIT) -1)) - 1;
+ dims[0] = 0;
+ dims[1] = ((hsize_t)1 << ((sizeof(hsize_t) * CHAR_BIT) - 1)) - 1;
max_dims[0] = max_dims[1] = H5S_UNLIMITED;
- sid = H5Screate_simple(2, dims, max_dims);
+ sid = H5Screate_simple(2, dims, max_dims);
/* Create dataset creation property list */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
- TEST_ERROR
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ TEST_ERROR
/* Set chunk size */
chunk_dims[0] = chunk_dims[1] = 1;
- if(H5Pset_chunk(dcpl, 2, chunk_dims) < 0)
- TEST_ERROR
+ if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0)
+ TEST_ERROR
/* Create chunked dataset */
- if((did = H5Dcreate2(fid, "dset", H5T_NATIVE_INT64, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
- TEST_ERROR
+ if ((did = H5Dcreate2(fid, "dset", H5T_NATIVE_INT64, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ TEST_ERROR
ext_dims[0] = 1;
ext_dims[1] = dims[1] + 5;
/* Extend to (2^63)+ */
- H5E_BEGIN_TRY {
- status = H5Dset_extent(did, ext_dims);
- } H5E_END_TRY;
- if(status >= 0)
- TEST_ERROR
+ H5E_BEGIN_TRY { status = H5Dset_extent(did, ext_dims); }
+ H5E_END_TRY;
+ if (status >= 0)
+ TEST_ERROR
/* Closing */
- if(H5Dclose(did) < 0)
- TEST_ERROR
- if(H5Sclose(sid) < 0)
- TEST_ERROR
- if(H5Pclose(dcpl) < 0)
- TEST_ERROR
- if(H5Fclose(fid) < 0)
- TEST_ERROR
+ if (H5Dclose(did) < 0)
+ TEST_ERROR
+ if (H5Sclose(sid) < 0)
+ TEST_ERROR
+ if (H5Pclose(dcpl) < 0)
+ TEST_ERROR
+ if (H5Fclose(fid) < 0)
+ TEST_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl);
H5Dclose(did);
H5Sclose(sid);
H5Pclose(dcpl);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_power2up() */
-
/*-------------------------------------------------------------------------
* Function: test_scatter
*
@@ -11826,34 +13005,35 @@ error:
*-------------------------------------------------------------------------
*/
typedef struct scatter_info_t {
- int *src_buf; /* Source data buffer */
+ int * src_buf; /* Source data buffer */
size_t block; /* Maximum number of elements to return to H5Dscatter() */
size_t size; /* Remaining number of elements to return */
} scatter_info_t;
-#define TEST_SCATTER_CHECK_ARR(ARR, EXP) \
- for(i=0; i<(int)(sizeof(ARR)/sizeof(ARR[0])); i++) \
- for(j=0; j<(int)(sizeof(ARR[0])/sizeof(ARR[0][0])); j++) \
- for(k=0; k<(int)(sizeof(ARR[0][0])/sizeof(ARR[0][0][0])); k++) \
- if(ARR[i][j][k] != EXP[i][j][k]) { \
- H5_FAILED(); AT(); \
- HDprintf(" " #ARR "[%d][%d][%d] == %d, " #EXP "[%d][%d][%d] == %d\n", i, j, k, ARR[i][j][k], i, j, k, EXP[i][j][k]); \
- goto error; \
+#define TEST_SCATTER_CHECK_ARR(ARR, EXP) \
+ for (i = 0; i < (int)(sizeof(ARR) / sizeof(ARR[0])); i++) \
+ for (j = 0; j < (int)(sizeof(ARR[0]) / sizeof(ARR[0][0])); j++) \
+ for (k = 0; k < (int)(sizeof(ARR[0][0]) / sizeof(ARR[0][0][0])); k++) \
+ if (ARR[i][j][k] != EXP[i][j][k]) { \
+ H5_FAILED(); \
+ AT(); \
+ HDprintf(" " #ARR "[%d][%d][%d] == %d, " #EXP "[%d][%d][%d] == %d\n", i, j, k, \
+ ARR[i][j][k], i, j, k, EXP[i][j][k]); \
+ goto error; \
}
static herr_t
-scatter_cb(void **src_buf/*out*/, size_t *src_buf_bytes_used/*out*/,
- void *_scatter_info)
+scatter_cb(void **src_buf /*out*/, size_t *src_buf_bytes_used /*out*/, void *_scatter_info)
{
scatter_info_t *scatter_info = (scatter_info_t *)_scatter_info;
- size_t nelmts; /* Number of elements to return in src_buf */
+ size_t nelmts; /* Number of elements to return in src_buf */
/* Calculate number of elements */
nelmts = MIN(scatter_info->block, scatter_info->size);
HDassert(nelmts > 0);
/* Set output variables */
- *src_buf = (void *)scatter_info->src_buf;
+ *src_buf = (void *)scatter_info->src_buf;
*src_buf_bytes_used = nelmts * sizeof(scatter_info->src_buf[0]);
/* Update scatter_info */
@@ -11866,32 +13046,32 @@ scatter_cb(void **src_buf/*out*/, size_t *src_buf_bytes_used/*out*/,
static herr_t
test_scatter(void)
{
- hid_t sid = -1; /* Dataspace ID */
- hsize_t dim[3] = {8, 5, 8}; /* Dataspace dimensions */
- hsize_t start[3] = {0, 0, 0};
- hsize_t stride[3] = {0, 0, 0};
- hsize_t count[3] = {0, 0, 0};
- hsize_t block[3] = {0, 0, 0};
- hsize_t start2[3] = {0, 0, 0};
- hsize_t count2[3] = {0, 0, 0};
- hsize_t point[4][3] = {{2, 3, 2}, {3, 0, 2}, {7, 2, 0}, {0, 1, 5}};
- size_t src_buf_size;
- int src_buf[36]; /* Source data buffer */
- int dst_buf[8][5][8]; /* Destination data buffer */
- int expect_dst_buf[8][5][8]; /* Expected destination data buffer */
- scatter_info_t scatter_info; /* Operator data for callback */
- int i, j, k, src_i; /* Local index variables */
+ hid_t sid = -1; /* Dataspace ID */
+ hsize_t dim[3] = {8, 5, 8}; /* Dataspace dimensions */
+ hsize_t start[3] = {0, 0, 0};
+ hsize_t stride[3] = {0, 0, 0};
+ hsize_t count[3] = {0, 0, 0};
+ hsize_t block[3] = {0, 0, 0};
+ hsize_t start2[3] = {0, 0, 0};
+ hsize_t count2[3] = {0, 0, 0};
+ hsize_t point[4][3] = {{2, 3, 2}, {3, 0, 2}, {7, 2, 0}, {0, 1, 5}};
+ size_t src_buf_size;
+ int src_buf[36]; /* Source data buffer */
+ int dst_buf[8][5][8]; /* Destination data buffer */
+ int expect_dst_buf[8][5][8]; /* Expected destination data buffer */
+ scatter_info_t scatter_info; /* Operator data for callback */
+ int i, j, k, src_i; /* Local index variables */
TESTING("H5Dscatter()");
/* Create dataspace */
- if((sid = H5Screate_simple(3, dim, NULL)) < 0) TEST_ERROR
+ if ((sid = H5Screate_simple(3, dim, NULL)) < 0)
+ TEST_ERROR
/* Initialize src_buf */
- for(i=0; i<(int)(sizeof(src_buf)/sizeof(src_buf[0])); i++)
+ for (i = 0; i < (int)(sizeof(src_buf) / sizeof(src_buf[0])); i++)
src_buf[i] = i + 1;
-
/*
* Test 1: Simple case
*/
@@ -11899,33 +13079,32 @@ test_scatter(void)
count[0] = 1;
count[1] = 1;
count[2] = 8;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL ,count, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
TEST_ERROR
- /* Initialize dst_buf and expect_dst_buf */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
- for(i=0; i<8; i++)
+ /* Initialize dst_buf and expect_dst_buf */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ for (i = 0; i < 8; i++)
expect_dst_buf[0][0][i] = src_buf[i];
/* Loop over buffer sizes */
- for(src_buf_size=1; src_buf_size<=9; src_buf_size++) {
+ for (src_buf_size = 1; src_buf_size <= 9; src_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Set up scatter info */
scatter_info.src_buf = src_buf;
- scatter_info.block = src_buf_size;
- scatter_info.size = 8;
+ scatter_info.block = src_buf_size;
+ scatter_info.size = 8;
/* Scatter data */
- if(H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
+ if (H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
TEST_ERROR
/* Verify data */
TEST_SCATTER_CHECK_ARR(dst_buf, expect_dst_buf)
} /* end for */
-
/*
* Test 2: Single block in dataset
*/
@@ -11936,94 +13115,89 @@ test_scatter(void)
count[0] = 2;
count[1] = 3;
count[2] = 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL ,count, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ /* Initialize expect_dst_buf */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
src_i = 0;
- for(i=3; i<5; i++)
- for(j=2; j<5; j++)
- for(k=4; k<6; k++)
+ for (i = 3; i < 5; i++)
+ for (j = 2; j < 5; j++)
+ for (k = 4; k < 6; k++)
expect_dst_buf[i][j][k] = src_buf[src_i++];
/* Loop over buffer sizes */
- for(src_buf_size=1; src_buf_size<=13; src_buf_size++) {
+ for (src_buf_size = 1; src_buf_size <= 13; src_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Set up scatter info */
scatter_info.src_buf = src_buf;
- scatter_info.block = src_buf_size;
- scatter_info.size = 12;
+ scatter_info.block = src_buf_size;
+ scatter_info.size = 12;
/* Scatter data */
- if(H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
+ if (H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
TEST_ERROR
/* Verify data */
TEST_SCATTER_CHECK_ARR(dst_buf, expect_dst_buf)
} /* end for */
-
/*
* Test 3: Multiple blocks
*/
/* Select hyperslab */
- start[0] = 1;
- start[1] = 1;
- start[2] = 1;
+ start[0] = 1;
+ start[1] = 1;
+ start[2] = 1;
stride[0] = 3;
stride[1] = 4;
stride[2] = 5;
- count[0] = 3;
- count[1] = 1;
- count[2] = 2;
- block[0] = 1;
- block[1] = 3;
- block[2] = 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride ,count, block) < 0)
+ count[0] = 3;
+ count[1] = 1;
+ count[2] = 2;
+ block[0] = 1;
+ block[1] = 3;
+ block[2] = 2;
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- /* Iterate over block containing selection, checking if each element is in
- * selection. Note that the algorithm used here (if statement) would not
- * work for overlapping hyperslabs. */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ /* Initialize expect_dst_buf */
+ /* Iterate over block containing selection, checking if each element is in
+ * selection. Note that the algorithm used here (if statement) would not
+ * work for overlapping hyperslabs. */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
src_i = 0;
- for(i=1; i<8; i++)
- for(j=1; j<4; j++)
- for(k=1; k<8; k++)
- if((hsize_t)i >= start[0]
- && ((hsize_t)i - start[0]) % stride[0] < block[0]
- && ((hsize_t)i - start[0]) / stride[0] < count[0]
- && (hsize_t)j >= start[1]
- && ((hsize_t)j - start[1]) % stride[1] < block[1]
- && ((hsize_t)j - start[1]) / stride[1] < count[1]
- && (hsize_t)k >= start[2]
- && ((hsize_t)k - start[2]) % stride[2] < block[2]
- && ((hsize_t)k - start[2]) / stride[2] < count[2])
+ for (i = 1; i < 8; i++)
+ for (j = 1; j < 4; j++)
+ for (k = 1; k < 8; k++)
+ if ((hsize_t)i >= start[0] && ((hsize_t)i - start[0]) % stride[0] < block[0] &&
+ ((hsize_t)i - start[0]) / stride[0] < count[0] && (hsize_t)j >= start[1] &&
+ ((hsize_t)j - start[1]) % stride[1] < block[1] &&
+ ((hsize_t)j - start[1]) / stride[1] < count[1] && (hsize_t)k >= start[2] &&
+ ((hsize_t)k - start[2]) % stride[2] < block[2] &&
+ ((hsize_t)k - start[2]) / stride[2] < count[2])
expect_dst_buf[i][j][k] = src_buf[src_i++];
/* Loop over buffer sizes */
- for(src_buf_size=1; src_buf_size<=37; src_buf_size++) {
+ for (src_buf_size = 1; src_buf_size <= 37; src_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Set up scatter info */
scatter_info.src_buf = src_buf;
- scatter_info.block = src_buf_size;
- scatter_info.size = 36;
+ scatter_info.block = src_buf_size;
+ scatter_info.size = 36;
/* Scatter data */
- if(H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
+ if (H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
TEST_ERROR
/* Verify data */
TEST_SCATTER_CHECK_ARR(dst_buf, expect_dst_buf)
} /* end for */
-
/*
* Test 4: Compound selection
*/
@@ -12034,7 +13208,7 @@ test_scatter(void)
count[0] = 2;
count[1] = 3;
count[2] = 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL ,count, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
TEST_ERROR
start2[0] = 1;
start2[1] = 2;
@@ -12042,93 +13216,89 @@ test_scatter(void)
count2[0] = 3;
count2[1] = 2;
count2[2] = 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_XOR, start2, NULL ,count2, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_XOR, start2, NULL, count2, NULL) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- /* Iterate over block containing selection, checking if each element is in
- * selection. */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ /* Initialize expect_dst_buf */
+ /* Iterate over block containing selection, checking if each element is in
+ * selection. */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
src_i = 0;
- for(i=1; i<4; i++)
- for(j=1; j<4; j++)
- for(k=1; k<4; k++)
- if(!(((hsize_t)i >= start[0] && (hsize_t)i < start[0] + count[0])
- && ((hsize_t)j >= start[1] && (hsize_t)j < start[1] + count[1])
- && ((hsize_t)k >= start[2] && (hsize_t)k < start[2] + count[2]))
- != !(((hsize_t)i >= start2[0] && (hsize_t)i < start2[0] + count2[0])
- && ((hsize_t)j >= start2[1] && (hsize_t)j < start2[1] + count2[1])
- && ((hsize_t)k >= start2[2] && (hsize_t)k < start2[2] + count2[2])))
+ for (i = 1; i < 4; i++)
+ for (j = 1; j < 4; j++)
+ for (k = 1; k < 4; k++)
+ if (!(((hsize_t)i >= start[0] && (hsize_t)i < start[0] + count[0]) &&
+ ((hsize_t)j >= start[1] && (hsize_t)j < start[1] + count[1]) &&
+ ((hsize_t)k >= start[2] && (hsize_t)k < start[2] + count[2])) !=
+ !(((hsize_t)i >= start2[0] && (hsize_t)i < start2[0] + count2[0]) &&
+ ((hsize_t)j >= start2[1] && (hsize_t)j < start2[1] + count2[1]) &&
+ ((hsize_t)k >= start2[2] && (hsize_t)k < start2[2] + count2[2])))
expect_dst_buf[i][j][k] = src_buf[src_i++];
/* Loop over buffer sizes */
- for(src_buf_size=1; src_buf_size<=17; src_buf_size++) {
+ for (src_buf_size = 1; src_buf_size <= 17; src_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Set up scatter info */
scatter_info.src_buf = src_buf;
- scatter_info.block = src_buf_size;
- scatter_info.size = 16;
+ scatter_info.block = src_buf_size;
+ scatter_info.size = 16;
/* Scatter data */
- if(H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
+ if (H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
TEST_ERROR
/* Verify data */
TEST_SCATTER_CHECK_ARR(dst_buf, expect_dst_buf)
} /* end for */
-
/*
* Test 5: Point selection
*/
/* Select hyperslabs */
- if(H5Sselect_elements(sid, H5S_SELECT_SET, sizeof(point) / sizeof(point[0]), (hsize_t *)point) < 0)
+ if (H5Sselect_elements(sid, H5S_SELECT_SET, sizeof(point) / sizeof(point[0]), (hsize_t *)point) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- /* Iterate over block containing selection, checking if each element is in
- * selection. */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
- for(i=0; i<(int)(sizeof(point) / sizeof(point[0])); i++)
- expect_dst_buf[point[i][0]][point[i][1]][point[i][2]]
- = src_buf[i];
+ /* Initialize expect_dst_buf */
+ /* Iterate over block containing selection, checking if each element is in
+ * selection. */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ for (i = 0; i < (int)(sizeof(point) / sizeof(point[0])); i++)
+ expect_dst_buf[point[i][0]][point[i][1]][point[i][2]] = src_buf[i];
/* Loop over buffer sizes */
- for(src_buf_size=1; src_buf_size<=5; src_buf_size++) {
+ for (src_buf_size = 1; src_buf_size <= 5; src_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Set up scatter info */
scatter_info.src_buf = src_buf;
- scatter_info.block = src_buf_size;
- scatter_info.size = 4;
+ scatter_info.block = src_buf_size;
+ scatter_info.size = 4;
/* Scatter data */
- if(H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
+ if (H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
TEST_ERROR
/* Verify data */
TEST_SCATTER_CHECK_ARR(dst_buf, expect_dst_buf)
} /* end for */
-
/* Close everything */
- if(H5Sclose(sid) < 0) TEST_ERROR
+ if (H5Sclose(sid) < 0)
+ TEST_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
- H5Sclose(sid);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { H5Sclose(sid); }
+ H5E_END_TRY;
return FAIL;
} /* end test_scatter() */
-
/*-------------------------------------------------------------------------
* Function: test_gather
*
@@ -12144,18 +13314,17 @@ error:
*-------------------------------------------------------------------------
*/
typedef struct gather_info_t {
- int *expect_dst_buf; /* Expected destination data buffer */
- size_t max_nelmts; /* Maximum number of elements passed to callback */
- hbool_t last_call; /* Whether this should be the last time the callback is called */
+ int * expect_dst_buf; /* Expected destination data buffer */
+ size_t max_nelmts; /* Maximum number of elements passed to callback */
+ hbool_t last_call; /* Whether this should be the last time the callback is called */
} gather_info_t;
static herr_t
-gather_cb(const void *dst_buf, size_t dst_buf_bytes_used,
- void *_gather_info)
+gather_cb(const void *dst_buf, size_t dst_buf_bytes_used, void *_gather_info)
{
gather_info_t *gather_info = (gather_info_t *)_gather_info;
- size_t nelmts; /* Number of elements in src_buf */
- int i; /* Local index variable */
+ size_t nelmts; /* Number of elements in src_buf */
+ int i; /* Local index variable */
HDassert(dst_buf_bytes_used > 0);
@@ -12163,24 +13332,24 @@ gather_cb(const void *dst_buf, size_t dst_buf_bytes_used,
nelmts = dst_buf_bytes_used / sizeof(gather_info->expect_dst_buf[0]);
/* Make sure the number of bytes is a multiple of the number of elements */
- if(nelmts * sizeof(gather_info->expect_dst_buf[0]) != dst_buf_bytes_used)
+ if (nelmts * sizeof(gather_info->expect_dst_buf[0]) != dst_buf_bytes_used)
TEST_ERROR
/* Make sure we weren't passed more data than we requested to be passed at
* once */
- if(nelmts > gather_info->max_nelmts)
+ if (nelmts > gather_info->max_nelmts)
TEST_ERROR
/* If we were passed less data than requested, make sure this is the last
* time the callback was called */
- if(gather_info->last_call)
+ if (gather_info->last_call)
TEST_ERROR
- if(nelmts < gather_info->max_nelmts)
+ if (nelmts < gather_info->max_nelmts)
gather_info->last_call = TRUE;
/* Compare data and expected data */
- for(i=0; i<(int)nelmts; i++)
- if(((const int *)dst_buf)[i] != *((gather_info->expect_dst_buf)++))
+ for (i = 0; i < (int)nelmts; i++)
+ if (((const int *)dst_buf)[i] != *((gather_info->expect_dst_buf)++))
TEST_ERROR
return SUCCEED;
@@ -12192,35 +13361,34 @@ error:
static herr_t
test_gather(void)
{
- hid_t sid = -1; /* Dataspace ID */
- hsize_t dim[3] = {8, 5, 8}; /* Dataspace dimensions */
- hsize_t start[3] = {0, 0, 0};
- hsize_t stride[3] = {0, 0, 0};
- hsize_t count[3] = {0, 0, 0};
- hsize_t block[3] = {0, 0, 0};
- hsize_t start2[3] = {0, 0, 0};
- hsize_t count2[3] = {0, 0, 0};
- hsize_t point[4][3] = {{2, 3, 2}, {3, 0, 2}, {7, 2, 0}, {0, 1, 5}};
- size_t dst_buf_size;
- int src_buf[8][5][8]; /* Source data buffer */
- int dst_buf[36]; /* Destination data buffer */
- int expect_dst_buf[36]; /* Expected destination data buffer */
- gather_info_t gather_info; /* Operator data for callback */
- int i, j, k, dst_i; /* Local index variables */
+ hid_t sid = -1; /* Dataspace ID */
+ hsize_t dim[3] = {8, 5, 8}; /* Dataspace dimensions */
+ hsize_t start[3] = {0, 0, 0};
+ hsize_t stride[3] = {0, 0, 0};
+ hsize_t count[3] = {0, 0, 0};
+ hsize_t block[3] = {0, 0, 0};
+ hsize_t start2[3] = {0, 0, 0};
+ hsize_t count2[3] = {0, 0, 0};
+ hsize_t point[4][3] = {{2, 3, 2}, {3, 0, 2}, {7, 2, 0}, {0, 1, 5}};
+ size_t dst_buf_size;
+ int src_buf[8][5][8]; /* Source data buffer */
+ int dst_buf[36]; /* Destination data buffer */
+ int expect_dst_buf[36]; /* Expected destination data buffer */
+ gather_info_t gather_info; /* Operator data for callback */
+ int i, j, k, dst_i; /* Local index variables */
TESTING("H5Dgather()");
/* Create dataspace */
- if((sid = H5Screate_simple(3, dim, NULL)) < 0) TEST_ERROR
+ if ((sid = H5Screate_simple(3, dim, NULL)) < 0)
+ TEST_ERROR
/* Initialize src_buf */
- for(i=0; i<(int)(sizeof(src_buf)/sizeof(src_buf[0])); i++)
- for(j=0; j<(int)(sizeof(src_buf[0])/sizeof(src_buf[0][0])); j++)
- for(k=0; k<(int)(sizeof(src_buf[0][0])/sizeof(src_buf[0][0][0])); k++)
- src_buf[i][j][k] = 1 + k
- + (int)(sizeof(src_buf[0][0]) / sizeof(src_buf[0][0][0])) * j
- + (int)(sizeof(src_buf[0]) / sizeof(src_buf[0][0][0])) * i;
-
+ for (i = 0; i < (int)(sizeof(src_buf) / sizeof(src_buf[0])); i++)
+ for (j = 0; j < (int)(sizeof(src_buf[0]) / sizeof(src_buf[0][0])); j++)
+ for (k = 0; k < (int)(sizeof(src_buf[0][0]) / sizeof(src_buf[0][0][0])); k++)
+ src_buf[i][j][k] = 1 + k + (int)(sizeof(src_buf[0][0]) / sizeof(src_buf[0][0][0])) * j +
+ (int)(sizeof(src_buf[0]) / sizeof(src_buf[0][0][0])) * i;
/*
* Test 1: Simple case
@@ -12229,45 +13397,48 @@ test_gather(void)
count[0] = 1;
count[1] = 1;
count[2] = 8;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL ,count, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
- for(i=0; i<8; i++)
+ /* Initialize expect_dst_buf */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ for (i = 0; i < 8; i++)
expect_dst_buf[i] = src_buf[0][0][i];
/* Loop over buffer sizes */
- for(dst_buf_size=1; dst_buf_size<=9; dst_buf_size++) {
+ for (dst_buf_size = 1; dst_buf_size <= 9; dst_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Initialize gather_info */
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.max_nelmts = dst_buf_size;
- gather_info.last_call = FALSE;
+ gather_info.max_nelmts = dst_buf_size;
+ gather_info.last_call = FALSE;
/* Gather data */
- if(H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info) < 0)
+ if (H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb,
+ &gather_info) < 0)
TEST_ERROR
/* Verify that all data has been gathered (and verified) */
- if(gather_info.expect_dst_buf - expect_dst_buf != 8) TEST_ERROR
+ if (gather_info.expect_dst_buf - expect_dst_buf != 8)
+ TEST_ERROR
} /* end for */
/* Test without a callback */
/* Loop over buffer sizes */
- for(dst_buf_size=8; dst_buf_size<=9; dst_buf_size++) {
+ for (dst_buf_size = 8; dst_buf_size <= 9; dst_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Gather data */
- if(H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, NULL, NULL) < 0)
+ if (H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, NULL, NULL) <
+ 0)
TEST_ERROR
/* Verify data */
- for(i=0; i<(int)(sizeof(dst_buf)/sizeof(dst_buf[0])); i++)
- if(dst_buf[i] != expect_dst_buf[i])
+ for (i = 0; i < (int)(sizeof(dst_buf) / sizeof(dst_buf[0])); i++)
+ if (dst_buf[i] != expect_dst_buf[i])
TEST_ERROR
} /* end for */
@@ -12278,16 +13449,17 @@ test_gather(void)
/* Initialize gather_info */
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.max_nelmts = dst_buf_size - 1;
- gather_info.last_call = FALSE;
+ gather_info.max_nelmts = dst_buf_size - 1;
+ gather_info.last_call = FALSE;
/* Gather data */
- if(H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]) - 1, dst_buf, gather_cb, &gather_info) < 0)
+ if (H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]) - 1, dst_buf, gather_cb,
+ &gather_info) < 0)
TEST_ERROR
/* Verify that all data has been gathered (and verified) */
- if(gather_info.expect_dst_buf - expect_dst_buf != 8) TEST_ERROR
-
+ if (gather_info.expect_dst_buf - expect_dst_buf != 8)
+ TEST_ERROR
/*
* Test 2: Single block in dataset
@@ -12299,94 +13471,93 @@ test_gather(void)
count[0] = 2;
count[1] = 3;
count[2] = 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL ,count, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ /* Initialize expect_dst_buf */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
dst_i = 0;
- for(i=3; i<5; i++)
- for(j=2; j<5; j++)
- for(k=4; k<6; k++)
+ for (i = 3; i < 5; i++)
+ for (j = 2; j < 5; j++)
+ for (k = 4; k < 6; k++)
expect_dst_buf[dst_i++] = src_buf[i][j][k];
/* Loop over buffer sizes */
- for(dst_buf_size=1; dst_buf_size<=13; dst_buf_size++) {
+ for (dst_buf_size = 1; dst_buf_size <= 13; dst_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Initialize gather_info */
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.max_nelmts = dst_buf_size;
- gather_info.last_call = FALSE;
+ gather_info.max_nelmts = dst_buf_size;
+ gather_info.last_call = FALSE;
/* Gather data */
- if(H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info) < 0)
+ if (H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb,
+ &gather_info) < 0)
TEST_ERROR
/* Verify that all data has been gathered (and verified) */
- if(gather_info.expect_dst_buf - expect_dst_buf != 12) TEST_ERROR
+ if (gather_info.expect_dst_buf - expect_dst_buf != 12)
+ TEST_ERROR
} /* end for */
-
/*
* Test 3: Multiple blocks
*/
/* Select hyperslab */
- start[0] = 1;
- start[1] = 1;
- start[2] = 1;
+ start[0] = 1;
+ start[1] = 1;
+ start[2] = 1;
stride[0] = 3;
stride[1] = 4;
stride[2] = 5;
- count[0] = 3;
- count[1] = 1;
- count[2] = 2;
- block[0] = 1;
- block[1] = 3;
- block[2] = 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride ,count, block) < 0)
+ count[0] = 3;
+ count[1] = 1;
+ count[2] = 2;
+ block[0] = 1;
+ block[1] = 3;
+ block[2] = 2;
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- /* Iterate over block containing selection, checking if each element is in
- * selection. Note that the algorithm used here (if statement) would not
- * work for overlapping hyperslabs. */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ /* Initialize expect_dst_buf */
+ /* Iterate over block containing selection, checking if each element is in
+ * selection. Note that the algorithm used here (if statement) would not
+ * work for overlapping hyperslabs. */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
dst_i = 0;
- for(i=1; i<8; i++)
- for(j=1; j<4; j++)
- for(k=1; k<8; k++)
- if((hsize_t)i >= start[0]
- && ((hsize_t)i - start[0]) % stride[0] < block[0]
- && ((hsize_t)i - start[0]) / stride[0] < count[0]
- && (hsize_t)j >= start[1]
- && ((hsize_t)j - start[1]) % stride[1] < block[1]
- && ((hsize_t)j - start[1]) / stride[1] < count[1]
- && (hsize_t)k >= start[2]
- && ((hsize_t)k - start[2]) % stride[2] < block[2]
- && ((hsize_t)k - start[2]) / stride[2] < count[2])
+ for (i = 1; i < 8; i++)
+ for (j = 1; j < 4; j++)
+ for (k = 1; k < 8; k++)
+ if ((hsize_t)i >= start[0] && ((hsize_t)i - start[0]) % stride[0] < block[0] &&
+ ((hsize_t)i - start[0]) / stride[0] < count[0] && (hsize_t)j >= start[1] &&
+ ((hsize_t)j - start[1]) % stride[1] < block[1] &&
+ ((hsize_t)j - start[1]) / stride[1] < count[1] && (hsize_t)k >= start[2] &&
+ ((hsize_t)k - start[2]) % stride[2] < block[2] &&
+ ((hsize_t)k - start[2]) / stride[2] < count[2])
expect_dst_buf[dst_i++] = src_buf[i][j][k];
/* Loop over buffer sizes */
- for(dst_buf_size=1; dst_buf_size<=37; dst_buf_size++) {
+ for (dst_buf_size = 1; dst_buf_size <= 37; dst_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Initialize gather_info */
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.max_nelmts = dst_buf_size;
- gather_info.last_call = FALSE;
+ gather_info.max_nelmts = dst_buf_size;
+ gather_info.last_call = FALSE;
/* Gather data */
- if(H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info) < 0)
+ if (H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb,
+ &gather_info) < 0)
TEST_ERROR
/* Verify that all data has been gathered (and verified) */
- if(gather_info.expect_dst_buf - expect_dst_buf != 36) TEST_ERROR
+ if (gather_info.expect_dst_buf - expect_dst_buf != 36)
+ TEST_ERROR
} /* end for */
-
/*
* Test 4: Compound selection
*/
@@ -12397,7 +13568,7 @@ test_gather(void)
count[0] = 2;
count[1] = 3;
count[2] = 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL ,count, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
TEST_ERROR
start2[0] = 1;
start2[1] = 2;
@@ -12405,92 +13576,93 @@ test_gather(void)
count2[0] = 3;
count2[1] = 2;
count2[2] = 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_XOR, start2, NULL ,count2, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_XOR, start2, NULL, count2, NULL) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- /* Iterate over block containing selection, checking if each element is in
- * selection. */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ /* Initialize expect_dst_buf */
+ /* Iterate over block containing selection, checking if each element is in
+ * selection. */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
dst_i = 0;
- for(i=1; i<4; i++)
- for(j=1; j<4; j++)
- for(k=1; k<4; k++)
- if(!(((hsize_t)i >= start[0] && (hsize_t)i < start[0] + count[0])
- && ((hsize_t)j >= start[1] && (hsize_t)j < start[1] + count[1])
- && ((hsize_t)k >= start[2] && (hsize_t)k < start[2] + count[2]))
- != !(((hsize_t)i >= start2[0] && (hsize_t)i < start2[0] + count2[0])
- && ((hsize_t)j >= start2[1] && (hsize_t)j < start2[1] + count2[1])
- && ((hsize_t)k >= start2[2] && (hsize_t)k < start2[2] + count2[2])))
+ for (i = 1; i < 4; i++)
+ for (j = 1; j < 4; j++)
+ for (k = 1; k < 4; k++)
+ if (!(((hsize_t)i >= start[0] && (hsize_t)i < start[0] + count[0]) &&
+ ((hsize_t)j >= start[1] && (hsize_t)j < start[1] + count[1]) &&
+ ((hsize_t)k >= start[2] && (hsize_t)k < start[2] + count[2])) !=
+ !(((hsize_t)i >= start2[0] && (hsize_t)i < start2[0] + count2[0]) &&
+ ((hsize_t)j >= start2[1] && (hsize_t)j < start2[1] + count2[1]) &&
+ ((hsize_t)k >= start2[2] && (hsize_t)k < start2[2] + count2[2])))
expect_dst_buf[dst_i++] = src_buf[i][j][k];
/* Loop over buffer sizes */
- for(dst_buf_size=1; dst_buf_size<=17; dst_buf_size++) {
+ for (dst_buf_size = 1; dst_buf_size <= 17; dst_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Initialize gather_info */
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.max_nelmts = dst_buf_size;
- gather_info.last_call = FALSE;
+ gather_info.max_nelmts = dst_buf_size;
+ gather_info.last_call = FALSE;
/* Gather data */
- if(H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info) < 0)
+ if (H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb,
+ &gather_info) < 0)
TEST_ERROR
/* Verify that all data has been gathered (and verified) */
- if(gather_info.expect_dst_buf - expect_dst_buf != 16) TEST_ERROR
+ if (gather_info.expect_dst_buf - expect_dst_buf != 16)
+ TEST_ERROR
} /* end for */
-
/*
* Test 5: Point selection
*/
/* Select hyperslabs */
- if(H5Sselect_elements(sid, H5S_SELECT_SET, sizeof(point) / sizeof(point[0]), (hsize_t *)point) < 0)
+ if (H5Sselect_elements(sid, H5S_SELECT_SET, sizeof(point) / sizeof(point[0]), (hsize_t *)point) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- /* Iterate over block containing selection, checking if each element is in
- * selection. */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
- for(i=0; i<(int)(sizeof(point) / sizeof(point[0])); i++)
+ /* Initialize expect_dst_buf */
+ /* Iterate over block containing selection, checking if each element is in
+ * selection. */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ for (i = 0; i < (int)(sizeof(point) / sizeof(point[0])); i++)
expect_dst_buf[i] = src_buf[point[i][0]][point[i][1]][point[i][2]];
/* Loop over buffer sizes */
- for(dst_buf_size=1; dst_buf_size<=5; dst_buf_size++) {
+ for (dst_buf_size = 1; dst_buf_size <= 5; dst_buf_size++) {
/* Reset dst_buf */
(void)HDmemset(dst_buf, 0, sizeof(dst_buf));
/* Initialize gather_info */
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.max_nelmts = dst_buf_size;
- gather_info.last_call = FALSE;
+ gather_info.max_nelmts = dst_buf_size;
+ gather_info.last_call = FALSE;
/* Gather data */
- if(H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info) < 0)
+ if (H5Dgather(sid, src_buf, H5T_NATIVE_INT, dst_buf_size * sizeof(dst_buf[0]), dst_buf, gather_cb,
+ &gather_info) < 0)
TEST_ERROR
/* Verify that all data has been gathered (and verified) */
- if(gather_info.expect_dst_buf - expect_dst_buf != 4) TEST_ERROR
+ if (gather_info.expect_dst_buf - expect_dst_buf != 4)
+ TEST_ERROR
} /* end for */
-
/* Close everything */
- if(H5Sclose(sid) < 0) TEST_ERROR
+ if (H5Sclose(sid) < 0)
+ TEST_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
- H5Sclose(sid);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { H5Sclose(sid); }
+ H5E_END_TRY;
return FAIL;
} /* end test_gather() */
-
/*-------------------------------------------------------------------------
* Function: test_scatter_error
*
@@ -12506,47 +13678,45 @@ error:
*-------------------------------------------------------------------------
*/
static herr_t
-scatter_error_cb_fail(void **src_buf/*out*/, size_t *src_buf_bytes_used/*out*/,
- void *_scatter_info)
+scatter_error_cb_fail(void **src_buf /*out*/, size_t *src_buf_bytes_used /*out*/, void *_scatter_info)
{
scatter_info_t *scatter_info = (scatter_info_t *)_scatter_info;
- size_t nelmts; /* Number of elements to return in src_buf */
+ size_t nelmts; /* Number of elements to return in src_buf */
/* Calculate number of elements */
nelmts = MIN(scatter_info->block, scatter_info->size);
HDassert(nelmts > 0);
/* Set output variables */
- *src_buf = (void *)scatter_info->src_buf;
+ *src_buf = (void *)scatter_info->src_buf;
*src_buf_bytes_used = nelmts * sizeof(scatter_info->src_buf[0]);
return FAIL;
} /* end scatter_error_cb_fail() */
static herr_t
-scatter_error_cb_null(void **src_buf/*out*/, size_t *src_buf_bytes_used/*out*/,
- void *_scatter_info)
+scatter_error_cb_null(void **src_buf /*out*/, size_t *src_buf_bytes_used /*out*/, void *_scatter_info)
{
scatter_info_t *scatter_info = (scatter_info_t *)_scatter_info;
- size_t nelmts; /* Number of elements to return in src_buf */
+ size_t nelmts; /* Number of elements to return in src_buf */
/* Calculate number of elements */
nelmts = MIN(scatter_info->block, scatter_info->size);
HDassert(nelmts > 0);
/* Set output variables */
- *src_buf = NULL;
+ *src_buf = NULL;
*src_buf_bytes_used = nelmts * sizeof(scatter_info->src_buf[0]);
return SUCCEED;
} /* end scatter_error_cb_null() */
static herr_t
-scatter_error_cb_unalign(void **src_buf/*out*/, size_t *src_buf_bytes_used/*out*/,
- void *_src_buf_bytes_used)
+scatter_error_cb_unalign(void **src_buf /*out*/, size_t *src_buf_bytes_used /*out*/,
+ void *_src_buf_bytes_used)
{
/* Set output variables */
- *src_buf = _src_buf_bytes_used;
+ *src_buf = _src_buf_bytes_used;
*src_buf_bytes_used = *(size_t *)_src_buf_bytes_used;
return SUCCEED;
@@ -12555,145 +13725,168 @@ scatter_error_cb_unalign(void **src_buf/*out*/, size_t *src_buf_bytes_used/*out*
static herr_t
test_scatter_error(void)
{
- hid_t sid = -1; /* Dataspace ID */
- hsize_t dim[1] = {10}; /* Dataspace dimensions */
- hsize_t start[3] = {2};
- hsize_t count[3] = {6};
- int src_buf[7]; /* Source data buffer */
- int dst_buf[10]; /* Destination data buffer */
- scatter_info_t scatter_info; /* Operator data for callback */
- size_t cb_unalign_nbytes; /* Number of bytes to return for unaligned test */
- herr_t ret; /* Return value */
- int i; /* Local index variable */
+ hid_t sid = -1; /* Dataspace ID */
+ hsize_t dim[1] = {10}; /* Dataspace dimensions */
+ hsize_t start[3] = {2};
+ hsize_t count[3] = {6};
+ int src_buf[7]; /* Source data buffer */
+ int dst_buf[10]; /* Destination data buffer */
+ scatter_info_t scatter_info; /* Operator data for callback */
+ size_t cb_unalign_nbytes; /* Number of bytes to return for unaligned test */
+ herr_t ret; /* Return value */
+ int i; /* Local index variable */
TESTING("H5Dscatter() error conditions");
/* Create dataspace */
- if((sid = H5Screate_simple(1, dim, NULL)) < 0) TEST_ERROR
+ if ((sid = H5Screate_simple(1, dim, NULL)) < 0)
+ TEST_ERROR
/* Initialize src_buf */
- for(i=0; i<(int)(sizeof(src_buf)/sizeof(src_buf[0])); i++)
+ for (i = 0; i < (int)(sizeof(src_buf) / sizeof(src_buf[0])); i++)
src_buf[i] = i + 1;
/* Select hyperslab */
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL ,count, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
TEST_ERROR
/* Verify that base configuration passes */
scatter_info.src_buf = src_buf;
- scatter_info.block = sizeof(src_buf)/sizeof(src_buf[0]);
- scatter_info.size = 6;
- if(H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
+ scatter_info.block = sizeof(src_buf) / sizeof(src_buf[0]);
+ scatter_info.size = 6;
+ if (H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf) < 0)
TEST_ERROR
-
/*
* Test invalid parameters
*/
scatter_info.src_buf = src_buf;
- scatter_info.size = 6;
- H5E_BEGIN_TRY {
- ret = H5Dscatter(NULL, NULL, H5T_NATIVE_INT, sid, dst_buf);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ scatter_info.size = 6;
+ H5E_BEGIN_TRY { ret = H5Dscatter(NULL, NULL, H5T_NATIVE_INT, sid, dst_buf); }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
scatter_info.src_buf = src_buf;
- scatter_info.size = 6;
- H5E_BEGIN_TRY {
- ret = H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, sid, sid, dst_buf);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ scatter_info.size = 6;
+ H5E_BEGIN_TRY { ret = H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, sid, sid, dst_buf); }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
scatter_info.src_buf = src_buf;
- scatter_info.size = 6;
- H5E_BEGIN_TRY {
- ret = H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, H5T_NATIVE_INT, dst_buf);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ scatter_info.size = 6;
+ H5E_BEGIN_TRY
+ {
+ ret = H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, H5T_NATIVE_INT,
+ dst_buf);
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
scatter_info.src_buf = src_buf;
- scatter_info.size = 6;
- H5E_BEGIN_TRY {
+ scatter_info.size = 6;
+ H5E_BEGIN_TRY
+ {
ret = H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, NULL);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
-
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
/*
* Test returning too many elements in callback
*/
scatter_info.src_buf = src_buf;
- scatter_info.size = 7;
- H5E_BEGIN_TRY {
+ scatter_info.size = 7;
+ H5E_BEGIN_TRY
+ {
ret = H5Dscatter((H5D_scatter_func_t)scatter_cb, &scatter_info, H5T_NATIVE_INT, sid, dst_buf);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
-
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
/*
* Test callback returns failure
*/
scatter_info.src_buf = src_buf;
- scatter_info.size = 6;
- H5E_BEGIN_TRY {
- ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_fail, &scatter_info, H5T_NATIVE_INT, sid, dst_buf);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
-
+ scatter_info.size = 6;
+ H5E_BEGIN_TRY
+ {
+ ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_fail, &scatter_info, H5T_NATIVE_INT, sid,
+ dst_buf);
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
/*
* Test callback returns NULL buffer
*/
scatter_info.src_buf = src_buf;
- scatter_info.size = 6;
- H5E_BEGIN_TRY {
- ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_null, &scatter_info, H5T_NATIVE_INT, sid, dst_buf);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
-
+ scatter_info.size = 6;
+ H5E_BEGIN_TRY
+ {
+ ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_null, &scatter_info, H5T_NATIVE_INT, sid,
+ dst_buf);
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
/*
* Test callback returns 0 for src_buf_bytes_used
*/
cb_unalign_nbytes = 0;
- H5E_BEGIN_TRY {
- ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_unalign, &cb_unalign_nbytes, H5T_NATIVE_INT, sid, dst_buf);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
-
+ H5E_BEGIN_TRY
+ {
+ ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_unalign, &cb_unalign_nbytes, H5T_NATIVE_INT,
+ sid, dst_buf);
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
/*
* Test callback returns src_buf_bytes_used that is not a multiple of
* datatype size
*/
cb_unalign_nbytes = sizeof(src_buf[0]) - 1;
- H5E_BEGIN_TRY {
- ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_unalign, &cb_unalign_nbytes, H5T_NATIVE_INT, sid, dst_buf);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ H5E_BEGIN_TRY
+ {
+ ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_unalign, &cb_unalign_nbytes, H5T_NATIVE_INT,
+ sid, dst_buf);
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
cb_unalign_nbytes = sizeof(src_buf[0]) + 1;
- H5E_BEGIN_TRY {
- ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_unalign, &cb_unalign_nbytes, H5T_NATIVE_INT, sid, dst_buf);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
-
+ H5E_BEGIN_TRY
+ {
+ ret = H5Dscatter((H5D_scatter_func_t)scatter_error_cb_unalign, &cb_unalign_nbytes, H5T_NATIVE_INT,
+ sid, dst_buf);
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
/* Close everything */
- if(H5Sclose(sid) < 0) TEST_ERROR
+ if (H5Sclose(sid) < 0)
+ TEST_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
- H5Sclose(sid);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { H5Sclose(sid); }
+ H5E_END_TRY;
return FAIL;
} /* end test_scatter_error() */
-
/*-------------------------------------------------------------------------
* Function: test_gather_error
*
@@ -12709,8 +13902,8 @@ error:
*-------------------------------------------------------------------------
*/
static herr_t
-gather_error_cb_fail(const void H5_ATTR_UNUSED *dst_buf,
- size_t H5_ATTR_UNUSED dst_buf_bytes_used, void H5_ATTR_UNUSED *op_data)
+gather_error_cb_fail(const void H5_ATTR_UNUSED *dst_buf, size_t H5_ATTR_UNUSED dst_buf_bytes_used,
+ void H5_ATTR_UNUSED *op_data)
{
return FAIL;
} /* end gather_error_cb_fail() */
@@ -12718,117 +13911,136 @@ gather_error_cb_fail(const void H5_ATTR_UNUSED *dst_buf,
static herr_t
test_gather_error(void)
{
- hid_t sid = -1; /* Dataspace ID */
- hsize_t dim[1] = {10}; /* Dataspace dimensions */
- hsize_t start[1] = {2};
- hsize_t count[1] = {6};
- int src_buf[10]; /* Source data buffer */
- int dst_buf[6]; /* Destination data buffer */
- int expect_dst_buf[6]; /* Expected destination data buffer */
- gather_info_t gather_info; /* Operator data for callback */
- herr_t ret; /* Return value */
- int i; /* Local index variable */
+ hid_t sid = -1; /* Dataspace ID */
+ hsize_t dim[1] = {10}; /* Dataspace dimensions */
+ hsize_t start[1] = {2};
+ hsize_t count[1] = {6};
+ int src_buf[10]; /* Source data buffer */
+ int dst_buf[6]; /* Destination data buffer */
+ int expect_dst_buf[6]; /* Expected destination data buffer */
+ gather_info_t gather_info; /* Operator data for callback */
+ herr_t ret; /* Return value */
+ int i; /* Local index variable */
TESTING("H5Dgather() error conditions");
/* Create dataspace */
- if((sid = H5Screate_simple(1, dim, NULL)) < 0) TEST_ERROR
+ if ((sid = H5Screate_simple(1, dim, NULL)) < 0)
+ TEST_ERROR
/* Initialize src_buf */
- for(i=0; i<(int)(sizeof(src_buf)/sizeof(src_buf[0])); i++)
+ for (i = 0; i < (int)(sizeof(src_buf) / sizeof(src_buf[0])); i++)
src_buf[i] = 1 + i;
/* Select hyperslab */
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL ,count, NULL) < 0)
+ if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
TEST_ERROR
- /* Initialize expect_dst_buf */
- (void)HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
- for(i=0; i<6; i++)
+ /* Initialize expect_dst_buf */
+ (void) HDmemset(expect_dst_buf, 0, sizeof(expect_dst_buf));
+ for (i = 0; i < 6; i++)
expect_dst_buf[i] = src_buf[i + 2];
/* Verify that base configuration passes */
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.max_nelmts = 6;
- gather_info.last_call = FALSE;
- if(H5Dgather(sid, src_buf, H5T_NATIVE_INT, 6 * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info) < 0)
+ gather_info.max_nelmts = 6;
+ gather_info.last_call = FALSE;
+ if (H5Dgather(sid, src_buf, H5T_NATIVE_INT, 6 * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info) < 0)
TEST_ERROR
/*
* Test invalid parameters
*/
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.last_call = FALSE;
- H5E_BEGIN_TRY {
- ret = H5Dgather(H5T_NATIVE_INT, src_buf, H5T_NATIVE_INT, 6 * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ gather_info.last_call = FALSE;
+ H5E_BEGIN_TRY
+ {
+ ret = H5Dgather(H5T_NATIVE_INT, src_buf, H5T_NATIVE_INT, 6 * sizeof(dst_buf[0]), dst_buf, gather_cb,
+ &gather_info);
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.last_call = FALSE;
- H5E_BEGIN_TRY {
+ gather_info.last_call = FALSE;
+ H5E_BEGIN_TRY
+ {
ret = H5Dgather(sid, NULL, H5T_NATIVE_INT, 6 * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.last_call = FALSE;
- H5E_BEGIN_TRY {
+ gather_info.last_call = FALSE;
+ H5E_BEGIN_TRY
+ {
ret = H5Dgather(sid, src_buf, sid, 6 * sizeof(dst_buf[0]), dst_buf, gather_cb, &gather_info);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.last_call = FALSE;
- H5E_BEGIN_TRY {
- ret = H5Dgather(sid, src_buf, H5T_NATIVE_INT, 0, dst_buf, gather_cb, &gather_info);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ gather_info.last_call = FALSE;
+ H5E_BEGIN_TRY { ret = H5Dgather(sid, src_buf, H5T_NATIVE_INT, 0, dst_buf, gather_cb, &gather_info); }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.last_call = FALSE;
- H5E_BEGIN_TRY {
- ret = H5Dgather(sid, src_buf, H5T_NATIVE_INT, 1, dst_buf, gather_cb, &gather_info);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ gather_info.last_call = FALSE;
+ H5E_BEGIN_TRY { ret = H5Dgather(sid, src_buf, H5T_NATIVE_INT, 1, dst_buf, gather_cb, &gather_info); }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.last_call = FALSE;
- H5E_BEGIN_TRY {
+ gather_info.last_call = FALSE;
+ H5E_BEGIN_TRY
+ {
ret = H5Dgather(sid, src_buf, H5T_NATIVE_INT, 6 * sizeof(dst_buf[0]), NULL, gather_cb, &gather_info);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.last_call = FALSE;
- H5E_BEGIN_TRY {
+ gather_info.last_call = FALSE;
+ H5E_BEGIN_TRY
+ {
ret = H5Dgather(sid, src_buf, H5T_NATIVE_INT, 5 * sizeof(dst_buf[0]), dst_buf, NULL, &gather_info);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
-
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
/*
* Test callback returns failure
*/
gather_info.expect_dst_buf = expect_dst_buf;
- gather_info.last_call = FALSE;
- H5E_BEGIN_TRY {
- ret = H5Dgather(sid, src_buf, H5T_NATIVE_INT, 6 * sizeof(dst_buf[0]), dst_buf, gather_error_cb_fail, NULL);
- } H5E_END_TRY
- if(ret >= 0) TEST_ERROR
-
+ gather_info.last_call = FALSE;
+ H5E_BEGIN_TRY
+ {
+ ret = H5Dgather(sid, src_buf, H5T_NATIVE_INT, 6 * sizeof(dst_buf[0]), dst_buf, gather_error_cb_fail,
+ NULL);
+ }
+ H5E_END_TRY
+ if (ret >= 0)
+ TEST_ERROR
/* Close everything */
- if(H5Sclose(sid) < 0) TEST_ERROR
+ if (H5Sclose(sid) < 0)
+ TEST_ERROR
PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
- H5Sclose(sid);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { H5Sclose(sid); }
+ H5E_END_TRY;
return FAIL;
} /* end test_gather_error() */
@@ -12915,55 +14127,65 @@ error:
*-------------------------------------------------------------------------
*/
-#define DLS_01_DATASET "data"
-#define DLS_01_STR_SIZE 256
-#define DLS_01_CHUNK_SIZE 8
-#define DLS_01_DIMS 4
+#define DLS_01_DATASET "data"
+#define DLS_01_STR_SIZE 256
+#define DLS_01_CHUNK_SIZE 8
+#define DLS_01_DIMS 4
-static herr_t dls_01_setup_file( hid_t fid );
-static herr_t dls_01_write_data( hid_t fid, char* buffer );
-static herr_t dls_01_read_stuff( hid_t fid );
-static herr_t dls_01_main( void );
+static herr_t dls_01_setup_file(hid_t fid);
+static herr_t dls_01_write_data(hid_t fid, char *buffer);
+static herr_t dls_01_read_stuff(hid_t fid);
+static herr_t dls_01_main(void);
static herr_t
-dls_01_setup_file( hid_t fid )
+dls_01_setup_file(hid_t fid)
{
- int status = 0;
- hid_t sid = 0, did = 0, tid = 0, dcpl = 0;
- int ndims = 1;
- hsize_t max_shape[1] = {H5S_UNLIMITED};
+ int status = 0;
+ hid_t sid = 0, did = 0, tid = 0, dcpl = 0;
+ int ndims = 1;
+ hsize_t max_shape[1] = {H5S_UNLIMITED};
hsize_t initial_shape[1] = {0};
- hsize_t chunks[1] = {DLS_01_CHUNK_SIZE};
+ hsize_t chunks[1] = {DLS_01_CHUNK_SIZE};
- sid = H5Screate_simple( ndims, initial_shape, max_shape );
- if ( sid <= 0 ) TEST_ERROR
+ sid = H5Screate_simple(ndims, initial_shape, max_shape);
+ if (sid <= 0)
+ TEST_ERROR
- tid = H5Tcopy( H5T_C_S1 );
- if ( tid <= 0 ) TEST_ERROR
+ tid = H5Tcopy(H5T_C_S1);
+ if (tid <= 0)
+ TEST_ERROR
- status = H5Tset_size( tid, DLS_01_STR_SIZE );
- if ( status != 0 ) TEST_ERROR
+ status = H5Tset_size(tid, DLS_01_STR_SIZE);
+ if (status != 0)
+ TEST_ERROR
- dcpl = H5Pcreate( H5P_DATASET_CREATE );
- if ( dcpl <= 0 ) TEST_ERROR
+ dcpl = H5Pcreate(H5P_DATASET_CREATE);
+ if (dcpl <= 0)
+ TEST_ERROR
- status = H5Pset_chunk( dcpl, ndims, chunks );
- if ( status != 0 ) TEST_ERROR
+ status = H5Pset_chunk(dcpl, ndims, chunks);
+ if (status != 0)
+ TEST_ERROR
- did = H5Dcreate2( fid, DLS_01_DATASET, tid, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT );
- if ( did <= 0 ) TEST_ERROR
+ did = H5Dcreate2(fid, DLS_01_DATASET, tid, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
+ if (did <= 0)
+ TEST_ERROR
- status = H5Dclose( did );
- if ( status != 0 ) TEST_ERROR
+ status = H5Dclose(did);
+ if (status != 0)
+ TEST_ERROR
- status = H5Pclose( dcpl );
- if ( status != 0 ) TEST_ERROR
+ status = H5Pclose(dcpl);
+ if (status != 0)
+ TEST_ERROR
- status = H5Tclose( tid );
- if ( status != 0 ) TEST_ERROR
+ status = H5Tclose(tid);
+ if (status != 0)
+ TEST_ERROR
- status = H5Sclose( sid );
- if ( status != 0 ) TEST_ERROR
+ status = H5Sclose(sid);
+ if (status != 0)
+ TEST_ERROR
return SUCCEED;
@@ -12972,32 +14194,39 @@ error:
} /* end dls_01_setup_file() */
static herr_t
-dls_01_write_data( hid_t fid, char* buffer )
+dls_01_write_data(hid_t fid, char *buffer)
{
- int status = 0;
- hid_t did = 0, tid = 0;
+ int status = 0;
+ hid_t did = 0, tid = 0;
hsize_t extent[1] = {4};
- did = H5Dopen2( fid, DLS_01_DATASET, H5P_DEFAULT );
- if ( did <= 0 ) TEST_ERROR
+ did = H5Dopen2(fid, DLS_01_DATASET, H5P_DEFAULT);
+ if (did <= 0)
+ TEST_ERROR
- tid = H5Dget_type( did );
- if ( tid <= 0 ) TEST_ERROR
+ tid = H5Dget_type(did);
+ if (tid <= 0)
+ TEST_ERROR
- status = H5Dset_extent( did, extent );
- if ( status != 0 ) TEST_ERROR
+ status = H5Dset_extent(did, extent);
+ if (status != 0)
+ TEST_ERROR
- status = H5Dwrite( did, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, buffer );
- if ( status != 0 ) TEST_ERROR
+ status = H5Dwrite(did, tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, buffer);
+ if (status != 0)
+ TEST_ERROR
- status = H5Fflush( fid, H5F_SCOPE_LOCAL );
- if ( status != 0 ) TEST_ERROR
+ status = H5Fflush(fid, H5F_SCOPE_LOCAL);
+ if (status != 0)
+ TEST_ERROR
- status = H5Tclose( tid );
- if ( status != 0 ) TEST_ERROR
+ status = H5Tclose(tid);
+ if (status != 0)
+ TEST_ERROR
- status = H5Dclose( did );
- if ( status != 0 ) TEST_ERROR
+ status = H5Dclose(did);
+ if (status != 0)
+ TEST_ERROR
return SUCCEED;
@@ -13008,20 +14237,20 @@ error:
static herr_t
dls_01_read_stuff(hid_t fid)
{
- int status = 0;
- hid_t did = 0;
+ int status = 0;
+ hid_t did = 0;
H5O_info2_t info;
did = H5Dopen2(fid, DLS_01_DATASET, H5P_DEFAULT);
- if(did <= 0)
+ if (did <= 0)
TEST_ERROR
status = H5Oget_info3(did, &info, H5O_INFO_BASIC);
- if(status != 0)
+ if (status != 0)
TEST_ERROR
status = H5Dclose(did);
- if(status != 0)
+ if (status != 0)
TEST_ERROR
return SUCCEED;
@@ -13031,59 +14260,64 @@ error:
} /* end dls_01_read_stuff() */
static herr_t
-dls_01_main( void )
+dls_01_main(void)
{
- char filename[512];
- int status = 0;
- hid_t fapl = 0, fid = 0;
- const char* strings[DLS_01_DIMS] =
- { "String 1", "Test string 2", "Another string", "Final String" };
- char* buffer = NULL;
+ char filename[512];
+ int status = 0;
+ hid_t fapl = 0, fid = 0;
+ const char *strings[DLS_01_DIMS] = {"String 1", "Test string 2", "Another string", "Final String"};
+ char * buffer = NULL;
TESTING("Testing DLS bugfix 1");
- if ( NULL == h5_fixname(FILENAME[23], H5P_DEFAULT, filename,
- sizeof(filename)) )
- TEST_ERROR
+ if (NULL == h5_fixname(FILENAME[23], H5P_DEFAULT, filename, sizeof(filename)))
+ TEST_ERROR
- buffer = (char *)HDcalloc( DLS_01_DIMS, DLS_01_STR_SIZE );
- if ( NULL == buffer )
+ buffer = (char *)HDcalloc(DLS_01_DIMS, DLS_01_STR_SIZE);
+ if (NULL == buffer)
TEST_ERROR
- HDstrcpy( buffer, strings[0] );
- HDstrcpy( buffer + DLS_01_STR_SIZE, strings[1] );
- HDstrcpy( buffer + DLS_01_STR_SIZE * 2, strings[2] );
- HDstrcpy( buffer + DLS_01_STR_SIZE * 3, strings[3] );
+ HDstrcpy(buffer, strings[0]);
+ HDstrcpy(buffer + DLS_01_STR_SIZE, strings[1]);
+ HDstrcpy(buffer + DLS_01_STR_SIZE * 2, strings[2]);
+ HDstrcpy(buffer + DLS_01_STR_SIZE * 3, strings[3]);
- fapl = H5Pcreate( H5P_FILE_ACCESS );
- if ( fapl <= 0 ) TEST_ERROR
+ fapl = H5Pcreate(H5P_FILE_ACCESS);
+ if (fapl <= 0)
+ TEST_ERROR
- status = H5Pset_libver_bounds( fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST );
- if ( status != 0 ) TEST_ERROR
+ status = H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST);
+ if (status != 0)
+ TEST_ERROR
- fid = H5Fcreate( filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl );
- if ( fid <= 0 ) TEST_ERROR
+ fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
+ if (fid <= 0)
+ TEST_ERROR
- if ( 0 != dls_01_setup_file( fid ) )
- goto error;
+ if (0 != dls_01_setup_file(fid))
+ goto error;
- if ( 0 != dls_01_write_data( fid, buffer ) )
- goto error;
+ if (0 != dls_01_write_data(fid, buffer))
+ goto error;
- status = H5Fclose( fid );
- if ( status != 0 ) TEST_ERROR
+ status = H5Fclose(fid);
+ if (status != 0)
+ TEST_ERROR
- fid = H5Fopen( filename, H5F_ACC_RDONLY, fapl );
- if ( fid <= 0 ) TEST_ERROR
+ fid = H5Fopen(filename, H5F_ACC_RDONLY, fapl);
+ if (fid <= 0)
+ TEST_ERROR
- if ( 0 != dls_01_read_stuff( fid ) )
- goto error;
+ if (0 != dls_01_read_stuff(fid))
+ goto error;
- status = H5Fclose( fid );
- if ( status != 0 ) TEST_ERROR
+ status = H5Fclose(fid);
+ if (status != 0)
+ TEST_ERROR
- status = H5Pclose( fapl );
- if ( status != 0 ) TEST_ERROR
+ status = H5Pclose(fapl);
+ if (status != 0)
+ TEST_ERROR
HDfree(buffer);
@@ -13092,7 +14326,8 @@ dls_01_main( void )
return SUCCEED;
error:
- if ( buffer ) HDfree(buffer);
+ if (buffer)
+ HDfree(buffer);
return FAIL;
} /* end dls_01_main() */
@@ -13117,104 +14352,105 @@ error:
static herr_t
test_compact_open_close_dirty(hid_t fapl)
{
- hid_t fid = -1; /* File ID */
- hid_t did = -1; /* Dataset ID */
- hid_t sid = -1; /* Dataspace ID */
- hid_t dcpl = -1; /* Dataset creation property list */
- hsize_t dims[1] = {10}; /* Dimension */
- int wbuf[10]; /* Data buffer */
- char filename[FILENAME_BUF_SIZE]; /* Filename */
- int i; /* Local index variable */
- hbool_t dirty; /* The dirty flag */
+ hid_t fid = -1; /* File ID */
+ hid_t did = -1; /* Dataset ID */
+ hid_t sid = -1; /* Dataspace ID */
+ hid_t dcpl = -1; /* Dataset creation property list */
+ hsize_t dims[1] = {10}; /* Dimension */
+ int wbuf[10]; /* Data buffer */
+ char filename[FILENAME_BUF_SIZE]; /* Filename */
+ int i; /* Local index variable */
+ hbool_t dirty; /* The dirty flag */
TESTING("compact dataset repeated open/close and dirty flag");
/* Create a file */
h5_fixname(FILENAME[1], fapl, filename, sizeof filename);
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
TEST_ERROR
/* Initialize data */
- for(i = 0; i < 10; i++)
+ for (i = 0; i < 10; i++)
wbuf[i] = i;
/* Create dataspace */
- if((sid = H5Screate_simple(1, dims, NULL)) < 0)
+ if ((sid = H5Screate_simple(1, dims, NULL)) < 0)
TEST_ERROR
/* Set compact layout */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
TEST_ERROR
- if(H5Pset_layout(dcpl, H5D_COMPACT) < 0)
+ if (H5Pset_layout(dcpl, H5D_COMPACT) < 0)
TEST_ERROR
- if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0)
+ if (H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0)
TEST_ERROR
/* Create a compact dataset */
- if((did = H5Dcreate2(fid, DSET_COMPACT_MAX_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid, DSET_COMPACT_MAX_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) <
+ 0)
TEST_ERROR
/* Write to the dataset */
- if(H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
+ if (H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
TEST_ERROR
/* Close the dataset */
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
TEST_ERROR
/* Verify the repeated open/close of the dataset will not fail */
- for(i = 0; i < 20;i++) {
- H5E_BEGIN_TRY {
- did = H5Dopen2 (fid, DSET_COMPACT_MAX_NAME, H5P_DEFAULT);
- } H5E_END_TRY;
- if(did < 0)
+ for (i = 0; i < 20; i++) {
+ H5E_BEGIN_TRY { did = H5Dopen2(fid, DSET_COMPACT_MAX_NAME, H5P_DEFAULT); }
+ H5E_END_TRY;
+ if (did < 0)
TEST_ERROR
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
TEST_ERROR
}
/* Open the dataset */
- if((did = H5Dopen2(fid, DSET_COMPACT_MAX_NAME, H5P_DEFAULT)) < 0)
+ if ((did = H5Dopen2(fid, DSET_COMPACT_MAX_NAME, H5P_DEFAULT)) < 0)
TEST_ERROR
/* Retrieve the "dirty" flag from the compact dataset layout */
- if(H5D__layout_compact_dirty_test(did, &dirty) < 0)
+ if (H5D__layout_compact_dirty_test(did, &dirty) < 0)
TEST_ERROR
/* Verify that the "dirty" flag is false */
- if(dirty)
+ if (dirty)
TEST_ERROR
/* Close the dataset */
- if(H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
TEST_ERROR
/* Close the dataspace */
- if(H5Sclose(sid) < 0)
+ if (H5Sclose(sid) < 0)
TEST_ERROR
/* Close the dataset creation property list */
- if(H5Pclose(dcpl) < 0)
+ if (H5Pclose(dcpl) < 0)
TEST_ERROR
/* Close the file */
- if(H5Fclose(fid) < 0)
+ if (H5Fclose(fid) < 0)
TEST_ERROR
- PASSED();
- return SUCCEED;
+ PASSED();
+ return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Sclose(sid);
H5Pclose(dcpl);
H5Dclose(did);
H5Fclose(fid);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_compact_open_close_dirty() */
-
/*-------------------------------------------------------------------------
* Function: test_versionbounds
*
@@ -13231,129 +14467,137 @@ error:
*
*-------------------------------------------------------------------------
*/
-#define VDS_FNAME1 "virtual_file1"
-#define VDS_FNAME2 "virtual_file2"
-#define SRC_FNAME "source_file"
-#define SRC_DSET "src_dset"
-#define V_DSET "v_dset"
+#define VDS_FNAME1 "virtual_file1"
+#define VDS_FNAME2 "virtual_file2"
+#define SRC_FNAME "source_file"
+#define SRC_DSET "src_dset"
+#define V_DSET "v_dset"
static herr_t
test_versionbounds(void)
{
- hid_t fapl = -1;
- hid_t srcfile = -1; /* Files with source dsets */
- hid_t vfile = -1; /* File with virtual dset */
- hid_t dcpl = -1; /* Dataset creation property list */
- hid_t srcspace = -1; /* Source dataspaces */
- hid_t vspace = -1; /* Virtual dset dataspaces */
- hid_t srcdset = -1; /* Source datset */
- hid_t vdset = -1; /* Virtual dataset */
- hsize_t dims[1] = {3}; /* Data space current size */
- char srcfilename[FILENAME_BUF_SIZE];
- char vfilename1[FILENAME_BUF_SIZE];
- char vfilename2[FILENAME_BUF_SIZE];
- H5F_libver_t low, high; /* File format bounds */
- herr_t ret; /* Generic return value */
+ hid_t fapl = -1;
+ hid_t srcfile = -1; /* Files with source dsets */
+ hid_t vfile = -1; /* File with virtual dset */
+ hid_t dcpl = -1; /* Dataset creation property list */
+ hid_t srcspace = -1; /* Source dataspaces */
+ hid_t vspace = -1; /* Virtual dset dataspaces */
+ hid_t srcdset = -1; /* Source datset */
+ hid_t vdset = -1; /* Virtual dataset */
+ hsize_t dims[1] = {3}; /* Data space current size */
+ char srcfilename[FILENAME_BUF_SIZE];
+ char vfilename1[FILENAME_BUF_SIZE];
+ char vfilename2[FILENAME_BUF_SIZE];
+ H5F_libver_t low, high; /* File format bounds */
+ herr_t ret; /* Generic return value */
TESTING("version bounds of datasets");
/* Create a copy of file access property list */
- if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) TEST_ERROR
+ if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
+ TEST_ERROR
h5_fixname(VDS_FNAME1, fapl, vfilename1, sizeof vfilename1);
h5_fixname(VDS_FNAME2, fapl, vfilename2, sizeof vfilename2);
h5_fixname(SRC_FNAME, fapl, srcfilename, sizeof srcfilename);
/* Create DCPL */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
TEST_ERROR
/* Clear virtual layout in DCPL */
- if(H5Pset_layout(dcpl, H5D_VIRTUAL) < 0)
+ if (H5Pset_layout(dcpl, H5D_VIRTUAL) < 0)
TEST_ERROR
/* Create source dataspace */
- if((srcspace = H5Screate_simple(1, dims, NULL)) < 0)
+ if ((srcspace = H5Screate_simple(1, dims, NULL)) < 0)
TEST_ERROR
/* Create virtual dataspace */
- if((vspace = H5Screate_simple(1, dims, NULL)) < 0)
+ if ((vspace = H5Screate_simple(1, dims, NULL)) < 0)
TEST_ERROR
/* Add virtual layout mapping */
- if(H5Pset_virtual(dcpl, vspace, srcfilename, SRC_DSET, srcspace) < 0)
+ if (H5Pset_virtual(dcpl, vspace, srcfilename, SRC_DSET, srcspace) < 0)
TEST_ERROR
/* Loop through all the combinations of low/high library format bounds */
/* Create a source file and a dataset in it. Create a virtual file and
virtual dataset. Creation of virtual dataset should only succeed in
H5F_LIBVER_V110 */
- for(low = H5F_LIBVER_EARLIEST; low < H5F_LIBVER_NBOUNDS; low++) {
- for(high = H5F_LIBVER_EARLIEST; high < H5F_LIBVER_NBOUNDS; high++) {
+ for (low = H5F_LIBVER_EARLIEST; low < H5F_LIBVER_NBOUNDS; low++) {
+ for (high = H5F_LIBVER_EARLIEST; high < H5F_LIBVER_NBOUNDS; high++) {
/* Set version bounds, skip for invalid low/high combination */
- H5E_BEGIN_TRY {
- ret = H5Pset_libver_bounds(fapl, low, high);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Pset_libver_bounds(fapl, low, high); }
+ H5E_END_TRY;
if (ret < 0) /* Invalid low/high combinations */
continue;
/* Create a source file and dataset */
- if((srcfile = H5Fcreate(srcfilename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((srcfile = H5Fcreate(srcfilename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
TEST_ERROR
- if((srcdset = H5Dcreate2(srcfile, SRC_DSET, H5T_NATIVE_INT, srcspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ if ((srcdset = H5Dcreate2(srcfile, SRC_DSET, H5T_NATIVE_INT, srcspace, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0)
TEST_ERROR
/* Create a virtual file */
- if((vfile = H5Fcreate(vfilename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((vfile = H5Fcreate(vfilename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
TEST_ERROR
/* Create the virtual dataset */
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
vdset = H5Dcreate2(vfile, V_DSET, H5T_NATIVE_INT, vspace, H5P_DEFAULT, dcpl, H5P_DEFAULT);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
if (vdset > 0) /* dataset created successfully */
{
/* Virtual dataset is only available starting in V110 */
VERIFY(high >= H5F_LIBVER_V110, TRUE, "virtual dataset");
- if(H5Dclose(vdset) < 0) TEST_ERROR
+ if (H5Dclose(vdset) < 0)
+ TEST_ERROR
vdset = -1;
}
/* Close virtual file */
- if(H5Fclose(vfile) < 0) TEST_ERROR
+ if (H5Fclose(vfile) < 0)
+ TEST_ERROR
vfile = -1;
/* Close srcdset and srcfile */
- if(H5Dclose(srcdset) < 0) TEST_ERROR
+ if (H5Dclose(srcdset) < 0)
+ TEST_ERROR
srcdset = -1;
- if(H5Fclose(srcfile) < 0) TEST_ERROR
+ if (H5Fclose(srcfile) < 0)
+ TEST_ERROR
srcfile = -1;
} /* for high */
- } /* for low */
+ } /* for low */
/* Close dataspaces and properties */
- if(H5Sclose(srcspace) < 0)
+ if (H5Sclose(srcspace) < 0)
TEST_ERROR
srcspace = -1;
- if(H5Sclose(vspace) < 0)
+ if (H5Sclose(vspace) < 0)
TEST_ERROR
vspace = -1;
- if(H5Pclose(fapl) < 0)
+ if (H5Pclose(fapl) < 0)
TEST_ERROR
fapl = -1;
- if(H5Pclose(dcpl) < 0)
+ if (H5Pclose(dcpl) < 0)
TEST_ERROR
dcpl = -1;
PASSED();
return SUCCEED;
- error:
- H5E_BEGIN_TRY {
+error:
+ H5E_BEGIN_TRY
+ {
H5Sclose(srcspace);
H5Sclose(vspace);
H5Pclose(dcpl);
@@ -13362,11 +14606,11 @@ test_versionbounds(void)
H5Dclose(vdset);
H5Fclose(srcfile);
H5Fclose(vfile);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_versionbounds() */
-
/*-----------------------------------------------------------------------------
* Function: test_object_header_minimization_dcpl
*
@@ -13385,11 +14629,11 @@ test_versionbounds(void)
static herr_t
test_object_header_minimization_dcpl(void)
{
- hid_t dcpl_id = -1;
- hid_t file_id = -1;
- char filename[FILENAME_BUF_SIZE] = "";
- hbool_t minimize = FALSE;
- herr_t ret;
+ hid_t dcpl_id = -1;
+ hid_t file_id = -1;
+ char filename[FILENAME_BUF_SIZE] = "";
+ hbool_t minimize = FALSE;
+ herr_t ret;
TESTING("dcpl flags to minimize dataset object header");
@@ -13397,7 +14641,7 @@ test_object_header_minimization_dcpl(void)
/* SETUP */
/*********/
- if(NULL == h5_fixname(OHMIN_FILENAME_A, H5P_DEFAULT, filename, sizeof(filename)))
+ if (NULL == h5_fixname(OHMIN_FILENAME_A, H5P_DEFAULT, filename, sizeof(filename)))
TEST_ERROR
file_id = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
@@ -13439,52 +14683,56 @@ test_object_header_minimization_dcpl(void)
/* error cases
*/
- H5E_BEGIN_TRY {
- ret = H5Pget_dset_no_attrs_hint(-1, &minimize);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY { ret = H5Pget_dset_no_attrs_hint(-1, &minimize); }
+ H5E_END_TRY;
if (ret == SUCCEED)
TEST_ERROR /* Invalid DCPL ID should fail */
- H5E_BEGIN_TRY {
- ret = H5Pset_dset_no_attrs_hint(-1, FALSE);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY
+ {
+ ret = H5Pset_dset_no_attrs_hint(-1, FALSE);
+ }
+ H5E_END_TRY;
if (ret == SUCCEED)
TEST_ERROR /* Invalid DCPL ID should fail */
- H5E_BEGIN_TRY {
- ret = H5Pset_dset_no_attrs_hint(-1, TRUE);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY
+ {
+ ret = H5Pset_dset_no_attrs_hint(-1, TRUE);
+ }
+ H5E_END_TRY;
if (ret == SUCCEED)
TEST_ERROR /* Invalid DCPL ID should fail */
- H5E_BEGIN_TRY {
- ret = H5Pget_dset_no_attrs_hint(dcpl_id, NULL);
- } H5E_END_TRY;
+ H5E_BEGIN_TRY
+ {
+ ret = H5Pget_dset_no_attrs_hint(dcpl_id, NULL);
+ }
+ H5E_END_TRY;
if (ret == SUCCEED)
TEST_ERROR /* NULL out pointer should fail */
- /************/
- /* TEARDOWN */
- /************/
+ /************/
+ /* TEARDOWN */
+ /************/
- if (H5Fclose(file_id) == FAIL)
- TEST_ERROR
+ if (H5Fclose(file_id) == FAIL) TEST_ERROR
- if (H5Pclose(dcpl_id) == FAIL)
- TEST_ERROR
+ if (H5Pclose(dcpl_id) == FAIL) TEST_ERROR
- PASSED();
+ PASSED();
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dcpl_id);
H5Fclose(file_id);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_object_header_minimization_dcpl() */
-
/*-----------------------------------------------------------------------------
* Function: test_0sized_dset_metadata_alloc
*
@@ -13501,15 +14749,15 @@ error:
static herr_t
test_0sized_dset_metadata_alloc(hid_t fapl_id)
{
- char filename[FILENAME_BUF_SIZE] = "";
- hid_t file_id = H5I_INVALID_HID;
- hid_t fapl_id_copy = H5I_INVALID_HID;
- hid_t dset_id = H5I_INVALID_HID;
- hid_t dcpl_id = H5I_INVALID_HID;
- hid_t dcpl_id_copy = H5I_INVALID_HID;
- hid_t dset_space_id = H5I_INVALID_HID;
- hid_t buf_space_id = H5I_INVALID_HID;
- unsigned new_format; /* Whether to use latest file format */
+ char filename[FILENAME_BUF_SIZE] = "";
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t fapl_id_copy = H5I_INVALID_HID;
+ hid_t dset_id = H5I_INVALID_HID;
+ hid_t dcpl_id = H5I_INVALID_HID;
+ hid_t dcpl_id_copy = H5I_INVALID_HID;
+ hid_t dset_space_id = H5I_INVALID_HID;
+ hid_t buf_space_id = H5I_INVALID_HID;
+ unsigned new_format; /* Whether to use latest file format */
TESTING("allocation of metadata for 0-sized datasets");
@@ -13517,144 +14765,146 @@ test_0sized_dset_metadata_alloc(hid_t fapl_id)
/* SETUP */
/*********/
- if(NULL == h5_fixname(FILENAME[26], fapl_id, filename, sizeof(filename)))
+ if (NULL == h5_fixname(FILENAME[26], fapl_id, filename, sizeof(filename)))
FAIL_STACK_ERROR
/* Create DCPL for the dataset */
- if((dcpl_id = H5Pcreate(H5P_DATASET_CREATE)) < 0)
+ if ((dcpl_id = H5Pcreate(H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
-
/*************/
/* RUN TESTS */
/*************/
/* Iterate over file format versions */
- for(new_format = FALSE; new_format <= TRUE; new_format++) {
- H5D_layout_t layout; /* Dataset layout type */
- H5D_alloc_time_t alloc_time; /* Storage allocation time */
+ for (new_format = FALSE; new_format <= TRUE; new_format++) {
+ H5D_layout_t layout; /* Dataset layout type */
+ H5D_alloc_time_t alloc_time; /* Storage allocation time */
/* Copy the file access property list */
- if((fapl_id_copy = H5Pcopy(fapl_id)) < 0)
+ if ((fapl_id_copy = H5Pcopy(fapl_id)) < 0)
FAIL_STACK_ERROR
/* Set the "use the latest version of the format" bounds for creating objects in the file */
- if(new_format)
- if(H5Pset_libver_bounds(fapl_id_copy, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
+ if (new_format)
+ if (H5Pset_libver_bounds(fapl_id_copy, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
FAIL_STACK_ERROR
/* Create test file */
- if((file_id = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_id_copy)) < 0)
+ if ((file_id = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_id_copy)) < 0)
FAIL_STACK_ERROR
/* Close the copy of the FAPL */
- if(H5Pclose(fapl_id_copy) < 0)
+ if (H5Pclose(fapl_id_copy) < 0)
FAIL_STACK_ERROR
/* Iterate over combinations of testing parameters */
- for(layout = H5D_COMPACT; layout <= H5D_CHUNKED; layout++) {
- for(alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
- const hsize_t dims[1] = {0}; /* Dataset dimensions */
- const hsize_t max_dims[1] = {H5S_UNLIMITED}; /* Maximum dataset dimensions */
- const hsize_t chunk_dims[1] = {100}; /* Chunk dimensions */
- char dset_name[32]; /* Dataset name */
- H5O_native_info_t nat_info; /* Information about the dataset */
+ for (layout = H5D_COMPACT; layout <= H5D_CHUNKED; layout++) {
+ for (alloc_time = H5D_ALLOC_TIME_EARLY; alloc_time <= H5D_ALLOC_TIME_INCR; alloc_time++) {
+ const hsize_t dims[1] = {0}; /* Dataset dimensions */
+ const hsize_t max_dims[1] = {H5S_UNLIMITED}; /* Maximum dataset dimensions */
+ const hsize_t chunk_dims[1] = {100}; /* Chunk dimensions */
+ char dset_name[32]; /* Dataset name */
+ H5O_native_info_t nat_info; /* Information about the dataset */
/* Compact storage must have early allocation */
- if(H5D_COMPACT == layout && H5D_ALLOC_TIME_EARLY != alloc_time)
+ if (H5D_COMPACT == layout && H5D_ALLOC_TIME_EARLY != alloc_time)
continue;
/* Compose dataset name */
- HDsnprintf(dset_name, sizeof(dset_name), "/Dataset-%u-%u", (unsigned)alloc_time, (unsigned)layout);
+ HDsnprintf(dset_name, sizeof(dset_name), "/Dataset-%u-%u", (unsigned)alloc_time,
+ (unsigned)layout);
/* Set up DCPL */
- if((dcpl_id_copy = H5Pcopy(dcpl_id)) < 0)
+ if ((dcpl_id_copy = H5Pcopy(dcpl_id)) < 0)
FAIL_STACK_ERROR
- if(H5Pset_alloc_time(dcpl_id_copy, alloc_time) < 0)
+ if (H5Pset_alloc_time(dcpl_id_copy, alloc_time) < 0)
FAIL_STACK_ERROR
- if(H5Pset_layout(dcpl_id_copy, layout) < 0)
+ if (H5Pset_layout(dcpl_id_copy, layout) < 0)
FAIL_STACK_ERROR
- if(H5D_CHUNKED == layout)
- if(H5Pset_chunk(dcpl_id_copy, 1, chunk_dims) < 0)
+ if (H5D_CHUNKED == layout)
+ if (H5Pset_chunk(dcpl_id_copy, 1, chunk_dims) < 0)
FAIL_STACK_ERROR
/* Create the dataspace for the dataset */
- if((dset_space_id = H5Screate_simple(1, dims, (H5D_CHUNKED == layout ? max_dims : NULL))) < 0)
+ if ((dset_space_id = H5Screate_simple(1, dims, (H5D_CHUNKED == layout ? max_dims : NULL))) <
+ 0)
FAIL_STACK_ERROR
/* Create the dataset with the appropriate parameters */
- if((dset_id = H5Dcreate2(file_id, dset_name, H5T_NATIVE_INT, dset_space_id, H5P_DEFAULT, dcpl_id_copy, H5P_DEFAULT)) < 0)
+ if ((dset_id = H5Dcreate2(file_id, dset_name, H5T_NATIVE_INT, dset_space_id, H5P_DEFAULT,
+ dcpl_id_copy, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
/* Close objects used to create dataset */
- if(H5Pclose(dcpl_id_copy) < 0)
+ if (H5Pclose(dcpl_id_copy) < 0)
FAIL_STACK_ERROR
- if(H5Sclose(dset_space_id) < 0)
+ if (H5Sclose(dset_space_id) < 0)
FAIL_STACK_ERROR
/* Retrieve & verify the dataset's index info */
HDmemset(&nat_info, 0, sizeof(nat_info));
- if(H5Oget_native_info(dset_id, &nat_info, H5O_NATIVE_INFO_META_SIZE) < 0)
+ if (H5Oget_native_info(dset_id, &nat_info, H5O_NATIVE_INFO_META_SIZE) < 0)
FAIL_STACK_ERROR
- if(0 != nat_info.meta_size.obj.index_size)
+ if (0 != nat_info.meta_size.obj.index_size)
FAIL_PUTS_ERROR("dataset index allocation size is non-zero")
/* If chunked, try extending and verify that the index is allocated */
- if(H5D_CHUNKED == layout) {
+ if (H5D_CHUNKED == layout) {
const hsize_t new_dims[1] = {1500}; /* New dataset dimensions */
- const hsize_t mem_dims[1] = {1}; /* Memory buffer dataset dimensions */
- const hsize_t coord = 0; /* Dataset selection coordinate */
- int val = 0; /* Data value */
+ const hsize_t mem_dims[1] = {1}; /* Memory buffer dataset dimensions */
+ const hsize_t coord = 0; /* Dataset selection coordinate */
+ int val = 0; /* Data value */
/* Extend dataset */
- if(H5Dset_extent(dset_id, new_dims) < 0)
+ if (H5Dset_extent(dset_id, new_dims) < 0)
FAIL_STACK_ERROR
/* Get the dataspace for the dataset & set single point selection */
- if((dset_space_id = H5Dget_space(dset_id)) < 0)
+ if ((dset_space_id = H5Dget_space(dset_id)) < 0)
FAIL_STACK_ERROR
- if(H5Sselect_elements(dset_space_id, H5S_SELECT_SET, (size_t)1, (const hsize_t *)&coord) < 0)
+ if (H5Sselect_elements(dset_space_id, H5S_SELECT_SET, (size_t)1,
+ (const hsize_t *)&coord) < 0)
FAIL_STACK_ERROR
/* Create memory dataspace, with only one element */
- if((buf_space_id = H5Screate_simple(1, mem_dims, NULL)) < 0)
+ if ((buf_space_id = H5Screate_simple(1, mem_dims, NULL)) < 0)
FAIL_STACK_ERROR
/* Write the data to the dataset */
- if(H5Dwrite(dset_id, H5T_NATIVE_INT, buf_space_id, dset_space_id, H5P_DEFAULT, &val) < 0)
+ if (H5Dwrite(dset_id, H5T_NATIVE_INT, buf_space_id, dset_space_id, H5P_DEFAULT, &val) < 0)
FAIL_STACK_ERROR
/* Close objects used to perform I/O */
- if(H5Sclose(dset_space_id) < 0)
+ if (H5Sclose(dset_space_id) < 0)
FAIL_STACK_ERROR
- if(H5Sclose(buf_space_id) < 0)
+ if (H5Sclose(buf_space_id) < 0)
FAIL_STACK_ERROR
/* Retrieve & verify the dataset's index info */
HDmemset(&nat_info, 0, sizeof(nat_info));
- if(H5Oget_native_info(dset_id, &nat_info, H5O_NATIVE_INFO_META_SIZE) < 0)
+ if (H5Oget_native_info(dset_id, &nat_info, H5O_NATIVE_INFO_META_SIZE) < 0)
FAIL_STACK_ERROR
- if(0 == nat_info.meta_size.obj.index_size)
+ if (0 == nat_info.meta_size.obj.index_size)
FAIL_PUTS_ERROR("dataset index allocation size is zero")
} /* end if */
/* Close dataset */
- if(H5Dclose(dset_id) < 0)
+ if (H5Dclose(dset_id) < 0)
FAIL_STACK_ERROR
} /* end for */
- } /* end for */
+ } /* end for */
/* Close test file */
- if(H5Fclose(file_id) < 0)
+ if (H5Fclose(file_id) < 0)
FAIL_STACK_ERROR
} /* end for */
-
/************/
/* TEARDOWN */
/************/
- if(H5Pclose(dcpl_id) < 0)
+ if (H5Pclose(dcpl_id) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -13662,7 +14912,8 @@ test_0sized_dset_metadata_alloc(hid_t fapl_id)
return SUCCEED;
error:
- H5E_BEGIN_TRY {
+ H5E_BEGIN_TRY
+ {
H5Pclose(dset_space_id);
H5Pclose(buf_space_id);
H5Pclose(fapl_id_copy);
@@ -13670,12 +14921,12 @@ error:
H5Pclose(dcpl_id);
H5Dclose(dset_id);
H5Fclose(file_id);
- } H5E_END_TRY;
+ }
+ H5E_END_TRY;
return FAIL;
} /* end test_0sized_dset_metadata_alloc() */
-
/*-------------------------------------------------------------------------
* Function: main
*
@@ -13691,24 +14942,24 @@ error:
int
main(void)
{
- char filename[FILENAME_BUF_SIZE];
- hid_t file, grp, fapl, fapl2;
- hid_t fcpl = -1, fcpl2 = -1;
- unsigned new_format;
- unsigned paged;
- unsigned minimized_ohdr;
- int mdc_nelmts;
- size_t rdcc_nelmts;
- size_t rdcc_nbytes;
- double rdcc_w0;
- int nerrors = 0;
+ char filename[FILENAME_BUF_SIZE];
+ hid_t file, grp, fapl, fapl2;
+ hid_t fcpl = -1, fcpl2 = -1;
+ unsigned new_format;
+ unsigned paged;
+ unsigned minimized_ohdr;
+ int mdc_nelmts;
+ size_t rdcc_nelmts;
+ size_t rdcc_nbytes;
+ double rdcc_w0;
+ int nerrors = 0;
const char *envval;
- hbool_t contig_addr_vfd; /* Whether VFD used has a contigous address space */
- int i;
+ hbool_t contig_addr_vfd; /* Whether VFD used has a contigous address space */
+ int i;
/* Don't run this test using certain file drivers */
envval = HDgetenv("HDF5_DRIVER");
- if(envval == NULL)
+ if (envval == NULL)
envval = "nomatch";
/* Current VFD that does not support contigous address space */
@@ -13719,33 +14970,33 @@ main(void)
/* Initialize global arrays */
/* points */
- if(NULL == (points_data = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
+ if (NULL == (points_data = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
TEST_ERROR;
- if(NULL == (points = (int **)HDcalloc(DSET_DIM1, sizeof(points_data))))
+ if (NULL == (points = (int **)HDcalloc(DSET_DIM1, sizeof(points_data))))
TEST_ERROR;
for (i = 0; i < DSET_DIM1; i++)
points[i] = points_data + (i * DSET_DIM2);
/* check */
- if(NULL == (check_data = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
+ if (NULL == (check_data = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
TEST_ERROR;
- if(NULL == (check = (int **)HDcalloc(DSET_DIM1, sizeof(check_data))))
+ if (NULL == (check = (int **)HDcalloc(DSET_DIM1, sizeof(check_data))))
TEST_ERROR;
for (i = 0; i < DSET_DIM1; i++)
check[i] = check_data + (i * DSET_DIM2);
/* points_dbl */
- if(NULL == (points_dbl_data = (double *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(double))))
+ if (NULL == (points_dbl_data = (double *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(double))))
TEST_ERROR;
- if(NULL == (points_dbl = (double **)HDcalloc(DSET_DIM1, sizeof(points_dbl_data))))
+ if (NULL == (points_dbl = (double **)HDcalloc(DSET_DIM1, sizeof(points_dbl_data))))
TEST_ERROR;
for (i = 0; i < DSET_DIM1; i++)
points_dbl[i] = points_dbl_data + (i * DSET_DIM2);
/* check_dbl */
- if(NULL == (check_dbl_data = (double *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(double))))
+ if (NULL == (check_dbl_data = (double *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(double))))
TEST_ERROR;
- if(NULL == (check_dbl = (double **)HDcalloc(DSET_DIM1, sizeof(check_dbl_data))))
+ if (NULL == (check_dbl = (double **)HDcalloc(DSET_DIM1, sizeof(check_dbl_data))))
TEST_ERROR;
for (i = 0; i < DSET_DIM1; i++)
check_dbl[i] = check_dbl_data + (i * DSET_DIM2);
@@ -13755,67 +15006,72 @@ main(void)
fapl = h5_fileaccess();
/* Turn off the chunk cache, so all the chunks are immediately written to disk */
- if(H5Pget_cache(fapl, &mdc_nelmts, &rdcc_nelmts, &rdcc_nbytes, &rdcc_w0) < 0)
+ if (H5Pget_cache(fapl, &mdc_nelmts, &rdcc_nelmts, &rdcc_nbytes, &rdcc_w0) < 0)
goto error;
rdcc_nbytes = 0;
- if(H5Pset_cache(fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0) < 0)
+ if (H5Pset_cache(fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0) < 0)
goto error;
/* Copy the file access property list */
- if((fapl2 = H5Pcopy(fapl)) < 0) TEST_ERROR
+ if ((fapl2 = H5Pcopy(fapl)) < 0)
+ TEST_ERROR
/* Set the "use the latest version of the format" bounds for creating objects in the file */
- if(H5Pset_libver_bounds(fapl2, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0) TEST_ERROR
+ if (H5Pset_libver_bounds(fapl2, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
+ TEST_ERROR
/* create a file creation property list */
- if((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
+ if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
+ TEST_ERROR
+ if ((fcpl2 = H5Pcopy(fcpl)) < 0)
TEST_ERROR
- if((fcpl2 = H5Pcopy(fcpl)) < 0) TEST_ERROR
/* Set file space strategy to paged aggregation and persisting free-space */
- if(H5Pset_file_space_strategy(fcpl2, H5F_FSPACE_STRATEGY_PAGE, TRUE, (hsize_t)1) < 0)
+ if (H5Pset_file_space_strategy(fcpl2, H5F_FSPACE_STRATEGY_PAGE, TRUE, (hsize_t)1) < 0)
TEST_ERROR
h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
/* Test with paged aggregation enabled or not */
- for(paged = FALSE; paged <= TRUE; paged++) {
+ for (paged = FALSE; paged <= TRUE; paged++) {
/* Temporary: skip testing for multi/split drivers:
fail file create when persisting free-space or using paged aggregation strategy */
- if(!contig_addr_vfd && paged)
+ if (!contig_addr_vfd && paged)
continue;
- for(minimized_ohdr = FALSE; minimized_ohdr <= TRUE; minimized_ohdr++) {
+ for (minimized_ohdr = FALSE; minimized_ohdr <= TRUE; minimized_ohdr++) {
/* Test with old & new format groups */
- for(new_format = FALSE; new_format <= TRUE; new_format++) {
+ for (new_format = FALSE; new_format <= TRUE; new_format++) {
hid_t my_fapl, my_fcpl;
/* Set the FAPL for the type of format */
- if(new_format) {
+ if (new_format) {
my_fapl = fapl2;
- if(paged) {
+ if (paged) {
my_fcpl = fcpl2;
HDputs("\nTesting with new file format and paged aggregation");
- } else {
+ }
+ else {
my_fcpl = fcpl;
HDputs("\nTesting with new file format and non-paged aggregation");
}
} /* end if */
else {
my_fapl = fapl;
- if(paged) {
+ if (paged) {
my_fcpl = fcpl2;
HDputs("Testing with old file format and paged aggregation:");
- } else {
+ }
+ else {
my_fcpl = fcpl;
HDputs("Testing with old file format and non-paged aggregation:");
}
} /* end else */
/* Create the file for this test */
- if((file = H5Fcreate(filename, H5F_ACC_TRUNC, my_fcpl, my_fapl)) < 0)
+ if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, my_fcpl, my_fapl)) < 0)
goto error;
if (TRUE == minimized_ohdr) {
@@ -13825,109 +15081,112 @@ main(void)
}
/* Cause the library to emit initial messages */
- if((grp = H5Gcreate2(file, "emit diagnostics", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
+ if ((grp = H5Gcreate2(file, "emit diagnostics", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
goto error;
- if(H5Oset_comment(grp, "Causes diagnostic messages to be emitted") < 0)
+ if (H5Oset_comment(grp, "Causes diagnostic messages to be emitted") < 0)
goto error;
- if(H5Gclose(grp) < 0)
+ if (H5Gclose(grp) < 0)
goto error;
- nerrors += (test_create(file) < 0 ? 1 : 0);
- nerrors += (test_simple_io(envval, my_fapl) < 0 ? 1 : 0);
- nerrors += (test_compact_io(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_max_compact(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_compact_open_close_dirty(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_conv_buffer(file) < 0 ? 1 : 0);
- nerrors += (test_tconv(file) < 0 ? 1 : 0);
- nerrors += (test_filters(file, my_fapl) < 0 ? 1 : 0);
- nerrors += (test_onebyte_shuffle(file) < 0 ? 1 : 0);
- nerrors += (test_nbit_int(file) < 0 ? 1 : 0);
- nerrors += (test_nbit_float(file) < 0 ? 1 : 0);
- nerrors += (test_nbit_double(file) < 0 ? 1 : 0);
- nerrors += (test_nbit_array(file) < 0 ? 1 : 0);
- nerrors += (test_nbit_compound(file) < 0 ? 1 : 0);
- nerrors += (test_nbit_compound_2(file) < 0 ? 1 : 0);
- nerrors += (test_nbit_compound_3(file) < 0 ? 1 : 0);
- nerrors += (test_nbit_int_size(file) < 0 ? 1 : 0);
- nerrors += (test_nbit_flt_size(file) < 0 ? 1 : 0);
- nerrors += (test_scaleoffset_int(file) < 0 ? 1 : 0);
- nerrors += (test_scaleoffset_int_2(file) < 0 ? 1 : 0);
- nerrors += (test_scaleoffset_float(file) < 0 ? 1 : 0);
- nerrors += (test_scaleoffset_float_2(file) < 0 ? 1 : 0);
- nerrors += (test_scaleoffset_double(file) < 0 ? 1 : 0);
- nerrors += (test_scaleoffset_double_2(file) < 0 ? 1 : 0);
- nerrors += (test_multiopen (file) < 0 ? 1 : 0);
- nerrors += (test_types(file) < 0 ? 1 : 0);
- nerrors += (test_userblock_offset(envval, my_fapl, new_format) < 0 ? 1 : 0);
- nerrors += (test_missing_filter(file) < 0 ? 1 : 0);
- nerrors += (test_can_apply(file) < 0 ? 1 : 0);
- nerrors += (test_can_apply2(file) < 0 ? 1 : 0);
- nerrors += (test_set_local(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_can_apply_szip(file) < 0 ? 1 : 0);
- nerrors += (test_compare_dcpl(file) < 0 ? 1 : 0);
- nerrors += (test_copy_dcpl(file, my_fapl) < 0 ? 1 : 0);
- nerrors += (test_filter_delete(file) < 0 ? 1 : 0);
- nerrors += (test_filters_endianess() < 0 ? 1 : 0);
- nerrors += (test_zero_dims(file) < 0 ? 1 : 0);
- nerrors += (test_missing_chunk(file) < 0 ? 1 : 0);
- nerrors += (test_random_chunks(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_create(file) < 0 ? 1 : 0);
+ nerrors += (test_simple_io(envval, my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_compact_io(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_max_compact(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_compact_open_close_dirty(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_conv_buffer(file) < 0 ? 1 : 0);
+ nerrors += (test_tconv(file) < 0 ? 1 : 0);
+ nerrors += (test_filters(file, my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_onebyte_shuffle(file) < 0 ? 1 : 0);
+ nerrors += (test_nbit_int(file) < 0 ? 1 : 0);
+ nerrors += (test_nbit_float(file) < 0 ? 1 : 0);
+ nerrors += (test_nbit_double(file) < 0 ? 1 : 0);
+ nerrors += (test_nbit_array(file) < 0 ? 1 : 0);
+ nerrors += (test_nbit_compound(file) < 0 ? 1 : 0);
+ nerrors += (test_nbit_compound_2(file) < 0 ? 1 : 0);
+ nerrors += (test_nbit_compound_3(file) < 0 ? 1 : 0);
+ nerrors += (test_nbit_int_size(file) < 0 ? 1 : 0);
+ nerrors += (test_nbit_flt_size(file) < 0 ? 1 : 0);
+ nerrors += (test_scaleoffset_int(file) < 0 ? 1 : 0);
+ nerrors += (test_scaleoffset_int_2(file) < 0 ? 1 : 0);
+ nerrors += (test_scaleoffset_float(file) < 0 ? 1 : 0);
+ nerrors += (test_scaleoffset_float_2(file) < 0 ? 1 : 0);
+ nerrors += (test_scaleoffset_double(file) < 0 ? 1 : 0);
+ nerrors += (test_scaleoffset_double_2(file) < 0 ? 1 : 0);
+ nerrors += (test_multiopen(file) < 0 ? 1 : 0);
+ nerrors += (test_types(file) < 0 ? 1 : 0);
+ nerrors += (test_userblock_offset(envval, my_fapl, new_format) < 0 ? 1 : 0);
+ nerrors += (test_missing_filter(file) < 0 ? 1 : 0);
+ nerrors += (test_can_apply(file) < 0 ? 1 : 0);
+ nerrors += (test_can_apply2(file) < 0 ? 1 : 0);
+ nerrors += (test_set_local(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_can_apply_szip(file) < 0 ? 1 : 0);
+ nerrors += (test_compare_dcpl(file) < 0 ? 1 : 0);
+ nerrors += (test_copy_dcpl(file, my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_filter_delete(file) < 0 ? 1 : 0);
+ nerrors += (test_filters_endianess() < 0 ? 1 : 0);
+ nerrors += (test_zero_dims(file) < 0 ? 1 : 0);
+ nerrors += (test_missing_chunk(file) < 0 ? 1 : 0);
+ nerrors += (test_random_chunks(my_fapl) < 0 ? 1 : 0);
#ifndef H5_NO_DEPRECATED_SYMBOLS
- nerrors += (test_deprec(file) < 0 ? 1 : 0);
+ nerrors += (test_deprec(file) < 0 ? 1 : 0);
#endif /* H5_NO_DEPRECATED_SYMBOLS */
- nerrors += (test_huge_chunks(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_chunk_cache(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_big_chunks_bypass_cache(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_chunk_fast(envval, my_fapl) < 0 ? 1 : 0);
- nerrors += (test_reopen_chunk_fast(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_chunk_fast_bug1(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_chunk_expand(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_layout_extend(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_fixed_array(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_idx_compatible() < 0 ? 1 : 0);
- nerrors += (test_unfiltered_edge_chunks(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_single_chunk(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_large_chunk_shrink(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_zero_dim_dset(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_storage_size(my_fapl) < 0 ? 1 : 0);
- nerrors += (test_power2up(my_fapl) < 0 ? 1 : 0);
-
- nerrors += (test_swmr_non_latest(envval, my_fapl) < 0 ? 1 : 0);
- nerrors += (test_earray_hdr_fd(envval, my_fapl) < 0 ? 1 : 0);
- nerrors += (test_farray_hdr_fd(envval, my_fapl) < 0 ? 1 : 0);
- nerrors += (test_bt2_hdr_fd(envval, my_fapl) < 0 ? 1 : 0);
-
- if(H5Fclose(file) < 0)
+ nerrors += (test_huge_chunks(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_chunk_cache(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_big_chunks_bypass_cache(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_chunk_fast(envval, my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_reopen_chunk_fast(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_chunk_fast_bug1(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_chunk_expand(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_layout_extend(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_fixed_array(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_idx_compatible() < 0 ? 1 : 0);
+ nerrors += (test_unfiltered_edge_chunks(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_single_chunk(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_large_chunk_shrink(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_zero_dim_dset(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_storage_size(my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_power2up(my_fapl) < 0 ? 1 : 0);
+
+ nerrors += (test_swmr_non_latest(envval, my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_earray_hdr_fd(envval, my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_farray_hdr_fd(envval, my_fapl) < 0 ? 1 : 0);
+ nerrors += (test_bt2_hdr_fd(envval, my_fapl) < 0 ? 1 : 0);
+
+ if (H5Fclose(file) < 0)
goto error;
} /* end for new_format */
- } /* end for minimized_ohdr */
- } /* end for paged */
+ } /* end for minimized_ohdr */
+ } /* end for paged */
/* Close property lists */
- if(H5Pclose(fapl2) < 0) TEST_ERROR
- if(H5Pclose(fcpl) < 0) TEST_ERROR
- if(H5Pclose(fcpl2) < 0) TEST_ERROR
+ if (H5Pclose(fapl2) < 0)
+ TEST_ERROR
+ if (H5Pclose(fcpl) < 0)
+ TEST_ERROR
+ if (H5Pclose(fcpl2) < 0)
+ TEST_ERROR
/* Tests that do not use files */
- nerrors += (test_scatter() < 0 ? 1 : 0);
- nerrors += (test_gather() < 0 ? 1 : 0);
- nerrors += (test_scatter_error() < 0 ? 1 : 0);
- nerrors += (test_gather_error() < 0 ? 1 : 0);
+ nerrors += (test_scatter() < 0 ? 1 : 0);
+ nerrors += (test_gather() < 0 ? 1 : 0);
+ nerrors += (test_scatter_error() < 0 ? 1 : 0);
+ nerrors += (test_gather_error() < 0 ? 1 : 0);
/* Tests version bounds using its own file */
- nerrors += (test_versionbounds() < 0 ? 1 : 0);
+ nerrors += (test_versionbounds() < 0 ? 1 : 0);
nerrors += (test_object_header_minimization_dcpl() < 0 ? 1 : 0);
/* Run misc tests */
- nerrors += (dls_01_main() < 0 ? 1 : 0);
- nerrors += (test_0sized_dset_metadata_alloc(fapl) < 0 ? 1 : 0);
+ nerrors += (dls_01_main() < 0 ? 1 : 0);
+ nerrors += (test_0sized_dset_metadata_alloc(fapl) < 0 ? 1 : 0);
/* Verify symbol table messages are cached */
nerrors += (h5_verify_cached_stabs(FILENAME, fapl) < 0 ? 1 : 0);
- if(nerrors)
+ if (nerrors)
goto error;
HDprintf("All dataset tests passed.\n");
#ifdef H5_HAVE_FILTER_SZIP
@@ -13960,8 +15219,6 @@ error:
HDfree(check_dbl_data);
nerrors = MAX(1, nerrors);
- HDprintf("***** %d DATASET TEST%s FAILED! *****\n",
- nerrors, 1 == nerrors ? "" : "S");
+ HDprintf("***** %d DATASET TEST%s FAILED! *****\n", nerrors, 1 == nerrors ? "" : "S");
HDexit(EXIT_FAILURE);
} /* end main() */
-