diff options
Diffstat (limited to 'test/dangle.c')
| -rw-r--r-- | test/dangle.c | 388 |
1 files changed, 195 insertions, 193 deletions
diff --git a/test/dangle.c b/test/dangle.c index ed5e3b8..e1dc9e9 100644 --- a/test/dangle.c +++ b/test/dangle.c @@ -6,7 +6,7 @@ * This file is part of HDF5. The full HDF5 copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the COPYING file, which can be found at the root of the source code * - * distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. * + * distribution tree, or in https://www.hdfgroup.org/licenses. * * If you do not have access to either file, you may request a copy from * * help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ @@ -15,34 +15,29 @@ * Programmer: Quincey Koziol <koziol@ncsa.uiuc.edu> * Tuesday, May 13, 2003 * - * Purpose: Test dangling IDs + * Purpose: Test dangling IDs */ #include "h5test.h" -#include "H5private.h" -const char *FILENAME[] = { - "dangle", - NULL -}; +const char *FILENAME[] = {"dangle", NULL}; -#define MAX_DANGLE 1000 +#define MAX_DANGLE 1000 -#define DSETNAME "Dataset" -#define GROUPNAME "Group" -#define TYPENAME "Type" -#define ATTRNAME "Attribute" +#define DSETNAME "Dataset" +#define GROUPNAME "Group" +#define TYPENAME "Type" +#define ATTRNAME "Attribute" - /*------------------------------------------------------------------------- - * Function: test_dangle_dataset + * Function: test_dangle_dataset * - * Purpose: Check for dangling dataset IDs causing problems on library + * Purpose: Check for dangling dataset IDs causing problems on library * shutdown * - * Return: Success: zero - * Failure: non-zero + * Return: Success: zero + * Failure: non-zero * - * Programmer: Quincey Koziol + * Programmer: Quincey Koziol * Tuesday, May 13, 2003 * * Modifications: @@ -52,70 +47,74 @@ const char *FILENAME[] = { static int test_dangle_dataset(H5F_close_degree_t degree) { - char filename[1024]; - hid_t fid; /* File ID */ - hid_t fapl; /* File access property list */ - hid_t dsid; /* Dataset ID */ - hid_t sid; /* Dataspace ID */ - unsigned u; /* Local index variable */ + char filename[1024]; + hid_t fid; /* File ID */ + hid_t fapl; /* File access property list */ + hid_t dsid; /* Dataset ID */ + hid_t sid; /* Dataspace ID */ + unsigned u; /* Local index variable */ TESTING(" dangling dataset IDs"); - if(H5open() < 0) + if (H5open() < 0) TEST_ERROR; /* Create file access property list */ - if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) + if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) TEST_ERROR; /* Set file close degree */ - if(H5Pset_fclose_degree(fapl, degree) < 0) + if (H5Pset_fclose_degree(fapl, degree) < 0) TEST_ERROR; h5_fixname(FILENAME[0], H5P_DEFAULT, filename, sizeof filename); - if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR; - if((sid = H5Screate(H5S_SCALAR)) < 0) + if ((sid = H5Screate(H5S_SCALAR)) < 0) TEST_ERROR; - if((dsid = H5Dcreate2(fid, DSETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + if ((dsid = H5Dcreate2(fid, DSETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR; - if(H5Dclose(dsid) < 0) + if (H5Dclose(dsid) < 0) TEST_ERROR; /* Try creating duplicate dataset */ - H5E_BEGIN_TRY { - if((dsid = H5Dcreate2(fid, DSETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) >= 0) + H5E_BEGIN_TRY + { + if ((dsid = H5Dcreate2(fid, DSETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) >= + 0) TEST_ERROR; - } H5E_END_TRY; + } + H5E_END_TRY; - if(H5Sclose(sid) < 0) + if (H5Sclose(sid) < 0) TEST_ERROR; /* Leave open a _lot_ of objects */ - for(u = 0; u < MAX_DANGLE; u++) - if((dsid = H5Dopen2(fid, DSETNAME, H5P_DEFAULT)) < 0) + for (u = 0; u < MAX_DANGLE; u++) + if ((dsid = H5Dopen2(fid, DSETNAME, H5P_DEFAULT)) < 0) TEST_ERROR; - if(degree == H5F_CLOSE_SEMI) { - H5E_BEGIN_TRY { - if(H5Fclose(fid) >= 0) + if (degree == H5F_CLOSE_SEMI) { + H5E_BEGIN_TRY + { + if (H5Fclose(fid) >= 0) TEST_ERROR; - } H5E_END_TRY; + } + H5E_END_TRY; } /* end if */ - else - if(H5Fclose(fid) < 0) - TEST_ERROR; + else if (H5Fclose(fid) < 0) + TEST_ERROR; - if(h5_get_file_size(filename, fapl) < 0) + if (h5_get_file_size(filename, fapl) < 0) TEST_ERROR; - if(H5Pclose(fapl) < 0) + if (H5Pclose(fapl) < 0) TEST_ERROR; - if(H5close() < 0) + if (H5close() < 0) TEST_ERROR; /* Clean up temporary file */ @@ -128,17 +127,16 @@ error: return 1; } - /*------------------------------------------------------------------------- - * Function: test_dangle_group + * Function: test_dangle_group * - * Purpose: Check for dangling group IDs causing problems on library + * Purpose: Check for dangling group IDs causing problems on library * shutdown * - * Return: Success: zero - * Failure: non-zero + * Return: Success: zero + * Failure: non-zero * - * Programmer: Quincey Koziol + * Programmer: Quincey Koziol * Tuesday, May 13, 2003 * * Modifications: @@ -148,65 +146,67 @@ error: static int test_dangle_group(H5F_close_degree_t degree) { - char filename[1024]; - hid_t fid; /* File ID */ - hid_t fapl; /* File access property list */ - hid_t gid; /* Group ID */ - unsigned u; /* Local index variable */ + char filename[1024]; + hid_t fid; /* File ID */ + hid_t fapl; /* File access property list */ + hid_t gid; /* Group ID */ + unsigned u; /* Local index variable */ TESTING(" dangling group IDs"); - if(H5open() < 0) + if (H5open() < 0) TEST_ERROR; /* Create file access property list */ - if((fapl=H5Pcreate(H5P_FILE_ACCESS)) < 0) + if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) TEST_ERROR; /* Set file close degree */ - if(H5Pset_fclose_degree(fapl,degree) < 0) + if (H5Pset_fclose_degree(fapl, degree) < 0) TEST_ERROR; h5_fixname(FILENAME[0], H5P_DEFAULT, filename, sizeof filename); - if((fid = H5Fcreate (filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR; - if((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + FAIL_STACK_ERROR - if(H5Gclose(gid) < 0) + if (H5Gclose(gid) < 0) TEST_ERROR; /* Try creating duplicate group */ - H5E_BEGIN_TRY { - gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); - } H5E_END_TRY; - if(gid >= 0) TEST_ERROR + H5E_BEGIN_TRY { gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); } + H5E_END_TRY; + if (gid >= 0) + TEST_ERROR /* Leave open a _lot_ of objects */ - for(u = 0; u < MAX_DANGLE; u++) - if((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) + for (u = 0; u < MAX_DANGLE; u++) + if ((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR - if((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) + if ((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR - if(degree==H5F_CLOSE_SEMI) { - H5E_BEGIN_TRY { - if(H5Fclose(fid)>=0) + if (degree == H5F_CLOSE_SEMI) { + H5E_BEGIN_TRY + { + if (H5Fclose(fid) >= 0) TEST_ERROR; - } H5E_END_TRY; + } + H5E_END_TRY; } /* end if */ - else - if(H5Fclose(fid) < 0) - TEST_ERROR; + else if (H5Fclose(fid) < 0) + TEST_ERROR; - if(h5_get_file_size(filename, fapl) < 0) + if (h5_get_file_size(filename, fapl) < 0) TEST_ERROR; - if(H5Pclose(fapl) < 0) + if (H5Pclose(fapl) < 0) TEST_ERROR; - if(H5close() < 0) + if (H5close() < 0) TEST_ERROR; /* Clean up temporary file */ @@ -219,17 +219,16 @@ error: return 1; } - /*------------------------------------------------------------------------- - * Function: test_dangle_datatype1 + * Function: test_dangle_datatype1 * - * Purpose: Check for dangling datatype IDs causing problems on library + * Purpose: Check for dangling datatype IDs causing problems on library * shutdown * - * Return: Success: zero - * Failure: non-zero + * Return: Success: zero + * Failure: non-zero * - * Programmer: Quincey Koziol + * Programmer: Quincey Koziol * Tuesday, May 13, 2003 * * Modifications: @@ -239,70 +238,73 @@ error: static int test_dangle_datatype1(H5F_close_degree_t degree) { - char filename[1024]; - hid_t fid; /* File ID */ - hid_t fapl; /* File access property list */ - hid_t tid; /* Datatype ID */ - unsigned u; /* Local index variable */ + char filename[1024]; + hid_t fid; /* File ID */ + hid_t fapl; /* File access property list */ + hid_t tid; /* Datatype ID */ + unsigned u; /* Local index variable */ TESTING(" dangling named datatype IDs"); - if(H5open() < 0) + if (H5open() < 0) TEST_ERROR; /* Create file access property list */ - if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) + if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) TEST_ERROR; /* Set file close degree */ - if(H5Pset_fclose_degree(fapl, degree) < 0) + if (H5Pset_fclose_degree(fapl, degree) < 0) TEST_ERROR; h5_fixname(FILENAME[0], H5P_DEFAULT, filename, sizeof filename); - if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR; - if((tid = H5Tcopy(H5T_NATIVE_INT)) < 0) + if ((tid = H5Tcopy(H5T_NATIVE_INT)) < 0) TEST_ERROR; - if(H5Tcommit2(fid, TYPENAME, tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0) + if (H5Tcommit2(fid, TYPENAME, tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0) TEST_ERROR; - if(H5Tclose(tid) < 0) + if (H5Tclose(tid) < 0) TEST_ERROR; /* Try creating duplicate named datatype */ - if((tid = H5Tcopy (H5T_NATIVE_INT)) < 0) + if ((tid = H5Tcopy(H5T_NATIVE_INT)) < 0) TEST_ERROR; - H5E_BEGIN_TRY { - if(H5Tcommit2(fid, TYPENAME, tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) >= 0) + H5E_BEGIN_TRY + { + if (H5Tcommit2(fid, TYPENAME, tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) >= 0) TEST_ERROR; - } H5E_END_TRY; - if(H5Tclose(tid) < 0) + } + H5E_END_TRY; + if (H5Tclose(tid) < 0) TEST_ERROR; /* Leave open a _lot_ of objects */ - for(u = 0; u < MAX_DANGLE; u++) - if((tid = H5Topen2(fid, TYPENAME, H5P_DEFAULT)) < 0) + for (u = 0; u < MAX_DANGLE; u++) + if ((tid = H5Topen2(fid, TYPENAME, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR - if(degree == H5F_CLOSE_SEMI) { - H5E_BEGIN_TRY { - if(H5Fclose(fid) >= 0) + if (degree == H5F_CLOSE_SEMI) { + H5E_BEGIN_TRY + { + if (H5Fclose(fid) >= 0) TEST_ERROR; - } H5E_END_TRY; + } + H5E_END_TRY; } /* end if */ - else - if(H5Fclose(fid) < 0) - TEST_ERROR; + else if (H5Fclose(fid) < 0) + TEST_ERROR; - if(h5_get_file_size(filename, fapl) < 0) + if (h5_get_file_size(filename, fapl) < 0) TEST_ERROR; - if(H5Pclose(fapl) < 0) + if (H5Pclose(fapl) < 0) TEST_ERROR; - if(H5close() < 0) + if (H5close() < 0) TEST_ERROR; /* Clean up temporary file */ @@ -315,17 +317,16 @@ error: return 1; } - /*------------------------------------------------------------------------- - * Function: test_dangle_datatype2 + * Function: test_dangle_datatype2 * - * Purpose: Check for dangling datatype IDs causing problems on library + * Purpose: Check for dangling datatype IDs causing problems on library * shutdown * - * Return: Success: zero - * Failure: non-zero + * Return: Success: zero + * Failure: non-zero * - * Programmer: Quincey Koziol + * Programmer: Quincey Koziol * Thursday, August 25, 2005 * * Modifications: @@ -335,61 +336,62 @@ error: static int test_dangle_datatype2(H5F_close_degree_t degree) { - char filename[1024]; - hid_t fid; /* File ID */ - hid_t fapl; /* File access property list */ - hid_t did; /* Dataset ID */ - hid_t sid; /* Dataspace ID */ - hid_t tid; /* Datatype ID */ + char filename[1024]; + hid_t fid; /* File ID */ + hid_t fapl; /* File access property list */ + hid_t did; /* Dataset ID */ + hid_t sid; /* Dataspace ID */ + hid_t tid; /* Datatype ID */ TESTING(" dangling named datatype ID used by dataset"); - if(H5open() < 0) + if (H5open() < 0) TEST_ERROR; /* Create file access property list */ - if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) + if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) TEST_ERROR; /* Set file close degree */ - if(H5Pset_fclose_degree(fapl, degree) < 0) + if (H5Pset_fclose_degree(fapl, degree) < 0) TEST_ERROR; h5_fixname(FILENAME[0], H5P_DEFAULT, filename, sizeof filename); - if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR; - if((tid = H5Tcopy(H5T_NATIVE_INT)) < 0) + if ((tid = H5Tcopy(H5T_NATIVE_INT)) < 0) TEST_ERROR; - if(H5Tcommit2(fid, TYPENAME, tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0) + if (H5Tcommit2(fid, TYPENAME, tid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0) TEST_ERROR; /* Create a dataset that uses the named datatype & leave it open */ - if((sid = H5Screate(H5S_SCALAR)) < 0) + if ((sid = H5Screate(H5S_SCALAR)) < 0) TEST_ERROR; - if((did = H5Dcreate2(fid, DSETNAME, tid, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + if ((did = H5Dcreate2(fid, DSETNAME, tid, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR; - if(H5Sclose(sid) < 0) + if (H5Sclose(sid) < 0) TEST_ERROR; - if(degree == H5F_CLOSE_SEMI) { - H5E_BEGIN_TRY { - if(H5Fclose(fid) >= 0) + if (degree == H5F_CLOSE_SEMI) { + H5E_BEGIN_TRY + { + if (H5Fclose(fid) >= 0) TEST_ERROR; - } H5E_END_TRY; + } + H5E_END_TRY; } /* end if */ - else - if(H5Fclose(fid) < 0) - TEST_ERROR; + else if (H5Fclose(fid) < 0) + TEST_ERROR; - if(h5_get_file_size(filename, fapl) < 0) + if (h5_get_file_size(filename, fapl) < 0) TEST_ERROR; - if(H5Pclose(fapl) < 0) + if (H5Pclose(fapl) < 0) TEST_ERROR; - if(H5close() < 0) + if (H5close() < 0) TEST_ERROR; /* Clean up temporary file */ @@ -402,17 +404,16 @@ error: return 1; } - /*------------------------------------------------------------------------- - * Function: test_dangle_attribute + * Function: test_dangle_attribute * - * Purpose: Check for dangling attribute IDs causing problems on library + * Purpose: Check for dangling attribute IDs causing problems on library * shutdown * - * Return: Success: zero - * Failure: non-zero + * Return: Success: zero + * Failure: non-zero * - * Programmer: Quincey Koziol + * Programmer: Quincey Koziol * Wednesday, June 18, 2003 * * Modifications: @@ -422,81 +423,84 @@ error: static int test_dangle_attribute(H5F_close_degree_t degree) { - char filename[1024]; - hid_t fid; /* File ID */ - hid_t fapl; /* File access property list */ - hid_t dsid; /* Dataset ID */ - hid_t sid; /* Dataspace ID */ - hid_t aid; /* Attribute ID */ - unsigned u; /* Local index variable */ + char filename[1024]; + hid_t fid; /* File ID */ + hid_t fapl; /* File access property list */ + hid_t dsid; /* Dataset ID */ + hid_t sid; /* Dataspace ID */ + hid_t aid; /* Attribute ID */ + unsigned u; /* Local index variable */ TESTING(" dangling attribute IDs"); - if(H5open() < 0) + if (H5open() < 0) TEST_ERROR; /* Create file access property list */ - if((fapl=H5Pcreate(H5P_FILE_ACCESS)) < 0) + if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) TEST_ERROR; /* Set file close degree */ - if(H5Pset_fclose_degree(fapl,degree) < 0) + if (H5Pset_fclose_degree(fapl, degree) < 0) TEST_ERROR; h5_fixname(FILENAME[0], H5P_DEFAULT, filename, sizeof filename); - if((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR; - if((sid = H5Screate(H5S_SCALAR)) < 0) + if ((sid = H5Screate(H5S_SCALAR)) < 0) TEST_ERROR; - if((dsid = H5Dcreate2(fid, DSETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + if ((dsid = H5Dcreate2(fid, DSETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR; /* Create an attribute on the dataset */ - if((aid = H5Acreate2(dsid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) + if ((aid = H5Acreate2(dsid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR; /* Don't worry about writing the attribute - it will have a fill value */ /* Close the attribute on the dataset */ - if(H5Aclose(aid) < 0) + if (H5Aclose(aid) < 0) TEST_ERROR; /* Try creating duplicate attribute */ - H5E_BEGIN_TRY { - if((aid = H5Acreate2(dsid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) >= 0) + H5E_BEGIN_TRY + { + if ((aid = H5Acreate2(dsid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) >= 0) TEST_ERROR; - } H5E_END_TRY; + } + H5E_END_TRY; - if(H5Sclose(sid) < 0) + if (H5Sclose(sid) < 0) TEST_ERROR; /* Leave open a _lot_ of objects */ - for(u = 0; u < MAX_DANGLE; u++) - if((aid = H5Aopen(dsid, ATTRNAME, H5P_DEFAULT)) < 0) + for (u = 0; u < MAX_DANGLE; u++) + if ((aid = H5Aopen(dsid, ATTRNAME, H5P_DEFAULT)) < 0) TEST_ERROR - if(H5Dclose(dsid) < 0) + if (H5Dclose(dsid) < 0) TEST_ERROR - if(degree == H5F_CLOSE_SEMI) { - H5E_BEGIN_TRY { - if(H5Fclose(fid) >= 0) + if (degree == H5F_CLOSE_SEMI) { + H5E_BEGIN_TRY + { + if (H5Fclose(fid) >= 0) TEST_ERROR; - } H5E_END_TRY; + } + H5E_END_TRY; } /* end if */ - else - if(H5Fclose(fid) < 0) - TEST_ERROR; + else if (H5Fclose(fid) < 0) + TEST_ERROR; - if(h5_get_file_size(filename, fapl) < 0) + if (h5_get_file_size(filename, fapl) < 0) TEST_ERROR; - if(H5Pclose(fapl) < 0) + if (H5Pclose(fapl) < 0) TEST_ERROR; - if(H5close() < 0) + if (H5close() < 0) TEST_ERROR; /* Clean up temporary file */ @@ -509,16 +513,15 @@ error: return 1; } - /*------------------------------------------------------------------------- - * Function: main + * Function: main * - * Purpose: Executes dangling ID tests + * Purpose: Executes dangling ID tests * - * Return: Success: zero - * Failure: non-zero + * Return: Success: zero + * Failure: non-zero * - * Programmer: Quincey Koziol + * Programmer: Quincey Koziol * Tuesday, May 13, 2003 * * Modifications: @@ -528,7 +531,7 @@ error: int main(void) { - int nerrors=0; + int nerrors = 0; /* Run tests w/weak file close */ puts("Testing dangling objects with weak file close:"); @@ -565,4 +568,3 @@ error: puts("***** DANGLING ID TESTS FAILED *****"); return 1; } - |