summaryrefslogtreecommitdiffstats
path: root/test/cross_read.c
diff options
context:
space:
mode:
Diffstat (limited to 'test/cross_read.c')
-rwxr-xr-xtest/cross_read.c163
1 files changed, 163 insertions, 0 deletions
diff --git a/test/cross_read.c b/test/cross_read.c
new file mode 100755
index 0000000..7d05417
--- /dev/null
+++ b/test/cross_read.c
@@ -0,0 +1,163 @@
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ * Copyright by the Board of Trustees of the University of Illinois. *
+ * All rights reserved. *
+ * *
+ * This file is part of HDF5. The full HDF5 copyright notice, including *
+ * terms governing use, modification, and redistribution, is contained in *
+ * the files COPYING and Copyright.html. COPYING can be found at the root *
+ * of the source code distribution tree; Copyright.html can be found at the *
+ * root level of an installed copy of the electronic HDF5 document set and *
+ * is linked from the top-level documents page. It can also be found at *
+ * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
+ * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+/*
+ * Programmer: Raymond Lu <slu@ncsa.uiuc.edu>
+ * Thursday, March 23, 2006
+ *
+ * Purpose: Check if floating-point data created on OpenVMS (VAX type), Solaris,
+ * and Linux machines can be read on the machine running this test.
+ */
+
+#include "h5test.h"
+
+const char *FILENAME[] = {
+ "vms_data",
+ "le_data",
+ "be_data",
+ NULL
+};
+
+#define DATASETNAME "IntArray"
+#define NX 5 /* output buffer dimensions */
+#define NY 6
+#define RANK 2
+
+static int read_data(char *fname)
+{
+ char pathname[1024];
+ char *srcdir = getenv("srcdir"); /*where the src code is located*/
+ hid_t file, dataset; /* handles */
+ hid_t datatype;
+ hid_t dt;
+ double data_in[NX][NY]; /* input buffer */
+ double data_out[NX][NY]; /* output buffer */
+ int i, j, rank;
+ herr_t status;
+ unsigned nerrors = 0;
+
+ pathname[0] = '\0';
+ /* Generate correct name for test file by prepending the source path */
+ if(srcdir && ((strlen(srcdir) + strlen(fname) + 1) < sizeof(pathname))) {
+ strcpy(pathname, srcdir);
+ strcat(pathname, "/");
+ }
+ strcat(pathname, fname);
+
+ /*
+ * Data and output buffer initialization.
+ */
+ for (j = 0; j < NX; j++) {
+ for (i = 0; i < NY; i++) {
+ data_in[j][i] = i + j;
+ data_out[j][i] = 0;
+ }
+ }
+ /*
+ * 0 1 2 3 4 5
+ * 1 2 3 4 5 6
+ * 2 3 4 5 6 7
+ * 3 4 5 6 7 8
+ * 4 5 6 7 8 9
+ */
+
+ /*
+ * Open the file and the dataset.
+ */
+ if((file = H5Fopen(pathname, H5F_ACC_RDONLY, H5P_DEFAULT))<0)
+ TEST_ERROR;
+ if((dataset = H5Dopen(file, DATASETNAME))<0)
+ TEST_ERROR;
+
+ /*
+ * Get datatype and dataspace handles and then query
+ * dataset class, order, size, rank and dimensions.
+ */
+ if((dt = H5Dget_type(dataset))<0) /* datatype handle */
+ TEST_ERROR;
+ if((datatype = H5Tget_native_type(dt, H5T_DIR_DEFAULT))<0)
+ TEST_ERROR;
+
+ /*
+ * Read data from hyperslab in the file into the hyperslab in
+ * memory and display.
+ */
+ if(H5Dread(dataset, datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, data_out)<0)
+ TEST_ERROR;
+
+ /* Check results */
+ for (j=0; j<NX; j++) {
+ for (i=0; i<NY; i++) {
+ if (data_out[j][i] != data_in[j][i]) {
+ if (!nerrors++) {
+ H5_FAILED();
+ printf("element [%d][%d] is %g but should have been %g\n",
+ j, i, data_out[j][i], data_in[j][i]);
+ }
+ }
+ }
+ }
+
+ /*
+ * Close/release resources.
+ */
+ H5Tclose(dt);
+ H5Tclose(datatype);
+ H5Dclose(dataset);
+ H5Fclose(file);
+
+ /* Failure */
+ if (nerrors) {
+ printf("total of %d errors out of %d elements\n", nerrors, NX*NY);
+ return 1;
+ }
+
+ PASSED();
+ return 0;
+
+error:
+ H5E_BEGIN_TRY {
+ H5Fclose(file);
+ } H5E_END_TRY;
+ return 1;
+}
+
+int main(void)
+{
+ char filename[1024];
+ unsigned nerrors = 0;
+
+ h5_reset();
+
+ TESTING("reading data created on OpenVMS");
+ h5_fixname(FILENAME[0], H5P_DEFAULT, filename, sizeof filename);
+ nerrors += read_data(filename);
+
+ TESTING("reading data created on Linux");
+ h5_fixname(FILENAME[1], H5P_DEFAULT, filename, sizeof filename);
+ nerrors += read_data(filename);
+
+ TESTING("reading data created on Solaris");
+ h5_fixname(FILENAME[2], H5P_DEFAULT, filename, sizeof filename);
+ nerrors += read_data(filename);
+
+ if (nerrors) {
+ printf("***** %lu FAILURE%s! *****\n",
+ nerrors, 1==nerrors?"":"S");
+ HDexit(1);
+ }
+
+ printf("All data type tests passed.\n");
+ return 0;
+}