diff options
author | Robb Matzke <matzke@llnl.gov> | 2002-03-28 15:12:04 (GMT) |
---|---|---|
committer | Robb Matzke <matzke@llnl.gov> | 2002-03-28 15:12:04 (GMT) |
commit | c852beb2b131a8fce297b0cc4cbd38e16d2a3f27 (patch) | |
tree | 3bf2a4d8a4a2f63237e471192043f0ad2fad54f4 /test | |
parent | 9cf5fe4fbb5b1a3e32759c5b7f2d687e67699b40 (diff) | |
download | hdf5-c852beb2b131a8fce297b0cc4cbd38e16d2a3f27.zip hdf5-c852beb2b131a8fce297b0cc4cbd38e16d2a3f27.tar.gz hdf5-c852beb2b131a8fce297b0cc4cbd38e16d2a3f27.tar.bz2 |
[svn-r5107] ./hdf5-1.4/test/stab.c
Fixed bug found by SAF team
2002-03-28 10:45:35 Robb Matzke <matzke@arborea.spizella.com>
* test_long: Added a test for objects that have very long names; names in
excess of 80,000 characters.
2002-03-28 10:45:11 Robb Matzke <matzke@arborea.spizella.com>
* test_large: The hdf5 file is not recreated for each subtest, but rather all
subtests share the same file.
Diffstat (limited to 'test')
-rw-r--r-- | test/stab.c | 117 |
1 files changed, 83 insertions, 34 deletions
diff --git a/test/stab.c b/test/stab.c index fd6c1db..c2af94f 100644 --- a/test/stab.c +++ b/test/stab.c @@ -33,29 +33,24 @@ const char *FILENAME[] = { * Tuesday, November 24, 1998 * * Modifications: - * + * Robb Matzke, 2002-03-28 + * File is opened by parent instead of here. *------------------------------------------------------------------------- */ static int -test_misc(hid_t fapl) +test_misc(hid_t file) { - hid_t file=-1; hid_t g1=-1, g2=-1, g3=-1; - char comment[64], filename[1024]; + char comment[64]; /* Test current working groups */ TESTING("miscellaneous group tests"); - h5_fixname(FILENAME[0], fapl, filename, sizeof filename); - if ((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) - goto error; - + /* Create initial groups for testing, then close */ if ((g1=H5Gcreate(file, "test_1a", 0))<0) goto error; if ((g2=H5Gcreate(g1, "sub_1", 0))<0) goto error; if ((g3=H5Gcreate(file, "test_1b", 0))<0) goto error; if (H5Gset_comment(g3, ".", "hello world")<0) goto error; - - /* Close all groups */ if (H5Gclose(g1)<0) goto error; if (H5Gclose(g2)<0) goto error; if (H5Gclose(g3)<0) goto error; @@ -71,12 +66,10 @@ test_misc(hid_t fapl) printf(" got: \"%s\"\n ans: \"hello world\"\n", comment); goto error; } - - /* Close everything */ if (H5Gclose(g1)<0) goto error; if (H5Gclose(g2)<0) goto error; if (H5Gclose(g3)<0) goto error; - if (H5Fclose(file)<0) goto error; + PASSED(); return 0; @@ -85,7 +78,59 @@ test_misc(hid_t fapl) H5Gclose(g1); H5Gclose(g2); H5Gclose(g3); - H5Fclose(file); + } H5E_END_TRY; + return 1; +} + + +/*------------------------------------------------------------------------- + * Purpose: Creates a group with a very long name + * + * Return: Success: 0 + * + * Failure: number of errors + * + * Programmer: Robb Matzke <matzke@llnl.gov> 2002-03-28 + * + * Modifications: + *------------------------------------------------------------------------- + */ +static int +test_long(hid_t file) +{ + hid_t g1=-1, g2=-1; + char *name1=NULL, *name2=NULL; + size_t namesize=40960, i; + + TESTING("long names"); + + /* Group names */ + name1 = malloc(namesize); + for (i=0; i<namesize; i++) + name1[i] = 'A' + i%26; + name1[namesize-1] = '\0'; + name2 = malloc(2*namesize + 2); + sprintf(name2, "%s/%s", name1, name1); + + /* Create groups */ + if ((g1=H5Gcreate(file, name1, 0))<0) goto error; + if ((g2=H5Gcreate(g1, name1, 0))<0) goto error; + H5Gclose(g1); + H5Gclose(g2); + + /* Open groups */ + if ((g1=H5Gopen(file, name1))<0) goto error; + if ((g2=H5Gopen(file, name2))<0) goto error; + H5Gclose(g1); + H5Gclose(g2); + + PASSED(); + return 0; + + error: + H5E_BEGIN_TRY { + H5Gclose(g1); + H5Gclose(g2); } H5E_END_TRY; return 1; } @@ -105,13 +150,14 @@ test_misc(hid_t fapl) * Aug 29 1997 * * Modifications: - * + * Robb Matzke, 2002-03-28 + * File is opened by parent instead of here. *------------------------------------------------------------------------- */ static int -test_large(hid_t fapl) +test_large(hid_t file) { - hid_t file=-1, cwg=-1, fcpl=-1, dir=-1; + hid_t cwg=-1, dir=-1; int i; char name[1024]; int nsyms = 5000; @@ -119,15 +165,6 @@ test_large(hid_t fapl) TESTING("large directories"); /* - * Use larger symbol table data structures to be more efficient, use - * defaults to bang harder on the library for testing. - */ - fcpl = H5Pcreate(H5P_FILE_CREATE); - H5Pset_sym_k(fcpl, 16, 16); - h5_fixname(FILENAME[1], fapl, name, sizeof name); - if ((file=H5Fcreate(name, H5F_ACC_TRUNC, fcpl, fapl))<0) goto error; - - /* * Create a directory that has so many entries that the root * of the B-tree ends up splitting. */ @@ -142,18 +179,13 @@ test_large(hid_t fapl) } if (H5Gclose(cwg)<0) goto error; - /* Close everything */ - if (H5Pclose(fcpl)<0) goto error; - if (H5Fclose(file)<0) goto error; PASSED(); return 0; error: H5E_BEGIN_TRY { - H5Pclose(fcpl); H5Gclose(dir); H5Gclose(cwg); - H5Fclose(file); } H5E_END_TRY; return 1; } @@ -178,19 +210,36 @@ test_large(hid_t fapl) int main(void) { - hid_t fapl; + hid_t fapl, fcpl, file; int nerrors=0; + char filename[1024]; /* Reset library */ h5_reset(); fapl = h5_fileaccess(); + /* + * Use larger symbol table data structures to be more efficient, use + * defaults to bang harder on the library for testing. + */ + fcpl = H5Pcreate(H5P_FILE_CREATE); +#if 0 + H5Pset_sym_k(fcpl, 16, 16); +#endif + + /* Open the file */ + h5_fixname(FILENAME[0], fapl, filename, sizeof filename); + if ((file=H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl))<0) + goto error; + /* Perform tests */ - nerrors += test_misc(fapl); - nerrors += test_large(fapl); + nerrors += test_misc(file); + nerrors += test_long(file); + nerrors += test_large(file); if (nerrors) goto error; /* Cleanup */ + H5Fclose(file); puts("All symbol table tests passed."); h5_cleanup(FILENAME, fapl); return 0; |