From 8116ae4f78b450609fc53e4e28e9ab9b7da9f5e4 Mon Sep 17 00:00:00 2001 From: Raymond Lu Date: Fri, 22 Apr 2011 15:17:28 -0500 Subject: [svn-r20608] OpenVMS complainted about a test case in th5o.c which opened the same file twice. VMS doesn't allow it. I used the macro H5_CANNOT_OPEN_TWICE to skip the test case. In th5s.c, I created an attribute but fogot to close it in the test case for zero dimension size. Tested on amani, jam. But I haven't tested on OpenVMS yet. --- test/th5o.c | 2 ++ test/th5s.c | 4 ++++ 2 files changed, 6 insertions(+) diff --git a/test/th5o.c b/test/th5o.c index 70f8067..c46751e 100644 --- a/test/th5o.c +++ b/test/th5o.c @@ -1351,7 +1351,9 @@ test_h5o(void) test_h5o_link(); /* Test object link routine */ test_h5o_comment(); /* Test routines for comment */ test_h5o_comment_by_name(); /* Test routines for comment by name */ +#ifndef H5_CANNOT_OPEN_TWICE /* OpenVMS can't open a file twice */ test_h5o_getinfo_same_file(); /* Test info for objects in the same file */ +#endif /* H5_CANNOT_OPEN_TWICE */ } /* test_h5o() */ diff --git a/test/th5s.c b/test/th5s.c index a5ef605..e9f8ef4 100644 --- a/test/th5s.c +++ b/test/th5s.c @@ -935,6 +935,10 @@ test_h5s_zero_dim(void) } } + /* Close attribute */ + ret = H5Aclose(attr); + CHECK(ret, FAIL, "H5Aclose"); + /*=============================================================== * Extend the dimension to make it a normal dataspace (3x15x13). * Verify that data can be written to and read from the chunked -- cgit v0.12