From 8ec60574b1cfa7a37c8e235e80ef50e8ef8b1a76 Mon Sep 17 00:00:00 2001
From: Raymond Lu <songyulu@hdfgroup.org>
Date: Tue, 22 Jun 2004 16:08:56 -0500
Subject: [svn-r8722] *** empty log message ***

---
 test/titerate.c | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 73 insertions(+), 2 deletions(-)

diff --git a/test/titerate.c b/test/titerate.c
index 5396bc7..652771a 100644
--- a/test/titerate.c
+++ b/test/titerate.c
@@ -762,7 +762,7 @@ static void test_grp_memb_funcs(void)
     file=H5Fopen(DATAFILE, H5F_ACC_RDONLY, H5P_DEFAULT);
     CHECK(file, FAIL, "H5Fopen");
 
-    /* These twp functions, H5Gget_num_objs and H5Gget_objname_by_idx, actually
+    /* These two functions, H5Gget_num_objs and H5Gget_objname_by_idx, actually
      * iterate through B-tree for group members in internal library design.
      */
     root_group = H5Gopen(file, "/");
@@ -779,7 +779,7 @@ static void test_grp_memb_funcs(void)
         name_len = H5Gget_objname_by_idx(root_group, (hsize_t)i, NULL, NAMELEN);
         CHECK(name_len, FAIL, "H5Gget_objname_by_idx");
         
-        ret = (herr_t)H5Gget_objname_by_idx(root_group, (hsize_t)i, dataset_name, NAMELEN);
+        ret = (herr_t)H5Gget_objname_by_idx(root_group, (hsize_t)i, dataset_name, name_len+1);
         CHECK(ret, FAIL, "H5Gget_objname_by_idx");
 
         /* Double-check that the length is the same */
@@ -831,6 +831,76 @@ static void test_grp_memb_funcs(void)
 
 /****************************************************************
 **
+**  test_links(): Test soft and hard link iteration
+** 
+****************************************************************/
+static void test_links(void)
+{
+    hid_t file;             /* File ID */
+    char obj_name[NAMELEN]; /* Names of the object in group */
+    ssize_t name_len;       /* Length of object's name */
+    herr_t ret;		    /* Generic return value */
+    hid_t    gid, gid1;
+    int i;
+    H5G_obj_t obj_type;     /* Type of object */
+    hsize_t   nobjs;        /* Number of objects */
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing Soft and Hard Link Iteration Functionality\n"));
+
+    /* Create the test file with the datasets */
+    file = H5Fcreate(DATAFILE, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
+    CHECK(file, FAIL, "H5Fcreate");
+
+    /* create groups */
+    gid = H5Gcreate (file, "/g1", 0);
+    CHECK(gid, FAIL, "H5Gcreate");
+    
+    gid1 = H5Gcreate (file, "/g1/g1.1", 0);
+    CHECK(gid1, FAIL, "H5Gcreate");
+
+    /* create soft and hard links to the group "/g1". */
+    ret = H5Glink (gid, H5G_LINK_SOFT, "something", "softlink");
+    CHECK(ret, FAIL, "H5Glink");
+
+    ret = H5Glink (gid, H5G_LINK_HARD, "/g1", "hardlink");
+    CHECK(ret, FAIL, "H5Glink");
+
+    ret = H5Gget_num_objs(gid, &nobjs);
+    CHECK(ret, FAIL, "H5Gget_num_objs");
+    VERIFY(nobjs,3,"H5Gget_num_objs");
+
+    /* Test these two functions, H5Gget_num_objs and H5Gget_objname_by_idx */
+    for(i=0; i<nobjs; i++) {
+        /* Get object name */
+        name_len = H5Gget_objname_by_idx(gid, (hsize_t)i, obj_name, NAMELEN);
+        CHECK(name_len, FAIL, "H5Gget_objname_by_idx");
+        
+        obj_type = H5Gget_objtype_by_idx(gid, (hsize_t)i);
+        CHECK(obj_type, H5G_UNKNOWN, "H5Gget_objtype_by_idx");
+
+        if(!HDstrcmp(obj_name, "g1.1"))
+            VERIFY(obj_type, H5G_GROUP, "H5Gget_objname_by_idx");
+        else if(!HDstrcmp(obj_name, "hardlink"))
+            VERIFY(obj_type, H5G_GROUP, "H5Gget_objname_by_idx");
+        else if(!HDstrcmp(obj_name, "softlink"))
+            VERIFY(obj_type, H5G_LINK, "H5Gget_objname_by_idx");
+        else
+            CHECK(0, 0, "unknown object name");
+    }
+
+    ret=H5Gclose(gid);
+    CHECK(ret, FAIL, "H5Gclose");
+
+    ret=H5Gclose(gid1);
+    CHECK(ret, FAIL, "H5Gclose");
+
+    ret=H5Fclose(file);
+    CHECK(ret, FAIL, "H5Fclose");
+} /* test_links() */
+    
+/****************************************************************
+**
 **  test_iterate(): Main iteration testing routine.
 ** 
 ****************************************************************/
@@ -845,6 +915,7 @@ test_iterate(void)
     test_iter_group_large(); /* Test group iteration for large # of objects */
     test_iter_attr();        /* Test attribute iteration */
     test_grp_memb_funcs();   /* Test group member information functions */
+    test_links();            /* Test soft and hard link iteration */
 }   /* test_iterate() */
 
 
-- 
cgit v0.12