From ceb75f0efdcca01cb415e9ab8c2d4752709064d1 Mon Sep 17 00:00:00 2001
From: Pedro Vicente Nunes <pvn@hdfgroup.org>
Date: Tue, 15 Feb 2005 16:45:25 -0500
Subject: [svn-r10012] Purpose: new tests

Description:
added more tests to DS (check if parameters IDs are valid)

Solution:

Platforms tested:
linux
solaris

Misc. update:
---
 hl/src/H5DS.c     | 16 ++++++++++--
 hl/test/test_ds.c | 76 +++++++++++++++++++++++++++++++++++--------------------
 2 files changed, 63 insertions(+), 29 deletions(-)

diff --git a/hl/src/H5DS.c b/hl/src/H5DS.c
index 8b5c7c3..3d147d2 100644
--- a/hl/src/H5DS.c
+++ b/hl/src/H5DS.c
@@ -111,6 +111,7 @@ herr_t H5DSattach_scale(hid_t did,
  hobj_ref_t ref;          /* reference to the DS */
  hvl_t      *buf;         /* VL buffer to store in the attribute */
  H5G_stat_t sb1, sb2;
+ H5I_type_t it1, it2;
  int        i, len;
  
 /*-------------------------------------------------------------------------
@@ -133,6 +134,15 @@ herr_t H5DSattach_scale(hid_t did,
  if (sb1.fileno==sb2.fileno && sb1.objno==sb2.objno) 
   return FAIL;
 
+ /* get ID type */
+ if ((it1 = H5Iget_type(did))<0)
+  return FAIL;
+ if ((it2 = H5Iget_type(dsid))<0)
+  return FAIL;
+
+ if (H5I_DATASET!=it1 || H5I_DATASET!=it2)
+  return FAIL;
+
 /*-------------------------------------------------------------------------
  * The dataset may or may not have the associated DS attribute
  * First we try to open to see if it is already there; if not, it is created.
@@ -1376,7 +1386,7 @@ herr_t H5DSget_nscales(hid_t did,
   if (H5Aread(aid,tid,buf)<0)
    goto out;
 
-  for(i=0,n=0; i<buf[dim].len; i++)
+  for(i=0,n=0; i<(int)buf[dim].len; i++)
   {
    ref = ((hobj_ref_t *)buf[dim].p)[i]; 
    if (ref) n++;
@@ -1837,4 +1847,6 @@ out:
  return FAIL;
 } 
 
-#endif
\ No newline at end of file
+#endif
+
+
diff --git a/hl/test/test_ds.c b/hl/test/test_ds.c
index 556f00a..43f6429 100644
--- a/hl/test/test_ds.c
+++ b/hl/test/test_ds.c
@@ -21,8 +21,8 @@
 static herr_t verifiy_scale(hid_t dset, unsigned dim, hid_t scale, void *visitor_data);
 static herr_t read_scale(hid_t dset, unsigned dim, hid_t scale, void *visitor_data);
 /* prototypes */
-static int test_simple();
-static int test_errors();
+static int test_simple(void);
+static int test_errors(void);
 
 
 #define RANK      2
@@ -69,7 +69,7 @@ error:
  */
 
 
-static int test_simple()
+static int test_simple(void)
 {
  hid_t   fid;                                              /* file ID */
  hid_t   did;                                              /* dataset ID */
@@ -580,15 +580,13 @@ out:
  *-------------------------------------------------------------------------
  */
 
-static int test_errors()
+static int test_errors(void)
 {
  hid_t   fid;                                              /* file ID */
  int     rank     = RANK;                                  /* rank of data dataset */
  int     rankds   = 1;                                     /* rank of DS dataset */
  hsize_t dims[RANK]  = {DIM1_SIZE,DIM2_SIZE};              /* size of data dataset */
- int     buf[DIM_DATA] = {1,2,3,4,5,6,7,8,9,10,11,12};     /* data of data dataset */
  hsize_t s1_dim[1]  = {DIM1_SIZE};                         /* size of DS 1 dataset */
- hsize_t s2_dim[1]  = {DIM2_SIZE};                         /* size of DS 2 dataset */
  hid_t   dset;                                             /* dataset ID */
  hid_t   scale;                                            /* scale ID */
  hid_t   gid;                                              /* group ID */
@@ -598,47 +596,59 @@ static int test_errors()
  printf("Testing error conditions\n");
 
 /*-------------------------------------------------------------------------
- * create a file for the test
+ * create a file, spaces, dataset and group ids
  *-------------------------------------------------------------------------
  */  
 
  /* create a file using default properties */
  if ((fid=H5Fcreate("test_ds2.h5",H5F_ACC_TRUNC,H5P_DEFAULT,H5P_DEFAULT))<0)
   goto out;
-
-/*-------------------------------------------------------------------------
- * attempt to attach the dataset with the dataset
- *-------------------------------------------------------------------------
- */ 
- TESTING2("attach a dataset to itself");
-
- /* create the data space for the dataset. */
+ /* create a group */
+ if ((gid=H5Gcreate(fid,"grp",0))<0) 
+  goto out;
+ /* create the data space for the dataset */
  if ((sid=H5Screate_simple(rank,dims,NULL))<0)
   goto out;
+ /* create the data space for the scale */
  if ((sidds=H5Screate_simple(rankds,s1_dim,NULL))<0)
   goto out;
-
- /* create a dataset. */
+ /* create a dataset */
  if ((dset=H5Dcreate(fid,"dset_1",H5T_NATIVE_INT,sid,H5P_DEFAULT))<0)
   goto out;
-
- /* create a dataset. */
+ /* create a dataset for the scale */
  if ((scale=H5Dcreate(fid,"scale_1",H5T_NATIVE_INT,sidds,H5P_DEFAULT))<0)
   goto out;
 
- /* attempt to attach the dataset with the dataset, it should fail */
+
+/*-------------------------------------------------------------------------
+ * attempt to attach a dataset to itself, it should fail
+ *-------------------------------------------------------------------------
+ */ 
+ TESTING2("attach a dataset to itself");
+
  if (H5DSattach_scale(dset,dset,0)==SUCCESS)
   goto out;
 
+ PASSED();
 
+/*-------------------------------------------------------------------------
+ * attempt to attach a group with a dataset, it should fail
+ *-------------------------------------------------------------------------
+ */ 
+ TESTING2("attach a group with a dataset");
 
- if (H5Dclose(scale)<0)
+ if (H5DSattach_scale(gid,scale,0)==SUCCESS)
   goto out;
- if (H5Dclose(dset)<0)
-  goto out;
- if (H5Sclose(sid)<0)
-  goto out;
- if (H5Sclose(sidds)<0)
+
+ PASSED();
+
+/*-------------------------------------------------------------------------
+ * attempt to attach a dataset with a group, it should fail
+ *-------------------------------------------------------------------------
+ */ 
+ TESTING2("attach a dataset with a group");
+
+ if (H5DSattach_scale(dset,gid,0)==SUCCESS)
   goto out;
 
  PASSED();
@@ -651,7 +661,18 @@ static int test_errors()
  */  
 
  /* close */
- H5Fclose(fid);
+ if (H5Dclose(scale)<0)
+  goto out;
+ if (H5Dclose(dset)<0)
+  goto out;
+ if (H5Sclose(sid)<0)
+  goto out;
+ if (H5Sclose(sidds)<0)
+  goto out;
+ if (H5Gclose(gid)<0)
+  goto out;
+ if (H5Fclose(fid)<0)
+  goto out;
 
  return 0;
   
@@ -662,6 +683,7 @@ out:
   H5Sclose(sidds);
   H5Dclose(dset);
   H5Dclose(scale);
+  H5Gclose(gid);
   H5Fclose(fid);
  } H5E_END_TRY;
  H5_FAILED();
-- 
cgit v0.12