mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity
19c9657f7c
hdf5/test/tgenprop.c

1746 lines
63 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-r2872] Purpose: Code update Description: Added stub for generic property testing, although it doesn't do anything yet. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-12 08:10:08 +08:00
/***********************************************************
*
* Test program: tgenprop
*
* Test the Generic Property functionality
*
*************************************************************/
[svn-r6878] Purpose: Code cleanup Description: Limit the scope on more function prototypes/macros/typedefs. Platforms tested: FreeBSD 4.8 (sleipnir) h5committest not necessary.
2003-05-16 03:22:33 +08:00
#define H5P_PACKAGE /*suppress error about including H5Ppkg */
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
/* Define this macro to indicate that the testing APIs should be available */
#define H5P_TESTING
[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"
#include "hdf5.h"
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
#include "H5Dprivate.h" /* For Dataset creation property list names */
[svn-r6878] Purpose: Code cleanup Description: Limit the scope on more function prototypes/macros/typedefs. Platforms tested: FreeBSD 4.8 (sleipnir) h5committest not necessary.
2003-05-16 03:22:33 +08:00
#include "H5Ppkg.h" /* Generic Properties */
[svn-r2872] Purpose: Code update Description: Added stub for generic property testing, although it doesn't do anything yet. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-12 08:10:08 +08:00
#define FILENAME "tgenprop.h5"
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
/* Property definitions */
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
#define CLASS1_NAME "Class 1"
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
#define CLASS1_PATH "root/Class 1"
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
#define CLASS2_NAME "Class 2"
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
#define CLASS2_PATH "root/Class 1/Class 2"
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
/* Property definitions */
#define PROP1_NAME "Property 1"
int prop1_def=10; /* Property 1 default value */
#define PROP1_SIZE sizeof(prop1_def)
#define PROP1_DEF_VALUE (&prop1_def)
#define PROP2_NAME "Property 2"
[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
float prop2_def=(float)3.14; /* Property 2 default value */
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
#define PROP2_SIZE sizeof(prop2_def)
#define PROP2_DEF_VALUE (&prop2_def)
#define PROP3_NAME "Property 3"
char prop3_def[10]="Ten chars"; /* Property 3 default value */
#define PROP3_SIZE sizeof(prop3_def)
#define PROP3_DEF_VALUE (&prop3_def)
[svn-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
#define PROP4_NAME "Property 4"
double prop4_def=1.41; /* Property 4 default value */
#define PROP4_SIZE sizeof(prop4_def)
#define PROP4_DEF_VALUE (&prop4_def)
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
/****************************************************************
**
** test_genprop_basic_class(): Test basic generic property list code.
** Tests creating new generic classes.
[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-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +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-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
test_genprop_basic_class(void)
{
hid_t cid1; /* Generic Property class ID */
[svn-r2900] Purpose: Code development Description: Adding more generic property list tests for new functions. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 07:13:36 +08:00
hid_t cid2; /* Generic Property class ID */
hid_t cid3; /* Generic Property class ID */
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
char *name; /* Name of class */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
MESSAGE(5, ("Testing Basic Generic Property List Class Creation Functionality\n"));
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Check class name */
name = H5Pget_class_name(cid1);
CHECK_PTR(name, "H5Pget_class_name");
[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(HDstrcmp(name,CLASS1_NAME)!=0)
TestErrPrintf("Class names don't match!, name=%s, CLASS1_NAME=%s\n",name,CLASS1_NAME);
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
free(name);
[svn-r2900] Purpose: Code development Description: Adding more generic property list tests for new functions. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 07:13:36 +08:00
/* Check class parent */
cid2 = H5Pget_class_parent(cid1);
CHECK_I(cid2, "H5Pget_class_parent");
/* Verify class parent correct */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
ret = H5Pequal(cid2,H5P_ROOT);
[svn-r2900] Purpose: Code development Description: Adding more generic property list tests for new functions. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 07:13:36 +08:00
VERIFY(ret, 1, "H5Pequal");
/* Make certain false postives aren't being returned */
[svn-r4544] Purpose: Changed the file creation property list to the new generic property list. Modified for new file creation property list. Platform tested: IRIX64, SunOS5.7, FreeBSD
2001-10-16 03:38:51 +08:00
ret = H5Pequal(cid2,H5P_FILE_CREATE);
[svn-r2900] Purpose: Code development Description: Adding more generic property list tests for new functions. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 07:13:36 +08:00
VERIFY(ret, 0, "H5Pequal");
/* Close parent class */
ret = H5Pclose_class(cid2);
CHECK_I(ret, "H5Pclose_class");
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
/* Create another new generic class, derived from file creation class */
[svn-r6252] Purpose: Lots of performance improvements & a couple new internal API interfaces. Description: Performance Improvements: - Cached file offset & length sizes in shared file struct, to avoid constantly looking them up in the FCPL. - Generic property improvements: - Added "revision" number to generic property classes to speed up comparisons. - Changed method of storing properties from using a hash-table to the TBBT routines in the library. - Share the propery names between classes and the lists derived from them. - Removed redundant 'def_value' buffer from each property. - Switching code to use a "copy on write" strategy for properties in each list, where the properties in each list are shared with the properties in the class, until a property's value is changed in a list. - Fixed error in layout code which was allocating too many buffers. - Redefined public macros of the form (H5open()/H5check, <variable>) internally to only be (<variable>), avoiding innumerable useless calls to H5open() and H5check_version(). - Reuse already zeroed buffers in H5F_contig_fill instead of constantly re-zeroing them. - Don't write fill values if writing entire dataset. - Use gettimeofday() system call instead of time() system when checking the modification time of a dataset. - Added reference counted string API and use it for tracking the names of objects opening in a file (for the ID->name code). - Removed redundant H5P_get() calls in B-tree routines. - Redefine H5T datatype macros internally to the library, to avoid calling H5check redundantly. - Keep dataspace information for dataset locally instead of reading from disk each time. Added new module to track open objects in a file, to allow this (which will be useful eventually for some FPH5 metadata caching issues). - Remove H5AC_find macro which was inlining metadata cache lookups, and call function instead. - Remove redundant memset() calls from H5G_namei() routine. - Remove redundant checking of object type when locating objects in metadata cache and rely on the address only. - Create default dataset object to use when default dataset creation property list is used to create datasets, bypassing querying for all the property list values. - Use default I/O vector size when performing raw data with the default dataset transfer property list, instead of querying for I/O vector size. - Remove H5P_DEFAULT internally to the library, replacing it with more specific default property list based on the type of property list needed. - Remove redundant memset() calls in object header message (H5O*) routines. - Remove redunant memset() calls in data I/O routines. - Split free-list allocation routines into malloc() and calloc()- like routines, instead of one combined routine. - Remove lots of indirection in H5O*() routines. - Simplify metadata cache entry comparison routine (used when flushing entire cache out). - Only enable metadata cache statistics when H5AC_DEBUG is turned on, instead of always tracking them. - Simplify address comparison macro (H5F_addr_eq). - Remove redundant metadata cache entry protections during dataset creation by protecting the object header once and making all the modifications necessary for the dataset creation before unprotecting it. - Reduce # of "number of element in extent" computations performed by computing and storing the value during dataspace creation. - Simplify checking for group location's file information, when file has not been involving in file-mounting operations. - Use binary encoding for modification time, instead of ASCII. - Hoist H5HL_peek calls (to get information in a local heap) out of loops in many group routine. - Use static variable for iterators of selections, instead of dynamically allocation them each time. - Lookup & insert new entries in one step, avoiding traversing group's B-tree twice. - Fixed memory leak in H5Gget_objname_idx() routine (tangential to performance improvements, but fixed along the way). - Use free-list for reference counted strings. - Don't bother copying object names into cached group entries, since they are re-created when an object is opened. The benchmark I used to measure these results created several thousand small (2K) datasets in a file and wrote out the data for them. This is Elena's "regular.c" benchmark. These changes resulted in approximately ~4.3x speedup of the development branch when compared to the previous code in the development branch and ~1.4x speedup compared to the release branch. Additionally, these changes reduce the total memory used (code and data) by the development branch by ~800KB, bringing the development branch back into the same ballpark as the release branch. I'll send out a more detailed description of the benchmark results as a followup note. New internal API routines: Added "reference counted strings" API for tracking strings that get used by multiple owners without duplicating the strings. Added "ternary search tree" API for text->object mappings. Platforms tested: Tested h5committest {arabica (fortran), eirene (fortran, C++) modi4 (parallel, fortran)} Other platforms/configurations tested? FreeBSD 4.7 (sleipnir) serial & parallel Solaris 2.6 (baldric) serial
2003-01-10 01:20:03 +08:00
cid1 = H5Pcreate_class(H5P_FILE_CREATE,CLASS2_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Check class name */
name = H5Pget_class_name(cid1);
CHECK_PTR(name, "H5Pget_class_name");
[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(HDstrcmp(name,CLASS2_NAME)!=0)
TestErrPrintf("Class names don't match!, name=%s, CLASS2_NAME=%s\n",name,CLASS2_NAME);
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
free(name);
[svn-r2900] Purpose: Code development Description: Adding more generic property list tests for new functions. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 07:13:36 +08:00
/* Check class parent */
cid2 = H5Pget_class_parent(cid1);
CHECK_I(cid2, "H5Pget_class_parent");
/* Verify class parent correct */
[svn-r4544] Purpose: Changed the file creation property list to the new generic property list. Modified for new file creation property list. Platform tested: IRIX64, SunOS5.7, FreeBSD
2001-10-16 03:38:51 +08:00
ret = H5Pequal(cid2,H5P_FILE_CREATE);
[svn-r2900] Purpose: Code development Description: Adding more generic property list tests for new functions. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 07:13:36 +08:00
VERIFY(ret, 1, "H5Pequal");
/* Check class parent's parent */
cid3 = H5Pget_class_parent(cid2);
CHECK_I(cid3, "H5Pget_class_parent");
/* Verify class parent's parent correct */
[svn-r11712] Purpose: New feature Description: Check in baseline for compact group revisions, which radically revises the source code for managing groups and object headers. WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! This initiates the "unstable" phase of the 1.7.x branch, leading up to the 1.8.0 release. Please test this code, but do _NOT_ keep files created with it - the format will change again before the release and you will not be able to read your old files!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! Solution: There's too many changes to really describe them all, but some of them include: - Stop abusing the H5G_entry_t structure and split it into two separate structures for non-symbol table node use within the library: H5O_loc_t for object locations in a file and H5G_name_t to store the path to an opened object. H5G_entry_t is now only used for storing symbol table entries on disk. - Retire H5G_namei() in favor of a more general mechanism for traversing group paths and issuing callbacks on objects located. This gets us out of the business of hacking H5G_namei() for new features, generally. - Revised H5O* routines to take a H5O_loc_t instead of H5G_entry_t - Lots more... Platforms tested: h5committested and maybe another dozen configurations.... :-)
2005-11-15 10:55:39 +08:00
ret = H5Pequal(cid3,H5P_GROUP_CREATE);
[svn-r2900] Purpose: Code development Description: Adding more generic property list tests for new functions. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 07:13:36 +08:00
VERIFY(ret, 1, "H5Pequal");
/* Close parent class's parent */
ret = H5Pclose_class(cid3);
CHECK_I(ret, "H5Pclose_class");
/* Close parent class */
ret = H5Pclose_class(cid2);
CHECK_I(ret, "H5Pclose_class");
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
} /* end test_genprop_basic_class() */
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
/****************************************************************
**
** test_genprop_basic_class_prop(): Test basic generic property list code.
** Tests adding properties to generic classes.
[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-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +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-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
test_genprop_basic_class_prop(void)
{
hid_t cid1; /* Generic Property class ID */
size_t size; /* Size of property */
size_t nprops; /* Number of properties in class */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Basic Generic Property List Class Properties Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 0, "H5Pget_nprops");
[svn-r2955] Purpose: Code checkpoint Description: More generic property testing. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-17 05:00:28 +08:00
/* Check the existance of the first property (should fail) */
ret = H5Pexist(cid1,PROP1_NAME);
VERIFY(ret, 0, "H5Pexist");
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
CHECK_I(ret, "H5Pregister");
/* Try to insert the first property again (should fail) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
VERIFY(ret, FAIL, "H5Pregister");
[svn-r2955] Purpose: Code checkpoint Description: More generic property testing. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-17 05:00:28 +08:00
/* Check the existance of the first property */
ret = H5Pexist(cid1,PROP1_NAME);
VERIFY(ret, 1, "H5Pexist");
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
/* Check the size of the first property */
ret = H5Pget_size(cid1,PROP1_NAME,&size);
CHECK_I(ret, "H5Pget_size");
VERIFY(size, PROP1_SIZE, "H5Pget_size");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 1, "H5Pget_nprops");
/* Insert second property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
CHECK_I(ret, "H5Pregister");
/* Try to insert the second property again (should fail) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
VERIFY(ret, FAIL, "H5Pregister");
[svn-r2955] Purpose: Code checkpoint Description: More generic property testing. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-17 05:00:28 +08:00
/* Check the existance of the second property */
ret = H5Pexist(cid1,PROP2_NAME);
VERIFY(ret, 1, "H5Pexist");
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
/* Check the size of the second property */
ret = H5Pget_size(cid1,PROP2_NAME,&size);
CHECK_I(ret, "H5Pget_size");
VERIFY(size, PROP2_SIZE, "H5Pget_size");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 2, "H5Pget_nprops");
/* Insert third property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
CHECK_I(ret, "H5Pregister");
[svn-r2955] Purpose: Code checkpoint Description: More generic property testing. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-17 05:00:28 +08:00
/* Check the existance of the third property */
ret = H5Pexist(cid1,PROP3_NAME);
VERIFY(ret, 1, "H5Pexist");
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
/* Check the size of the third property */
ret = H5Pget_size(cid1,PROP3_NAME,&size);
CHECK_I(ret, "H5Pget_size");
VERIFY(size, PROP3_SIZE, "H5Pget_size");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 3, "H5Pget_nprops");
/* Unregister first property */
ret = H5Punregister(cid1,PROP1_NAME);
CHECK_I(ret, "H5Punregister");
/* Try to check the size of the first property (should fail) */
ret = H5Pget_size(cid1,PROP1_NAME,&size);
VERIFY(ret, FAIL, "H5Pget_size");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 2, "H5Pget_nprops");
/* Unregister second property */
ret = H5Punregister(cid1,PROP2_NAME);
CHECK_I(ret, "H5Punregister");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 1, "H5Pget_nprops");
/* Unregister third property */
ret = H5Punregister(cid1,PROP3_NAME);
CHECK_I(ret, "H5Punregister");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 0, "H5Pget_nprops");
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
} /* end test_genprop_basic_class_prop() */
[svn-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
/****************************************************************
**
** test_genprop_iter1(): Property iterator for test_genprop_class_iter
[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-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +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 int
[svn-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
test_genprop_iter1(hid_t id, const char *name, void *iter_data)
{
struct { /* Struct for iterations */
int iter_count;
const char **names;
} *iter_struct=iter_data;
/* Shut compiler up */
id=id;
return(HDstrcmp(name,iter_struct->names[iter_struct->iter_count++]));
}
/****************************************************************
**
** test_genprop_class_iter(): Test basic generic property list code.
** Tests iterating over properties in a generic class.
[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-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +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-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
test_genprop_class_iter(void)
{
hid_t cid1; /* Generic Property class ID */
size_t nprops; /* Number of properties in class */
int idx; /* Index to start iteration at */
struct { /* Struct for iterations */
int iter_count;
const char **names;
} iter_struct;
const char *pnames[4]={ /* Names of properties for iterator */
PROP1_NAME,
PROP2_NAME,
PROP3_NAME,
PROP4_NAME};
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Basic Generic Property List Class Property Iteration Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert second property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert third property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert third property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
CHECK_I(ret, "H5Pregister");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 4, "H5Pget_nprops");
/* Iterate over all properties in class */
iter_struct.iter_count=0;
iter_struct.names=pnames;
ret = H5Piterate(cid1,NULL,test_genprop_iter1,&iter_struct);
VERIFY(ret, 0, "H5Piterate");
/* Iterate over last three properties in class */
[svn-r2955] Purpose: Code checkpoint Description: More generic property testing. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-17 05:00:28 +08:00
idx=iter_struct.iter_count=1;
[svn-r2912] Purpose: Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 23:33:00 +08:00
ret = H5Piterate(cid1,&idx,test_genprop_iter1,&iter_struct);
VERIFY(ret, 0, "H5Piterate");
VERIFY(idx, (int)nprops, "H5Piterate");
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
} /* end test_genprop_class_iter() */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/****************************************************************
**
** test_genprop_cls_cb1(): Property List callback for test_genprop_class_callback
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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 herr_t
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
test_genprop_cls_cb1(hid_t list_id, void *create_data)
{
struct { /* Struct for iterations */
int count;
hid_t id;
} *count_struct=create_data;
count_struct->count++;
count_struct->id=list_id;
return(SUCCEED);
}
[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 herr_t
[svn-r4706] Purpose: Code cleanup Description: Tweaked internal error handling macros to reduce the size of the library's object code by about 10-20%. Also cleaned up some compiler warnings... Platforms tested: FreeBSD 4.4 (sleipnir)
2001-12-13 02:40:09 +08:00
test_genprop_cls_cb2(hid_t new_list_id, hid_t UNUSED old_list_id, void *create_data)
[svn-r4517] Purpose: Changed to the new generic property list for dataset creation property list. Platforms tested: Arabica, modi4 and Hawkwind
2001-10-04 01:57:56 +08:00
{
struct { /* Struct for iterations */
int count;
hid_t id;
} *count_struct=create_data;
count_struct->count++;
count_struct->id=new_list_id;
return(SUCCEED);
}
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/****************************************************************
**
** test_genprop_class_callback(): Test basic generic property list code.
** Tests callbacks for property lists in a generic class.
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
test_genprop_class_callback(void)
{
hid_t cid1; /* Generic Property class ID */
hid_t lid1; /* Generic Property list ID */
hid_t lid2; /* Generic Property list ID */
size_t nprops; /* Number of properties in class */
struct { /* Struct for callbacks */
int count;
hid_t id;
} crt_cb_struct, cls_cb_struct;
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Basic Generic Property List Class Callback Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,test_genprop_cls_cb1,&crt_cb_struct,NULL,NULL,test_genprop_cls_cb1,&cls_cb_struct);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert second property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert third property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert fourth property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 4, "H5Pget_nprops");
/* Initialize class callback structs */
crt_cb_struct.count=0;
crt_cb_struct.id=(-1);
cls_cb_struct.count=0;
cls_cb_struct.id=(-1);
/* Create a property list from the class */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
lid1 = H5Pcreate(cid1);
CHECK_I(lid1, "H5Pcreate");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Verify that the creation callback occurred */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
VERIFY(crt_cb_struct.count, 1, "H5Pcreate");
VERIFY(crt_cb_struct.id, lid1, "H5Pcreate");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Check the number of properties in list */
ret = H5Pget_nprops(lid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 4, "H5Pget_nprops");
/* Create another property list from the class */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
lid2 = H5Pcreate(cid1);
CHECK_I(lid2, "H5Pcreate");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Verify that the creation callback occurred */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
VERIFY(crt_cb_struct.count, 2, "H5Pcreate");
VERIFY(crt_cb_struct.id, lid2, "H5Pcreate");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Check the number of properties in list */
ret = H5Pget_nprops(lid2,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 4, "H5Pget_nprops");
/* Close first list */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
ret = H5Pclose(lid1);
CHECK_I(ret, "H5Pclose");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Verify that the close callback occurred */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
VERIFY(cls_cb_struct.count, 1, "H5Pclose");
VERIFY(cls_cb_struct.id, lid1, "H5Pclose");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Close second list */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
ret = H5Pclose(lid2);
CHECK_I(ret, "H5Pclose");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Verify that the close callback occurred */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
VERIFY(cls_cb_struct.count, 2, "H5Pclose");
VERIFY(cls_cb_struct.id, lid2, "H5Pclose");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
} /* end test_genprop_class_callback() */
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/****************************************************************
**
** test_genprop_basic_list(): Test basic generic property list code.
** Tests creating new generic property lists.
[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-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +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-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
test_genprop_basic_list(void)
{
hid_t cid1; /* Generic Property class ID */
hid_t cid2; /* Generic Property class ID */
hid_t lid1; /* Generic Property list ID */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
size_t nprops; /* Number of properties */
size_t size; /* Size of property */
int prop1_value; /* Value for property #1 */
float prop2_value; /* Value for property #2 */
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Basic Generic Property List Creation Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
CHECK_I(cid1, "H5Pcreate_class");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Add several properties (w/default values) */
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert second property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
CHECK_I(ret, "H5Pregister");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 2, "H5Pget_nprops");
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Create a property list from the class */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
lid1 = H5Pcreate(cid1);
CHECK_I(lid1, "H5Pcreate");
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Get the list's class */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
cid2 = H5Pget_class(lid1);
CHECK_I(cid2, "H5Pget_class");
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Check that the list's class is correct */
ret = H5Pequal(cid1,cid2);
VERIFY(ret, 1, "H5Pequal");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Check correct "is a" class/list relationship */
ret = H5Pisa_class(lid1,cid1);
VERIFY(ret, 1, "H5Pisa_class");
/* Check "is a" class/list relationship another way */
ret = H5Pisa_class(lid1,cid2);
VERIFY(ret, 1, "H5Pisa_class");
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Close class */
ret = H5Pclose_class(cid2);
CHECK_I(ret, "H5Pclose_class");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Check the number of properties in list */
ret = H5Pget_nprops(lid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 2, "H5Pget_nprops");
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Check existence of properties */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
ret = H5Pexist(lid1,PROP1_NAME);
VERIFY(ret, 1, "H5Pexist");
ret = H5Pexist(lid1,PROP2_NAME);
VERIFY(ret, 1, "H5Pexist");
/* Check the sizes of the properties */
ret = H5Pget_size(lid1,PROP1_NAME,&size);
CHECK_I(ret, "H5Pget_size");
VERIFY(size, PROP1_SIZE, "H5Pget_size");
ret = H5Pget_size(lid1,PROP2_NAME,&size);
CHECK_I(ret, "H5Pget_size");
VERIFY(size, PROP2_SIZE, "H5Pget_size");
/* Check values of properties (set with default values) */
ret = H5Pget(lid1,PROP1_NAME,&prop1_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop1_value, *PROP1_DEF_VALUE, "H5Pget");
ret = H5Pget(lid1,PROP2_NAME,&prop2_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop2_value, *PROP2_DEF_VALUE, "H5Pget");
/* Close list */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
ret = H5Pclose(lid1);
CHECK_I(ret, "H5Pclose");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
} /* end test_genprop_basic_list() */
/****************************************************************
**
** test_genprop_basic_list_prop(): Test basic generic property list code.
** Tests creating new generic property lists and adding and
** removing properties from them.
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
test_genprop_basic_list_prop(void)
{
hid_t cid1; /* Generic Property class ID */
hid_t lid1; /* Generic Property list ID */
size_t nprops; /* Number of properties */
int prop1_value; /* Value for property #1 */
float prop2_value; /* Value for property #2 */
char prop3_value[10];/* Property #3 value */
double prop4_value; /* Property #4 value */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Basic Generic Property List Property Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Add several properties (several w/default values) */
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert second property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Create a property list from the class */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
lid1 = H5Pcreate(cid1);
CHECK_I(lid1, "H5Pcreate");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Check the number of properties in list */
ret = H5Pget_nprops(lid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 2, "H5Pget_nprops");
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Add temporary properties */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Insert first temporary property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pinsert(lid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pinsert(lid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pinsert");
/* Insert second temporary property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pinsert(lid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pinsert(lid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pinsert");
/* Check the number of properties in list */
ret = H5Pget_nprops(lid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 4, "H5Pget_nprops");
/* Check existence of all properties */
ret = H5Pexist(lid1,PROP1_NAME);
VERIFY(ret, 1, "H5Pexist");
ret = H5Pexist(lid1,PROP2_NAME);
VERIFY(ret, 1, "H5Pexist");
ret = H5Pexist(lid1,PROP3_NAME);
VERIFY(ret, 1, "H5Pexist");
ret = H5Pexist(lid1,PROP4_NAME);
VERIFY(ret, 1, "H5Pexist");
/* Check values of permanent properties (set with default values) */
ret = H5Pget(lid1,PROP1_NAME,&prop1_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop1_value, *PROP1_DEF_VALUE, "H5Pget");
ret = H5Pget(lid1,PROP2_NAME,&prop2_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop2_value, *PROP2_DEF_VALUE, "H5Pget");
/* Check values of temporary properties (set with regular values) */
ret = H5Pget(lid1,PROP3_NAME,&prop3_value);
CHECK_I(ret, "H5Pget");
[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(HDmemcmp(&prop3_value,PROP3_DEF_VALUE,PROP3_SIZE)!=0)
TestErrPrintf("Property #3 doesn't match!, line=%d\n",__LINE__);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
ret = H5Pget(lid1,PROP4_NAME,&prop4_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop4_value, *PROP4_DEF_VALUE, "H5Pget");
/* Delete permanent property */
ret = H5Premove(lid1,PROP2_NAME);
CHECK_I(ret, "H5Premove");
/* Check number of properties */
ret = H5Pget_nprops(lid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 3, "H5Pget_nprops");
/* Delete temporary property */
ret = H5Premove(lid1,PROP3_NAME);
CHECK_I(ret, "H5Premove");
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Check number of properties */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
ret = H5Pget_nprops(lid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 2, "H5Pget_nprops");
/* Check existence of remaining properties */
ret = H5Pexist(lid1,PROP1_NAME);
VERIFY(ret, 1, "H5Pexist");
ret = H5Pexist(lid1,PROP4_NAME);
VERIFY(ret, 1, "H5Pexist");
/* Check values of permanent properties (set with default values) */
ret = H5Pget(lid1,PROP1_NAME,&prop1_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop1_value, *PROP1_DEF_VALUE, "H5Pget");
/* Check values of temporary properties (set with regular values) */
ret = H5Pget(lid1,PROP4_NAME,&prop4_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop4_value, *PROP4_DEF_VALUE, "H5Pget");
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Close list */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
ret = H5Pclose(lid1);
CHECK_I(ret, "H5Pclose");
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
} /* end test_genprop_basic_list_prop() */
/****************************************************************
**
** test_genprop_iter2(): Property iterator for test_genprop_list_iter
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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 int
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
test_genprop_iter2(hid_t id, const char *name, void *iter_data)
{
struct { /* Struct for iterations */
int iter_count;
const char **names;
} *iter_struct=iter_data;
/* Shut compiler up */
id=id;
return(HDstrcmp(name,iter_struct->names[iter_struct->iter_count++]));
}
/****************************************************************
**
** test_genprop_list_iter(): Test basic generic property list code.
** Tests iterating over generic property list properties.
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
test_genprop_list_iter(void)
{
hid_t cid1; /* Generic Property class ID */
hid_t lid1; /* Generic Property list ID */
size_t nprops; /* Number of properties */
int idx; /* Index to start iteration at */
struct { /* Struct for iterations */
int iter_count;
const char **names;
} iter_struct;
const char *pnames[4]={ /* Names of properties for iterator */
PROP3_NAME,
[svn-r6252] Purpose: Lots of performance improvements & a couple new internal API interfaces. Description: Performance Improvements: - Cached file offset & length sizes in shared file struct, to avoid constantly looking them up in the FCPL. - Generic property improvements: - Added "revision" number to generic property classes to speed up comparisons. - Changed method of storing properties from using a hash-table to the TBBT routines in the library. - Share the propery names between classes and the lists derived from them. - Removed redundant 'def_value' buffer from each property. - Switching code to use a "copy on write" strategy for properties in each list, where the properties in each list are shared with the properties in the class, until a property's value is changed in a list. - Fixed error in layout code which was allocating too many buffers. - Redefined public macros of the form (H5open()/H5check, <variable>) internally to only be (<variable>), avoiding innumerable useless calls to H5open() and H5check_version(). - Reuse already zeroed buffers in H5F_contig_fill instead of constantly re-zeroing them. - Don't write fill values if writing entire dataset. - Use gettimeofday() system call instead of time() system when checking the modification time of a dataset. - Added reference counted string API and use it for tracking the names of objects opening in a file (for the ID->name code). - Removed redundant H5P_get() calls in B-tree routines. - Redefine H5T datatype macros internally to the library, to avoid calling H5check redundantly. - Keep dataspace information for dataset locally instead of reading from disk each time. Added new module to track open objects in a file, to allow this (which will be useful eventually for some FPH5 metadata caching issues). - Remove H5AC_find macro which was inlining metadata cache lookups, and call function instead. - Remove redundant memset() calls from H5G_namei() routine. - Remove redundant checking of object type when locating objects in metadata cache and rely on the address only. - Create default dataset object to use when default dataset creation property list is used to create datasets, bypassing querying for all the property list values. - Use default I/O vector size when performing raw data with the default dataset transfer property list, instead of querying for I/O vector size. - Remove H5P_DEFAULT internally to the library, replacing it with more specific default property list based on the type of property list needed. - Remove redundant memset() calls in object header message (H5O*) routines. - Remove redunant memset() calls in data I/O routines. - Split free-list allocation routines into malloc() and calloc()- like routines, instead of one combined routine. - Remove lots of indirection in H5O*() routines. - Simplify metadata cache entry comparison routine (used when flushing entire cache out). - Only enable metadata cache statistics when H5AC_DEBUG is turned on, instead of always tracking them. - Simplify address comparison macro (H5F_addr_eq). - Remove redundant metadata cache entry protections during dataset creation by protecting the object header once and making all the modifications necessary for the dataset creation before unprotecting it. - Reduce # of "number of element in extent" computations performed by computing and storing the value during dataspace creation. - Simplify checking for group location's file information, when file has not been involving in file-mounting operations. - Use binary encoding for modification time, instead of ASCII. - Hoist H5HL_peek calls (to get information in a local heap) out of loops in many group routine. - Use static variable for iterators of selections, instead of dynamically allocation them each time. - Lookup & insert new entries in one step, avoiding traversing group's B-tree twice. - Fixed memory leak in H5Gget_objname_idx() routine (tangential to performance improvements, but fixed along the way). - Use free-list for reference counted strings. - Don't bother copying object names into cached group entries, since they are re-created when an object is opened. The benchmark I used to measure these results created several thousand small (2K) datasets in a file and wrote out the data for them. This is Elena's "regular.c" benchmark. These changes resulted in approximately ~4.3x speedup of the development branch when compared to the previous code in the development branch and ~1.4x speedup compared to the release branch. Additionally, these changes reduce the total memory used (code and data) by the development branch by ~800KB, bringing the development branch back into the same ballpark as the release branch. I'll send out a more detailed description of the benchmark results as a followup note. New internal API routines: Added "reference counted strings" API for tracking strings that get used by multiple owners without duplicating the strings. Added "ternary search tree" API for text->object mappings. Platforms tested: Tested h5committest {arabica (fortran), eirene (fortran, C++) modi4 (parallel, fortran)} Other platforms/configurations tested? FreeBSD 4.7 (sleipnir) serial & parallel Solaris 2.6 (baldric) serial
2003-01-10 01:20:03 +08:00
PROP4_NAME,
PROP1_NAME,
PROP2_NAME
};
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Generic Property List Iteration Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Add several properties (several w/default values) */
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert second property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Create a property list from the class */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
lid1 = H5Pcreate(cid1);
CHECK_I(lid1, "H5Pcreate");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Check the number of properties in list */
ret = H5Pget_nprops(lid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 2, "H5Pget_nprops");
/* Add temporary properties */
/* Insert first temporary property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pinsert(lid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pinsert(lid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pinsert");
/* Insert second temporary property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pinsert(lid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pinsert(lid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pinsert");
/* Check the number of properties in list */
ret = H5Pget_nprops(lid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 4, "H5Pget_nprops");
/* Iterate over all properties in list */
iter_struct.iter_count=0;
iter_struct.names=pnames;
ret = H5Piterate(lid1,NULL,test_genprop_iter2,&iter_struct);
VERIFY(ret, 0, "H5Piterate");
/* Iterate over last three properties in list */
idx=iter_struct.iter_count=1;
ret = H5Piterate(lid1,&idx,test_genprop_iter2,&iter_struct);
VERIFY(ret, 0, "H5Piterate");
VERIFY(idx, (int)nprops, "H5Piterate");
/* Close list */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
ret = H5Pclose(lid1);
CHECK_I(ret, "H5Pclose");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
} /* end test_genprop_list_iter() */
typedef struct {
/* Creation information */
int crt_count;
char *crt_name;
void *crt_value;
/* Set information */
int set_count;
hid_t set_plist_id;
char *set_name;
void *set_value;
/* Get information */
int get_count;
hid_t get_plist_id;
char *get_name;
void *get_value;
/* Delete information */
int del_count;
hid_t del_plist_id;
char *del_name;
void *del_value;
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
/* Copy information */
int cop_count;
char *cop_name;
void *cop_value;
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
/* Compare information */
int cmp_count;
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Close information */
int cls_count;
char *cls_name;
void *cls_value;
} prop_cb_info;
/* Global variables for Callback information */
prop_cb_info prop1_cb_info; /* Callback statistics for property #1 */
prop_cb_info prop2_cb_info; /* Callback statistics for property #2 */
/****************************************************************
**
** test_genprop_prop_crt_cb1(): Property creation callback for test_genprop_list_callback
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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 herr_t
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
test_genprop_prop_crt_cb1(const char *name, size_t size, void *def_value)
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
{
/* Set the information from the creation call */
prop1_cb_info.crt_count++;
prop1_cb_info.crt_name=HDstrdup(name);
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
prop1_cb_info.crt_value=HDmalloc(size);
HDmemcpy(prop1_cb_info.crt_value,def_value,size);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
return(SUCCEED);
}
/****************************************************************
**
** test_genprop_prop_set_cb1(): Property set callback for test_genprop_list_callback
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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 herr_t
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
test_genprop_prop_set_cb1(hid_t plist_id, const char *name, size_t size, void *value)
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
{
/* Set the information from the set call */
prop1_cb_info.set_count++;
prop1_cb_info.set_plist_id=plist_id;
if(prop1_cb_info.set_name==NULL)
prop1_cb_info.set_name=HDstrdup(name);
if(prop1_cb_info.set_value==NULL)
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
prop1_cb_info.set_value=HDmalloc(size);
HDmemcpy(prop1_cb_info.set_value,value,size);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
return(SUCCEED);
}
/****************************************************************
**
** test_genprop_prop_get_cb1(): Property get callback for test_genprop_list_callback
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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 herr_t
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
test_genprop_prop_get_cb1(hid_t plist_id, const char *name, size_t size, void *value)
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
{
/* Set the information from the get call */
prop1_cb_info.get_count++;
prop1_cb_info.get_plist_id=plist_id;
if(prop1_cb_info.get_name==NULL)
prop1_cb_info.get_name=HDstrdup(name);
if(prop1_cb_info.get_value==NULL)
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
prop1_cb_info.get_value=HDmalloc(size);
HDmemcpy(prop1_cb_info.get_value,value,size);
return(SUCCEED);
}
/****************************************************************
**
** test_genprop_prop_cop_cb1(): Property copy callback for test_genprop_list_callback
[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-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +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 herr_t
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
test_genprop_prop_cop_cb1(const char *name, size_t size, void *value)
{
/* Set the information from the get call */
prop1_cb_info.cop_count++;
if(prop1_cb_info.cop_name==NULL)
prop1_cb_info.cop_name=HDstrdup(name);
if(prop1_cb_info.cop_value==NULL)
prop1_cb_info.cop_value=HDmalloc(size);
HDmemcpy(prop1_cb_info.cop_value,value,size);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
return(SUCCEED);
}
[svn-r8047] Purpose: Bug fix Description: Add some more #ifdefs to fix 1.6 compatibility failures Platforms tested: FreeBSD 4.9 (sleipnir) w/1.6 compatibility Too minor to require h5committest
2004-01-10 03:17:40 +08:00
#ifndef H5_WANT_H5_V1_6_COMPAT
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
/****************************************************************
**
** test_genprop_prop_cmp_cb1(): Property comparison callback for test_genprop_list_callback
[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-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +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 int
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
test_genprop_prop_cmp_cb1(const void UNUSED *value1, const void UNUSED *value2, size_t UNUSED size)
{
/* Set the information from the comparison call */
prop1_cb_info.cmp_count++;
return(0);
}
[svn-r8047] Purpose: Bug fix Description: Add some more #ifdefs to fix 1.6 compatibility failures Platforms tested: FreeBSD 4.9 (sleipnir) w/1.6 compatibility Too minor to require h5committest
2004-01-10 03:17:40 +08:00
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/****************************************************************
**
** test_genprop_prop_cls_cb1(): Property close callback for test_genprop_list_callback
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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 herr_t
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
test_genprop_prop_cls_cb1(const char *name, size_t size, void *value)
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
{
/* Set the information from the close call */
prop1_cb_info.cls_count++;
[svn-r4527] Purpose: Code cleanup Description: Purify detected some resource leaks in the tests. Solution: Released memory and property lists properly. Platforms tested: Solaris 2.7 (arabica)
2001-10-06 06:29:20 +08:00
if(prop1_cb_info.cls_name==NULL)
prop1_cb_info.cls_name=HDstrdup(name);
if(prop1_cb_info.cls_value==NULL)
prop1_cb_info.cls_value=HDmalloc(size);
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
HDmemcpy(prop1_cb_info.cls_value,value,size);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
return(SUCCEED);
}
/****************************************************************
**
** test_genprop_prop_del_cb2(): Property delete callback for test_genprop_list_callback
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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 herr_t
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
test_genprop_prop_del_cb2(hid_t plist_id, const char *name, size_t size, void *value)
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
{
/* Set the information from the delete call */
prop2_cb_info.del_count++;
prop2_cb_info.del_plist_id=plist_id;
prop2_cb_info.del_name=HDstrdup(name);
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
prop2_cb_info.del_value=HDmalloc(size);
HDmemcpy(prop2_cb_info.del_value,value,size);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
return(SUCCEED);
}
/****************************************************************
**
** test_genprop_list_callback(): Test basic generic property list code.
** Tests callbacks for properties in a generic property list.
[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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +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-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
test_genprop_list_callback(void)
{
hid_t cid1; /* Generic Property class ID */
hid_t lid1; /* Generic Property list ID */
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
hid_t lid2; /* 2nd Generic Property list ID */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
size_t nprops; /* Number of properties in class */
int prop1_value; /* Value for property #1 */
int prop1_new_value=20; /* Property #1 new value */
float prop2_value; /* Value for property #2 */
char prop3_value[10];/* Property #3 value */
double prop4_value; /* Property #4 value */
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
struct { /* Struct for callbacks */
int count;
hid_t id;
} cop_cb_struct;
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Basic Generic Property List Property Callback Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,test_genprop_cls_cb2,&cop_cb_struct,NULL,NULL);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Insert first property into class (with callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,test_genprop_prop_crt_cb1,test_genprop_prop_set_cb1,test_genprop_prop_get_cb1,NULL,test_genprop_prop_cop_cb1,test_genprop_prop_cls_cb1);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,test_genprop_prop_crt_cb1,test_genprop_prop_set_cb1,test_genprop_prop_get_cb1,NULL,test_genprop_prop_cop_cb1,test_genprop_prop_cmp_cb1,test_genprop_prop_cls_cb1);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert second property into class (with only delete callback) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,test_genprop_prop_del_cb2,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,test_genprop_prop_del_cb2,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert third property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert fourth property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
ret = H5Pregister(cid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
CHECK_I(ret, "H5Pregister");
/* Check the number of properties in class */
ret = H5Pget_nprops(cid1,&nprops);
CHECK_I(ret, "H5Pget_nprops");
VERIFY(nprops, 4, "H5Pget_nprops");
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
/* Initialize class callback structs */
cop_cb_struct.count=0;
cop_cb_struct.id=(-1);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Initialize callback information for properties tracked */
HDmemset(&prop1_cb_info,0,sizeof(prop_cb_info));
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
HDmemset(&prop2_cb_info,0,sizeof(prop_cb_info));
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Create a property list from the class */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
lid1 = H5Pcreate(cid1);
CHECK_I(lid1, "H5Pcreate");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Verify creation callback information for properties tracked */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
VERIFY(prop1_cb_info.crt_count, 1, "H5Pcreate");
[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(HDstrcmp(prop1_cb_info.crt_name,PROP1_NAME)!=0)
TestErrPrintf("Property #1 name doesn't match!, line=%d\n",__LINE__);
if(HDmemcmp(prop1_cb_info.crt_value,PROP1_DEF_VALUE,PROP1_SIZE)!=0)
TestErrPrintf("Property #1 value doesn't match!, line=%d\n",__LINE__);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Check values of permanent properties (set with default values) */
ret = H5Pget(lid1,PROP1_NAME,&prop1_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop1_value, *PROP1_DEF_VALUE, "H5Pget");
ret = H5Pget(lid1,PROP2_NAME,&prop2_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop2_value, *PROP2_DEF_VALUE, "H5Pget");
/* Check values of temporary properties (set with regular values) */
ret = H5Pget(lid1,PROP3_NAME,&prop3_value);
CHECK_I(ret, "H5Pget");
[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(HDmemcmp(&prop3_value,PROP3_DEF_VALUE,PROP3_SIZE)!=0)
TestErrPrintf("Property #3 doesn't match!, line=%d\n",__LINE__);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
ret = H5Pget(lid1,PROP4_NAME,&prop4_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop4_value, *PROP4_DEF_VALUE, "H5Pget");
/* Verify get callback information for properties tracked */
VERIFY(prop1_cb_info.get_count, 1, "H5Pget");
VERIFY(prop1_cb_info.get_plist_id, lid1, "H5Pget");
[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(HDstrcmp(prop1_cb_info.get_name,PROP1_NAME)!=0)
TestErrPrintf("Property #1 name doesn't match!, line=%d\n",__LINE__);
if(HDmemcmp(prop1_cb_info.get_value,PROP1_DEF_VALUE,PROP1_SIZE)!=0)
TestErrPrintf("Property #1 value doesn't match!, line=%d\n",__LINE__);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Set value of property #1 to different value */
ret = H5Pset(lid1,PROP1_NAME,&prop1_new_value);
CHECK_I(ret, "H5Pset");
/* Verify set callback information for properties tracked */
VERIFY(prop1_cb_info.set_count, 1, "H5Pset");
VERIFY(prop1_cb_info.set_plist_id, lid1, "H5Pset");
[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(HDstrcmp(prop1_cb_info.set_name,PROP1_NAME)!=0)
TestErrPrintf("Property #1 name doesn't match!, line=%d\n",__LINE__);
if(HDmemcmp(prop1_cb_info.set_value,&prop1_new_value,PROP1_SIZE)!=0)
TestErrPrintf("Property #1 value doesn't match!, line=%d\n",__LINE__);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Check new value of tracked properties */
ret = H5Pget(lid1,PROP1_NAME,&prop1_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop1_value, prop1_new_value, "H5Pget");
/* Verify get callback information again for properties tracked */
VERIFY(prop1_cb_info.get_count, 2, "H5Pget");
VERIFY(prop1_cb_info.get_plist_id, lid1, "H5Pget");
[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(HDstrcmp(prop1_cb_info.get_name,PROP1_NAME)!=0)
TestErrPrintf("Property #1 name doesn't match!, line=%d\n",__LINE__);
if(HDmemcmp(prop1_cb_info.get_value,&prop1_new_value,PROP1_SIZE)!=0)
TestErrPrintf("Property #1 value doesn't match!, line=%d\n",__LINE__);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Delete property #2 */
ret = H5Premove(lid1,PROP2_NAME);
CHECK_I(ret, "H5Premove");
/* Verify delete callback information for properties tracked */
VERIFY(prop2_cb_info.del_count, 1, "H5Premove");
VERIFY(prop2_cb_info.del_plist_id, lid1, "H5Premove");
[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(HDstrcmp(prop2_cb_info.del_name,PROP2_NAME)!=0)
TestErrPrintf("Property #2 name doesn't match!, line=%d\n",__LINE__);
if(HDmemcmp(prop2_cb_info.del_value,PROP2_DEF_VALUE,PROP2_SIZE)!=0)
TestErrPrintf("Property #2 value doesn't match!, line=%d\n",__LINE__);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
/* Copy first list */
lid2 = H5Pcopy(lid1);
CHECK_I(lid2, "H5Pcopy");
/* Verify copy callback information for properties tracked */
VERIFY(prop1_cb_info.cop_count, 1, "H5Pcopy");
[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(HDstrcmp(prop1_cb_info.cop_name,PROP1_NAME)!=0)
TestErrPrintf("Property #1 name doesn't match!, line=%d\n",__LINE__);
if(HDmemcmp(prop1_cb_info.cop_value,&prop1_new_value,PROP1_SIZE)!=0)
TestErrPrintf("Property #1 value doesn't match!, line=%d\n",__LINE__);
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
/* Verify that the class creation callback occurred */
VERIFY(cop_cb_struct.count, 1, "H5Pcopy");
VERIFY(cop_cb_struct.id, lid2, "H5Pcopy");
[svn-r8047] Purpose: Bug fix Description: Add some more #ifdefs to fix 1.6 compatibility failures Platforms tested: FreeBSD 4.9 (sleipnir) w/1.6 compatibility Too minor to require h5committest
2004-01-10 03:17:40 +08:00
#ifndef H5_WANT_H5_V1_6_COMPAT
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
/* Compare the two lists */
ret = H5Pequal(lid1,lid2);
VERIFY(ret, 1, "H5Pequal");
/* Verify compare callback information for properties tracked */
VERIFY(prop1_cb_info.cmp_count, 1, "H5Pequal");
[svn-r8047] Purpose: Bug fix Description: Add some more #ifdefs to fix 1.6 compatibility failures Platforms tested: FreeBSD 4.9 (sleipnir) w/1.6 compatibility Too minor to require h5committest
2004-01-10 03:17:40 +08:00
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Close first list */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
ret = H5Pclose(lid1);
CHECK_I(ret, "H5Pclose");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Verify close callback information for properties tracked */
VERIFY(prop1_cb_info.cls_count, 1, "H5Pclose");
[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(HDstrcmp(prop1_cb_info.cls_name,PROP1_NAME)!=0)
TestErrPrintf("Property #1 name doesn't match!, line=%d\n",__LINE__);
if(HDmemcmp(prop1_cb_info.cls_value,&prop1_new_value,PROP1_SIZE)!=0)
TestErrPrintf("Property #1 value doesn't match!, line=%d\n",__LINE__);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
[svn-r4527] Purpose: Code cleanup Description: Purify detected some resource leaks in the tests. Solution: Released memory and property lists properly. Platforms tested: Solaris 2.7 (arabica)
2001-10-06 06:29:20 +08:00
/* Close second list */
[svn-r4585] Purpose: Switch from old property list to new generic property list. Description: Switch API function for the new generic property list. Platforms tested: IRIX64 6.5, FreeBSD, SunOS 5.7.
2001-11-03 03:47:41 +08:00
ret = H5Pclose(lid2);
CHECK_I(ret, "H5Pclose");
[svn-r4527] Purpose: Code cleanup Description: Purify detected some resource leaks in the tests. Solution: Released memory and property lists properly. Platforms tested: Solaris 2.7 (arabica)
2001-10-06 06:29:20 +08:00
/* Verify close callback information for properties tracked */
VERIFY(prop1_cb_info.cls_count, 2, "H5Pclose");
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
/* Free memory allocated for tracking properties */
HDfree(prop1_cb_info.crt_name);
HDfree(prop1_cb_info.crt_value);
HDfree(prop1_cb_info.get_name);
HDfree(prop1_cb_info.get_value);
HDfree(prop1_cb_info.set_name);
HDfree(prop1_cb_info.set_value);
[svn-r4324] Purpose: New Features! Description: Start migrating the internal use of property lists in the library from the older implementation to the new generic property lists. Currently, only the dataset transfer property lists are migrated to the new architecture, all the rest of the property list types are still using the older architecture. Also, the backward compatibility features are not implemented yet, so applications which use dataset transfer properties may need to make the following changes: H5Pcreate(H5P_DATASET_XFER) -> H5Pcreate_list(H5P_DATASET_XFER_NEW) and H5Pclose(<a dataset transfer property list>) -> H5Pclose_list(id) This still may have some bugs in it, especially with Fortran, but I should be wrapping up those later today. Platforms tested: FreeBSD 4.4 (hawkwind)
2001-08-11 04:47:05 +08:00
HDfree(prop1_cb_info.cop_name);
HDfree(prop1_cb_info.cop_value);
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
HDfree(prop1_cb_info.cls_name);
HDfree(prop1_cb_info.cls_value);
HDfree(prop2_cb_info.del_name);
HDfree(prop2_cb_info.del_value);
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
} /* end test_genprop_list_callback() */
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
[svn-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
/****************************************************************
**
** test_genprop_list_addprop(): Test adding properties to a
** standard HDF5 property list and verify that the library
** ignores the extra properties.
[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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
test_genprop_list_addprop(void)
{
hid_t fid; /* File ID */
hid_t did; /* Dataset ID */
hid_t sid; /* Dataspace ID */
hid_t pid; /* Property List ID */
int prop1_value; /* Value for property #1 */
herr_t ret; /* Generic return value */
/* Create file */
fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
CHECK(fid, FAIL, "H5Fcreate");
/* Create scalar dataspace for dataset */
sid = H5Screate(H5S_SCALAR);
CHECK(sid, FAIL, "H5Screate");
/* Create a dataset creation property list */
pid = H5Pcreate(H5P_DATASET_CREATE);
CHECK(pid, FAIL, "H5Pcreate");
[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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
/* Insert temporary property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
ret = H5Pinsert(pid,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pinsert(pid,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
CHECK_I(ret, "H5Pinsert");
/* Check existence of added property */
ret = H5Pexist(pid,PROP1_NAME);
VERIFY(ret, 1, "H5Pexist");
/* Check values of property (set with default value) */
ret = H5Pget(pid,PROP1_NAME,&prop1_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop1_value, *PROP1_DEF_VALUE, "H5Pget");
/* Create a dataset */
did=H5Dcreate(fid,"Dataset1",H5T_NATIVE_INT,sid,pid);
CHECK(did, FAIL, "H5Dcreate");
/* Check existence of added property (after using property list) */
ret = H5Pexist(pid,PROP1_NAME);
VERIFY(ret, 1, "H5Pexist");
/* Check values of property (set with default value) (after using property list) */
ret = H5Pget(pid,PROP1_NAME,&prop1_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop1_value, *PROP1_DEF_VALUE, "H5Pget");
/* Close property list */
ret = H5Pclose(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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
/* Close disk dataspace */
ret = H5Sclose(sid);
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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
/* Close Dataset */
ret = H5Dclose(did);
CHECK(ret, FAIL, "H5Dclose");
/* Close file */
ret = H5Fclose(fid);
CHECK(ret, FAIL, "H5Fclose");
} /* end test_genprop_list_addprop() */
/****************************************************************
**
** test_genprop_class_addprop(): Test adding properties to a
** standard HDF5 property class and verify that the library
** ignores the extra properties and continues to recognize the
** derived class as a valid version of the derived-from class.
[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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
test_genprop_class_addprop(void)
{
hid_t fid; /* File ID */
hid_t did; /* Dataset ID */
hid_t sid; /* Dataspace ID */
hid_t cid; /* Property Class ID */
hid_t pid; /* Property List ID */
int prop1_value; /* Value for property #1 */
herr_t ret; /* Generic return value */
/* Create file */
fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
CHECK(fid, FAIL, "H5Fcreate");
/* Create scalar dataspace for dataset */
sid = H5Screate(H5S_SCALAR);
CHECK(sid, FAIL, "H5Screate");
/* Create a new class, dervied from the dataset creation property list class */
[svn-r6252] Purpose: Lots of performance improvements & a couple new internal API interfaces. Description: Performance Improvements: - Cached file offset & length sizes in shared file struct, to avoid constantly looking them up in the FCPL. - Generic property improvements: - Added "revision" number to generic property classes to speed up comparisons. - Changed method of storing properties from using a hash-table to the TBBT routines in the library. - Share the propery names between classes and the lists derived from them. - Removed redundant 'def_value' buffer from each property. - Switching code to use a "copy on write" strategy for properties in each list, where the properties in each list are shared with the properties in the class, until a property's value is changed in a list. - Fixed error in layout code which was allocating too many buffers. - Redefined public macros of the form (H5open()/H5check, <variable>) internally to only be (<variable>), avoiding innumerable useless calls to H5open() and H5check_version(). - Reuse already zeroed buffers in H5F_contig_fill instead of constantly re-zeroing them. - Don't write fill values if writing entire dataset. - Use gettimeofday() system call instead of time() system when checking the modification time of a dataset. - Added reference counted string API and use it for tracking the names of objects opening in a file (for the ID->name code). - Removed redundant H5P_get() calls in B-tree routines. - Redefine H5T datatype macros internally to the library, to avoid calling H5check redundantly. - Keep dataspace information for dataset locally instead of reading from disk each time. Added new module to track open objects in a file, to allow this (which will be useful eventually for some FPH5 metadata caching issues). - Remove H5AC_find macro which was inlining metadata cache lookups, and call function instead. - Remove redundant memset() calls from H5G_namei() routine. - Remove redundant checking of object type when locating objects in metadata cache and rely on the address only. - Create default dataset object to use when default dataset creation property list is used to create datasets, bypassing querying for all the property list values. - Use default I/O vector size when performing raw data with the default dataset transfer property list, instead of querying for I/O vector size. - Remove H5P_DEFAULT internally to the library, replacing it with more specific default property list based on the type of property list needed. - Remove redundant memset() calls in object header message (H5O*) routines. - Remove redunant memset() calls in data I/O routines. - Split free-list allocation routines into malloc() and calloc()- like routines, instead of one combined routine. - Remove lots of indirection in H5O*() routines. - Simplify metadata cache entry comparison routine (used when flushing entire cache out). - Only enable metadata cache statistics when H5AC_DEBUG is turned on, instead of always tracking them. - Simplify address comparison macro (H5F_addr_eq). - Remove redundant metadata cache entry protections during dataset creation by protecting the object header once and making all the modifications necessary for the dataset creation before unprotecting it. - Reduce # of "number of element in extent" computations performed by computing and storing the value during dataspace creation. - Simplify checking for group location's file information, when file has not been involving in file-mounting operations. - Use binary encoding for modification time, instead of ASCII. - Hoist H5HL_peek calls (to get information in a local heap) out of loops in many group routine. - Use static variable for iterators of selections, instead of dynamically allocation them each time. - Lookup & insert new entries in one step, avoiding traversing group's B-tree twice. - Fixed memory leak in H5Gget_objname_idx() routine (tangential to performance improvements, but fixed along the way). - Use free-list for reference counted strings. - Don't bother copying object names into cached group entries, since they are re-created when an object is opened. The benchmark I used to measure these results created several thousand small (2K) datasets in a file and wrote out the data for them. This is Elena's "regular.c" benchmark. These changes resulted in approximately ~4.3x speedup of the development branch when compared to the previous code in the development branch and ~1.4x speedup compared to the release branch. Additionally, these changes reduce the total memory used (code and data) by the development branch by ~800KB, bringing the development branch back into the same ballpark as the release branch. I'll send out a more detailed description of the benchmark results as a followup note. New internal API routines: Added "reference counted strings" API for tracking strings that get used by multiple owners without duplicating the strings. Added "ternary search tree" API for text->object mappings. Platforms tested: Tested h5committest {arabica (fortran), eirene (fortran, C++) modi4 (parallel, fortran)} Other platforms/configurations tested? FreeBSD 4.7 (sleipnir) serial & parallel Solaris 2.6 (baldric) serial
2003-01-10 01:20:03 +08:00
cid = H5Pcreate_class(H5P_DATASET_CREATE,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
CHECK_I(cid, "H5Pcreate_class");
/* Check existence of an original property */
ret = H5Pexist(cid,H5D_CRT_DATA_PIPELINE_NAME);
[svn-r4920] Purpose: Bug fix Description: Correct inefficient property copying when using derived property list classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-08 03:55:43 +08:00
VERIFY(ret, 0, "H5Pexist");
[svn-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
ret = H5Pregister(cid,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
CHECK_I(ret, "H5Pregister");
/* Create a derived dataset creation property list */
pid = H5Pcreate(cid);
CHECK(pid, FAIL, "H5Pcreate");
[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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
/* Check existence of an original property */
ret = H5Pexist(pid,H5D_CRT_DATA_PIPELINE_NAME);
VERIFY(ret, 1, "H5Pexist");
/* Check existence of added property */
ret = H5Pexist(pid,PROP1_NAME);
VERIFY(ret, 1, "H5Pexist");
/* Check values of property (set with default value) */
ret = H5Pget(pid,PROP1_NAME,&prop1_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop1_value, *PROP1_DEF_VALUE, "H5Pget");
/* Create a dataset */
did=H5Dcreate(fid,"Dataset1",H5T_NATIVE_INT,sid,pid);
CHECK(did, FAIL, "H5Dcreate");
/* Check existence of added property (after using property list) */
ret = H5Pexist(pid,PROP1_NAME);
VERIFY(ret, 1, "H5Pexist");
/* Check values of property (set with default value) (after using property list) */
ret = H5Pget(pid,PROP1_NAME,&prop1_value);
CHECK_I(ret, "H5Pget");
VERIFY(prop1_value, *PROP1_DEF_VALUE, "H5Pget");
/* Close property class */
ret = H5Pclose_class(cid);
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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
/* Close property list */
ret = H5Pclose(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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
/* Close disk dataspace */
ret = H5Sclose(sid);
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-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
/* Close Dataset */
ret = H5Dclose(did);
CHECK(ret, FAIL, "H5Dclose");
/* Close file */
ret = H5Fclose(fid);
CHECK(ret, FAIL, "H5Fclose");
} /* end test_genprop_class_addprop() */
[svn-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
/****************************************************************
**
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
** test_genprop_equal(): Test basic generic property list code.
[svn-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
** More tests for H5Pequal()
[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-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +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-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
test_genprop_equal(void)
{
hid_t cid1; /* Generic Property class ID */
hid_t lid1; /* Generic Property list ID */
hid_t lid2; /* Generic Property list ID */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Basic Generic Property List Equal Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
CHECK_I(ret, "H5Pregister");
/* Insert second property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
CHECK_I(ret, "H5Pregister");
/* Create a property list from the class */
lid1 = H5Pcreate(cid1);
CHECK_I(lid1, "H5Pcreate");
/* Copy the property list */
lid2 = H5Pcopy(lid1);
CHECK_I(lid2, "H5Pcopy");
/* Check that the lists are equal */
ret = H5Pequal(lid1,lid2);
VERIFY(ret, 1, "H5Pequal");
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
} /* ent test_genprop_equal() */
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
/****************************************************************
**
** test_genprop_path(): Test basic generic property list code.
** Tests for class paths
[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-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +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-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
test_genprop_path(void)
{
hid_t cid1; /* Generic Property class ID */
hid_t cid2; /* Generic Property class ID */
[svn-r5964] Purpose: Internal feature. Description: To complement the "get the class's path" functionality, there needs to be a way to open a generic property class with a path. Solution: Implement the "open a class by path" functionality. Also, add internal testing routines. Platforms tested: FreeBSD 4.6 (sleipnir) (too small for triple testing)
2002-10-09 01:16:07 +08:00
hid_t cid3; /* Generic Property class ID */
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
char *path; /* Class path */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Generic Property List Class Path Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
CHECK_I(ret, "H5Pregister");
/* Get full path for first class */
[svn-r5964] Purpose: Internal feature. Description: To complement the "get the class's path" functionality, there needs to be a way to open a generic property class with a path. Solution: Implement the "open a class by path" functionality. Also, add internal testing routines. Platforms tested: FreeBSD 4.6 (sleipnir) (too small for triple testing)
2002-10-09 01:16:07 +08:00
path=H5P_get_class_path_test(cid1);
CHECK_PTR(path, "H5P_get_class_path_test");
[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(HDstrcmp(path,CLASS1_PATH)!=0)
TestErrPrintf("Class names don't match!, path=%s, CLASS1_PATH=%s\n",path,CLASS1_PATH);
HDfree(path);
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
/* Create another new generic class, derived from first class */
[svn-r6252] Purpose: Lots of performance improvements & a couple new internal API interfaces. Description: Performance Improvements: - Cached file offset & length sizes in shared file struct, to avoid constantly looking them up in the FCPL. - Generic property improvements: - Added "revision" number to generic property classes to speed up comparisons. - Changed method of storing properties from using a hash-table to the TBBT routines in the library. - Share the propery names between classes and the lists derived from them. - Removed redundant 'def_value' buffer from each property. - Switching code to use a "copy on write" strategy for properties in each list, where the properties in each list are shared with the properties in the class, until a property's value is changed in a list. - Fixed error in layout code which was allocating too many buffers. - Redefined public macros of the form (H5open()/H5check, <variable>) internally to only be (<variable>), avoiding innumerable useless calls to H5open() and H5check_version(). - Reuse already zeroed buffers in H5F_contig_fill instead of constantly re-zeroing them. - Don't write fill values if writing entire dataset. - Use gettimeofday() system call instead of time() system when checking the modification time of a dataset. - Added reference counted string API and use it for tracking the names of objects opening in a file (for the ID->name code). - Removed redundant H5P_get() calls in B-tree routines. - Redefine H5T datatype macros internally to the library, to avoid calling H5check redundantly. - Keep dataspace information for dataset locally instead of reading from disk each time. Added new module to track open objects in a file, to allow this (which will be useful eventually for some FPH5 metadata caching issues). - Remove H5AC_find macro which was inlining metadata cache lookups, and call function instead. - Remove redundant memset() calls from H5G_namei() routine. - Remove redundant checking of object type when locating objects in metadata cache and rely on the address only. - Create default dataset object to use when default dataset creation property list is used to create datasets, bypassing querying for all the property list values. - Use default I/O vector size when performing raw data with the default dataset transfer property list, instead of querying for I/O vector size. - Remove H5P_DEFAULT internally to the library, replacing it with more specific default property list based on the type of property list needed. - Remove redundant memset() calls in object header message (H5O*) routines. - Remove redunant memset() calls in data I/O routines. - Split free-list allocation routines into malloc() and calloc()- like routines, instead of one combined routine. - Remove lots of indirection in H5O*() routines. - Simplify metadata cache entry comparison routine (used when flushing entire cache out). - Only enable metadata cache statistics when H5AC_DEBUG is turned on, instead of always tracking them. - Simplify address comparison macro (H5F_addr_eq). - Remove redundant metadata cache entry protections during dataset creation by protecting the object header once and making all the modifications necessary for the dataset creation before unprotecting it. - Reduce # of "number of element in extent" computations performed by computing and storing the value during dataspace creation. - Simplify checking for group location's file information, when file has not been involving in file-mounting operations. - Use binary encoding for modification time, instead of ASCII. - Hoist H5HL_peek calls (to get information in a local heap) out of loops in many group routine. - Use static variable for iterators of selections, instead of dynamically allocation them each time. - Lookup & insert new entries in one step, avoiding traversing group's B-tree twice. - Fixed memory leak in H5Gget_objname_idx() routine (tangential to performance improvements, but fixed along the way). - Use free-list for reference counted strings. - Don't bother copying object names into cached group entries, since they are re-created when an object is opened. The benchmark I used to measure these results created several thousand small (2K) datasets in a file and wrote out the data for them. This is Elena's "regular.c" benchmark. These changes resulted in approximately ~4.3x speedup of the development branch when compared to the previous code in the development branch and ~1.4x speedup compared to the release branch. Additionally, these changes reduce the total memory used (code and data) by the development branch by ~800KB, bringing the development branch back into the same ballpark as the release branch. I'll send out a more detailed description of the benchmark results as a followup note. New internal API routines: Added "reference counted strings" API for tracking strings that get used by multiple owners without duplicating the strings. Added "ternary search tree" API for text->object mappings. Platforms tested: Tested h5committest {arabica (fortran), eirene (fortran, C++) modi4 (parallel, fortran)} Other platforms/configurations tested? FreeBSD 4.7 (sleipnir) serial & parallel Solaris 2.6 (baldric) serial
2003-01-10 01:20:03 +08:00
cid2 = H5Pcreate_class(cid1,CLASS2_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
CHECK_I(cid2, "H5Pcreate_class");
/* Insert second property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
ret = H5Pregister(cid2,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid2,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
CHECK_I(ret, "H5Pregister");
/* Get full path for second class */
[svn-r5964] Purpose: Internal feature. Description: To complement the "get the class's path" functionality, there needs to be a way to open a generic property class with a path. Solution: Implement the "open a class by path" functionality. Also, add internal testing routines. Platforms tested: FreeBSD 4.6 (sleipnir) (too small for triple testing)
2002-10-09 01:16:07 +08:00
path=H5P_get_class_path_test(cid2);
CHECK_PTR(path, "H5P_get_class_path_test");
[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(HDstrcmp(path,CLASS2_PATH)!=0)
TestErrPrintf("Class names don't match!, path=%s, CLASS2_PATH=%s\n",path,CLASS2_PATH);
[svn-r5964] Purpose: Internal feature. Description: To complement the "get the class's path" functionality, there needs to be a way to open a generic property class with a path. Solution: Implement the "open a class by path" functionality. Also, add internal testing routines. Platforms tested: FreeBSD 4.6 (sleipnir) (too small for triple testing)
2002-10-09 01:16:07 +08:00
/* Open a copy of the class with the path name */
cid3 = H5P_open_class_path_test(path);
CHECK_I(cid3, "H5Popen_class_path");
/* Check that the classes are equal */
ret = H5Pequal(cid2,cid3);
VERIFY(ret, 1, "H5Pequal");
/* Release the path string */
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
free(path);
[svn-r5964] Purpose: Internal feature. Description: To complement the "get the class's path" functionality, there needs to be a way to open a generic property class with a path. Solution: Implement the "open a class by path" functionality. Also, add internal testing routines. Platforms tested: FreeBSD 4.6 (sleipnir) (too small for triple testing)
2002-10-09 01:16:07 +08:00
/* Close class */
ret = H5Pclose_class(cid3);
CHECK_I(ret, "H5Pclose_class");
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
/* Close class */
ret = H5Pclose_class(cid2);
CHECK_I(ret, "H5Pclose_class");
} /* ent test_genprop_path() */
[svn-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +08:00
/****************************************************************
**
** test_genprop_refcount(): Test basic generic property list code.
** Tests for correct reference counting
[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-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +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-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +08:00
test_genprop_refcount(void)
{
hid_t cid1; /* Generic Property class ID */
hid_t lid1; /* Generic Property class ID */
char *name; /* Name of class */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Generic Property List Reference Count Functionality\n"));
/* Create a new generic class, derived from the root of the class hierarchy */
[svn-r12842] Description: Refactor generic property list initialization code to put property list specific routines in property list modules, instead of scattered to the four winds. Also, introduce property list class initialization objects, to make adding new property list classes in the library easier. Fix daily test failure by using H5Pget_elink_prefix() API routine instead of looking at the "raw" generic property list information. Tested on: Mac OS X/32 10.4.8 (amazon) FreeBSD/32 4.11 (sleipnir) w/threadsafe Linux/32 2.4 (heping) w/C++ & FORTRAN Linux/64 2.4 (mir) w/build-all & 1.6 compat
2006-11-02 12:54:19 +08:00
cid1 = H5Pcreate_class(H5P_ROOT,CLASS1_NAME,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +08:00
CHECK_I(cid1, "H5Pcreate_class");
/* Insert first property into class (with no callbacks) */
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#ifdef H5_WANT_H5_V1_6_COMPAT
[svn-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +08:00
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL);
[svn-r8038] Purpose: Bug fix Description: When two property lists are compared, the H5Pequal routine was just comparing the raw information for the property values. This causes problems when the raw information contains pointers to other information. Solution: Allow a 'compare' callback to be registered for properties, so that a user application get perform the comparison itself, allowing for "deep" compares of the property value. This was exported to the H5Pregister & H5Pinsert routines in the development branch, but not the release branch. Platforms tested: FreeBSD 4.9 (sleipnir) h5committest
2004-01-08 22:55:11 +08:00
#else /* H5_WANT_H5_V1_6_COMPAT */
ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
#endif /* H5_WANT_H5_V1_6_COMPAT */
[svn-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +08:00
CHECK_I(ret, "H5Pregister");
/* Create a new generic list, derived from the root of the class hierarchy */
lid1 = H5Pcreate(cid1);
CHECK_I(lid1, "H5Pcreate");
/* Check class name */
name = H5Pget_class_name(cid1);
CHECK_PTR(name, "H5Pget_class_name");
[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(HDstrcmp(name,CLASS1_NAME)!=0)
TestErrPrintf("Class names don't match!, name=%s, CLASS1_NAME=%s\n",name,CLASS1_NAME);
HDfree(name);
[svn-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +08:00
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
/* Get the list's class */
cid1 = H5Pget_class(lid1);
CHECK_I(cid1, "H5Pget_class");
/* Check correct "is a" class/list relationship */
ret = H5Pisa_class(lid1,cid1);
VERIFY(ret, 1, "H5Pisa_class");
/* Check class name */
name = H5Pget_class_name(cid1);
CHECK_PTR(name, "H5Pget_class_name");
[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(HDstrcmp(name,CLASS1_NAME)!=0)
TestErrPrintf("Class names don't match!, name=%s, CLASS1_NAME=%s\n",name,CLASS1_NAME);
HDfree(name);
[svn-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +08:00
/* Close list */
ret = H5Pclose(lid1);
CHECK_I(ret, "H5Pclose");
/* Check class name */
name = H5Pget_class_name(cid1);
CHECK_PTR(name, "H5Pget_class_name");
[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(HDstrcmp(name,CLASS1_NAME)!=0)
TestErrPrintf("Class names don't match!, name=%s, CLASS1_NAME=%s\n",name,CLASS1_NAME);
HDfree(name);
[svn-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +08:00
/* Close class */
ret = H5Pclose_class(cid1);
CHECK_I(ret, "H5Pclose_class");
} /* ent test_genprop_refcount() */
[svn-r2872] Purpose: Code update Description: Added stub for generic property testing, although it doesn't do anything yet. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-12 08:10:08 +08:00
/****************************************************************
**
** test_genprop(): Main generic property 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-r2872] Purpose: Code update Description: Added stub for generic property testing, although it doesn't do anything yet. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-12 08:10:08 +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-r2872] Purpose: Code update Description: Added stub for generic property testing, although it doesn't do anything yet. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-12 08:10:08 +08:00
test_genprop(void)
{
/* Output message about test being performed */
MESSAGE(5, ("Testing Generic Properties\n"));
/* These tests use the same file... */
[svn-r2893] Purpose: Code development Description: Starting to implement actual tests for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-14 08:06:14 +08:00
test_genprop_basic_class(); /* Test basic code for creating a generic class */
[svn-r2910] Purpose: Code checkpoint Description: More generic property functionality tested Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-15 10:27:15 +08:00
test_genprop_basic_class_prop(); /* Test basic code for adding properties to a generic class */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
test_genprop_class_iter(); /* Test code for iterating over properties in a generic class */
test_genprop_class_callback(); /* Test code for property class callbacks */
[svn-r3140] Purpose: Added testing Description: Since I accidentally checked in some bug-fixes for the generic property code in my last checkin, I thought it would be a good idea to check in the tests for them also. If these cause problems, I'll back them out of the CVS tree... Platforms tested: FreeBSD 4.2 (hawkwind)
2000-12-15 00:45:14 +08:00
test_genprop_basic_list(); /* Test basic code for creating a generic property list */
[svn-r3521] Purpose: Test checkpoint Description: Checkpointing generic property tests before removing the older [non-generic] property list implementation and switching all the property lists to use the generic code. Generic properties are feature complete and as fully tested as I can determine. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-02-28 06:27:45 +08:00
test_genprop_basic_list_prop(); /* Test basic code for adding properties to a generic property list */
test_genprop_list_iter(); /* Test basic code for iterating over properties in a generic property list */
test_genprop_list_callback(); /* Test code for property list callbacks */
[svn-r2872] Purpose: Code update Description: Added stub for generic property testing, although it doesn't do anything yet. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-12 08:10:08 +08:00
[svn-r4905] Purpose: Regression tests Description: Generic property classes derived from an existing class were not having the parent class's properties copied into the new class. Additionally, derived classes were not being detected correctly. Solution: Added regression tests to verify that these fixes are working: Copied properties from parent class into derived class. Modified H5P_isa_class_real() to walk back up the chain of parent classes to proper detect derived classes. Platforms tested: FreeBSD 4.5 (sleipnir)
2002-02-07 00:08:29 +08:00
test_genprop_list_addprop(); /* Test adding properties to HDF5 property list */
test_genprop_class_addprop(); /* Test adding properties to HDF5 property class */
[svn-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
test_genprop_equal(); /* Tests for more H5Pequal verification */
[svn-r5963] Purpose: New internal feature. Description: Need some way to determine the "full path" for a generic property class, i.e. where is this class in the class hierarchy, in relation to its parent class, etc. Solution: Added an internal function "H5P_get_class_path" and a testing function "H5Pget_class_path_test" that builds the full path of a generic property class back to the top of its class hierarchy. This implementation uses '/' characters to delimit the components of the class path, but no special cases are currently supported for having a '/' character as part of the actual class name. Should this become an issue, code to support (and test) it will need to be added. Platforms tested: FreeBSD 4.6 (sleipnir) (not major enough to justify triple-test)
2002-10-08 22:08:10 +08:00
test_genprop_path(); /* Tests for class path verification */
[svn-r5994] Purpose: New test Description: Add test to check for correct generic property class reference counting. Platforms tested: FreeBSD 4.6 (sleipnir) w and w/o parallel Linux 2.2.x (eirene) w/FORTRAN & C++ Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/FORTRAN & parallel
2002-10-15 03:59:00 +08:00
test_genprop_refcount(); /* Tests for class reference counting */
[svn-r5962] Purpose: Bug fix Description: H5Pequal's algorithm for comparing property lists wasn't allowing property lists that are equal but had the properties inserted in a different order in the list's hash table. Solution: Re-did the algorithm a bit to compare the properties better. Platforms tested: FreeBSD 4.6 (sleipnir) (minor enough to not need triple testing)
2002-10-08 01:55:55 +08:00
[svn-r2872] Purpose: Code update Description: Added stub for generic property testing, although it doesn't do anything yet. Platforms tested: FreeBSD 4.1.1 (hawkwind)
2000-11-12 08:10:08 +08:00
} /* test_genprop() */
/*-------------------------------------------------------------------------
* Function: cleanup_genprop
*
* Purpose: Cleanup temporary test files
*
* Return: none
*
* Programmer: Quincey Koziol
* June 8, 1999
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
void
cleanup_genprop(void)
{
remove(FILENAME);
}
Reference in New Issue Copy Permalink