[svn-r17755] Purpose: Fix assertion failure caused by H5Tcommit1/2

Description:
Calling H5Tcommit_anon on a file with read only access would cause an
assertion failure.  Added a check to H5T_commit to return a failure in
this case.  Removed redundant check in H5T_commit_named.

Tested: Fedora 11 (very minor change)

1 files changed, 11 insertions, 0 deletions

diff --git a/test/dtypes.c b/test/dtypes.c
index 51f8f6d..2619f1b 100644
--- a/test/dtypes.c
+++ b/test/dtypes.c
@@ -3727,6 +3727,17 @@ test_named (hid_t fapl)
         goto error;
     }
 
+    /* Verify that H5Tcommit_anon returns an error */
+    if((type = H5Tcopy(H5T_NATIVE_INT)) < 0) goto error;
+    H5E_BEGIN_TRY {
+        status = H5Tcommit_anon(file, type, H5P_DEFAULT, H5P_DEFAULT);
+    } H5E_END_TRY;
+    if(status >= 0) {
+        H5_FAILED();
+        HDputs ("    Types should not be committable to a read-only file!");
+        goto error;
+    }
+
     /* Close */
     if(H5Tclose(type) < 0) goto error;
     if(H5Fclose(file) < 0) goto error;