mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-02-17 16:10:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r18] ./src/hdf5plat.h

Browse Source 
Added defn for int64 and uint64 on irix.  It seems to be
	wrong, but at least things compile and run.  This file will go
	away with autoconf anyway.

./test/testhdf5.c
./test/Makefile
	Added tstab.c

./test/testhdf5.h
	Added tstab.c

	Fixed bugs with CHECK_I() and CHECK_PTR().
This commit is contained in:
Robb Matzke 1997-08-09 11:47:25 -05:00
parent a260c7849c
commit bae16b355d
4 changed files with 94 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Makefile
View File

@ -14,7 +14,7 @@ DEFS = -I../src
INCL = ../src/hdf5.h testhdf5.h
OBJ = testhdf5.o tmeta.o tfile.o theap.o tohdr.o
OBJ = testhdf5.o tmeta.o tfile.o theap.o tohdr.o tstab.o
LIBS = ../src/libhdf5.a
@ -50,4 +50,7 @@ theap.o: theap.c $(INCL)
tohdr.o: tohdr.c $(INCL)
$(CC) $(CFLAGS) $(DEFS) tohdr.c
tstab.o: tstab.c $(INCL)
$(CC) $(CFLAGS) $(DEFS) tstab.c

1
test/testhdf5.c
View File

@ -150,6 +150,7 @@ int main(int argc, char *argv[])
InitTest("file", test_file, "Low-Level File I/O");
InitTest("heap", test_heap, "Object and Name Heaps");
InitTest("ohdr", test_ohdr, "Object Headers");
InitTest("stab", test_stab, "Symbol Tables");
Verbosity = 4; /* Default Verbosity is Low */
H5version(&major, &minor, &release, &patch);

23
test/testhdf5.h
View File

@ -48,23 +48,23 @@ if(ret == val) {print_func("*** UNEXPECTED RETURN from %s is %ld at line %4d in
if (Verbosity>9) { \
print_func(" Call to routine: %15s at line %4d in %s returned %ld\n", \
(where), (int)__LINE__, __FILE__, (long)(ret)); \
if ((ret)<0) { \
print_func ("*** UNEXPECTED RETURN from %s is %ld line %4d in %s\n", \
(where), (long)(ret), (int)__LINE__, __FILE__); \
num_errs++; \
} \
} \
if ((ret)<0) { \
print_func ("*** UNEXPECTED RETURN from %s is %ld line %4d in %s\n", \
(where), (long)(ret), (int)__LINE__, __FILE__); \
num_errs++; \
} \
}
#define CHECK_PTR(ret,where) { \
if (Verbosity>9) { \
print_func(" Call to routine: %15s at line %4d in %s returned %p\n", \
(where), (int)__LINE__, __FILE__, (ret)); \
if (!(ret)) { \
print_func ("*** UNEXPECTED RETURN from %s is NULL line %4d in %s\n",\
(where), (int)__LINE__, __FILE__); \
num_errs++; \
} \
(where), (int)__LINE__, __FILE__, (ret)); \
} \
if (!(ret)) { \
print_func ("*** UNEXPECTED RETURN from %s is NULL line %4d in %s\n", \
(where), (int)__LINE__, __FILE__); \
num_errs++; \
} \
}
@ -111,6 +111,7 @@ void test_metadata(void);
void test_file(void);
void test_heap (void);
void test_ohdr (void);
void test_stab (void);
#endif /* HDF5TEST_H */

77
test/tstab.c Normal file
View File

@ -0,0 +1,77 @@
/*-------------------------------------------------------------------------
* Copyright (C) 1997 National Center for Supercomputing Applications.
* All rights reserved.
*
*-------------------------------------------------------------------------
*
* Created: tstab.c
* Aug 7 1997
* Robb Matzke <matzke@llnl.gov>
*
* Purpose:
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
#include "testhdf5.h"
#include "H5ACprivate.h"
#include "H5Fprivate.h"
#include "H5Gprivate.h"
/*-------------------------------------------------------------------------
* Function: test_stab
*
* Purpose: Test symbol tables
*
* Return: void
*
* Programmer: Robb Matzke
* matzke@viper.llnl.gov
* Aug 7 1997
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
void
test_stab (void)
{
hatom_t fid;
hdf5_file_t *f;
haddr_t addr;
H5G_entry_t root, sub;
int i;
char name[256];
herr_t status;
MESSAGE (5, print_func("Testing Symbol Tables\n"););
/* create the file */
fid = H5Fcreate ("tstab.h5", H5ACC_OVERWRITE, 0, 0);
CHECK (fid, FAIL, "H5Fcreate");
f = H5Aatom_object (fid);
CHECK (f, NULL, "H5Aatom_object");
/* create a new symbol table */
addr = H5G_stab_new (f, &root, 100);
CHECK_I (addr, "H5G_stab_new");
MESSAGE (8, print_func ("Root address is %lu\n", (unsigned long)addr););
/* create some empty symbol tables as objects in the root stab */
for (i=0; i<16384; i++) {
addr = H5G_stab_new (f, &sub, 0);
CHECK_I (addr, "H5G_stab_new");
sprintf (name, "sub%05d", i);
MESSAGE (8, print_func ("%s\n", name););
status = H5G_stab_insert (f, &root, name, &sub);
CHECK_I (status, "H5G_stab_insert");
}
/* close the file */
H5Fclose (fid);
}