cc65/testcode/lib/rename-test.c

/* rename-test.c
**
**
** A simple test of the rename function.
**
** 2008-10-06, Greg King
*/

#include <errno.h>
#include <stdio.h>
#include <stdlib.h>


static FILE* file;
static int r;
static char name1[16], name2[16];

int main(void)
{
    /* Generate two temporary file-names that have a random, unused spelling. */
    _randomize();
    for (;;) {
    	r = rand();
    	sprintf(name1, "r%04.4u.1", (unsigned)r);
    	sprintf(name2, "r%04.4u.2", (unsigned)r);

    	/* Ensure that neither file-name exists. */
    	errno = 0;
    	file = fopen(name1, "r");
    	if (file != NULL) {
    	    fclose(file);
    	    continue;			/* try a different spelling */
    	}

    	/* Make sure that fopen() failed for the right reason. */
    	if (errno != ENOENT) {
    	    perror("Disk error with first name");
    	    return EXIT_FAILURE;
    	}

    	errno = 0;
    	file = fopen(name2, "r");
    	if (file != NULL) {
    	    fclose(file);
    	    continue;
    	}
    	if (errno != ENOENT) {
    	    perror("Disk error with second name");
    	    return EXIT_FAILURE;
    	}

    	break;				/* neither one exists; do next step */
    }

    /* Create the first file.
    ** Close it without writing anything because only its name is important.
    */
    printf("Creating file: %s\n", name1);
    file = fopen(name1, "w");
    if (file == NULL) {
    	_poserror("Disk error making first file");
    	return EXIT_FAILURE;
    }
    fclose(file);

    /* Verify that the file-name exists now. */
    file = fopen(name1, "r");
    if (file == NULL) {
    	_poserror("Cannot find first name");
    	return EXIT_FAILURE;
    }
    fclose(file);

    /* Whew!  Finally, we get to the reason why this program exists:
    ** Confirm that the first file-name can be changed into the second
    ** file-name.
    */
    printf("Renaming %s to %s\n", name1, name2);
    r = rename(name1, name2);
    if (r < 0) {
    	_poserror("rename() failed");
    	return EXIT_FAILURE;
    }

    /* Verify that the first file-name no longer exists. */
    file = fopen(name1, "r");
    if (file != NULL) {
    	fclose(file);
    	_poserror("First name still exists");
    	return EXIT_FAILURE;
    }

    /* Verify that the second file-name exists now. */
    file = fopen(name2, "r");
    if (file == NULL) {
    	_poserror("Cannot find second name");
    	return EXIT_FAILURE;
    }
    fclose(file);

    printf("Success!\n");

    /* Delete the second (temporary) name. */
    printf("Removing %s\n", name2);
    r = remove(name2);
    if (r < 0) {
    	_poserror("remove() failed");
    	return EXIT_FAILURE;
    }

    printf("rename() passed the test.\n");
    return EXIT_SUCCESS;
}