[svn-r12875] Description:

    Fix retrieving name for references to root group.

    Also, move 'ref' test earlier in testing, right after 'getname' test

Tested on:
    Linux/64 2.6 (chicago2)
    

1 files changed, 13 insertions, 1 deletions

diff --git a/test/ref.c b/test/ref.c
index c31f987..3ed7654 100644
--- a/test/ref.c
+++ b/test/ref.c
@@ -34,7 +34,7 @@
 
 /* 1-D dataset with fixed dimensions */
 #define SPACE1_RANK	1
-#define SPACE1_DIM1	7
+#define SPACE1_DIM1	8
 
 int 
 main(void)
@@ -184,6 +184,10 @@ main(void)
     if(H5Rcreate(&wbuf[6], fid1, "/Group1/Group2/Link/Dataset5", H5R_OBJECT, -1) < 0)
         TEST_ERROR
 
+    /* Create reference to root group */
+    if(H5Rcreate(&wbuf[7], fid1, "/", H5R_OBJECT, -1) < 0)
+        TEST_ERROR
+
     /* Write selection to disk */
     if(H5Dwrite(dataset, H5T_STD_REF_OBJ, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
         TEST_ERROR
@@ -243,6 +247,14 @@ main(void)
     else
 	TEST_ERROR
 
+    HDmemset(buf, 0, 100);
+    TESTING("getting path to root group"); 
+    i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[7]), (char*)buf, 100);
+    if((HDstrcmp(buf, "/") == 0) && (i == 2))
+        PASSED()
+    else
+	TEST_ERROR
+
     /* Now we mount fid2 at /Group2 and look for dataset4.  It shouldn't be found */
     if(H5Fmount(fid1, "/Group1/Group2", fid2, H5P_DEFAULT) < 0)
         TEST_ERROR