summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/external.c82
1 files changed, 46 insertions, 36 deletions
diff --git a/test/external.c b/test/external.c
index fa29428..e1c5da7 100644
--- a/test/external.c
+++ b/test/external.c
@@ -821,7 +821,8 @@ test_3 (hid_t fapl)
* Function: test_4
*
* Purpose: Tests opening an external link twice. It exposed a bug
- * in the library. This function tests the fix.
+ * in the library. This function tests the fix. This test
+ * doesn't work with MULTI driver.
*
* Return: Success: 0
*
@@ -842,57 +843,66 @@ test_4 (hid_t fapl)
char pathname[1024];
char linked_pathname[1024];
char *srcdir = getenv("srcdir"); /*where the src code is located*/
+ const char *envval = NULL;
TESTING("opening external link twice");
- h5_fixname(FILENAME[3], fapl, filename, sizeof filename);
+ /* Don't run this test using the multi file driver */
+ envval = HDgetenv("HDF5_DRIVER");
+ if (envval == NULL)
+ envval = "nomatch";
+ if (HDstrcmp(envval, "multi")) {
+ h5_fixname(FILENAME[3], fapl, filename, sizeof filename);
- if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
- goto error;
+ if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ goto error;
- if((gid = H5Gopen2(fid, "/", H5P_DEFAULT)) < 0)
- goto error;
+ if((gid = H5Gopen2(fid, "/", H5P_DEFAULT)) < 0)
+ goto error;
- pathname[0] = '\0';
- /* Generate correct name for test file by prepending the source path */
- if(srcdir && ((HDstrlen(srcdir) + HDstrlen(LINKED_FILE) + 1) < sizeof(pathname))) {
- HDstrcpy(pathname, srcdir);
- HDstrcat(pathname, "/");
- }
- HDstrcat(pathname, LINKED_FILE);
+ pathname[0] = '\0';
+ /* Generate correct name for test file by prepending the source path */
+ if(srcdir && ((HDstrlen(srcdir) + HDstrlen(LINKED_FILE) + 1) < sizeof(pathname))) {
+ HDstrcpy(pathname, srcdir);
+ HDstrcat(pathname, "/");
+ }
+ HDstrcat(pathname, LINKED_FILE);
- /* Create an external link to an existing file*/
- if(H5Lcreate_external(pathname, "/group", gid, " link", H5P_DEFAULT, H5P_DEFAULT) < 0)
- goto error;
+ /* Create an external link to an existing file*/
+ if(H5Lcreate_external(pathname, "/group", gid, " link", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ goto error;
- if(H5Gclose(gid) < 0)
- goto error;
+ if(H5Gclose(gid) < 0)
+ goto error;
- if(H5Fclose(fid) < 0)
- goto error;
+ if(H5Fclose(fid) < 0)
+ goto error;
- /* Reopen the file */
- if((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
- goto error;
+ /* Reopen the file */
+ if((fid = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
+ goto error;
- /* Open the external link */
- if((xid = H5Gopen2(fid, "/ link", H5P_DEFAULT)) < 0)
- goto error;
+ /* Open the external link */
+ if((xid = H5Gopen2(fid, "/ link", H5P_DEFAULT)) < 0)
+ goto error;
- /* Open the external link twice */
- if((xid2 = H5Gopen2(xid, ".", H5P_DEFAULT)) < 0)
- goto error;
+ /* Open the external link twice */
+ if((xid2 = H5Gopen2(xid, ".", H5P_DEFAULT)) < 0)
+ goto error;
- if(H5Gclose(xid2) < 0)
- goto error;
+ if(H5Gclose(xid2) < 0)
+ goto error;
- if(H5Gclose(xid) < 0)
- goto error;
+ if(H5Gclose(xid) < 0)
+ goto error;
- if(H5Fclose(fid) < 0)
- goto error;
+ if(H5Fclose(fid) < 0)
+ goto error;
+
+ PASSED();
+ } else
+ SKIPPED();
- PASSED();
return 0;
error: