From deeb5978c0377face944162fada47516e0ed063c Mon Sep 17 00:00:00 2001 From: Robb Matzke Date: Tue, 6 Oct 1998 08:16:04 -0500 Subject: [svn-r738] *** empty log message *** --- test/unlink.c | 376 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 376 insertions(+) create mode 100644 test/unlink.c diff --git a/test/unlink.c b/test/unlink.c new file mode 100644 index 0000000..2340777 --- /dev/null +++ b/test/unlink.c @@ -0,0 +1,376 @@ +/* + * Copyright (C) 1998 NCSA + * All rights reserved. + * + * Programmer: Robb Matzke + * Friday, September 25, 1998 + * + * Purpose: Test H5Gunlink(). + */ +#include +#include + +#include +#ifndef HAVE_ATTRIBUTE +# undef __attribute__ +# define __attribute__(X) /*void*/ +# define __unused__ /*void*/ +#else +# define __unused__ __attribute__((unused)) +#endif + +#define FILE_NAME_1 "unlink.h5" +#define THE_OBJECT "/foo" + + + +/*------------------------------------------------------------------------- + * Function: cleanup + * + * Purpose: Removes test files + * + * Return: void + * + * Programmer: Robb Matzke + * Thursday, June 4, 1998 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static void +cleanup (void) +{ + if (!getenv ("HDF5_NOCLEANUP")) { + remove (FILE_NAME_1); + } +} + + +/*------------------------------------------------------------------------- + * Function: display_error_cb + * + * Purpose: Displays the error stack after printing "*FAILED*". + * + * Return: Success: 0 + * + * Failure: -1 + * + * Programmer: Robb Matzke + * Wednesday, March 4, 1998 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static herr_t +display_error_cb (void __unused__ *client_data) +{ + puts ("*FAILED*"); + H5Eprint (stdout); + return 0; +} + + +/*------------------------------------------------------------------------- + * Function: test_one + * + * Purpose: Creates a group that has just one entry and then unlinks that + * entry. + * + * Return: Success: 0 + * + * Failure: number of errors + * + * Programmer: Robb Matzke + * Friday, September 25, 1998 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static int +test_one(hid_t file) +{ + hid_t work, grp; + herr_t status; + + /* Create a test group */ + if ((work=H5Gcreate(file, "/test_one", 0))<0) goto error; + + /* Delete by absolute name */ + printf("%-70s", "Testing unlink by absolute name"); + fflush(stdout); + if ((grp=H5Gcreate(work, "foo", 0))<0) goto error; + if (H5Gclose(grp)<0) goto error; + if (H5Gunlink(file, "/test_one/foo")<0) goto error; + puts(" PASSED"); + + /* Delete by local name */ + printf("%-70s", "Testing unlink by local name"); + fflush(stdout); + if ((grp=H5Gcreate(work, "foo", 0))<0) goto error; + if (H5Gclose(grp)<0) goto error; + if (H5Gunlink(work, "foo")<0) goto error; + puts(" PASSED"); + + /* Delete directly - should fail */ + printf("%-70s", "Testing unlink without a name"); + fflush(stdout); + if ((grp=H5Gcreate(work, "foo", 0))<0) goto error; + H5E_BEGIN_TRY { + status = H5Gunlink(grp, "."); + } H5E_END_TRY; + if (status>=0) { + puts("*FAILED*"); + puts(" Unlinking object w/o a name should have failed."); + goto error; + } + if (H5Gclose(grp)<0) goto error; + puts(" PASSED"); + + /* Cleanup */ + if (H5Gclose(work)<0) goto error; + return 0; + error: + H5Gclose(work); + return 1; +} + + +/*------------------------------------------------------------------------- + * Function: test_many + * + * Purpose: Tests many unlinks in a single directory. + * + * Return: Success: 0 + * + * Failure: number of errors + * + * Programmer: Robb Matzke + * Friday, September 25, 1998 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static int +test_many(hid_t file) +{ + hid_t work, grp; + int i; + const int how_many=500; + char name[32]; + + /* Create a test group */ + if ((work=H5Gcreate(file, "/test_many", 0))<0) goto error; + if ((grp = H5Gcreate(work, "/test_many_foo", 0))<0) goto error; + + /* Create a bunch of names and unlink them in order */ + printf("%-70s", "Testing forward unlink"); + fflush(stdout); + for (i=0; i=0; --i) { + sprintf(name, "obj_%05d", i); + if (H5Gunlink(work, name)<0) goto error; + } + puts(" PASSED"); + + /* Create a bunch of names and unlink them from both directions */ + printf("%-70s", "Testing inward unlink"); + fflush(stdout); + for (i=0; i=0; --i) { + if (i%2) { + sprintf(name, "obj_%05d", how_many-(1+i/2)); + } else { + sprintf(name, "obj_%05d", i/2); + } + if (H5Gunlink(work, name)<0) goto error; + } + puts(" PASSED"); + + + /* Cleanup */ + if (H5Gclose(work)<0) goto error; + return 0; + error: + H5Gclose(work); + return 1; +} + + +/*------------------------------------------------------------------------- + * Function: test_symlink + * + * Purpose: Tests removal of symbolic links. + * + * Return: Success: 0 + * + * Failure: number of errors + * + * Programmer: Robb Matzke + * Friday, September 25, 1998 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static int +test_symlink(hid_t file) +{ + hid_t work; + + printf("%-70s", "Testing symlink removal"); + fflush(stdout); + + /* Create a test group and symlink */ + if ((work=H5Gcreate(file, "/test_symlink", 0))<0) goto error; + if (H5Glink(work, H5G_LINK_SOFT, "link_value", "link")<0) goto error; + if (H5Gunlink(work, "link")<0) goto error; + + /* Cleanup */ + if (H5Gclose(work)<0) goto error; + puts(" PASSED"); + return 0; + error: + H5Gclose(work); + return 1; +} + + +/*------------------------------------------------------------------------- + * Function: test_rename + * + * Purpose: Tests H5Gmove() + * + * Return: Success: 0 + * + * Failure: number of errors + * + * Programmer: Robb Matzke + * Friday, September 25, 1998 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static int +test_rename(hid_t file) +{ + hid_t work, foo, inner; + + + /* Create a test group and rename something */ + printf("%-70s", "Testing object renaming"); + fflush(stdout); + if ((work=H5Gcreate(file, "/test_rename", 0))<0) goto error; + if ((foo=H5Gcreate(work, "foo", 0))<0) goto error; + if (H5Gmove(work, "foo", "bar")<0) goto error; + if ((inner=H5Gcreate(foo, "inner", 0))<0) goto error; + if (H5Gclose(inner)<0) goto error; + if (H5Gclose(foo)<0) goto error; + if ((inner=H5Gopen(work, "bar/inner"))<0) goto error; + if (H5Gclose(inner)<0) goto error; + puts(" PASSED"); + + /* Try renaming a symlink */ + printf("%-70s", "Testing symlink renaming"); + fflush(stdout); + if (H5Glink(work, H5G_LINK_SOFT, "link_value", "link_one")<0) goto error; + if (H5Gmove(work, "link_one", "link_two")<0) goto error; + puts(" PASSED"); + + /* Cleanup */ + if (H5Gclose(work)<0) goto error; + return 0; + error: + H5Gclose(work); + return 1; +} + + + +/*------------------------------------------------------------------------- + * Function: main + * + * Purpose: Test H5Gunlink() + * + * Return: Success: zero + * + * Failure: non-zero + * + * Programmer: Robb Matzke + * Friday, September 25, 1998 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +int +main(void) +{ + hid_t file; + int nerrors = 0; + + /* Open */ + H5Eset_auto(display_error_cb, NULL); + if ((file=H5Fcreate(FILE_NAME_1, H5F_ACC_TRUNC, + H5P_DEFAULT, H5P_DEFAULT))<0) goto error; + + /* Tests */ + nerrors += test_one(file); + nerrors += test_many(file); + nerrors += test_symlink(file); + nerrors += test_rename(file); + + /* Close */ + if (H5Fclose(file)<0) goto error; + if (nerrors) { + printf("***** %d FAILURE%s! *****\n", nerrors, 1==nerrors?"":"S"); + exit(1); + } + puts("All unlink tests passed."); + cleanup(); + return 0; + error: + return 1; +} + + -- cgit v0.12