summaryrefslogtreecommitdiffstats
path: root/test/links.c
diff options
context:
space:
mode:
Diffstat (limited to 'test/links.c')
-rw-r--r--test/links.c92
1 files changed, 84 insertions, 8 deletions
diff --git a/test/links.c b/test/links.c
index 5b97aff..17a828b 100644
--- a/test/links.c
+++ b/test/links.c
@@ -27,6 +27,8 @@ const char *FILENAME[] = {
NULL
};
+#define MAX_NAME_LEN ((64*1024)+1024)
+
/*-------------------------------------------------------------------------
* Function: mklinks
@@ -48,7 +50,7 @@ static int
mklinks(hid_t fapl)
{
hid_t file, scalar, grp, d1;
- static hsize_t size[1] = {1};
+ hsize_t size[1] = {1};
char filename[1024];
TESTING("link creation");
@@ -61,7 +63,7 @@ mklinks(hid_t fapl)
if ((scalar=H5Screate_simple (1, size, size))<0) goto error;
/* Create a group */
- if ((grp=H5Gcreate (file, "grp1", 0))<0) goto error;
+ if ((grp=H5Gcreate (file, "grp1", (size_t)0))<0) goto error;
if (H5Gclose (grp)<0) goto error;
/* Create a dataset */
@@ -121,7 +123,7 @@ new_links(hid_t fapl)
hid_t scalar=(-1);
hid_t dset1=(-1), dset2=(-1);
char filename[1024];
- static hsize_t size[1] = {1};
+ hsize_t size[1] = {1};
TESTING("H5Glink2 function");
@@ -137,10 +139,10 @@ new_links(hid_t fapl)
if ((scalar=H5Screate_simple (1, size, size))<0) goto error;
/* Create two groups in each file */
- if ((grp1_a=H5Gcreate (file_a, "grp1", 0))<0) goto error;
- if ((grp2_a=H5Gcreate (file_a, "grp2", 0))<0) goto error;
- if ((grp1_b=H5Gcreate (file_b, "grp1", 0))<0) goto error;
- if ((grp2_b=H5Gcreate (file_b, "grp2", 0))<0) goto error;
+ if ((grp1_a=H5Gcreate (file_a, "grp1", (size_t)0))<0) goto error;
+ if ((grp2_a=H5Gcreate (file_a, "grp2", (size_t)0))<0) goto error;
+ if ((grp1_b=H5Gcreate (file_b, "grp1", (size_t)0))<0) goto error;
+ if ((grp2_b=H5Gcreate (file_b, "grp2", (size_t)0))<0) goto error;
/* Create datasets */
if((dset1=H5Dcreate(file_a, "dataset1", H5T_NATIVE_INT, scalar,
@@ -443,6 +445,79 @@ ck_new_links(hid_t fapl)
/*-------------------------------------------------------------------------
+ * Function: long_links
+ *
+ * Purpose: Build a file with long names
+ *
+ * Return: Success: 0
+ *
+ * Failure: -1
+ *
+ * Programmer: Quincey Koziol
+ * Saturday, April 16, 2005
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+static int
+long_links(hid_t fapl)
+{
+ hid_t fid = (-1); /* File ID */
+ hid_t gid = (-1); /* Group ID */
+ hid_t gid2 = (-1); /* Datatype ID */
+ char *objname = NULL; /* Name of object [Long] */
+ size_t u; /* Local index variable */
+ char filename[1024];
+
+ TESTING("long names for objects & links");
+
+ /* Create files */
+ h5_fixname(FILENAME[1], fapl, filename, sizeof filename);
+ if((fid=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) TEST_ERROR;
+
+ /* Create group with short name in file (used as target for hard links) */
+ if((gid=H5Gcreate (fid, "grp1", (size_t)0))<0) TEST_ERROR;
+
+ /* Construct very long file name */
+ if((objname = HDmalloc((size_t)(MAX_NAME_LEN + 1))) == NULL) TEST_ERROR;
+ for(u = 0; u < MAX_NAME_LEN; u++)
+ objname[u] = 'a';
+ objname[MAX_NAME_LEN] = '\0';
+
+ /* Create hard link to existing object */
+ if(H5Glink2(fid, "grp1", H5G_LINK_HARD, fid, objname) < 0) TEST_ERROR;
+
+ /* Create soft link to existing object */
+ objname[0] = 'b';
+ if(H5Glink2(fid, "grp1", H5G_LINK_SOFT, fid, objname) < 0) TEST_ERROR;
+
+ /* Create group with long name in existing group */
+ if((gid2=H5Gcreate(gid, objname, (size_t)0))<0) TEST_ERROR;
+
+ /* Close objects */
+ if(H5Gclose(gid2)<0) TEST_ERROR;
+ if(H5Gclose(gid)<0) TEST_ERROR;
+ if(H5Fclose(fid)<0) TEST_ERROR;
+
+ /* Release memory */
+ HDfree(objname);
+
+ PASSED();
+ return 0;
+
+ error:
+ H5E_BEGIN_TRY {
+ H5Gclose (gid2);
+ H5Gclose (gid);
+ H5Fclose (fid);
+ } H5E_END_TRY;
+ HDfree(objname);
+ return -1;
+}
+
+
+/*-------------------------------------------------------------------------
* Function: main
*
* Purpose: Test links
@@ -469,9 +544,10 @@ main(void)
/* The tests... */
nerrors += mklinks(fapl) < 0 ? 1 : 0;
- nerrors += new_links(fapl) < 0 ? 1 : 0;
nerrors += cklinks(fapl) < 0 ? 1 : 0;
+ nerrors += new_links(fapl) < 0 ? 1 : 0;
nerrors += ck_new_links(fapl) < 0 ? 1 : 0;
+ nerrors += long_links(fapl) < 0 ? 1 : 0;
/* Results */
if (nerrors) {