/* * Copyright � 1998 NCSA * All rights reserved. * * Programmer: Robb Matzke <matzke@llnl.gov> * Tuesday, November 24, 1998 */ #include "h5test.h" /* * This file needs to access private datatypes from the H5G package. */ #define H5G_PACKAGE #include "H5Gpkg.h" const char *FILENAME[] = { "stab1", "stab2", NULL }; /*------------------------------------------------------------------------- * Function: test_misc * * Purpose: Test miscellaneous group stuff. * * Return: Success: 0 * * Failure: number of errors * * Programmer: Robb Matzke * Tuesday, November 24, 1998 * * Modifications: * Robb Matzke, 2002-03-28 * File is opened by parent instead of here. *------------------------------------------------------------------------- */ static int test_misc(hid_t file) { hid_t g1=-1, g2=-1, g3=-1; char comment[64]; /* Test current working groups */ TESTING("miscellaneous group tests"); /* 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; if (H5Gclose(g1)<0) goto error; if (H5Gclose(g2)<0) goto error; if (H5Gclose(g3)<0) goto error; /* Open all groups with absolute names to check for exsistence */ if ((g1=H5Gopen(file, "/test_1a"))<0) goto error; if ((g2=H5Gopen(file, "/test_1a/sub_1"))<0) goto error; if ((g3=H5Gopen(file, "/test_1b"))<0) goto error; if (H5Gget_comment(g3, "././.", sizeof comment, comment)<0) goto error; if (strcmp(comment, "hello world")) { H5_FAILED(); puts(" Read the wrong comment string from the group."); printf(" got: \"%s\"\n ans: \"hello world\"\n", comment); goto error; } if (H5Gclose(g1)<0) goto error; if (H5Gclose(g2)<0) goto error; if (H5Gclose(g3)<0) goto error; PASSED(); return 0; error: H5E_BEGIN_TRY { H5Gclose(g1); H5Gclose(g2); H5Gclose(g3); } 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] = (char)('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; } /*------------------------------------------------------------------------- * Function: test_large * * Purpose: Creates a really large directory. * * Return: Success: 0 * * Failure: number of errors * * Programmer: Robb Matzke * robb@maya.nuance.com * Aug 29 1997 * * Modifications: * Robb Matzke, 2002-03-28 * File is opened by parent instead of here. *------------------------------------------------------------------------- */ static int test_large(hid_t file) { hid_t cwg=-1, dir=-1; int i; char name[1024]; int nsyms = 5000; TESTING("large directories"); /* * Create a directory that has so many entries that the root * of the B-tree ends up splitting. */ if ((cwg=H5Gcreate(file, "/big", (size_t)nsyms*16+2))<0) goto error; for (i=0; i<nsyms; i++) { sprintf(name, "%05d%05d", rand()%100000, i); #if 0 fprintf(stderr, "%s\n", name); #endif if ((dir=H5Gcreate(cwg, name, 0))<0) goto error; if (H5Gclose(dir)<0) goto error; } if (H5Gclose(cwg)<0) goto error; PASSED(); return 0; error: H5E_BEGIN_TRY { H5Gclose(dir); H5Gclose(cwg); } H5E_END_TRY; return 1; } /*------------------------------------------------------------------------- * Function: main * * Purpose: Test groups * * Return: Success: zero * * Failure: non-zero * * Programmer: Robb Matzke * Tuesday, November 24, 1998 * * Modifications: * *------------------------------------------------------------------------- */ int main(void) { 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(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; error: puts("*** TESTS FAILED ***"); return 1; }