summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2000-11-15 15:33:00 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2000-11-15 15:33:00 (GMT)
commite46bc7f20607dece99e9827c51b75205d856f7f6 (patch)
tree69a4655fb497f524926d5b93d6e92ce9d64631a6 /test
parent8ff45a787db748c134f014f54b6cef8398e09b41 (diff)
downloadhdf5-e46bc7f20607dece99e9827c51b75205d856f7f6.zip
hdf5-e46bc7f20607dece99e9827c51b75205d856f7f6.tar.gz
hdf5-e46bc7f20607dece99e9827c51b75205d856f7f6.tar.bz2
[svn-r2912] Purpose:
Code checkpoint Description: More code testing for generic property lists. Platforms tested: FreeBSD 4.1.1 (hawkwind)
Diffstat (limited to 'test')
-rw-r--r--test/tgenprop.c94
1 files changed, 94 insertions, 0 deletions
diff --git a/test/tgenprop.c b/test/tgenprop.c
index e8e36cb..ac23526 100644
--- a/test/tgenprop.c
+++ b/test/tgenprop.c
@@ -53,6 +53,11 @@ char prop3_def[10]="Ten chars"; /* Property 3 default value */
#define PROP3_SIZE sizeof(prop3_def)
#define PROP3_DEF_VALUE (&prop3_def)
+#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)
+
/****************************************************************
**
** test_genprop_basic_class(): Test basic generic property list code.
@@ -260,6 +265,94 @@ test_genprop_basic_class_prop(void)
/****************************************************************
**
+** test_genprop_iter1(): Property iterator for test_genprop_class_iter
+**
+****************************************************************/
+static int
+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.
+**
+****************************************************************/
+static void
+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 */
+ cid1 = H5Pcreate_class(H5P_NO_CLASS_NEW,CLASS1_NAME,CLASS1_HASHSIZE,NULL,NULL,NULL,NULL);
+ CHECK_I(cid1, "H5Pcreate_class");
+
+ /* Insert first property into class (with no callbacks) */
+ ret = H5Pregister(cid1,PROP1_NAME,PROP1_SIZE,PROP1_DEF_VALUE,NULL,NULL,NULL,NULL);
+ CHECK_I(ret, "H5Pregister");
+
+ /* Insert second property into class (with no callbacks) */
+ ret = H5Pregister(cid1,PROP2_NAME,PROP2_SIZE,PROP2_DEF_VALUE,NULL,NULL,NULL,NULL);
+ CHECK_I(ret, "H5Pregister");
+
+ /* Insert third property into class (with no callbacks) */
+ ret = H5Pregister(cid1,PROP3_NAME,PROP3_SIZE,PROP3_DEF_VALUE,NULL,NULL,NULL,NULL);
+ CHECK_I(ret, "H5Pregister");
+
+ /* Insert third property into class (with no callbacks) */
+ ret = H5Pregister(cid1,PROP4_NAME,PROP4_SIZE,PROP4_DEF_VALUE,NULL,NULL,NULL,NULL);
+ 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 */
+ idx=1;
+ iter_struct.iter_count=1;
+ 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() */
+
+/****************************************************************
+**
** test_genprop(): Main generic property testing routine.
**
****************************************************************/
@@ -272,6 +365,7 @@ test_genprop(void)
/* These tests use the same file... */
test_genprop_basic_class(); /* Test basic code for creating a generic class */
test_genprop_basic_class_prop(); /* Test basic code for adding properties to a generic class */
+ test_genprop_class_iter(); /* Test basic code for iterating over properties in a generic class */
} /* test_genprop() */