summaryrefslogtreecommitdiffstats
path: root/test/tstab.c
diff options
context:
space:
mode:
authorRobb Matzke <matzke@llnl.gov>1997-08-29 16:59:28 (GMT)
committerRobb Matzke <matzke@llnl.gov>1997-08-29 16:59:28 (GMT)
commit3d526ab6cb594c656497fce7efe0589c0f840272 (patch)
tree147f28e7f94c60701a2374c0eb094749e11f6653 /test/tstab.c
parent9ada2de83a7a4038e4b3d0e500360eb38ee6ecaa (diff)
downloadhdf5-3d526ab6cb594c656497fce7efe0589c0f840272.zip
hdf5-3d526ab6cb594c656497fce7efe0589c0f840272.tar.gz
hdf5-3d526ab6cb594c656497fce7efe0589c0f840272.tar.bz2
[svn-r51] ./test/tstab.c
./test/tohdr.c ./test/tmeta.c ./test/theap.c ./test/tfile.c ./test/testhdf5.h ./test/testhdf5.c Changed the MESSAGE macro so it doesn't have a semicolon inside the argument list and automatic indentation tools work better. Old call: MESSAGE (5, printfunc("foo%s %d", s, i);); New call: MESSAGE (5, ("foo%s %d", s, i)); The parentheses are required. ./test/tstab.c Added more tests.
Diffstat (limited to 'test/tstab.c')
-rw-r--r--test/tstab.c229
1 files changed, 219 insertions, 10 deletions
diff --git a/test/tstab.c b/test/tstab.c
index 329b762..47beae7 100644
--- a/test/tstab.c
+++ b/test/tstab.c
@@ -24,22 +24,207 @@
/*-------------------------------------------------------------------------
- * Function: test_stab
+ * Function: test_1
*
- * Purpose: Test symbol tables
+ * Purpose: Tests the non-directory features of the HDF5 file. If the
+ * file has just one non-directory object, then that object
+ * should be the root object and there is no directory.
*
* Return: void
*
* Programmer: Robb Matzke
- * matzke@viper.llnl.gov
- * Aug 7 1997
+ * robb@maya.nuance.com
+ * Aug 29 1997
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
-void
-test_stab (void)
+static void
+test_1 (void)
+{
+ hatom_t fid;
+ hdf5_file_t *f;
+ H5G_entry_t ent, ent2, dir_ent;
+ herr_t status;
+ H5O_name_t name_mesg;
+ void *status_ptr;
+
+ MESSAGE (2, ("........non-directory files\n"));
+
+ /*
+ * Test 1A: Create an empty file and add a non-directory object
+ * to the file with the name `/'. The object should become the
+ * root object and should not have a name message.
+ */
+
+ /* create the file */
+ fid = H5Fcreate ("tstab1.h5", H5ACC_OVERWRITE, 0, 0);
+ CHECK (fid, FAIL, "H5Fcreate");
+ f = H5Aatom_object (fid);
+ CHECK (f, NULL, "H5Aatom_object");
+
+ /* create the object */
+ ent.header = H5O_new (f, 0, 64);
+ CHECK_I (ent.header, "H5O_new");
+ ent.type = H5G_NOTHING_CACHED;
+
+ /* give the object a name */
+ status = H5G_insert (f, f->root_sym, &dir_ent, "/", &ent);
+ CHECK_I (status, "H5G_insert");
+
+ /* is it really the root symbol? */
+ VERIFY (dir_ent.header, 0, "H5G_insert");
+ VERIFY (ent.header, f->root_sym->header, "H5G_insert");
+
+ /* look for a name message -- it shouldn't be present */
+ status_ptr = H5O_read (f, ent.header, &ent, H5O_NAME, 0, &name_mesg);
+ VERIFY (status_ptr, NULL, "H5O_read [didn't fail but should have]");
+
+
+
+ /*
+ * Test 1B: Attempt to read the root object using the name `/'.
+ */
+
+ HDmemset (&dir_ent, 0, sizeof(H5G_entry_t));
+ HDmemset (&ent2, 0, sizeof(H5G_entry_t));
+ status = H5G_find (f, NULL, &dir_ent, "/", &ent2);
+ CHECK_I (status, "H5G_find");
+ VERIFY (dir_ent.header, 0, "H5G_find");
+ VERIFY (ent2.header, ent.header, "H5G_find");
+
+
+
+ /*
+ * Test 1C: Add a second object to the file to see if the first object
+ * gets moved into the new root directory along with the second object.
+ */
+
+ /* create the object */
+ ent2.header = H5O_new (f, 0, 64);
+ CHECK_I (ent2.header, "H5O_new");
+ ent2.type = H5G_NOTHING_CACHED;
+
+ /* give the object a name */
+ status = H5G_insert (f, f->root_sym, &dir_ent, "/second", &ent2);
+ CHECK_I (status, "H5G_insert");
+ CHECK (dir_ent.header, 0, "H5G_insert");
+
+ /* try to read the first object */
+ HDmemset (&ent2, 0, sizeof(H5G_entry_t));
+ status = H5G_find (f, NULL, NULL, "/Root Object", &ent2);
+ CHECK_I (status, "H5G_find");
+ VERIFY (ent2.header, ent.header, "H5G_find");
+
+ /* close the file */
+ H5Fclose (fid);
+
+
+
+ /*
+ * Test 1D: Create an empty file and add a non-directory object
+ * to the file with the name `/foo'. The object should become the
+ * root object and should have a name message with the value `foo'.
+ */
+
+ /* create the file */
+ fid = H5Fcreate ("tstab1.h5", H5ACC_OVERWRITE, 0, 0);
+ CHECK (fid, FAIL, "H5Fcreate");
+ f = H5Aatom_object (fid);
+ CHECK (f, NULL, "H5Aatom_object");
+
+ /* create the object */
+ ent.header = H5O_new (f, 0, 64);
+ CHECK_I (ent.header, "H5O_new");
+ ent.type = H5G_NOTHING_CACHED;
+
+ /* give the object a name */
+ status = H5G_insert (f, f->root_sym, &dir_ent, "/foo", &ent);
+ CHECK_I (status, "H5G_insert");
+
+ /* is it really the root symbol? */
+ VERIFY (dir_ent.header, 0, "H5G_insert");
+ VERIFY (ent.header, f->root_sym->header, "H5G_insert");
+
+ /* does it have the correct name message? */
+ status_ptr = H5O_read (f, ent.header, &ent, H5O_NAME, 0, &name_mesg);
+ CHECK_PTR (status_ptr, "H5O_read");
+ CHECK_PTR (name_mesg.s, "H5O_read");
+ VERIFY (strcmp(name_mesg.s, "foo"), 0, "H5O_read");
+
+
+
+ /*
+ * Test 1E: Try to read the root object with the name `/' and `/foo'
+ */
+
+ HDmemset (&dir_ent, 0, sizeof(H5G_entry_t));
+ HDmemset (&ent2, 0, sizeof(H5G_entry_t));
+ status = H5G_find (f, NULL, &dir_ent, "/", &ent2);
+ CHECK_I (status, "H5G_find");
+ VERIFY (dir_ent.header, 0, "H5G_find");
+ VERIFY (ent2.header, ent.header, "H5G_find");
+
+ HDmemset (&dir_ent, 0, sizeof(H5G_entry_t));
+ HDmemset (&ent2, 0, sizeof(H5G_entry_t));
+ status = H5G_find (f, NULL, &dir_ent, "/foo", &ent2);
+ CHECK_I (status, "H5G_find");
+ VERIFY (dir_ent.header, 0, "H5G_find");
+ VERIFY (ent2.header, ent.header, "H5G_find");
+
+
+
+ /*
+ * Test 1F: Create another object. This should create a root directory
+ * and move the previous root object into that directory.
+ */
+
+ /* create the object */
+ ent2.header = H5O_new (f, 0, 64);
+ CHECK_I (ent2.header, "H5O_new");
+ ent2.type = H5G_NOTHING_CACHED;
+
+ /* give the object a name */
+ status = H5G_insert (f, f->root_sym, &dir_ent, "/second", &ent2);
+ CHECK_I (status, "H5G_insert");
+ CHECK (dir_ent.header, 0, "H5G_insert");
+
+ /* try to read the first object */
+ HDmemset (&ent2, 0, sizeof(H5G_entry_t));
+ status = H5G_find (f, NULL, NULL, "/foo", &ent2);
+ CHECK_I (status, "H5G_find");
+ VERIFY (ent2.header, ent.header, "H5G_find");
+
+#if 0 /* H5O_remove() is not implemented yet */
+ /* the first object should not have a name message */
+ status_ptr = H5O_read (f, ent.header, &ent, H5O_NAME, 0, &name_mesg);
+ VERIFY (status_ptr, NULL, "H5O_read [didn't fail but should have]");
+#endif
+
+ /* close the file */
+ H5Fclose (fid);
+
+}
+
+
+/*-------------------------------------------------------------------------
+ * Function: test_2
+ *
+ * Purpose: Creates a really large directory.
+ *
+ * Return: void
+ *
+ * Programmer: Robb Matzke
+ * robb@maya.nuance.com
+ * Aug 29 1997
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+static void
+test_2 (void)
{
hatom_t fid;
hdf5_file_t *f;
@@ -50,10 +235,10 @@ test_stab (void)
herr_t status;
int nsyms = 5000;
- MESSAGE (5, print_func("Testing Symbol Tables\n"););
+ MESSAGE (2, ("........large directories\n"));
/* create the file */
- fid = H5Fcreate ("tstab.h5", H5ACC_OVERWRITE, 0, 0);
+ fid = H5Fcreate ("tstab2.h5", H5ACC_OVERWRITE, 0, 0);
CHECK (fid, FAIL, "H5Fcreate");
f = H5Aatom_object (fid);
CHECK (f, NULL, "H5Aatom_object");
@@ -66,12 +251,12 @@ test_stab (void)
CHECK_I (status, "H5G_new");
addr = H5G_stab_new (f, &sub, 0);
CHECK_I (addr, "H5G_stab_new");
- MESSAGE (8, print_func ("Address %lu\n", (unsigned long)addr););
+ MESSAGE (8, ("Address %lu\n", (unsigned long)addr));
for (i=0; i<nsyms; i++) {
sprintf (name, "%05d%05d", rand()%100000, i);
- MESSAGE (8, print_func ("%s\n", name););
+ MESSAGE (8, ("%s\n", name));
#if 1
status = H5G_insert (f, &cwd, NULL, name, &sub);
CHECK_I (status, "H5G_insert");
@@ -86,4 +271,28 @@ test_stab (void)
/* close the file */
H5Fclose (fid);
+}
+
+
+
+/*-------------------------------------------------------------------------
+ * Function: test_stab
+ *
+ * Purpose: Test symbol tables
+ *
+ * Return: void
+ *
+ * Programmer: Robb Matzke
+ * matzke@viper.llnl.gov
+ * Aug 7 1997
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+void
+test_stab (void)
+{
+ test_1();
+ test_2();
}