Test program for the rename() function. Supplied by Greg King - thanks!

git-svn-id: svn://svn.cc65.org/cc65/trunk@3946 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/testcode/lib/rename-test.c b/testcode/lib/rename-test.c
new file mode 100644 (file)
index 0000000..6778525
--- /dev/null
+++ b/testcode/lib/rename-test.c
@@ -0,0 +1,115 @@
+/* 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;
+}
+
+