From 9f1262f9570b9e623f25f632d8730131897980ab Mon Sep 17 00:00:00 2001 From: Raymond Lu Date: Fri, 22 Apr 2011 15:28:43 -0500 Subject: [svn-r20610] 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 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 d0d176a..c17d96e 100644 --- a/test/th5s.c +++ b/test/th5s.c @@ -930,6 +930,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