[svn-r10980] Purpose:

file_handle.c is renamed as vfd.c.

1 files changed, 0 insertions, 741 deletions

diff --git a/test/file_handle.c b/test/file_handle.c
deleted file mode 100644
index ad3de5a..0000000
--- a/test/file_handle.c
+++ /dev/null
@@ -1,741 +0,0 @@
-/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- * Copyright by the Board of Trustees of the University of Illinois.         *
- * All rights reserved.                                                      *
- *                                                                           *
- * This file is part of HDF5.  The full HDF5 copyright notice, including     *
- * terms governing use, modification, and redistribution, is contained in    *
- * the files COPYING and Copyright.html.  COPYING can be found at the root   *
- * of the source code distribution tree; Copyright.html can be found at the  *
- * root level of an installed copy of the electronic HDF5 document set and   *
- * is linked from the top-level documents page.  It can also be found at     *
- * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *
- * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
-
-/*  
- * Programmer:  Raymond Lu<slu@ncsa.uiuc.edu> 
- *              Tuesday, Sept 24, 2002 
- * 
- * Purpose:     Tests the file handle interface
- */
-         
-#include "h5test.h"
-
-#define KB              1024
-#define FAMILY_NUMBER   4
-#define FAMILY_SIZE     (1*KB)
-#define FAMILY_SIZE2    (5*KB)
-#define MULTI_SIZE      128 
-#define CORE_INCREMENT  (4*KB)
-
-const char *FILENAME[] = {      
-    "sec2_file",
-    "core_file",
-    "family_file",
-    "multi_file",
-    NULL        
-};
-          
-#define COMPAT_BASENAME "family_v1.6_"
-          
-
-/*-------------------------------------------------------------------------
- * Function:    test_sec2 
- *
- * Purpose:     Tests the file handle interface for SEC2 driver
- *
- * Return:      Success:        exit(0)
- *
- *              Failure:        exit(1)
- *
- * Programmer:  Raymond Lu
- *              Tuesday, Sept 24, 2002
- *
- * Modifications:
- *
- *              Raymond Lu
- *              Wednesday, June 23, 2004
- *              Added test for H5Fget_filesize.
- *
- *-------------------------------------------------------------------------
- */
-static herr_t          
-test_sec2(void)
-{
-    hid_t       file=(-1), fapl, access_fapl = -1;
-    char        filename[1024];
-    int         *fhandle=NULL;
-    hsize_t     file_size;
-    
-    TESTING("SEC2 file driver");
-   
-    /* Set property list and file name for SEC2 driver. */
-    fapl = h5_fileaccess();
-    if(H5Pset_fapl_sec2(fapl)<0)
-        goto error;
-    h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
-
-    if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
-        goto error;
-
-    /* Retrieve the access property list... */
-    if ((access_fapl = H5Fget_access_plist(file)) < 0)
-        goto error;
-
-    /* ...and close the property list */
-    if (H5Pclose(access_fapl) < 0)
-        goto error;
-
-    /* Check file handle API */
-    if(H5Fget_vfd_handle(file, H5P_DEFAULT, (void **)&fhandle)<0)
-        goto error;
-    if(*fhandle<0)
-        goto error;
-
-    /* Check file size API */
-    if(H5Fget_filesize(file, &file_size) < 0)
-        goto error;
-
-    /* There is no garantee the size of metadata in file is constant.  
-     * Just try to check if it's reasonable.  It's 2KB right now.
-     */ 
-    if(file_size<1*KB || file_size>4*KB)
-        goto error;
-
-    if(H5Fclose(file)<0)
-        goto error;
-    h5_cleanup(FILENAME, fapl);
-    PASSED();
-    return 0;
-            
-error:
-    H5E_BEGIN_TRY {
-        H5Pclose (fapl);
-        H5Fclose(file);
-    } H5E_END_TRY;
-    return -1;
-}
-
-
-/*-------------------------------------------------------------------------
- * Function:    test_core 
- * 
- * Purpose:     Tests the file handle interface for CORE driver
- * 
- * Return:      Success:        exit(0)
- * 
- *              Failure:        exit(1)
- *              
- * Programmer:  Raymond Lu
- *              Tuesday, Sept 24, 2002
- *              
- * Modifications:
- *
- *              Raymond Lu
- *              Wednesday, June 23, 2004
- *              Added test for H5Fget_filesize.
- * 
- *-------------------------------------------------------------------------
- */
-static herr_t
-test_core(void)
-{
-    hid_t       file=(-1), fapl, access_fapl = -1;
-    char        filename[1024];
-    void        *fhandle=NULL;
-    hsize_t     file_size;
-
-    TESTING("CORE file driver");
-
-    /* Set property list and file name for CORE driver */
-    fapl = h5_fileaccess();
-    if(H5Pset_fapl_core(fapl, CORE_INCREMENT, TRUE)<0)
-        goto error;
-    h5_fixname(FILENAME[1], fapl, filename, sizeof filename);
-                                                                
-    if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
-        goto error;
-
-    /* Retrieve the access property list... */
-    if ((access_fapl = H5Fget_access_plist(file)) < 0)
-        goto error;
-
-    /* ...and close the property list */
-    if (H5Pclose(access_fapl) < 0)
-        goto error;
-
-    if(H5Fget_vfd_handle(file, H5P_DEFAULT, &fhandle)<0)
-        goto error;
-    if(fhandle==NULL)
-    {
-        printf("fhandle==NULL\n");
-               goto error;
-    }
-
-    /* Check file size API */
-    if(H5Fget_filesize(file, &file_size) < 0)
-        goto error;
-
-    /* There is no garantee the size of metadata in file is constant.  
-     * Just try to check if it's reasonable.  Why is this 4KB? 
-     */ 
-    if(file_size<2*KB || file_size>6*KB)
-        goto error;
-
-    if(H5Fclose(file)<0)
-        goto error;
-    h5_cleanup(FILENAME, fapl);
-    PASSED();
-    return 0;
-                                                                                                                                                                         
-error:
-    H5E_BEGIN_TRY {
-        H5Pclose (fapl);
-        H5Fclose(file);
-    } H5E_END_TRY;
-    return -1;
-}
-
-
-/*-------------------------------------------------------------------------
- * Function:    test_family_opens
- *
- * Purpose:     Private function for test_family() to tests wrong ways of
- *              reopening family file.
- *
- * Return:      Success:        exit(0)
- *
- *              Failure:        exit(1)
- *
- * Programmer:  Raymond Lu
- *              Thursday, May 19, 2005
- *
- * Modifications:
- *-------------------------------------------------------------------------
- */
-static herr_t
-test_family_opens(char *fname, hid_t fa_pl)
-{
-    hid_t file;
-    char first_name[1024];
-    char wrong_name[1024];
-    int i;
-
-    /* Case 1: reopen file with 1st member file name and default property list */ 
-    sprintf(first_name, fname, 0);
-    
-    H5E_BEGIN_TRY {
-        file=H5Fopen(first_name, H5F_ACC_RDWR, H5P_DEFAULT);
-    } H5E_END_TRY;
-
-    /* Case 2: reopen file with correct name template but default property list */
-    H5E_BEGIN_TRY {
-        file=H5Fopen(fname, H5F_ACC_RDWR, H5P_DEFAULT);
-    } H5E_END_TRY;
-
-    /* Case 3: reopen file with wrong member size */
-    if(H5Pset_fapl_family(fa_pl, (hsize_t)128, H5P_DEFAULT)<0)
-        goto error;
-
-    H5E_BEGIN_TRY {
-        file=H5Fopen(fname, H5F_ACC_RDWR, fa_pl);
-    } H5E_END_TRY;
-    
-    /* Case 4: reopen file with wrong name template */
-    strcpy(wrong_name, fname);
-    for(i=0; i<1024; i++) {
-        if(wrong_name[i] == '5') {
-            wrong_name[i] = '4';
-            break;
-        }
-    }
-
-    if(H5Pset_fapl_family(fa_pl, (hsize_t)FAMILY_SIZE, H5P_DEFAULT)<0)
-        goto error;
-
-    H5E_BEGIN_TRY {
-        file=H5Fopen(wrong_name, H5F_ACC_RDWR, fa_pl);
-    } H5E_END_TRY;
-
-    return 0;
-error:
-    return -1;
-}
-
-
-/*-------------------------------------------------------------------------
- * Function:    test_family
- *
- * Purpose:     Tests the file handle interface for FAMILY driver
- *
- * Return:      Success:        exit(0)
- *
- *              Failure:        exit(1)
- *
- * Programmer:  Raymond Lu
- *              Tuesday, Sept 24, 2002
- *
- * Modifications:
- *
- *              Raymond Lu
- *              Wednesday, June 23, 2004
- *              Added test for H5Fget_filesize.
- *
- *              Raymond Lu
- *              June 2, 2005
- *              Added a function test_family_opens() to test different 
- *              wrong way to reopen family files.
- *
- *-------------------------------------------------------------------------
- */
-static herr_t
-test_family(void)
-{
-    hid_t       file=(-1), fapl, fapl2=(-1), space=(-1), dset=(-1);
-    hid_t       access_fapl = -1;
-    char        filename[1024];
-    char        dname[]="dataset";
-    int         i, j;
-    int         *fhandle=NULL, *fhandle2=NULL;
-    int         buf[FAMILY_NUMBER][FAMILY_SIZE];
-    hsize_t     dims[2]={FAMILY_NUMBER, FAMILY_SIZE};
-    hsize_t     file_size;
-
-    TESTING("FAMILY file driver");
-
-    /* Set property list and file name for FAMILY driver */
-    fapl = h5_fileaccess();
-
-    if(H5Pset_fapl_family(fapl, (hsize_t)FAMILY_SIZE, H5P_DEFAULT)<0)
-        goto error;
-    h5_fixname(FILENAME[2], fapl, filename, sizeof filename);
-
-    if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
-        goto error;
-
-    if(H5Fclose(file)<0)
-        goto error;
-
-    /* Test different wrong ways to reopen family files where there's only 
-     * one member file existing. */
-    if(test_family_opens(filename, fapl)<0)
-        goto error;
-
-    /* Reopen the file with default member file size */
-    if(H5Pset_fapl_family(fapl, (hsize_t)H5F_FAMILY_DEFAULT, H5P_DEFAULT)<0)
-        goto error;
-
-    if((file=H5Fopen(filename, H5F_ACC_RDWR, fapl))<0)
-        goto error;
-
-    /* Check file size API */
-    if(H5Fget_filesize(file, &file_size) < 0)
-        goto error;
-
-    /* The file size is supposed to be about 1024 bytes right now. */
-    if(file_size<KB/2 || file_size>4*KB)
-        goto error;
-
-    /* Create and write dataset */
-    if((space=H5Screate_simple(2, dims, NULL))<0)
-        goto error;
-
-    /* Retrieve the access property list... */
-    if ((access_fapl = H5Fget_access_plist(file)) < 0)
-        goto error;
-
-    /* ...and close the property list */
-    if (H5Pclose(access_fapl) < 0)
-        goto error;
-
-    if((dset=H5Dcreate(file, dname, H5T_NATIVE_INT, space, H5P_DEFAULT))<0)
-        goto error;
-
-    for(i=0; i<FAMILY_NUMBER; i++)
-        for(j=0; j<FAMILY_SIZE; j++)
-            buf[i][j] = i*10000+j;
-    if(H5Dwrite(dset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf)<0) 
-        goto error;
-
-    /* check file handle API */
-    if((fapl2=H5Pcreate(H5P_FILE_ACCESS))<0)
-        goto error;
-    if(H5Pset_family_offset(fapl2, (hsize_t)0)<0)
-        goto error;
-
-    if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle)<0)
-        goto error;
-    if(*fhandle<0)
-        goto error;
-
-    if(H5Pset_family_offset(fapl2, (hsize_t)(FAMILY_SIZE*2))<0)
-        goto error;
-    if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle2)<0)
-        goto error;
-    if(*fhandle2<0)
-        goto error;
-
-    /* Check file size API */
-    if(H5Fget_filesize(file, &file_size) < 0)
-        goto error;
-
-    /* Some data has been written.  The file size should be bigger(18KB+976 
-     * bytes if int size is 4 bytes) now. */ 
-    if(sizeof(int)<=4) {
-        if(file_size<18*KB || file_size>20*KB)
-            goto error;
-    } else if(sizeof(int)>=8) {
-        if(file_size<32*KB || file_size>40*KB)
-            goto error;
-    }
-   
-    if(H5Sclose(space)<0)
-        goto error;
-    if(H5Dclose(dset)<0)
-        goto error;
-    if(H5Pclose(fapl2)<0)
-        goto error;
-    if(H5Fclose(file)<0)
-        goto error;
-
-    /* Test different wrong ways to reopen family files when there're multiple
-     * member files existing. */
-    if(test_family_opens(filename, fapl)<0)
-        goto error;
-
-    /* Reopen the file with correct member file size. */
-    if(H5Pset_fapl_family(fapl, (hsize_t)FAMILY_SIZE, H5P_DEFAULT)<0)
-        goto error;
-
-    if((file=H5Fopen(filename, H5F_ACC_RDWR, fapl))<0)
-        goto error;
-
-    if(H5Fclose(file)<0)
-        goto error;
-    
-    h5_cleanup(FILENAME, fapl);
-    PASSED();
-    return 0;
-
-error:
-    H5E_BEGIN_TRY {
-        H5Sclose(space);
-        H5Dclose(dset);
-        H5Pclose (fapl2);
-        H5Fclose(file);
-    } H5E_END_TRY;
-    return -1;
-}
-
-
-/*-------------------------------------------------------------------------
- * Function:    test_family_compat
- *
- * Purpose:     Tests the backward compatibility for FAMILY driver.  
- *              See if we can open files created with v1.6 library.
- *              The source file was created by the test/file_handle.c
- *              of the v1.6 library.  Then tools/misc/h5repart.c was
- *              used to concantenated.  The command was "h5repart -m 5k
- *              family_file%05d.h5 family_v1.6_%05d.h5".
- *
- * Return:      Success:        exit(0)
- *
- *              Failure:        exit(1)
- *
- * Programmer:  Raymond Lu
- *              June 3, 2005
- *
- * Modifications:
- *-------------------------------------------------------------------------
- */
-static herr_t 
-test_family_compat(void)
-{
-    hid_t       file=(-1), fapl;
-    char        filename[1024];
-    char        pathname[1024];
-    char       *srcdir = getenv("srcdir"); /*where the src code is located*/ 
-
-    TESTING("FAMILY file driver backward compatibility");
-
-#ifndef H5_WANT_H5_V1_6_COMPAT
-    SKIPPED();
-    return 0;
-#else /*H5_WANT_H5_V1_6_COMPAT*/
-
-    /* Set property list and file name for FAMILY driver */
-    fapl = h5_fileaccess();
-
-    if(H5Pset_fapl_family(fapl, (hsize_t)FAMILY_SIZE2, H5P_DEFAULT)<0)
-        goto error;
-
-    h5_fixname(COMPAT_BASENAME, fapl, filename, sizeof filename);
-
-    /* Generate correct name for test file by prepending the source path */
-    if(srcdir && ((strlen(srcdir) + strlen(filename) + 1) < sizeof(pathname))) {
-        strcpy(pathname, srcdir);
-        strcat(pathname, "/");
-    } 
-    strcat(pathname, filename);
-
-    if((file=H5Fopen(pathname, H5F_ACC_RDONLY, fapl))<0)
-        goto error;
-
-    if(H5Fclose(file)<0)
-        goto error;
-
-    if(H5Pclose(fapl)<0)
-        goto error;
-
-    PASSED();
-    return 0;
-
-error:
-    H5E_BEGIN_TRY {
-        H5Fclose(file);
-    } H5E_END_TRY;
-    return -1;
-#endif /*H5_WANT_H5_V1_6_COMPAT*/
-}
-
-
-/*-------------------------------------------------------------------------
- * Function:    test_multi_opens
- *
- * Purpose:     Private function for test_multi() to tests wrong ways of
- *              reopening multi file.
- *
- * Return:      Success:        exit(0)
- *
- *              Failure:        exit(1)
- *
- * Programmer:  Raymond Lu
- *              Thursday, May 19, 2005
- *
- * Modifications:
- *-------------------------------------------------------------------------
- */
-static herr_t
-test_multi_opens(char *fname, hid_t fa_pl)
-{
-    hid_t file;
-    char  super_name[1024];     /*name string "%%s-s.h5"*/
-    char  sf_name[1024];        /*name string "multi_file-s.h5"*/
-
-    /* Case: reopen with the name of super file and default property list */ 
-    sprintf(super_name, "%%s-%c.h5", 's');
-    sprintf(sf_name, super_name, fname);
-
-    H5E_BEGIN_TRY {
-        file=H5Fopen(sf_name, H5F_ACC_RDWR, H5P_DEFAULT);
-    } H5E_END_TRY;
-
-    return 0;
-}
-
-
-/*-------------------------------------------------------------------------
- * Function:    test_multi
- *
- * Purpose:     Tests the file handle interface for MUTLI driver
- *
- * Return:      Success:        exit(0)
- *
- *              Failure:        exit(1)
- *
- * Programmer:  Raymond Lu
- *              Tuesday, Sept 24, 2002
- *
- * Modifications:
- *
- *              Raymond Lu
- *              Wednesday, June 23, 2004
- *              Added test for H5Fget_filesize.
- *  
- *-------------------------------------------------------------------------
- */
-static herr_t
-test_multi(void)
-{
-    hid_t       file=(-1), fapl, fapl2=(-1), dset=(-1), space=(-1);
-    hid_t       access_fapl = -1;
-    char        filename[1024];
-    int         *fhandle2=NULL, *fhandle=NULL;
-    hsize_t     file_size;
-    H5FD_mem_t  mt, memb_map[H5FD_MEM_NTYPES];
-    hid_t       memb_fapl[H5FD_MEM_NTYPES];
-    haddr_t     memb_addr[H5FD_MEM_NTYPES];
-    const char  *memb_name[H5FD_MEM_NTYPES];
-    char        sv[H5FD_MEM_NTYPES][32];
-    hsize_t     dims[2]={MULTI_SIZE, MULTI_SIZE};
-    char        dname[]="dataset";
-    int         i, j;
-    int         buf[MULTI_SIZE][MULTI_SIZE];
-
-    TESTING("MULTI file driver");
-    /* Set file access property list for MULTI driver */
-    fapl = h5_fileaccess();
-
-    HDmemset(memb_map, 0,  sizeof memb_map);
-    HDmemset(memb_fapl, 0, sizeof memb_fapl);
-    HDmemset(memb_name, 0, sizeof memb_name);
-    HDmemset(memb_addr, 0, sizeof memb_addr);
-    HDmemset(sv, 0, sizeof sv);
-
-    for(mt=H5FD_MEM_DEFAULT; mt<H5FD_MEM_NTYPES; H5_INC_ENUM(H5FD_mem_t,mt))
-        memb_map[mt] = H5FD_MEM_SUPER;
-    memb_map[H5FD_MEM_DRAW] = H5FD_MEM_DRAW;
-
-    memb_fapl[H5FD_MEM_SUPER] = H5P_DEFAULT;
-    sprintf(sv[H5FD_MEM_SUPER], "%%s-%c.h5", 's');
-    memb_name[H5FD_MEM_SUPER] = sv[H5FD_MEM_SUPER];
-    memb_addr[H5FD_MEM_SUPER] = 0;
-
-    memb_fapl[H5FD_MEM_DRAW] = H5P_DEFAULT; 
-    sprintf(sv[H5FD_MEM_DRAW], "%%s-%c.h5", 'r');
-    memb_name[H5FD_MEM_DRAW] = sv[H5FD_MEM_DRAW];
-    memb_addr[H5FD_MEM_DRAW] = HADDR_MAX/2;
-
-    if(H5Pset_fapl_multi(fapl, memb_map, memb_fapl, memb_name, memb_addr, TRUE)<0)
-        goto error;
-    h5_fixname(FILENAME[3], fapl, filename, sizeof filename);
-
-    if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
-        goto error;
-
-    if(H5Fclose(file)<0)                                      
-        goto error;
-    
-    /* Test wrong ways to reopen multi files */
-    if(test_multi_opens(filename, fapl)<0)
-        goto error;
-
-    /* Reopen the file */
-    if((file=H5Fopen(filename, H5F_ACC_RDWR, fapl))<0)
-        goto error;
-
-    /* Create and write data set */
-    if((space=H5Screate_simple(2, dims, NULL))<0)
-        goto error;
-
-    /* Retrieve the access property list... */
-    if ((access_fapl = H5Fget_access_plist(file)) < 0)
-        goto error;
-
-    /* ...and close the property list */
-    if (H5Pclose(access_fapl) < 0)
-        goto error;
-
-    /* Check file size API */
-    if(H5Fget_filesize(file, &file_size) < 0)
-        goto error;
-
-    /* Before any data is written, the raw data file is empty.  So
-     * the file size is only the size of metadata file.  It's supposed
-     * to be 2KB.
-     */ 
-    if(file_size<1*KB || file_size>4*KB)
-        goto error;
-
-    if((dset=H5Dcreate(file, dname, H5T_NATIVE_INT, space, H5P_DEFAULT))<0)
-        goto error;
-    
-    for(i=0; i<MULTI_SIZE; i++)
-        for(j=0; j<MULTI_SIZE; j++)
-            buf[i][j] = i*10000+j;
-    if(H5Dwrite(dset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf)<0)
-        goto error;
-
-    if((fapl2=H5Pcreate(H5P_FILE_ACCESS))<0)
-        goto error;
-    if(H5Pset_multi_type(fapl2, H5FD_MEM_SUPER)<0)
-        goto error;
-    if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle)<0)
-        goto error;
-    if(*fhandle<0)
-        goto error;
-
-    if(H5Pset_multi_type(fapl2, H5FD_MEM_DRAW)<0)
-        goto error;
-    if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle2)<0)
-        goto error;
-    if(*fhandle2<0)
-        goto error;
-
-    /* Check file size API */
-    if(H5Fget_filesize(file, &file_size) < 0)
-        goto error;
-
-    /* After the data is written, the file size is huge because the 
-     * beginning of raw data file is set at HADDR_MAX/2.  It's supposed
-     * to be (HADDR_MAX/2 + 128*128*4) 
-     */
-    if(file_size < HADDR_MAX/2 || file_size > HADDR_MAX)
-        goto error;
-
-    if(H5Sclose(space)<0)
-        goto error;
-    if(H5Dclose(dset)<0)
-        goto error;
-    if(H5Pclose(fapl2)<0)
-        goto error;
-    if(H5Fclose(file)<0)                                      
-        goto error;                                           
-
-    h5_cleanup(FILENAME, fapl);                               
-    PASSED();                                               
-
-    return 0;                                                 
-                                                                                                                                         
-error:                                                        
-    H5E_BEGIN_TRY {                                           
-        H5Sclose(space);
-        H5Dclose(dset);
-        H5Pclose(fapl);
-        H5Pclose(fapl2);
-        H5Fclose(file);                                       
-    } H5E_END_TRY;                                            
-    return -1;                                 
-}
-
-
-/*-------------------------------------------------------------------------
- * Function:    main
- * 
- * Purpose:     Tests the file handle interface(H5Fget_vfd_handle and 
- *              H5FDget_vfd_handle)
- * 
- * Return:      Success:        exit(0)
- *              
- *              Failure:        exit(1)
- * 
- * Programmer:  Raymond Lu
- *              Tuesday, Sept 24, 2002
- * 
- * Modifications:
- *
- *-------------------------------------------------------------------------
- */
-int
-main(void)
-{   
-    int                 nerrors=0;
-               
-    h5_reset(); 
-
-    nerrors += test_sec2()<0      ?1:0;
-    nerrors += test_core()<0      ?1:0;
-    nerrors += test_family()<0    ?1:0;
-    nerrors += test_family_compat()<0    ?1:0;
-    nerrors += test_multi()<0     ?1:0;
-
-    if (nerrors) goto error;
-       printf("All file handle tests passed.\n");
-    return 0;
-
-error:
-    nerrors = MAX(1, nerrors);
-    printf("***** %d FILE HANDLE TEST%s FAILED! *****\n",
-            nerrors, 1 == nerrors ? "" : "S");
-    return 1;
-}