[svn-r949] Changes since 19981124

----------------------

./src/H5T.c
	Fixed a typo in the registration of the `unsigned char' to
	`unsigned long long' type conversion that caused it to not be
	registered, falling back to software whenever that conversion
	path was taken.

./MANIFEST
./test/Makefile.in
./test/testhdf5.c
./test/testhdf5.h
./test/theap.c		[REMOVED]
./test/lheap.c		[NEW]
./test/tohdr.c		[REMOVED]
./test/ohdr.c		[NEW]
./test/tstab.c		[REMOVED]
./test/stab.c		[NEW]
	Removed the `t' from the front of these names and made each
	test a stand-alone program following the format of most of the
	other tests.

./test/big.c
	Uses libh5test.a but always sets the low-level driver to 1GB
	file family.

	The `#if' near the top to set the data space to 8GB has been
	simplified now that `long_long' is always defined and the
	error message is improved when `long_long' isn't wide enough.

	Cleanup code was added to the error handling.

./test/gheap.c
./test/istore.c
	Uses libh5test.a.  Added error cleanup code.

./test/dtypes.c
./test/h5test.c
	Added 68 new tests that check hardware and software
	conversions between `long long' and `unsigned long long' and
	the other integer types.  The tests only run on machines where
	sizeof(long_long)!=sizeof(long).  We test a total of 180
	different integer conversions, half in hardware and half in
	software.

	Cut down the number of times each test is run from 5 to 1 so
	it doesn't take so long.  If you want to run more times
	there's a constant that can be changed at the top of the file.

./test/extend.c
	Removed unused variable.

./test/h5test.c
./test/h5test.h
./test/external.c
./test/fillval.c
	The h5_cleanup() returns true/false so it can be used in an `if'
	statement to clean up additional files.

./doc/html/Environment.html
	Indented.  Added HDF5_PREFIX and HDF5_DRIVER descriptions.

./src/H5P.c
	Changed the trace type for the second argument from `Iu' to
	`x' since it's an output parameter.

./INSTALL
	Added a warning that the GNU zlib that comes with the latest
	version of HDF4 is too old to use with HDF5 and must be
	renamed so configure doesn't see it when `--enable-hdf4' is
	used.

1 files changed, 278 insertions, 0 deletions

diff --git a/test/ohdr.c b/test/ohdr.c
new file mode 100644
index 0000000..ec6c3b1
--- /dev/null
+++ b/test/ohdr.c
@@ -0,0 +1,278 @@
+/*
+ * Copyright © 1998 NCSA
+ *                  All rights reserved.
+ *
+ * Programmer:  Robb Matzke <matzke@llnl.gov>
+ *              Tuesday, November 24, 1998
+ */
+#include <h5test.h>
+#include <H5Iprivate.h>
+#include <H5Oprivate.h>
+
+/*
+ * This file needs to access private datatypes from the H5G package.
+ */
+#define H5G_PACKAGE
+#include <H5Gpkg.h>
+
+const char *FILENAME[] = {
+    "ohdr",
+    NULL
+};
+
+
+/*-------------------------------------------------------------------------
+ * Function:	main
+ *
+ * Purpose:	
+ *
+ * Return:	Success:	
+ *
+ *		Failure:	
+ *
+ * Programmer:	Robb Matzke
+ *              Tuesday, November 24, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+int
+main(void)
+{
+    hid_t	fapl=-1, file=-1;
+    H5F_t	*f=NULL;
+    char	filename[1024];
+    H5G_entry_t	oh_ent;
+    H5O_stab_t	stab, ro, *ptr=NULL;
+    int		i;
+
+    /* Reset library */
+    h5_reset();
+    fapl = h5_fileaccess();
+    h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
+    if ((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
+	goto error;
+    if (NULL==(f=H5I_object(file))) {
+	H5Eprint(stdout);
+	goto error;
+    }
+
+    /*
+     * Test object header creation
+     */
+    TESTING("object header creation");
+    if (H5O_create(f, 64, &oh_ent/*out*/)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    PASSED();
+
+    /* create a new message */
+    TESTING("message creation");
+    stab.btree_addr.offset = 11111111;
+    stab.heap_addr.offset = 22222222;
+    if (H5O_modify(&oh_ent, H5O_STAB, H5O_NEW_MESG, 0, &stab)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5AC_flush(f, NULL, 0, TRUE)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (NULL==(ptr=H5O_read(&oh_ent, H5O_STAB, 0, &ro))) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5F_addr_ne(&(ro.btree_addr), &(stab.btree_addr)) ||
+	H5F_addr_ne(&(ro.heap_addr), &(stab.heap_addr))) {
+	FAILED();
+	HDfprintf(stdout, "    got: {%a, %a}\n",
+		  &(ro.btree_addr), &(ro.heap_addr));
+	HDfprintf(stdout, "    ans: {%a, %a}\n",
+		  &(stab.btree_addr), &(stab.heap_addr));
+	goto error;
+    }
+    PASSED();
+
+    /*
+     * Test modification of an existing message.
+     */
+    TESTING("message modification");
+    stab.btree_addr.offset = 33333333;
+    stab.heap_addr.offset = 44444444;
+    if (H5O_modify(&oh_ent, H5O_STAB, 0, 0, &stab)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5AC_flush(f, NULL, 0, TRUE)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (NULL==(ptr=H5O_read(&oh_ent, H5O_STAB, 0, &ro))) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5F_addr_ne(&(ro.btree_addr), &(stab.btree_addr)) ||
+	H5F_addr_ne(&(ro.heap_addr), &(stab.heap_addr))) {
+	FAILED();
+	HDfprintf(stdout, "    got: {%a, %a}\n",
+		  &(ro.btree_addr), &(ro.heap_addr));
+	HDfprintf(stdout, "    ans: {%a, %a}\n",
+		  &(stab.btree_addr), &(stab.heap_addr));
+	goto error;
+    }
+    PASSED();
+
+
+    /*
+     * Test creation of a second message of the same type.
+     */
+    TESTING("duplicate message creation");
+    stab.btree_addr.offset = 55555555;
+    stab.heap_addr.offset = 66666666;
+    if (H5O_modify(&oh_ent, H5O_STAB, H5O_NEW_MESG, 0, &stab)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5AC_flush(f, NULL, 0, TRUE)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (NULL==(ptr=H5O_read(&oh_ent, H5O_STAB, 1, &ro))) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5F_addr_ne(&(ro.btree_addr), &(stab.btree_addr)) ||
+	H5F_addr_ne(&(ro.heap_addr), &(stab.heap_addr))) {
+	FAILED();
+	HDfprintf(stdout, "    got: {%a, %a}\n",
+		  &(ro.btree_addr), &(ro.heap_addr));
+	HDfprintf(stdout, "    ans: {%a, %a}\n",
+		  &(stab.btree_addr), &(stab.heap_addr));
+	goto error;
+    }
+    PASSED();
+	
+    /*
+     * Test modification of the second message with a symbol table.
+     */
+    TESTING("duplicate message modification");
+    stab.btree_addr.offset = 77777777;
+    stab.heap_addr.offset = 88888888;
+    if (H5O_modify(&oh_ent, H5O_STAB, 1, 0, &stab)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5AC_flush(f, NULL, 0, TRUE)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (NULL==(ptr=H5O_read(&oh_ent, H5O_STAB, 1, &ro))) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5F_addr_ne(&(ro.btree_addr), &(stab.btree_addr)) ||
+	H5F_addr_ne(&(ro.heap_addr), &(stab.heap_addr))) {
+	FAILED();
+	HDfprintf(stdout, "    got: {%a, %a}\n",
+		  &(ro.btree_addr), &(ro.heap_addr));
+	HDfprintf(stdout, "    ans: {%a, %a}\n",
+		  &(stab.btree_addr), &(stab.heap_addr));
+	goto error;
+    }
+    PASSED();
+
+    /*
+     * Test creation of a bunch of messages one after another to see
+     * what happens when the object header overflows in core.
+     */
+    TESTING("object header overflow in memory");
+    for (i=0; i<40; i++) {
+        stab.btree_addr.offset = (i+1)*1000+1;
+        stab.heap_addr.offset = (i+1)*1000+2;
+        if (H5O_modify(&oh_ent, H5O_STAB, H5O_NEW_MESG, 0, &stab)<0) {
+	    FAILED();
+	    H5Eprint(stdout);
+	    goto error;
+	}
+    }
+    if (H5AC_flush(f, NULL, 0, TRUE)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    PASSED();
+
+    /*
+     * Test creation of a bunch of messages one after another to see
+     * what happens when the object header overflows on disk.
+     */
+    TESTING("object header overflow on disk");
+    for (i=0; i<10; i++) {
+        stab.btree_addr.offset = (i + 1) * 1000 + 10;
+        stab.heap_addr.offset = (i + 1) * 1000 + 20;
+        if (H5O_modify(&oh_ent, H5O_STAB, H5O_NEW_MESG, 0, &stab)<0) {
+	    FAILED();
+	    H5Eprint(stdout);
+	    goto error;
+	}
+        if (H5AC_flush(f, NULL, 0, TRUE)<0) {
+	    FAILED();
+	    H5Eprint(stdout);
+	    goto error;
+	}
+    }
+    PASSED();
+
+    /*
+     * Delete all symbol table messages.
+     */
+    TESTING("message deletion");
+    if (H5O_remove(&oh_ent, H5O_STAB, H5O_ALL)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5O_read(&oh_ent, H5O_STAB, 0, &ro)) {
+	FAILED();
+	puts("    H5O_read() should have failed but didn't");
+	H5Eclear();
+	goto error;
+    }
+    PASSED();
+    
+
+    /* release resources */
+    TESTING("object header closing");
+    if (H5O_close(&oh_ent)<0) {
+	FAILED();
+	H5Eprint(stdout);
+	goto error;
+    }
+    if (H5Fclose(file)<0) goto error;
+    PASSED();
+
+    puts("All object header tests passed.");
+    h5_cleanup(fapl);
+    return 0;
+
+ error:
+    H5E_BEGIN_TRY {
+	H5Fclose(file);
+    } H5E_END_TRY;
+    return 1;
+}