mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-30 15:32:37 +08:00
Code Issues Packages Projects Releases Wiki Activity
c96611f8b5
hdf5/test/shtype.c
Robb Matzke c01750fa74 [svn-r338] Changes since 19980407 
----------------------

./src/H5B.c
./src/H5D.c
./src/H5Dprivate.h
./src/H5Dpublic.h
./src/H5F.c
./src/H5Farray.c
./src/H5Fcore.c
./src/H5Ffamily.c
./src/H5Fistore.c
./src/H5Flow.c
./src/H5Fprivate.h
./src/H5Fpublic.h
./src/H5Fsec2.c
./src/H5Fsplit.c
./src/H5Fstdio.c
./src/H5G.c
./src/H5Gent.c
./src/H5Gnode.c
./src/H5HG.c
./src/H5HL.c
./src/H5MF.c
./src/H5MFprivate.h
./src/H5O.c
./src/H5Ocont.c
./src/H5Odtype.c
./src/H5Oefl.c
./src/H5Olayout.c
./src/H5Oname.c
./src/H5Oprivate.h
./src/H5Osdspace.c
./src/H5Oshared.c
./src/H5Ostab.c
./src/H5P.c
./src/H5Ppublic.h
./src/H5S.c
./src/H5Sprivate.h
./src/H5Spublic.h
./src/H5Ssimp.c
./src/H5Tconv.c
./src/H5Tpkg.h
./src/H5V.c
./src/H5Vprivate.h
./src/H5private.h
./src/H5public.h
./src/h5ls.c
./test/cmpd_dset.c
./test/dsets.c
./test/extend.c
./test/external.c
./test/hyperslab.c
./test/iopipe.c
./test/istore.c
./test/shtype.c
./test/tfile.c
./test/th5s.c
	Anything having to do with the size of a dataset now uses the
	types `hsize_t' and `hssize_t' which must be the same size and
	at least as large as `size_t'.  This isn't fully tested yet,
	so hsize_t and hssize_t are defined as size_t and ssize_t in
	H5public.h.  Setting them to larger values will trip up gcc
	versions less than 2.8.1 on x86 platforms.

	Documented unused function formals with `__unused__' before
	the formal name.  This also has the effect of supressing
	warning messages for gcc since it's defined to be
	`__attribute__((unused))' in the H5private.h file.

./src/debug.c
./src/h5ls.c
	If the file name contains a `%' then the file is opened as a
	file family with H5P_DEFAULT for the file member access
	property list.

./src/h5ls.c
	The group name is optional, defaulting to `/'.

./src/hdf5.h
	Added some missing public header files.
1998-04-08 16:43:02 -05:00

298 lines
7.7 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*
* Copyright (C) 1998 NCSA
* All rights reserved.
*
* Programmer: Robb Matzke <matzke@llnl.gov>
* Thursday, April 2, 1998
*
* Purpose: Tests datasets with shared data types.
*/
#include <assert.h>
#include <hdf5.h>
#include <H5config.h>
#ifndef HAVE_ATTRIBUTE
# undef __attribute__
# define __attribute__(X) /*void*/
# define __unused__ /*void*/
#else
# define __unused__ __attribute__((unused))
#endif
/*-------------------------------------------------------------------------
* Function: display_error_cb
*
* Purpose: Displays the error stack after printing "*FAILED*".
*
* Return: Success: 0
*
* Failure: -1
*
* Programmer: Robb Matzke
* Wednesday, March 4, 1998
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
static herr_t
display_error_cb (void __unused__ *client_data)
{
puts ("*FAILED*");
H5Eprint (stdout);
return 0;
}
/*-------------------------------------------------------------------------
* Function: test_1
*
* Purpose: Create a shared data type and use it to create a dataset.
* Then query that dataset's type and use it to create a second
* dataset. Both datasets should share a single data type.
*
* Return: Success: 0
*
* Failure: -1
*
* Programmer: Robb Matzke
* Thursday, April 2, 1998
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
static int
test_1 (void)
{
hid_t f, d1, d2, s1, t1, t2;
hsize_t size[1] = {1};
printf ("%-70s", "...creating/quering datasets with shared type");
fflush (stdout);
f = H5Fcreate ("shtype1.h5", H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
if (f<0) goto error;
if ((s1 = H5Screate_simple (1, size, size))<0) goto error;
if ((t1 = H5Tcopy (H5T_NATIVE_INT))<0) goto error;
if (H5Tshare (f, t1)<0) goto error;
/* Create the first dataset */
if ((d1 = H5Dcreate (f, "d1", t1, s1, H5P_DEFAULT))<0) goto error;
if (H5Dclose (d1)<0) goto error;
/* Get the type of the first dataset to use for the second */
if ((d1 = H5Dopen (f, "d1"))<0) goto error;
if ((t2 = H5Dget_type (d1))<0) goto error;
if (H5Dclose (d1)<0) goto error;
/* Create the second datatype */
if ((d2 = H5Dcreate (f, "d2", t2, s1, H5P_DEFAULT))<0) goto error;
if (H5Dclose (d2)<0) goto error;
if (H5Sclose (s1)<0) goto error;
if (H5Fclose (f)<0) goto error;
puts (" PASSED");
return 0;
error:
return -1;
}
/*-------------------------------------------------------------------------
* Function: test_2
*
* Purpose: Create lots of datasets that have their own types, then
* create another file with lots of datasets that share a type
* and compare the file sizes.
*
* Return: Success: 0
*
* Failure: -1
*
* Programmer: Robb Matzke
* Thursday, April 2, 1998
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
static int
test_2 (void)
{
hid_t f1, f2, t1, t2, s1, d1, d2;
hsize_t size[1] = {1};
char buf[32];
int i;
printf ("%-70s", "...compare shared and unshared types");
fflush (stdout);
f1 = H5Fcreate ("shtype2a.h5", H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
if (f1<0) goto error;
f2 = H5Fcreate ("shtype2b.h5", H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
if (f2<0) goto error;
s1 = H5Screate_simple (1, size, size);
if (s1<0) goto error;
/* Create a large compound type */
if ((t1 = H5Tcreate (H5T_COMPOUND, 100))<0) goto error;
for (i=0; i<10; i++) {
sprintf (buf, "member-%d", i);
if (H5Tinsert (t1, buf, i*sizeof(int), H5T_NATIVE_INT)<0) goto error;
}
/* Create a shared version of that type for file #2 */
if ((t2 = H5Tcopy (t1))<0) goto error;
if (H5Tshare (f2, t2)<0) goto error;
/* Create the datasets */
for (i=0; i<1000; i++) {
sprintf (buf, "dset%04d", i);
d1 = H5Dcreate (f1, buf, t1, s1, H5P_DEFAULT);
if (d1<0) goto error;
if (H5Dclose (d1)<0) goto error;
d2 = H5Dcreate (f2, buf, t2, s1, H5P_DEFAULT);
if (d2<0) goto error;
if (H5Dclose (d2)<0) goto error;
}
/* Close things */
if (H5Sclose (s1)<0) goto error;
if (H5Tclose (t1)<0) goto error;
if (H5Tclose (t2)<0) goto error;
if (H5Fclose (f1)<0) goto error;
if (H5Fclose (f2)<0) goto error;
puts (" PASSED");
return 0;
error:
return -1;
}
/*-------------------------------------------------------------------------
* Function: test_3
*
* Purpose: Tries to create a shared type in a read-only file.
*
* Return: Success: 0
*
* Failure: -1
*
* Programmer: Robb Matzke
* Friday, April 3, 1998
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
static int
test_3 (void)
{
hid_t f1, s1, t1, d1;
hsize_t size[1] = {1};
herr_t status, (*ef)(void*)=NULL;
void *ed = NULL;
printf ("%-70s", "...shared types and read-only files");
fflush (stdout);
/*
* Create the file first since we can't create a file for read-only
* access. Add a dataset with a shared type. Then close it and open it
* for read-only. The shared type causes a global heap to be allocated.
*/
f1 = H5Fcreate ("shtype3.h5", H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
if (f1<0) goto error;
if ((s1 = H5Screate_simple (1, size, size))<0) goto error;
if ((t1 = H5Tcopy (H5T_NATIVE_INT))<0) goto error;
if (H5Tshare (f1, t1)<0) goto error;
if ((d1 = H5Dcreate (f1, "d1", t1, s1, H5P_DEFAULT))<0) goto error;
if (H5Sclose (s1)<0) goto error;
if (H5Dclose (d1)<0) goto error;
if (H5Fclose (f1)<0) goto error;
f1 = H5Fopen ("shtype3.h5", H5F_ACC_RDONLY, H5P_DEFAULT);
if (f1<0) goto error;
assert (0==H5Tis_shared (f1, t1));
/*
* Create a shared data type. We know that H5MF_alloc() will fail on a
* read-only file so there's not much point in trying to create a global
* heap. But what happens if we modify a global heap in the cache? So
* lets try to get a collection loaded into memory by reading the shared
* type. Then creating another shared type will just upate memory unless
* an error is correctly detected.
*/
if ((d1 = H5Dopen (f1, "d1"))<0) goto error;
if (H5Dclose (d1)<0) goto error;
if (H5Eget_auto (&ef, &ed)<0) goto error;
if (H5Eset_auto (NULL, NULL)<0) goto error;
status = H5Tshare (f1, t1);
if (H5Eset_auto (ef, ed)<0) goto error;
if (status>=0) {
puts ("*FAILED*");
puts (" H5Tshare() should have failed but didn't.");
goto error;
}
/* Close the file */
if (H5Fclose (f1)<0) goto error;
puts (" PASSED");
return 0;
error:
return -1;
}
/*-------------------------------------------------------------------------
* Function: main
*
* Purpose:
*
* Return: Success:
*
* Failure:
*
* Programmer: Robb Matzke
* Thursday, April 2, 1998
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
int
main (void)
{
int nerrors = 0;
hid_t f1, g1;
/* Make sure diagnostics get emitted before we start doing real stuff */
f1 = H5Fcreate ("shtype0.h5", H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
g1 = H5Gcreate (f1, "howdy", 0);
H5Gclose (g1);
H5Fclose (f1);
/* Set the error handler */
H5Eset_auto (display_error_cb, NULL);
/* Run the tests */
nerrors += test_1()<0 ? 1 : 0;
nerrors += test_2()<0 ? 1 : 0;
nerrors += test_3()<0 ? 1 : 0;
/* Report results */
if (nerrors) {
puts ("*** Shared data type test(s) failed ***");
} else {
puts ("All shared data type tests passed.");
}
return nerrors ? 1 : 0;
}
Reference in New Issue View Git Blame Copy Permalink