diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2001-11-02 15:21:51 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2001-11-02 15:21:51 (GMT) |
| commit | 651c4b1064a0b4a709a2ed4219840cf50ed88eea (patch) | |
| tree | 6e1fefe85f637b2d4720069886f3315429e6208c /testpar/t_file.c | |
| parent | 1398cc0eef0cfcc69835edb5831681a573aadd14 (diff) | |
| download | hdf5-651c4b1064a0b4a709a2ed4219840cf50ed88eea.zip hdf5-651c4b1064a0b4a709a2ed4219840cf50ed88eea.tar.gz hdf5-651c4b1064a0b4a709a2ed4219840cf50ed88eea.tar.bz2 | |
[svn-r4582] Purpose:
New test feature
Description:
Added create_faccess_plist() that create just MPIO or split+MPIO
file-access property list. This in turn can run parallel tests
with just MPIO or with Split-file VFD too.
Added -s option for split-file Plus MPIO tests.
For testphdf5.c: removed a bunch of old debug code that got left
in by mistake.
Platforms tested:
Modi4 and eirene parallel.
But it has uncovered errors in the library. The test program
is correct though. Checking the test program in so that it won't
get lost and can be used for debugging. Also, the -s is not used
by default during test. At least it won't abort "make check".
Diffstat (limited to 'testpar/t_file.c')
| -rw-r--r-- | testpar/t_file.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/testpar/t_file.c b/testpar/t_file.c index 668ae60..e34a068 100644 --- a/testpar/t_file.c +++ b/testpar/t_file.c @@ -52,12 +52,8 @@ test_split_comm_access(char *filename) MPI_Comm_rank(comm,&sub_mpi_rank); /* setup file access template */ - acc_tpl = H5Pcreate (H5P_FILE_ACCESS); + acc_tpl = create_faccess_plist(comm, info, facc_type); VRFY((acc_tpl >= 0), ""); - - /* set Parallel access with communicator */ - ret = H5Pset_fapl_mpio(acc_tpl, comm, info); - VRFY((ret >= 0), ""); /* create the file collectively */ fid=H5Fcreate(filename,H5F_ACC_TRUNC,H5P_DEFAULT,acc_tpl); @@ -74,7 +70,7 @@ test_split_comm_access(char *filename) /* detele the test file */ if (sub_mpi_rank == 0){ mrc = MPI_File_delete(filename, info); - VRFY((mrc==MPI_SUCCESS), ""); + /*VRFY((mrc==MPI_SUCCESS), ""); */ } } mrc = MPI_Barrier(MPI_COMM_WORLD); |