mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-12-09 07:32:32 +08:00
Code Issues Packages Projects Releases Wiki Activity
3f69573f57
hdf5/test/tvltypes.c

2138 lines
77 KiB
C
Raw Normal View History

[svn-r6538] Purpose: Update Description: Updated the Copyright statement Platforms tested: Linux (This change is only in the comments, so I just check that the modules still compile) Misc. update:
2003-04-01 01:59:04 +08:00
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/***********************************************************
*
* Test program: tvltypes
*
* Test the Variable-Length Datatype functionality
*
*************************************************************/
[svn-r3770] Purpose: Update Description: Changed includes of the form: #include <hdf5_file.h> to #include "hdf5_file.h" so that gcc can pick them up easier without including the system header files since we don't care about them. Platforms tested: Linux
2001-04-04 02:09:16 +08:00
#include "testhdf5.h"
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
[svn-r3770] Purpose: Update Description: Changed includes of the form: #include <hdf5_file.h> to #include "hdf5_file.h" so that gcc can pick them up easier without including the system header files since we don't care about them. Platforms tested: Linux
2001-04-04 02:09:16 +08:00
#include "hdf5.h"
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
[svn-r2289] changed the macro for the file to be FILENAME. caused compilation errors on windows with the old name
2000-05-25 23:53:22 +08:00
#define FILENAME "tvltypes.h5"
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* 1-D dataset with fixed dimensions */
#define SPACE1_RANK 1
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
#define SPACE1_DIM1 4
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* 2-D dataset with fixed dimensions */
#define SPACE2_RANK 2
#define SPACE2_DIM1 10
#define SPACE2_DIM2 10
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
/* 1-D dataset with fixed dimensions */
#define SPACE3_RANK 1
#define SPACE3_DIM1 128
#define L1_INCM 16
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
#define L2_INCM 8
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
void *test_vltypes_alloc_custom(size_t size, void *info);
void test_vltypes_free_custom(void *mem, void *info);
/****************************************************************
**
** test_vltypes_alloc_custom(): Test VL datatype custom memory
** allocation routines. This routine just uses malloc to
** allocate the memory and increments the amount of memory
** allocated.
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
**
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
****************************************************************/
void *test_vltypes_alloc_custom(size_t size, void *info)
{
void *ret_value=NULL; /* Pointer to return */
[svn-r4012] Purpose: Clean up compiler warnings. Description: Just code neatening mostly, some casts, etc. Platforms tested: FreeBSD 4.3 (hawkwind)
2001-06-19 04:22:10 +08:00
size_t *mem_used=(size_t *)info; /* Get the pointer to the memory used */
[svn-r1536] Fixed alignment problems on DEC Alpha platform.
1999-07-24 05:20:07 +08:00
size_t extra; /* Extra space needed */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
[svn-r1536] Fixed alignment problems on DEC Alpha platform.
1999-07-24 05:20:07 +08:00
/*
* This weird contortion is required on the DEC Alpha to keep the
* alignment correct - QAK
*/
[svn-r1837] Cleaned up a few warnings from the SGI compiler.
1999-11-18 06:00:15 +08:00
extra=MAX(sizeof(void *),sizeof(size_t));
[svn-r1536] Fixed alignment problems on DEC Alpha platform.
1999-07-24 05:20:07 +08:00
if((ret_value=HDmalloc(extra+size))!=NULL) {
[svn-r1837] Cleaned up a few warnings from the SGI compiler.
1999-11-18 06:00:15 +08:00
*(size_t *)ret_value=size;
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
*mem_used+=size;
} /* end if */
[svn-r1536] Fixed alignment problems on DEC Alpha platform.
1999-07-24 05:20:07 +08:00
ret_value=((unsigned char *)ret_value)+extra;
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
return(ret_value);
}
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/****************************************************************
**
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
** test_vltypes_free_custom(): Test VL datatype custom memory
** allocation routines. This routine just uses free to
** release the memory and decrements the amount of memory
** allocated.
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
**
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
****************************************************************/
void test_vltypes_free_custom(void *_mem, void *info)
{
unsigned char *mem;
[svn-r4012] Purpose: Clean up compiler warnings. Description: Just code neatening mostly, some casts, etc. Platforms tested: FreeBSD 4.3 (hawkwind)
2001-06-19 04:22:10 +08:00
size_t *mem_used=(size_t *)info; /* Get the pointer to the memory used */
[svn-r1536] Fixed alignment problems on DEC Alpha platform.
1999-07-24 05:20:07 +08:00
size_t extra; /* Extra space needed */
/*
* This weird contortion is required on the DEC Alpha to keep the
* alignment correct - QAK
*/
[svn-r1837] Cleaned up a few warnings from the SGI compiler.
1999-11-18 06:00:15 +08:00
extra=MAX(sizeof(void *),sizeof(size_t));
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
if(_mem!=NULL) {
[svn-r1536] Fixed alignment problems on DEC Alpha platform.
1999-07-24 05:20:07 +08:00
mem=((unsigned char *)_mem)-extra;
[svn-r1837] Cleaned up a few warnings from the SGI compiler.
1999-11-18 06:00:15 +08:00
*mem_used-=*(size_t *)mem;
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
HDfree(mem);
} /* end if */
}
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/****************************************************************
**
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
** test_vltypes_data_create(): Dataset of VL is supposed to
** fail when fill value is never written to dataset.
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
**
****************************************************************/
static void
test_vltypes_dataset_create(void)
{
hid_t fid1; /* HDF5 File IDs */
hid_t dcpl; /* Dataset Property list */
hid_t dataset; /* Dataset ID */
hsize_t dims1[] = {SPACE1_DIM1};
hid_t sid1; /* Dataspace ID */
hid_t tid1; /* Datatype ID */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Dataset of VL Datatype Functionality\n"));
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fcreate");
/* Create dataspace for datasets */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
/* Create a datatype to refer to */
tid1 = H5Tvlen_create (H5T_NATIVE_UINT);
CHECK(tid1, FAIL, "H5Tvlen_create");
/* Create dataset property list */
dcpl=H5Pcreate(H5P_DATASET_CREATE);
CHECK(dcpl, FAIL, "H5Pcreate");
/* Set fill value writting time to be NEVER */
ret=H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER);
CHECK(ret, FAIL, "H5Pset_fill_time");
/* Create a dataset, supposed to fail */
H5E_BEGIN_TRY {
dataset=H5Dcreate(fid1,"Dataset1",tid1,sid1,dcpl);
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
} H5E_END_TRY;
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
VERIFY(dataset, FAIL, "H5Dcreate");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close dataset transfer property list */
ret = H5Pclose(dcpl);
CHECK(ret, FAIL, "H5Pclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
}
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
/****************************************************************
**
** test_vltypes_funcs(): Test some type functions that are and
** aren't supposed to work with VL type.
**
****************************************************************/
static void
test_vltypes_funcs(void)
{
hid_t type; /* Datatype ID */
int size;
H5T_pad_t inpad;
H5T_norm_t norm;
H5T_cset_t cset;
H5T_str_t strpad;
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing some type functions for VL\n"));
/* Create a datatype to refer to */
type = H5Tvlen_create (H5T_IEEE_F32BE);
CHECK(type, FAIL, "H5Tvlen_create");
size=H5Tget_precision(type);
CHECK(size, FAIL, "H5Tget_precision");
size=H5Tget_size(type);
CHECK(size, FAIL, "H5Tget_size");
size=H5Tget_ebias(type);
CHECK(size, FAIL, "H5Tget_ebias");
[svn-r12440] Purpose: Code cleanup Description: Trim trailing whitespace in Makefile.am and C/C++ source files to make diffing changes easier. Platforms tested: None necessary, whitespace only change
2006-06-27 22:45:06 +08:00
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
ret=H5Tset_pad(type, H5T_PAD_ZERO, H5T_PAD_ONE);
CHECK(ret, FAIL, "H5Tset_pad");
inpad=H5Tget_inpad(type);
CHECK(inpad, FAIL, "H5Tget_inpad");
norm=H5Tget_norm(type);
CHECK(norm, FAIL, "H5Tget_norm");
ret=H5Tset_offset(type, 16);
CHECK(ret, FAIL, "H5Tset_offset");
[svn-r12440] Purpose: Code cleanup Description: Trim trailing whitespace in Makefile.am and C/C++ source files to make diffing changes easier. Platforms tested: None necessary, whitespace only change
2006-06-27 22:45:06 +08:00
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
H5E_BEGIN_TRY {
cset=H5Tget_cset(type);
} H5E_END_TRY;
VERIFY(cset, FAIL, "H5Tget_cset");
H5E_BEGIN_TRY {
strpad=H5Tget_strpad(type);
} H5E_END_TRY;
VERIFY(strpad, FAIL, "H5Tget_strpad");
/* Close datatype */
ret = H5Tclose(type);
CHECK(ret, FAIL, "H5Tclose");
}
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/****************************************************************
**
** test_vltypes_vlen_atomic(): Test basic VL datatype code.
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
** Tests VL datatypes of atomic datatypes
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
**
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
****************************************************************/
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
static void
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
test_vltypes_vlen_atomic(void)
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
{
hvl_t wdata[SPACE1_DIM1]; /* Information to write */
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
hvl_t wdata2[SPACE1_DIM1]; /* Information to write */
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
hvl_t rdata[SPACE1_DIM1]; /* Information read in */
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
hvl_t fill; /* Fill value */
[svn-r9727] Purpose: Bug Fix/Code Cleanup/Doc Cleanup/Optimization/Branch Sync :-) Description: Generally speaking, this is the "signed->unsigned" change to selections. However, in the process of merging code back, things got stickier and stickier until I ended up doing a big "sync the two branches up" operation. So... I brought back all the "infrastructure" fixes from the development branch to the release branch (which I think were actually making some improvement in performance) as well as fixed several bugs which had been fixed in one branch, but not the other. I've also tagged the repository before making this checkin with the label "before_signed_unsigned_changes". Platforms tested: FreeBSD 4.10 (sleipnir) w/parallel & fphdf5 FreeBSD 4.10 (sleipnir) w/threadsafe FreeBSD 4.10 (sleipnir) w/backward compatibility Solaris 2.7 (arabica) w/"purify options" Solaris 2.8 (sol) w/FORTRAN & C++ AIX 5.x (copper) w/parallel & FORTRAN IRIX64 6.5 (modi4) w/FORTRAN Linux 2.4 (heping) w/FORTRAN & C++ Misc. update:
2004-12-29 22:26:20 +08:00
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t sid2; /* ID of bad dataspace (no extent set) */
hid_t tid1; /* Datatype ID */
hid_t dcpl_pid; /* Dataset creation property list ID */
hid_t xfer_pid; /* Dataset transfer property list ID */
hsize_t dims1[] = {SPACE1_DIM1};
hsize_t size; /* Number of bytes which will be used */
unsigned i,j; /* counting variables */
size_t mem_used=0; /* Memory used during allocation */
herr_t ret; /* Generic return value */
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* Output message about test being performed */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
MESSAGE(5, ("Testing Basic Atomic VL Datatype Functionality\n"));
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE1_DIM1; i++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].p=HDmalloc((i+1)*sizeof(unsigned int));
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
wdata[i].len=i+1;
for(j=0; j<(i+1); j++)
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
((unsigned int *)wdata[i].p)[j]=i*10+j;
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
wdata2[i].p=NULL;
wdata2[i].len=0;
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
} /* end for */
/* Create file */
[svn-r2289] changed the macro for the file to be FILENAME. caused compilation errors on windows with the old name
2000-05-25 23:53:22 +08:00
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
CHECK(fid1, FAIL, "H5Fcreate");
/* Create dataspace for datasets */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
/* Create a datatype to refer to */
tid1 = H5Tvlen_create (H5T_NATIVE_UINT);
CHECK(tid1, FAIL, "H5Tvlen_create");
/* Create a dataset */
dataset=H5Dcreate(fid1,"Dataset1",tid1,sid1,H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Read from dataset before writing data */
ret=H5Dread(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Check data read in */
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
for(i=0; i<SPACE1_DIM1; i++)
if(rdata[i].len!=0 || rdata[i].p!=NULL)
TestErrPrintf("VL doesn't match!, rdata[%d].len=%u, rdata[%d].p=%p\n",(int)i,(unsigned)rdata[i].len,(int)i,rdata[i].p);
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Write "nil" data to disk */
ret=H5Dwrite(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata2);
CHECK(ret, FAIL, "H5Dwrite");
/* Read from dataset with "nil" data */
ret=H5Dread(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Check data read in */
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
for(i=0; i<SPACE1_DIM1; i++)
if(rdata[i].len!=0 || rdata[i].p!=NULL)
TestErrPrintf("VL doesn't match!, rdata[%d].len=%u, rdata[%d].p=%p\n",(int)i,(unsigned)rdata[i].len,(int)i,rdata[i].p);
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Create second dataset, with fill value */
dcpl_pid=H5Pcreate(H5P_DATASET_CREATE);
CHECK(dcpl_pid, FAIL, "H5Pcreate");
/* Set the fill value for the second dataset */
fill.p=NULL; fill.len=0;
ret=H5Pset_fill_value(dcpl_pid, tid1, &fill);
CHECK(ret, FAIL, "H5Pset_fill_value");
/* Create a second dataset */
dataset=H5Dcreate(fid1,"Dataset2",tid1,sid1,dcpl_pid);
CHECK(dataset, FAIL, "H5Dcreate");
/* Close dataset creation property list */
ret = H5Pclose(dcpl_pid);
CHECK(ret, FAIL, "H5Pclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Read from dataset before writing data */
ret=H5Dread(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Check data read in */
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
for(i=0; i<SPACE1_DIM1; i++)
if(rdata[i].len!=0 || rdata[i].p!=NULL)
TestErrPrintf("VL doesn't match!, rdata[%d].len=%u, rdata[%d].p=%p\n",(int)i,(unsigned)rdata[i].len,(int)i,rdata[i].p);
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Write "nil" data to disk */
ret=H5Dwrite(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata2);
CHECK(ret, FAIL, "H5Dwrite");
/* Read from dataset with "nil" data */
ret=H5Dread(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Check data read in */
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
for(i=0; i<SPACE1_DIM1; i++)
if(rdata[i].len!=0 || rdata[i].p!=NULL)
TestErrPrintf("VL doesn't match!, rdata[%d].len=%u, rdata[%d].p=%p\n",(int)i,(unsigned)rdata[i].len,(int)i,rdata[i].p);
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Write data to disk */
ret=H5Dwrite(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
/* Open the file for data checking */
fid1 = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
/* Open a dataset */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
/* Get dataspace for datasets */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
/* Get datatype for dataset */
tid1 = H5Dget_type(dataset);
CHECK(tid1, FAIL, "H5Dget_type");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Change to the custom memory allocation routines for reading VL data */
[svn-r4482] Purpose: Kludge Description: Since we're only about halfway through converting the internal use of property lists from the "old way" to the generic property lists, we turned off snapshots to avoid exposing lots of API changes to users, until the APIs settled down. Getting the snapshots rolling again seems to have become a priority, so some changes are going to have to be made now that were going to be postponed until we were completely finished with the conversion. This requires that the old API functions be able to deal with both the old and new property lists smoothly. Solution: Kludge together the property list code so that they can transparently handle dealing with both the old and new property lists Platforms tested: FreeBSD 4.4 (hawkwind)
2001-09-27 04:29:35 +08:00
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
/* Make certain the correct amount of memory will be used */
ret=H5Dvlen_get_buf_size(dataset,tid1,sid1,&size);
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
/* 10 elements allocated = 1 + 2 + 3 + 4 elements for each array position */
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
VERIFY(size,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(unsigned int),"H5Dvlen_get_buf_size");
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* Read dataset from disk */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
ret=H5Dread(dataset,tid1,H5S_ALL,H5S_ALL,xfer_pid,rdata);
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
CHECK(ret, FAIL, "H5Dread");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Make certain the correct amount of memory has been used */
/* 10 elements allocated = 1 + 2 + 3 + 4 elements for each array position */
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
VERIFY(mem_used,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(unsigned int),"H5Dread");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].len!=rdata[i].len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data lengths don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",__LINE__,(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
continue;
} /* end if */
for(j=0; j<rdata[i].len; j++) {
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
if( ((unsigned int *)wdata[i].p)[j] != ((unsigned int *)rdata[i].p)[j] ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].p[%d]=%d, rdata[%d].p[%d]=%d\n",(int)i,(int)j, (int)((unsigned int *)wdata[i].p)[j], (int)i,(int)j, (int)((unsigned int *)rdata[i].p)[j]);
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
/* Reclaim the read VL data */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
ret=H5Dvlen_reclaim(tid1,sid1,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Close dataset transfer property list */
ret = H5Pclose(xfer_pid);
CHECK(ret, FAIL, "H5Pclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Open second dataset */
dataset=H5Dopen(fid1,"Dataset2");
CHECK(dataset, FAIL, "H5Dopen");
/* Get dataspace for datasets */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
/* Get datatype for dataset */
tid1 = H5Dget_type(dataset);
CHECK(tid1, FAIL, "H5Dget_type");
[svn-r8953] Purpose: Bug fix Description: When a simple dataspace is created, its extent should be set before using it, or it will silently function as a NULL dataspace. Solution: Added checks on user-supplied dataspaces. Now dataspaces without extents set will throw errors; users must explicitly set a dataspace to be NULL. Platforms tested: sleipnir, windows
2004-07-28 00:55:19 +08:00
/* Create a "bad" dataspace with no extent set */
sid2 = H5Screate(H5S_SIMPLE);
CHECK(sid2, FAIL, "H5Screate");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Change to the custom memory allocation routines for reading VL data */
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
/* Make certain the correct amount of memory will be used */
ret=H5Dvlen_get_buf_size(dataset,tid1,sid1,&size);
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
[svn-r8953] Purpose: Bug fix Description: When a simple dataspace is created, its extent should be set before using it, or it will silently function as a NULL dataspace. Solution: Added checks on user-supplied dataspaces. Now dataspaces without extents set will throw errors; users must explicitly set a dataspace to be NULL. Platforms tested: sleipnir, windows
2004-07-28 00:55:19 +08:00
/* Try to call H5Dvlen_get_buf with bad dataspace */
H5E_BEGIN_TRY {
ret=H5Dvlen_get_buf_size(dataset,tid1,sid2,&size);
} H5E_END_TRY
VERIFY(ret, FAIL, "H5Dvlen_get_buf_size");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* 10 elements allocated = 1 + 2 + 3 + 4 elements for each array position */
VERIFY(size,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(unsigned int),"H5Dvlen_get_buf_size");
/* Read dataset from disk */
ret=H5Dread(dataset,tid1,H5S_ALL,H5S_ALL,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Make certain the correct amount of memory has been used */
/* 10 elements allocated = 1 + 2 + 3 + 4 elements for each array position */
VERIFY(mem_used,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(unsigned int),"H5Dread");
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].len!=rdata[i].len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data lengths don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",__LINE__,(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
continue;
} /* end if */
for(j=0; j<rdata[i].len; j++) {
if( ((unsigned int *)wdata[i].p)[j] != ((unsigned int *)rdata[i].p)[j] ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].p[%d]=%d, rdata[%d].p[%d]=%d\n",(int)i,(int)j, (int)((unsigned int *)wdata[i].p)[j], (int)i,(int)j, (int)((unsigned int *)rdata[i].p)[j]);
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
[svn-r8953] Purpose: Bug fix Description: When a simple dataspace is created, its extent should be set before using it, or it will silently function as a NULL dataspace. Solution: Added checks on user-supplied dataspaces. Now dataspaces without extents set will throw errors; users must explicitly set a dataspace to be NULL. Platforms tested: sleipnir, windows
2004-07-28 00:55:19 +08:00
/* Try to reclaim read data using "bad" dataspace with no extent
* Should fail */
H5E_BEGIN_TRY {
ret=H5Dvlen_reclaim(tid1,sid2,xfer_pid,rdata);
} H5E_END_TRY
VERIFY(ret, FAIL, "H5Dvlen_reclaim");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Reclaim the read VL data */
ret=H5Dvlen_reclaim(tid1,sid1,xfer_pid,rdata);
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
CHECK(ret, FAIL, "H5Dvlen_reclaim");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Reclaim the write VL data */
ret=H5Dvlen_reclaim(tid1,sid1,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
/* Close dataset transfer property list */
[svn-r4482] Purpose: Kludge Description: Since we're only about halfway through converting the internal use of property lists from the "old way" to the generic property lists, we turned off snapshots to avoid exposing lots of API changes to users, until the APIs settled down. Getting the snapshots rolling again seems to have become a priority, so some changes are going to have to be made now that were going to be postponed until we were completely finished with the conversion. This requires that the old API functions be able to deal with both the old and new property lists smoothly. Solution: Kludge together the property list code so that they can transparently handle dealing with both the old and new property lists Platforms tested: FreeBSD 4.4 (hawkwind)
2001-09-27 04:29:35 +08:00
ret = H5Pclose(xfer_pid);
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
CHECK(ret, FAIL, "H5Pclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
} /* end test_vltypes_vlen_atomic() */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/****************************************************************
**
** rewrite_vltypes_vlen_atomic(): check memory leak for basic VL datatype.
** Check memory leak for VL datatypes of atomic datatypes
**
****************************************************************/
static void
rewrite_vltypes_vlen_atomic(void)
{
hvl_t wdata[SPACE1_DIM1]; /* Information to write */
hvl_t rdata[SPACE1_DIM1]; /* Information read in */
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t tid1; /* Datatype ID */
hid_t xfer_pid; /* Dataset transfer property list ID */
hsize_t size; /* Number of bytes which will be used */
unsigned i,j; /* counting variables */
size_t mem_used=0; /* Memory used during allocation */
int increment=4;
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Check Memory Leak for Basic Atomic VL Datatype Functionality\n"));
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE1_DIM1; i++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].p=HDmalloc((i+increment)*sizeof(unsigned int));
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
wdata[i].len=i+increment;
for(j=0; j<(i+increment); j++)
((unsigned int *)wdata[i].p)[j]=i*20+j;
} /* end for */
/* Open file created in test_vltypes_vlen_atomic() */
fid1 = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
/* Open the dataset created in test_vltypes_vlen_atomic() */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
/* Open dataspace for dataset */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
/* Get datatype for dataset */
tid1 = H5Dget_type(dataset);
CHECK(tid1, FAIL, "H5Dget_type");
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
/* Open the file for data checking */
fid1 = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
/* Open a dataset */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
/* Get dataspace for datasets */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
/* Get datatype for dataset */
tid1 = H5Dget_type(dataset);
CHECK(tid1, FAIL, "H5Dget_type");
/* Change to the custom memory allocation routines for reading VL data */
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
/* Make certain the correct amount of memory will be used */
ret=H5Dvlen_get_buf_size(dataset,tid1,sid1,&size);
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
/* 22 elements allocated = 4+5+6+7 elements for each array position */
VERIFY(size,22*sizeof(unsigned int),"H5Dvlen_get_buf_size");
/* Read dataset from disk */
ret=H5Dread(dataset,tid1,H5S_ALL,H5S_ALL,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Make certain the correct amount of memory has been used */
/* 22 elements allocated = 4+5+6+7 elements for each array position */
VERIFY(mem_used,22*sizeof(unsigned int),"H5Dread");
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].len!=rdata[i].len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data lengths don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",__LINE__,(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
for(j=0; j<rdata[i].len; j++) {
if( ((unsigned int *)wdata[i].p)[j] != ((unsigned int *)rdata[i].p)[j] ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].p[%d]=%d, rdata[%d].p[%d]=%d\n",(int)i,(int)j, (int)((unsigned int *)wdata[i].p)[j], (int)i,(int)j, (int)((unsigned int *)rdata[i].p)[j]);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
/* Reclaim the read VL data */
ret=H5Dvlen_reclaim(tid1,sid1,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
/* Reclaim the write VL data */
ret=H5Dvlen_reclaim(tid1,sid1,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close dataset transfer property list */
ret = H5Pclose(xfer_pid);
CHECK(ret, FAIL, "H5Pclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
} /* end rewrite_vltypes_vlen_atomic() */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/****************************************************************
**
** test_vltypes_vlen_compound(): Test basic VL datatype code.
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
** Test VL datatypes of compound datatypes
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
**
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
****************************************************************/
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
static void
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
test_vltypes_vlen_compound(void)
{
typedef struct { /* Struct that the VL sequences are composed of */
int i;
float f;
} s1;
hvl_t wdata[SPACE1_DIM1]; /* Information to write */
hvl_t rdata[SPACE1_DIM1]; /* Information read in */
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t tid1, tid2; /* Datatype IDs */
hid_t xfer_pid; /* Dataset transfer property list ID */
hsize_t dims1[] = {SPACE1_DIM1};
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
hsize_t size; /* Number of bytes which will be used */
[svn-r4355] Purpose: Code cleanup (sorta) Description: When the first versions of the HDF5 library were designed, I remembered vividly the difficulties of porting code from a 32-bit platform to a 16-bit platform and asked that people use intn & uintn instead of int & unsigned int, respectively. However, in hindsight, this was overkill and unnecessary since we weren't going to be porting the HDF5 library to 16-bit architectures. Currently, the extra uintn & intn typedefs are causing problems for users who'd like to include both the HDF5 and HDF4 header files in one source module (like Kent's h4toh5 library). Solution: Changed the uintn & intn's to unsigned and int's respectively. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-15 06:09:56 +08:00
unsigned i,j; /* counting variables */
[svn-r4012] Purpose: Clean up compiler warnings. Description: Just code neatening mostly, some casts, etc. Platforms tested: FreeBSD 4.3 (hawkwind)
2001-06-19 04:22:10 +08:00
size_t mem_used=0; /* Memory used during allocation */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Basic Compound VL Datatype Functionality\n"));
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE1_DIM1; i++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].p=HDmalloc((i+1)*sizeof(s1));
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
wdata[i].len=i+1;
for(j=0; j<(i+1); j++) {
((s1 *)wdata[i].p)[j].i=i*10+j;
[svn-r4643] Purpose: Code cleanup Description: Windows is generating hundreds of warnings from some of the practices in the library. Mostly, they are because size_t is 32-bit and hsize_t is 64-bit on Windows and we were carelessly casting the larger values down to the smaller ones without checking for overflow. Also, some other small code cleanups,etc. Solution: Re-worked some algorithms to eliminate the casts and also added more overflow checking for assignments and function parameters which needed casts. Kent did most of the work, I just went over his changes and fit them into the the library code a bit better. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-11-28 00:29:13 +08:00
((s1 *)wdata[i].p)[j].f=(float)((i*20+j)/3.0);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
} /* end for */
} /* end for */
/* Create file */
[svn-r2289] changed the macro for the file to be FILENAME. caused compilation errors on windows with the old name
2000-05-25 23:53:22 +08:00
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(fid1, FAIL, "H5Fcreate");
/* Create dataspace for datasets */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
/* Create the base compound type */
tid2 = H5Tcreate(H5T_COMPOUND, sizeof(s1));
CHECK(tid2, FAIL, "H5Tcreate");
/* Insert fields */
ret=H5Tinsert(tid2, "i", HOFFSET(s1, i), H5T_NATIVE_INT);
CHECK(ret, FAIL, "H5Tinsert");
ret=H5Tinsert(tid2, "f", HOFFSET(s1, f), H5T_NATIVE_FLOAT);
CHECK(ret, FAIL, "H5Tinsert");
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* Create a datatype to refer to */
tid1 = H5Tvlen_create (tid2);
CHECK(tid1, FAIL, "H5Tvlen_create");
/* Create a dataset */
dataset=H5Dcreate(fid1,"Dataset1",tid1,sid1,H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate");
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
/* Change to the custom memory allocation routines for reading VL data */
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
/* Make certain the correct amount of memory will be used */
ret=H5Dvlen_get_buf_size(dataset,tid1,sid1,&size);
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
/* 10 elements allocated = 1 + 2 + 3 + 4 elements for each array position */
VERIFY(size,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(s1),"H5Dvlen_get_buf_size");
/* Read dataset from disk */
ret=H5Dread(dataset,tid1,H5S_ALL,H5S_ALL,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Make certain the correct amount of memory has been used */
/* 10 elements allocated = 1 + 2 + 3 + 4 elements for each array position */
VERIFY(mem_used,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(s1),"H5Dread");
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].len!=rdata[i].len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",__LINE__,(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
for(j=0; j<rdata[i].len; j++) {
if( ((s1 *)wdata[i].p)[j].i != ((s1 *)rdata[i].p)[j].i ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].p[%d].i=%d, rdata[%d].p[%d].i=%d\n",(int)i,(int)j, (int)((s1 *)wdata[i].p)[j].i, (int)i,(int)j, (int)((s1 *)rdata[i].p)[j].i);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
if( ((s1 *)wdata[i].p)[j].f != ((s1 *)rdata[i].p)[j].f ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].p[%d].f=%f, rdata[%d].p[%d].f=%f\n",(int)i,(int)j, (double)((s1 *)wdata[i].p)[j].f, (int)i,(int)j, (double)((s1 *)rdata[i].p)[j].f);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
/* Reclaim the VL data */
ret=H5Dvlen_reclaim(tid1,sid1,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
/* Reclaim the write VL data */
ret=H5Dvlen_reclaim(tid1,sid1,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* Close dataset transfer property list */
ret = H5Pclose(xfer_pid);
CHECK(ret, FAIL, "H5Pclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
} /* end test_vltypes_vlen_compound() */
/****************************************************************
**
** rewrite_vltypes_vlen_compound(): Check memory leak for basic VL datatype.
** Checks memory leak for VL datatypes of compound datatypes
**
****************************************************************/
static void
rewrite_vltypes_vlen_compound(void)
{
typedef struct { /* Struct that the VL sequences are composed of */
int i;
float f;
} s1;
hvl_t wdata[SPACE1_DIM1]; /* Information to write */
hvl_t rdata[SPACE1_DIM1]; /* Information read in */
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t tid1, tid2; /* Datatype IDs */
hid_t xfer_pid; /* Dataset transfer property list ID */
hsize_t size; /* Number of bytes which will be used */
unsigned i,j; /* counting variables */
size_t mem_used=0; /* Memory used during allocation */
int increment=4;
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Check Memory Leak for Basic Compound VL Datatype Functionality\n"));
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE1_DIM1; i++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].p=HDmalloc((i+increment)*sizeof(s1));
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
wdata[i].len=i+increment;
for(j=0; j<(i+increment); j++) {
((s1 *)wdata[i].p)[j].i=i*40+j;
((s1 *)wdata[i].p)[j].f=(float)((i*60+j)/3.0);
} /* end for */
} /* end for */
/* Create file */
fid1 = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
/* Create the base compound type */
tid2 = H5Tcreate(H5T_COMPOUND, sizeof(s1));
CHECK(tid2, FAIL, "H5Tcreate");
ret=H5Tinsert(tid2, "i", HOFFSET(s1, i), H5T_NATIVE_INT);
CHECK(ret, FAIL, "H5Tinsert");
ret=H5Tinsert(tid2, "f", HOFFSET(s1, f), H5T_NATIVE_FLOAT);
CHECK(ret, FAIL, "H5Tinsert");
/* Create a datatype to refer to */
tid1 = H5Tvlen_create (tid2);
CHECK(tid1, FAIL, "H5Tvlen_create");
/* Create a dataset */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
/* Create dataspace for datasets */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
/* Change to the custom memory allocation routines for reading VL data */
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
/* Make certain the correct amount of memory will be used */
ret=H5Dvlen_get_buf_size(dataset,tid1,sid1,&size);
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
/* 22 elements allocated = 4 + 5 + 6 + 7 elements for each array position */
VERIFY(size,22*sizeof(s1),"H5Dvlen_get_buf_size");
/* Read dataset from disk */
ret=H5Dread(dataset,tid1,H5S_ALL,H5S_ALL,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Make certain the correct amount of memory has been used */
/* 22 elements allocated = 4 + 5 + 6 + 7 elements for each array position */
VERIFY(mem_used,22*sizeof(s1),"H5Dread");
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].len!=rdata[i].len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",__LINE__,(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
for(j=0; j<rdata[i].len; j++) {
if( ((s1 *)wdata[i].p)[j].i != ((s1 *)rdata[i].p)[j].i ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].p[%d].i=%d, rdata[%d].p[%d].i=%d\n",(int)i,(int)j, (int)((s1 *)wdata[i].p)[j].i, (int)i,(int)j, (int)((s1 *)rdata[i].p)[j].i);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
if( ((s1 *)wdata[i].p)[j].f != ((s1 *)rdata[i].p)[j].f ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].p[%d].f=%f, rdata[%d].p[%d].f=%f\n",(int)i,(int)j, (double)((s1 *)wdata[i].p)[j].f, (int)i,(int)j, (double)((s1 *)rdata[i].p)[j].f);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
/* Reclaim the VL data */
ret=H5Dvlen_reclaim(tid1,sid1,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
/* Reclaim the write VL data */
ret=H5Dvlen_reclaim(tid1,sid1,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close dataset transfer property list */
ret = H5Pclose(xfer_pid);
CHECK(ret, FAIL, "H5Pclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
} /* end rewrite_vltypes_vlen_compound() */
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
/****************************************************************
**
** test_vltypes_compound_vlen_vlen(): Test basic VL datatype code.
** Tests compound datatypes with VL datatypes of VL datatypes.
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
**
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
****************************************************************/
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
static void
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
test_vltypes_compound_vlen_vlen(void)
{
typedef struct { /* Struct that the compound type are composed of */
int i;
float f;
hvl_t v;
} s1;
s1 wdata[SPACE3_DIM1]; /* data to write */
s1 rdata[SPACE3_DIM1]; /* data to read */
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t tid1, tid2, tid3; /* Datatype IDs */
hsize_t dims1[] = {SPACE3_DIM1};
unsigned i,j,k; /* counting variables */
hvl_t *t1, *t2; /* Temporary pointer to VL information */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Compound Datatypes with VL Atomic Datatype Component Functionality\n"));
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE3_DIM1; i++) {
wdata[i].i=i*10;
wdata[i].f=(float)((i*20)/3.0);
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].v.p=HDmalloc((i+L1_INCM)*sizeof(hvl_t));
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
wdata[i].v.len=i+L1_INCM;
for(t1=(wdata[i].v).p,j=0; j<(i+L1_INCM); j++, t1++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
t1->p=HDmalloc((j+L2_INCM)*sizeof(unsigned int));
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
t1->len=j+L2_INCM;
for(k=0; k<j+L2_INCM; k++)
((unsigned int*)t1->p)[k] = i*100 + j*10 + k;
}
} /* end for */
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fcreate");
/* Create dataspace for datasets */
sid1 = H5Screate_simple(SPACE3_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
/* Create a VL datatype to refer to */
tid3 = H5Tvlen_create (H5T_NATIVE_UINT);
CHECK(tid3, FAIL, "H5Tvlen_create");
/* Create a VL datatype to refer to */
tid1 = H5Tvlen_create (tid3);
CHECK(tid1, FAIL, "H5Tvlen_create");
/* Create the base compound type */
tid2 = H5Tcreate(H5T_COMPOUND, sizeof(s1));
CHECK(tid2, FAIL, "H5Tcreate");
/* Insert fields */
ret=H5Tinsert(tid2, "i", HOFFSET(s1, i), H5T_NATIVE_INT);
CHECK(ret, FAIL, "H5Tinsert");
ret=H5Tinsert(tid2, "f", HOFFSET(s1, f), H5T_NATIVE_FLOAT);
CHECK(ret, FAIL, "H5Tinsert");
ret=H5Tinsert(tid2, "v", HOFFSET(s1, v), tid1);
CHECK(ret, FAIL, "H5Tinsert");
/* Create a dataset */
dataset=H5Dcreate(fid1,"Dataset1",tid2,sid1,H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate");
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
/* Open file */
fid1 = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
/* Open a dataset */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
/* Read dataset from disk */
ret=H5Dread(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read in */
for(i=0; i<SPACE3_DIM1; i++) {
if(wdata[i].i!=rdata[i].i) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Integer components don't match!, wdata[%d].i=%d, rdata[%d].i=%d\n",(int)i,(int)wdata[i].i,(int)i,(int)rdata[i].i);
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
continue;
} /* end if */
if(wdata[i].f!=rdata[i].f) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Float components don't match!, wdata[%d].f=%f, rdata[%d].f=%f\n",(int)i,(double)wdata[i].f,(int)i,(double)rdata[i].f);
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
continue;
} /* end if */
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
if(wdata[i].v.len!=rdata[i].v.len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, wdata[%d].v.len=%d, rdata[%d].v.len=%d\n",__LINE__,(int)i,(int)wdata[i].v.len,(int)i,(int)rdata[i].v.len);
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
continue;
} /* end if */
for(t1=wdata[i].v.p, t2=rdata[i].v.p, j=0; j<rdata[i].v.len; j++, t1++, t2++) {
if(t1->len!=t2->len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, i=%d, j=%d, t1->len=%d, t2->len=%d\n",__LINE__,(int)i,(int)j,(int)t1->len,(int)t2->len);
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
continue;
} /* end if */
for(k=0; k<t2->len; k++) {
if( ((unsigned int *)t1->p)[k] != ((unsigned int *)t2->p)[k] ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, t1->p[%d]=%d, t2->p[%d]=%d\n",(int)k, (int)((unsigned int *)t1->p)[k], (int)k, (int)((unsigned int *)t2->p)[k]);
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
} /* end for */
/* Reclaim the VL data */
ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,rdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
/* Reclaim the write VL data */
ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
/* Close datatype */
ret = H5Tclose(tid3);
CHECK(ret, FAIL, "H5Tclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
} /* end test_vltypes_compound_vlen_vlen() */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/****************************************************************
**
** test_vltypes_compound_vlen_atomic(): Test basic VL datatype code.
** Tests compound datatypes with VL datatypes of atomic datatypes.
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
**
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
****************************************************************/
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
static void
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
test_vltypes_compound_vlen_atomic(void)
{
typedef struct { /* Struct that the VL sequences are composed of */
int i;
float f;
hvl_t v;
} s1;
s1 wdata[SPACE1_DIM1]; /* Information to write */
s1 rdata[SPACE1_DIM1]; /* Information read in */
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
s1 fill; /* Fill value */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t tid1, tid2; /* Datatype IDs */
hid_t xfer_pid; /* Dataset transfer property list ID */
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
hid_t dcpl_pid; /* Dataset creation property list ID */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
hsize_t dims1[] = {SPACE1_DIM1};
hsize_t size; /* Number of bytes which will be used */
unsigned i,j; /* counting variables */
size_t mem_used=0; /* Memory used during allocation */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Compound Datatypes with VL Atomic Datatype Component Functionality\n"));
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE1_DIM1; i++) {
wdata[i].i=i*10;
wdata[i].f=(float)((i*20)/3.0);
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].v.p=HDmalloc((i+1)*sizeof(unsigned int));
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
wdata[i].v.len=i+1;
for(j=0; j<(i+1); j++)
((unsigned int *)wdata[i].v.p)[j]=i*10+j;
} /* end for */
/* Create file */
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fcreate");
/* Create dataspace for datasets */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
/* Create a VL datatype to refer to */
tid1 = H5Tvlen_create (H5T_NATIVE_UINT);
CHECK(tid1, FAIL, "H5Tvlen_create");
/* Create the base compound type */
tid2 = H5Tcreate(H5T_COMPOUND, sizeof(s1));
CHECK(tid2, FAIL, "H5Tcreate");
/* Insert fields */
ret=H5Tinsert(tid2, "i", HOFFSET(s1, i), H5T_NATIVE_INT);
CHECK(ret, FAIL, "H5Tinsert");
ret=H5Tinsert(tid2, "f", HOFFSET(s1, f), H5T_NATIVE_FLOAT);
CHECK(ret, FAIL, "H5Tinsert");
ret=H5Tinsert(tid2, "v", HOFFSET(s1, v), tid1);
CHECK(ret, FAIL, "H5Tinsert");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Create a dataset */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
dataset=H5Dcreate(fid1,"Dataset1",tid2,sid1,H5P_DEFAULT);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(dataset, FAIL, "H5Dcreate");
/* Write dataset to disk */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
ret=H5Dwrite(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(ret, FAIL, "H5Dwrite");
/* Change to the custom memory allocation routines for reading VL data */
[svn-r4482] Purpose: Kludge Description: Since we're only about halfway through converting the internal use of property lists from the "old way" to the generic property lists, we turned off snapshots to avoid exposing lots of API changes to users, until the APIs settled down. Getting the snapshots rolling again seems to have become a priority, so some changes are going to have to be made now that were going to be postponed until we were completely finished with the conversion. This requires that the old API functions be able to deal with both the old and new property lists smoothly. Solution: Kludge together the property list code so that they can transparently handle dealing with both the old and new property lists Platforms tested: FreeBSD 4.4 (hawkwind)
2001-09-27 04:29:35 +08:00
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
/* Make certain the correct amount of memory will be used */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
ret=H5Dvlen_get_buf_size(dataset,tid2,sid1,&size);
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
/* 10 elements allocated = 1 + 2 + 3 + 4 elements for each array position */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
VERIFY(size,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(unsigned int),"H5Dvlen_get_buf_size");
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Read dataset from disk */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
ret=H5Dread(dataset,tid2,H5S_ALL,H5S_ALL,xfer_pid,rdata);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(ret, FAIL, "H5Dread");
/* Make certain the correct amount of memory has been used */
/* 10 elements allocated = 1 + 2 + 3 + 4 elements for each array position */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
VERIFY(mem_used,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(unsigned int),"H5Dread");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
if(wdata[i].i!=rdata[i].i) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Integer components don't match!, wdata[%d].i=%d, rdata[%d].i=%d\n",(int)i,(int)wdata[i].i,(int)i,(int)rdata[i].i);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
continue;
} /* end if */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
if(wdata[i].f!=rdata[i].f) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Float components don't match!, wdata[%d].f=%f, rdata[%d].f=%f\n",(int)i,(double)wdata[i].f,(int)i,(double)rdata[i].f);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
if(wdata[i].v.len!=rdata[i].v.len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, wdata[%d].v.len=%d, rdata[%d].v.len=%d\n",__LINE__,(int)i,(int)wdata[i].v.len,(int)i,(int)rdata[i].v.len);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
for(j=0; j<rdata[i].v.len; j++) {
if( ((unsigned int *)wdata[i].v.p)[j] != ((unsigned int *)rdata[i].v.p)[j] ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].v.p[%d]=%d, rdata[%d].v.p[%d]=%d\n",(int)i,(int)j, (int)((unsigned int *)wdata[i].v.p)[j], (int)i,(int)j, (int)((unsigned int *)rdata[i].v.p)[j]);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
/* Reclaim the VL data */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
ret=H5Dvlen_reclaim(tid2,sid1,xfer_pid,rdata);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Create a second dataset, with a fill value */
dcpl_pid=H5Pcreate(H5P_DATASET_CREATE);
CHECK(dcpl_pid, FAIL, "H5Pcreate");
/* Set the fill value for the second dataset */
HDmemset(&fill,0,sizeof(s1));
ret=H5Pset_fill_value(dcpl_pid, tid2, &fill);
CHECK(ret, FAIL, "H5Pset_fill_value");
dataset=H5Dcreate(fid1,"Dataset2",tid2,sid1,H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate");
/* Close dataset creation property list */
ret = H5Pclose(dcpl_pid);
CHECK(ret, FAIL, "H5Pclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Read from dataset before writing data */
ret=H5Dread(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Check data read in */
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
for(i=0; i<SPACE1_DIM1; i++)
if(rdata[i].i!=0 || rdata[i].f!=0.0 || rdata[i].v.len!=0 || rdata[i].v.p!=NULL)
TestErrPrintf("VL doesn't match!, rdata[%d].i=%d, rdata[%d].f=%f, rdata[%d].v.len=%u, rdata[%d].v.p=%p\n",(int)i,rdata[i].i,(int)i,rdata[i].f,(int)i,(unsigned)rdata[i].v.len,(int)i,rdata[i].v.p);
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
/* Read dataset from disk */
ret=H5Dread(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].i!=rdata[i].i) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Integer components don't match!, wdata[%d].i=%d, rdata[%d].i=%d\n",(int)i,(int)wdata[i].i,(int)i,(int)rdata[i].i);
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
continue;
} /* end if */
if(wdata[i].f!=rdata[i].f) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Float components don't match!, wdata[%d].f=%f, rdata[%d].f=%f\n",(int)i,(double)wdata[i].f,(int)i,(double)rdata[i].f);
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
continue;
} /* end if */
if(wdata[i].v.len!=rdata[i].v.len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, wdata[%d].v.len=%d, rdata[%d].v.len=%d\n",__LINE__,(int)i,(int)wdata[i].v.len,(int)i,(int)rdata[i].v.len);
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
continue;
} /* end if */
for(j=0; j<rdata[i].v.len; j++) {
if( ((unsigned int *)wdata[i].v.p)[j] != ((unsigned int *)rdata[i].v.p)[j] ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].v.p[%d]=%d, rdata[%d].v.p[%d]=%d\n",(int)i,(int)j, (int)((unsigned int *)wdata[i].v.p)[j], (int)i,(int)j, (int)((unsigned int *)rdata[i].v.p)[j]);
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
/* Reclaim the VL data */
ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,rdata);
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
CHECK(ret, FAIL, "H5Dvlen_reclaim");
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
[svn-r7842] Purpose: Bug fix Description: Variable length strings and sequences with NULL pointers were not handled by library, causing problems access the data. This also affected fill values for variable-length datatypes. Solution: Address the issues in the library by detecting NULL sequences/strings and avoid trying to convert them. Patched up dumper to display NULL sequences/strings. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2003-11-13 23:19:50 +08:00
/* Reclaim the write VL data */
ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* Close datatype */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
ret = H5Tclose(tid2);
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
CHECK(ret, FAIL, "H5Tclose");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Close datatype */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
ret = H5Tclose(tid1);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
/* Close dataset transfer property list */
[svn-r4482] Purpose: Kludge Description: Since we're only about halfway through converting the internal use of property lists from the "old way" to the generic property lists, we turned off snapshots to avoid exposing lots of API changes to users, until the APIs settled down. Getting the snapshots rolling again seems to have become a priority, so some changes are going to have to be made now that were going to be postponed until we were completely finished with the conversion. This requires that the old API functions be able to deal with both the old and new property lists smoothly. Solution: Kludge together the property list code so that they can transparently handle dealing with both the old and new property lists Platforms tested: FreeBSD 4.4 (hawkwind)
2001-09-27 04:29:35 +08:00
ret = H5Pclose(xfer_pid);
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
CHECK(ret, FAIL, "H5Pclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
} /* end test_vltypes_compound_vlen_atomic() */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/****************************************************************
**
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
** rewrite_vltypes_compound_vlen_atomic(): Check memory leak for
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
** basic VL datatype code.
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
** Check memory leak for compound datatypes with VL datatypes
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
** of atomic datatypes.
**
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
****************************************************************/
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
static void
rewrite_vltypes_compound_vlen_atomic(void)
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
{
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
typedef struct { /* Struct that the VL sequences are composed of */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
int i;
float f;
hvl_t v;
} s1;
s1 wdata[SPACE1_DIM1]; /* Information to write */
s1 rdata[SPACE1_DIM1]; /* Information read in */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t tid1, tid2; /* Datatype IDs */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
hid_t xfer_pid; /* Dataset transfer property list ID */
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
hsize_t size; /* Number of bytes which will be used */
[svn-r4355] Purpose: Code cleanup (sorta) Description: When the first versions of the HDF5 library were designed, I remembered vividly the difficulties of porting code from a 32-bit platform to a 16-bit platform and asked that people use intn & uintn instead of int & unsigned int, respectively. However, in hindsight, this was overkill and unnecessary since we weren't going to be porting the HDF5 library to 16-bit architectures. Currently, the extra uintn & intn typedefs are causing problems for users who'd like to include both the HDF5 and HDF4 header files in one source module (like Kent's h4toh5 library). Solution: Changed the uintn & intn's to unsigned and int's respectively. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-15 06:09:56 +08:00
unsigned i,j; /* counting variables */
[svn-r4012] Purpose: Clean up compiler warnings. Description: Just code neatening mostly, some casts, etc. Platforms tested: FreeBSD 4.3 (hawkwind)
2001-06-19 04:22:10 +08:00
size_t mem_used=0; /* Memory used during allocation */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
int increment=4;
herr_t ret; /* Generic return value */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Output message about test being performed */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
MESSAGE(5, ("Checking memory leak for compound datatype with VL Atomic Datatype Component Functionality\n"));
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE1_DIM1; i++) {
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
wdata[i].i=i*40;
wdata[i].f=(float)((i*50)/3.0);
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].v.p=HDmalloc((i+increment)*sizeof(unsigned int));
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
wdata[i].v.len=i+increment;
for(j=0; j<(i+increment); j++)
((unsigned int *)wdata[i].v.p)[j]=i*60+j;
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
} /* end for */
/* Create file */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
fid1 = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Create a VL datatype to refer to */
tid1 = H5Tvlen_create (H5T_NATIVE_UINT);
CHECK(tid1, FAIL, "H5Tvlen_create");
/* Create the base compound type */
tid2 = H5Tcreate(H5T_COMPOUND, sizeof(s1));
CHECK(tid2, FAIL, "H5Tcreate");
/* Insert fields */
ret=H5Tinsert(tid2, "i", HOFFSET(s1, i), H5T_NATIVE_INT);
CHECK(ret, FAIL, "H5Tinsert");
ret=H5Tinsert(tid2, "f", HOFFSET(s1, f), H5T_NATIVE_FLOAT);
CHECK(ret, FAIL, "H5Tinsert");
ret=H5Tinsert(tid2, "v", HOFFSET(s1, v), tid1);
CHECK(ret, FAIL, "H5Tinsert");
/* Create a dataset */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
/* Create dataspace for datasets */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
/* Change to the custom memory allocation routines for reading VL data */
[svn-r4482] Purpose: Kludge Description: Since we're only about halfway through converting the internal use of property lists from the "old way" to the generic property lists, we turned off snapshots to avoid exposing lots of API changes to users, until the APIs settled down. Getting the snapshots rolling again seems to have become a priority, so some changes are going to have to be made now that were going to be postponed until we were completely finished with the conversion. This requires that the old API functions be able to deal with both the old and new property lists smoothly. Solution: Kludge together the property list code so that they can transparently handle dealing with both the old and new property lists Platforms tested: FreeBSD 4.4 (hawkwind)
2001-09-27 04:29:35 +08:00
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
/* Make certain the correct amount of memory will be used */
ret=H5Dvlen_get_buf_size(dataset,tid2,sid1,&size);
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* 22 elements allocated = 4+5+6+7 elements for each array position */
VERIFY(size, 22*sizeof(unsigned int),"H5Dvlen_get_buf_size");
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Read dataset from disk */
ret=H5Dread(dataset,tid2,H5S_ALL,H5S_ALL,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Make certain the correct amount of memory has been used */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* 22 elements allocated = 4+5+6+7 elements for each array position */
VERIFY(mem_used,22*sizeof(unsigned int),"H5Dread");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].i!=rdata[i].i) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Integer components don't match!, wdata[%d].i=%d, rdata[%d].i=%d\n",(int)i,(int)wdata[i].i,(int)i,(int)rdata[i].i);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
continue;
} /* end if */
if(wdata[i].f!=rdata[i].f) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Float components don't match!, wdata[%d].f=%f, rdata[%d].f=%f\n",(int)i,(double)wdata[i].f,(int)i,(double)rdata[i].f);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
continue;
} /* end if */
if(wdata[i].v.len!=rdata[i].v.len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, wdata[%d].v.len=%d, rdata[%d].v.len=%d\n",__LINE__,(int)i,(int)wdata[i].v.len,(int)i,(int)rdata[i].v.len);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
continue;
} /* end if */
for(j=0; j<rdata[i].v.len; j++) {
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
if( ((unsigned int *)wdata[i].v.p)[j] != ((unsigned int *)rdata[i].v.p)[j] ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, wdata[%d].v.p[%d]=%d, rdata[%d].v.p[%d]=%d\n",(int)i,(int)j, (int)((unsigned int *)wdata[i].v.p)[j], (int)i,(int)j, (int)((unsigned int *)rdata[i].v.p)[j]);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
/* Reclaim the VL data */
ret=H5Dvlen_reclaim(tid2,sid1,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
/* Reclaim the write VL data */
[svn-r1507] Uncommented VL datatypes in compound datatypes test, since it's working now. Some other memory leaks in the tests fixed.
1999-07-18 08:00:22 +08:00
ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,wdata);
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
CHECK(ret, FAIL, "H5Dvlen_reclaim");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
/* Close dataset transfer property list */
[svn-r4482] Purpose: Kludge Description: Since we're only about halfway through converting the internal use of property lists from the "old way" to the generic property lists, we turned off snapshots to avoid exposing lots of API changes to users, until the APIs settled down. Getting the snapshots rolling again seems to have become a priority, so some changes are going to have to be made now that were going to be postponed until we were completely finished with the conversion. This requires that the old API functions be able to deal with both the old and new property lists smoothly. Solution: Kludge together the property list code so that they can transparently handle dealing with both the old and new property lists Platforms tested: FreeBSD 4.4 (hawkwind)
2001-09-27 04:29:35 +08:00
ret = H5Pclose(xfer_pid);
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
CHECK(ret, FAIL, "H5Pclose");
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
} /* end rewrite_vltypes_compound_vlen_atomic() */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
/****************************************************************
**
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
** vlen_size_func(): Test basic VL datatype code.
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
** Tests VL datatype with VL datatypes of atomic datatypes.
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
**
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
****************************************************************/
[svn-r4012] Purpose: Clean up compiler warnings. Description: Just code neatening mostly, some casts, etc. Platforms tested: FreeBSD 4.3 (hawkwind)
2001-06-19 04:22:10 +08:00
static size_t vlen_size_func(unsigned long n)
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
{
[svn-r4012] Purpose: Clean up compiler warnings. Description: Just code neatening mostly, some casts, etc. Platforms tested: FreeBSD 4.3 (hawkwind)
2001-06-19 04:22:10 +08:00
size_t u=1;
size_t tmp=1;
size_t result=1;
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
while(u<n) {
u++;
tmp+=u;
result+=tmp;
}
return(result);
}
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/****************************************************************
**
** test_vltypes_vlen_vlen_atomic(): Test basic VL datatype code.
** Tests VL datatype with VL datatypes of atomic datatypes.
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
**
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
****************************************************************/
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
static void
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
test_vltypes_vlen_vlen_atomic(void)
{
hvl_t wdata[SPACE1_DIM1]; /* Information to write */
hvl_t rdata[SPACE1_DIM1]; /* Information read in */
hvl_t *t1, *t2; /* Temporary pointer to VL information */
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t tid1, tid2; /* Datatype IDs */
hid_t xfer_pid; /* Dataset transfer property list ID */
hsize_t dims1[] = {SPACE1_DIM1};
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
hsize_t size; /* Number of bytes which will be used */
[svn-r4355] Purpose: Code cleanup (sorta) Description: When the first versions of the HDF5 library were designed, I remembered vividly the difficulties of porting code from a 32-bit platform to a 16-bit platform and asked that people use intn & uintn instead of int & unsigned int, respectively. However, in hindsight, this was overkill and unnecessary since we weren't going to be porting the HDF5 library to 16-bit architectures. Currently, the extra uintn & intn typedefs are causing problems for users who'd like to include both the HDF5 and HDF4 header files in one source module (like Kent's h4toh5 library). Solution: Changed the uintn & intn's to unsigned and int's respectively. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-15 06:09:56 +08:00
unsigned i,j,k; /* counting variables */
[svn-r4012] Purpose: Clean up compiler warnings. Description: Just code neatening mostly, some casts, etc. Platforms tested: FreeBSD 4.3 (hawkwind)
2001-06-19 04:22:10 +08:00
size_t mem_used=0; /* Memory used during allocation */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing VL Datatypes with VL Atomic Datatype Component Functionality\n"));
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE1_DIM1; i++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].p=HDmalloc((i+1)*sizeof(hvl_t));
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
if(wdata[i].p==NULL) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Cannot allocate memory for VL data! i=%u\n",i);
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
return;
} /* end if */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
wdata[i].len=i+1;
for(t1=wdata[i].p,j=0; j<(i+1); j++, t1++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
t1->p=HDmalloc((j+1)*sizeof(unsigned int));
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
if(t1->p==NULL) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Cannot allocate memory for VL data! i=%u, j=%u\n",i,j);
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
return;
} /* end if */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
t1->len=j+1;
for(k=0; k<(j+1); k++)
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
((unsigned int *)t1->p)[k]=i*100+j*10+k;
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
} /* end for */
} /* end for */
/* Create file */
[svn-r2289] changed the macro for the file to be FILENAME. caused compilation errors on windows with the old name
2000-05-25 23:53:22 +08:00
fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(fid1, FAIL, "H5Fcreate");
/* Create dataspace for datasets */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
/* Create a VL datatype to refer to */
tid1 = H5Tvlen_create (H5T_NATIVE_UINT);
CHECK(tid1, FAIL, "H5Tvlen_create");
/* Create the base VL type */
tid2 = H5Tvlen_create (tid1);
CHECK(tid2, FAIL, "H5Tvlen_create");
/* Create a dataset */
dataset=H5Dcreate(fid1,"Dataset1",tid2,sid1,H5P_DEFAULT);
CHECK(dataset, FAIL, "H5Dcreate");
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
[svn-r1730] Close & re-open the file to make certain that the VL datatype information is being written correctly.
1999-10-07 02:12:19 +08:00
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1730] Close & re-open the file to make certain that the VL datatype information is being written correctly.
1999-10-07 02:12:19 +08:00
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
/* Open file */
[svn-r2289] changed the macro for the file to be FILENAME. caused compilation errors on windows with the old name
2000-05-25 23:53:22 +08:00
fid1 = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT);
[svn-r1730] Close & re-open the file to make certain that the VL datatype information is being written correctly.
1999-10-07 02:12:19 +08:00
CHECK(fid1, FAIL, "H5Fopen");
/* Create dataspace for datasets */
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
CHECK(sid1, FAIL, "H5Screate_simple");
/* Create a VL datatype to refer to */
tid1 = H5Tvlen_create (H5T_NATIVE_UINT);
CHECK(tid1, FAIL, "H5Tvlen_create");
/* Create the base VL type */
tid2 = H5Tvlen_create (tid1);
CHECK(tid2, FAIL, "H5Tvlen_create");
/* Open a dataset */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Change to the custom memory allocation routines for reading VL data */
[svn-r4482] Purpose: Kludge Description: Since we're only about halfway through converting the internal use of property lists from the "old way" to the generic property lists, we turned off snapshots to avoid exposing lots of API changes to users, until the APIs settled down. Getting the snapshots rolling again seems to have become a priority, so some changes are going to have to be made now that were going to be postponed until we were completely finished with the conversion. This requires that the old API functions be able to deal with both the old and new property lists smoothly. Solution: Kludge together the property list code so that they can transparently handle dealing with both the old and new property lists Platforms tested: FreeBSD 4.4 (hawkwind)
2001-09-27 04:29:35 +08:00
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
[svn-r1730] Close & re-open the file to make certain that the VL datatype information is being written correctly.
1999-10-07 02:12:19 +08:00
/* Make certain the correct amount of memory was used */
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
ret=H5Dvlen_get_buf_size(dataset,tid2,sid1,&size);
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
/* 10 hvl_t elements allocated = 1 + 2 + 3 + 4 elements for each array position */
/* 20 unsigned int elements allocated = 1 + 3 + 6 + 10 elements */
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
VERIFY(size,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(hvl_t)+vlen_size_func(SPACE1_DIM1)*sizeof(unsigned int),"H5Dvlen_get_buf_size");
[svn-r1577] Added test for H5Dvlen_get_buf_size function.
1999-08-20 02:50:30 +08:00
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Read dataset from disk */
ret=H5Dread(dataset,tid2,H5S_ALL,H5S_ALL,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Make certain the correct amount of memory has been used */
/* 10 hvl_t elements allocated = 1 + 2 + 3 + 4 elements for each array position */
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
/* 20 unsigned int elements allocated = 1 + 3 + 6 + 10 elements */
[svn-r2974] Purpose: Code bullet-proofing Description: There were several hard-coded values in various places in this test and it wasn't checking for out-of-memory conditions very robustly. Solution: Changed hard-coded values to be computed values and performed better checking for out-of-memory situations. Platforms tested: SGI O2K (modi4) and Solaris 2.6 (baldric)
2000-11-18 05:12:23 +08:00
VERIFY(mem_used,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(hvl_t)+vlen_size_func(SPACE1_DIM1)*sizeof(unsigned int),"H5Dread");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].len!=rdata[i].len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",__LINE__,(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
continue;
} /* end if */
for(t1=wdata[i].p, t2=rdata[i].p, j=0; j<rdata[i].len; j++, t1++, t2++) {
if(t1->len!=t2->len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, i=%d, j=%d, t1->len=%d, t2->len=%d\n",__LINE__,(int)i,(int)j,(int)t1->len,(int)t2->len);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
continue;
} /* end if */
for(k=0; k<t2->len; k++) {
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
if( ((unsigned int *)t1->p)[k] != ((unsigned int *)t2->p)[k] ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, t1->p[%d]=%d, t2->p[%d]=%d\n",(int)k, (int)((unsigned int *)t1->p)[k], (int)k, (int)((unsigned int *)t2->p)[k]);
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
} /* end for */
/* Reclaim all the (nested) VL data */
ret=H5Dvlen_reclaim(tid2,sid1,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
/* Reclaim the write VL data */
[svn-r1507] Uncommented VL datatypes in compound datatypes test, since it's working now. Some other memory leaks in the tests fixed.
1999-07-18 08:00:22 +08:00
ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,wdata);
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
CHECK(ret, FAIL, "H5Dvlen_reclaim");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close datatype */
ret = H5Tclose(tid1);
CHECK(ret, FAIL, "H5Tclose");
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
/* Close dataset transfer property list */
[svn-r4482] Purpose: Kludge Description: Since we're only about halfway through converting the internal use of property lists from the "old way" to the generic property lists, we turned off snapshots to avoid exposing lots of API changes to users, until the APIs settled down. Getting the snapshots rolling again seems to have become a priority, so some changes are going to have to be made now that were going to be postponed until we were completely finished with the conversion. This requires that the old API functions be able to deal with both the old and new property lists smoothly. Solution: Kludge together the property list code so that they can transparently handle dealing with both the old and new property lists Platforms tested: FreeBSD 4.4 (hawkwind)
2001-09-27 04:29:35 +08:00
ret = H5Pclose(xfer_pid);
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
CHECK(ret, FAIL, "H5Pclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
} /* end test_vltypes_vlen_vlen_atomic() */
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/****************************************************************
**
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
** rewrite_longer_vltypes_vlen_vlen_atomic(): Test basic VL datatype code.
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
** Tests VL datatype with VL datatypes of atomic datatypes.
**
****************************************************************/
static void
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
rewrite_longer_vltypes_vlen_vlen_atomic(void)
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
{
hvl_t wdata[SPACE1_DIM1]; /* Information to write */
hvl_t rdata[SPACE1_DIM1]; /* Information read in */
hvl_t *t1, *t2; /* Temporary pointer to VL information */
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t tid2; /* Datatype IDs */
hid_t xfer_pid; /* Dataset transfer property list ID */
hsize_t size; /* Number of bytes which will be used */
unsigned i,j,k; /* counting variables */
size_t mem_used=0; /* Memory used during allocation */
[svn-r5805] Purpose: temporary solution to avoid failture. Description: let VL sequence remain the same.
2002-07-16 06:42:00 +08:00
int increment=1;
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Check memory leak for VL Datatypes with VL Atomic Datatype Component Functionality\n"));
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE1_DIM1; i++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].p=HDmalloc((i+increment)*sizeof(hvl_t));
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
if(wdata[i].p==NULL) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Cannot allocate memory for VL data! i=%u\n",i);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
return;
} /* end if */
[svn-r5780] Purpose: Improving testing Description: changed the number of elements in nested VL datatype test. Platforms tested: IRIX64 6.5(modi4) 64-bit
2002-07-12 05:45:22 +08:00
wdata[i].len=i+increment;
for(t1=wdata[i].p,j=0; j<(i+increment); j++, t1++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
t1->p=HDmalloc((j+1)*sizeof(unsigned int));
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
if(t1->p==NULL) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Cannot allocate memory for VL data! i=%u, j=%u\n",i,j);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
return;
} /* end if */
t1->len=j+1;
for(k=0; k<(j+1); k++)
[svn-r5780] Purpose: Improving testing Description: changed the number of elements in nested VL datatype test. Platforms tested: IRIX64 6.5(modi4) 64-bit
2002-07-12 05:45:22 +08:00
((unsigned int *)t1->p)[k]=i*1000+j*100+k*10;
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
} /* end for */
} /* end for */
/* Open file */
fid1 = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
/* Open the dataset */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
/* Get dataspace for datasets */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
/* Open datatype of the dataset */
tid2 = H5Dget_type(dataset);
CHECK(tid2, FAIL, "H5Dget_type");
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
/* Open the file for data checking */
fid1 = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
/* Open a dataset */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
/* Get dataspace for datasets */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
/* Get datatype for dataset */
tid2 = H5Dget_type(dataset);
CHECK(tid2, FAIL, "H5Dget_type");
/* Change to the custom memory allocation routines for reading VL data */
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
/* Make certain the correct amount of memory was used */
ret=H5Dvlen_get_buf_size(dataset,tid2,sid1,&size);
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
[svn-r5780] Purpose: Improving testing Description: changed the number of elements in nested VL datatype test. Platforms tested: IRIX64 6.5(modi4) 64-bit
2002-07-12 05:45:22 +08:00
/* 18 hvl_t elements allocated = 3 + 4 + 5 + 6 elements for each array position */
/* 52 unsigned int elements allocated = 6 + 10 + 15 + 21 elements */
[svn-r5805] Purpose: temporary solution to avoid failture. Description: let VL sequence remain the same.
2002-07-16 06:42:00 +08:00
/*VERIFY(size,18*sizeof(hvl_t)+52*sizeof(unsigned int),"H5Dvlen_get_buf_size");*/
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* Read dataset from disk */
ret=H5Dread(dataset,tid2,H5S_ALL,H5S_ALL,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Make certain the correct amount of memory has been used */
[svn-r5780] Purpose: Improving testing Description: changed the number of elements in nested VL datatype test. Platforms tested: IRIX64 6.5(modi4) 64-bit
2002-07-12 05:45:22 +08:00
/* 18 hvl_t elements allocated = 3+4+5+6elements for each array position */
/* 52 unsigned int elements allocated = 6+10+15+21 elements */
[svn-r5805] Purpose: temporary solution to avoid failture. Description: let VL sequence remain the same.
2002-07-16 06:42:00 +08:00
/*VERIFY(mem_used,18*sizeof(hvl_t)+52*sizeof(unsigned int),"H5Dread");*/
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].len!=rdata[i].len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",__LINE__,(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
[svn-r9727] Purpose: Bug Fix/Code Cleanup/Doc Cleanup/Optimization/Branch Sync :-) Description: Generally speaking, this is the "signed->unsigned" change to selections. However, in the process of merging code back, things got stickier and stickier until I ended up doing a big "sync the two branches up" operation. So... I brought back all the "infrastructure" fixes from the development branch to the release branch (which I think were actually making some improvement in performance) as well as fixed several bugs which had been fixed in one branch, but not the other. I've also tagged the repository before making this checkin with the label "before_signed_unsigned_changes". Platforms tested: FreeBSD 4.10 (sleipnir) w/parallel & fphdf5 FreeBSD 4.10 (sleipnir) w/threadsafe FreeBSD 4.10 (sleipnir) w/backward compatibility Solaris 2.7 (arabica) w/"purify options" Solaris 2.8 (sol) w/FORTRAN & C++ AIX 5.x (copper) w/parallel & FORTRAN IRIX64 6.5 (modi4) w/FORTRAN Linux 2.4 (heping) w/FORTRAN & C++ Misc. update:
2004-12-29 22:26:20 +08:00
for(t1=wdata[i].p, t2=rdata[i].p, j=0; j<rdata[i].len; j++, t1++, t2++) {
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
if(t1->len!=t2->len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, i=%d, j=%d, t1->len=%d, t2->len=%d\n",__LINE__,(int)i,(int)j,(int)t1->len,(int)t2->len);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
for(k=0; k<t2->len; k++) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
if( ((unsigned int *)t1->p)[k] != ((unsigned int *)t2->p)[k] ) {
TestErrPrintf("VL data values don't match!, t1->p[%d]=%d, t2->p[%d]=%d\n",(int)k, (int)((unsigned int *)t1->p)[k], (int)k, (int)((unsigned int *)t2->p)[k]);
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
} /* end for */
/* Reclaim all the (nested) VL data */
ret=H5Dvlen_reclaim(tid2,sid1,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
/* Reclaim the write VL data */
ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close dataset transfer property list */
ret = H5Pclose(xfer_pid);
CHECK(ret, FAIL, "H5Pclose");
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
} /* end rewrite_longer_vltypes_vlen_vlen_atomic() */
/****************************************************************
**
** rewrite_shorter_vltypes_vlen_vlen_atomic(): Test basic VL datatype code.
** Tests VL datatype with VL datatypes of atomic datatypes.
**
****************************************************************/
static void
rewrite_shorter_vltypes_vlen_vlen_atomic(void)
{
hvl_t wdata[SPACE1_DIM1]; /* Information to write */
hvl_t rdata[SPACE1_DIM1]; /* Information read in */
hvl_t *t1, *t2; /* Temporary pointer to VL information */
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
hid_t sid1; /* Dataspace ID */
hid_t tid2; /* Datatype IDs */
hid_t xfer_pid; /* Dataset transfer property list ID */
hsize_t size; /* Number of bytes which will be used */
unsigned i,j,k; /* counting variables */
size_t mem_used=0; /* Memory used during allocation */
int increment=1;
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Check memory leak for VL Datatypes with VL Atomic Datatype Component Functionality\n"));
/* Allocate and initialize VL data to write */
for(i=0; i<SPACE1_DIM1; i++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
wdata[i].p=HDmalloc((i+increment)*sizeof(hvl_t));
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
if(wdata[i].p==NULL) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Cannot allocate memory for VL data! i=%u\n",i);
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
return;
} /* end if */
wdata[i].len=i+increment;
for(t1=wdata[i].p,j=0; j<(i+increment); j++, t1++) {
[svn-r7989] Purpose: Code cleanup Description: Switch 'malloc()' to 'HDmalloc()' in a bunch of places. Platforms tested: FreeBSD 4.9 (sleipnir) too minor to require h5committest
2003-12-30 03:02:05 +08:00
t1->p=HDmalloc((j+1)*sizeof(unsigned int));
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
if(t1->p==NULL) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("Cannot allocate memory for VL data! i=%u, j=%u\n",i,j);
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
return;
} /* end if */
t1->len=j+1;
for(k=0; k<(j+1); k++)
((unsigned int *)t1->p)[k]=i*100000+j*1000+k*10;
} /* end for */
} /* end for */
/* Open file */
fid1 = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
/* Open the dataset */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
/* Get dataspace for datasets */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
/* Open datatype of the dataset */
tid2 = H5Dget_type(dataset);
CHECK(tid2, FAIL, "H5Dget_type");
/* Write dataset to disk */
ret=H5Dwrite(dataset,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dwrite");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
/* Open the file for data checking */
fid1 = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT);
CHECK(fid1, FAIL, "H5Fopen");
/* Open a dataset */
dataset=H5Dopen(fid1,"Dataset1");
CHECK(dataset, FAIL, "H5Dopen");
/* Get dataspace for datasets */
sid1 = H5Dget_space(dataset);
CHECK(sid1, FAIL, "H5Dget_space");
/* Get datatype for dataset */
tid2 = H5Dget_type(dataset);
CHECK(tid2, FAIL, "H5Dget_type");
/* Change to the custom memory allocation routines for reading VL data */
xfer_pid=H5Pcreate(H5P_DATASET_XFER);
CHECK(xfer_pid, FAIL, "H5Pcreate");
ret=H5Pset_vlen_mem_manager(xfer_pid,test_vltypes_alloc_custom,&mem_used,test_vltypes_free_custom,&mem_used);
CHECK(ret, FAIL, "H5Pset_vlen_mem_manager");
/* Make certain the correct amount of memory was used */
ret=H5Dvlen_get_buf_size(dataset,tid2,sid1,&size);
CHECK(ret, FAIL, "H5Dvlen_get_buf_size");
/* 10 hvl_t elements allocated = 1 + 2 + 3 + 4 elements for each array position */
/* 20 unsigned int elements allocated = 1 + 3 + 6 + 10 elements */
VERIFY(size,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(hvl_t)+vlen_size_func(SPACE1_DIM1)*sizeof(unsigned int),"H5Dvlen_get_buf_size");
/* Read dataset from disk */
ret=H5Dread(dataset,tid2,H5S_ALL,H5S_ALL,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dread");
/* Make certain the correct amount of memory has been used */
/* 10 hvl_t elements allocated = 1 + 2 + 3 + 4 elements for each array position */
/* 20 unsigned int elements allocated = 1 + 3 + 6 + 10 elements */
VERIFY(mem_used,((SPACE1_DIM1*(SPACE1_DIM1+1))/2)*sizeof(hvl_t)+vlen_size_func(SPACE1_DIM1)*sizeof(unsigned int),"H5Dread");
/* Compare data read in */
for(i=0; i<SPACE1_DIM1; i++) {
if(wdata[i].len!=rdata[i].len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",__LINE__,(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
continue;
} /* end if */
[svn-r7584] Purpose: Code cleanup Description: Added line #'s to a bunch of the error printf's, so it's easier to locate where an error occurs. Platforms tested: FreeBSD 4.9 (sleipnir) Cray SV1 (wind)
2003-10-10 00:55:59 +08:00
for(t1=wdata[i].p, t2=rdata[i].p, j=0; j<rdata[i].len; j++, t1++, t2++) {
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
if(t1->len!=t2->len) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("%d: VL data length don't match!, i=%d, j=%d, t1->len=%d, t2->len=%d\n",__LINE__,(int)i,(int)j,(int)t1->len,(int)t2->len);
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
continue;
} /* end if */
for(k=0; k<t2->len; k++) {
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
if( ((unsigned int *)t1->p)[k] != ((unsigned int *)t2->p)[k] ) {
[svn-r8048] Purpose: Code cleanup & reorganization Description: Move further in the testing framework cleanup, eliminating all the global variables (moving them into testframe.c as static variables) from the testing framework code and moving it into the libh5test.a. Platforms tested: FreeBSD 4.9 (sleipnir) w & w/o thread-safety, c++ & parallel h5committested
2004-01-10 09:41:13 +08:00
TestErrPrintf("VL data values don't match!, t1->p[%d]=%d, t2->p[%d]=%d\n",(int)k, (int)((unsigned int *)t1->p)[k], (int)k, (int)((unsigned int *)t2->p)[k]);
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
continue;
} /* end if */
} /* end for */
} /* end for */
} /* end for */
/* Reclaim all the (nested) VL data */
ret=H5Dvlen_reclaim(tid2,sid1,xfer_pid,rdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Make certain the VL memory has been freed */
VERIFY(mem_used,0,"H5Dvlen_reclaim");
/* Reclaim the write VL data */
ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,wdata);
CHECK(ret, FAIL, "H5Dvlen_reclaim");
/* Close Dataset */
ret = H5Dclose(dataset);
CHECK(ret, FAIL, "H5Dclose");
/* Close datatype */
ret = H5Tclose(tid2);
CHECK(ret, FAIL, "H5Tclose");
/* Close disk dataspace */
ret = H5Sclose(sid1);
CHECK(ret, FAIL, "H5Sclose");
/* Close dataset transfer property list */
ret = H5Pclose(xfer_pid);
CHECK(ret, FAIL, "H5Pclose");
/* Close file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
} /* end rewrite_shorter_vltypes_vlen_vlen_atomic() */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
/****************************************************************
**
** test_vltypes(): Main VL datatype testing routine.
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
**
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
****************************************************************/
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
void
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
test_vltypes(void)
{
/* Output message about test being performed */
MESSAGE(5, ("Testing Variable-Length Datatypes\n"));
/* These next tests use the same file */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
test_vltypes_dataset_create(); /* Check dataset of VL when fill value
* won't be rewritten to it.*/
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
test_vltypes_funcs(); /* Test functions with VL types */
[svn-r1419] Modified dtypes.c to add new dataset transfer property list ID in H5Tconvert calls. Added tests to tvltypes.c which test arrays of VL compound datatypes, array of compound datatypes with VL fields and arrays of nested VL sequences of VL sequences of atomic types, all of which are working correctly.
1999-07-03 18:34:27 +08:00
test_vltypes_vlen_atomic(); /* Test VL atomic datatypes */
[svn-r5765] Purpose: New Test VL memory leak. Description: Test to see if VL type memory leaks when data is overwritten. Platforms tested: Linux 2.2(eirene), IRIX 6.5(paz).
2002-07-04 05:07:59 +08:00
rewrite_vltypes_vlen_atomic(); /* Check VL memory leak */
[svn-r1495] Corrections and small bugfixes to VL testing.
1999-07-17 02:12:34 +08:00
test_vltypes_vlen_compound(); /* Test VL compound datatypes */
[svn-r5780] Purpose: Improving testing Description: changed the number of elements in nested VL datatype test. Platforms tested: IRIX64 6.5(modi4) 64-bit
2002-07-12 05:45:22 +08:00
rewrite_vltypes_vlen_compound(); /* Check VL memory leak */
test_vltypes_compound_vlen_atomic(); /* Test compound datatypes with VL atomic components */
rewrite_vltypes_compound_vlen_atomic();/* Check VL memory leak */
[svn-r5812] Purpose: Bug fix. Description: This should fix the nested VL datatype bug. Platforms tested: modi4, eirene, impact
2002-07-18 05:11:47 +08:00
test_vltypes_vlen_vlen_atomic(); /* Test VL datatype with VL atomic components */
rewrite_longer_vltypes_vlen_vlen_atomic(); /*overwrite with VL data of longer sequence*/
rewrite_shorter_vltypes_vlen_vlen_atomic(); /*overwrite with VL data of shorted sequence*/
[svn-r7985] Purpose: bug fix Description: VL datatype fails in certain way(hard to describe) Solution: added more test to tvltypes.c Platforms tested: h5committest
2003-12-30 01:56:50 +08:00
test_vltypes_compound_vlen_vlen(); /* Test compound datatypes with VL atomic components */
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
} /* test_vltypes() */
/*-------------------------------------------------------------------------
* Function: cleanup_vltypes
*
* Purpose: Cleanup temporary test files
*
* Return: none
*
* Programmer: Quincey Koziol
* June 8, 1999
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
void
cleanup_vltypes(void)
{
[svn-r2289] changed the macro for the file to be FILENAME. caused compilation errors on windows with the old name
2000-05-25 23:53:22 +08:00
remove(FILENAME);
[svn-r1334] VL datatype testing file. Currently, only atomic datatype sequences are tested, but I expect the others to work correctly also. More tests on VL compound and VL VL (atomic) types forthcoming.
1999-06-12 06:06:26 +08:00
}
Reference in New Issue Copy Permalink