pd.if.org Git - pdclib.old/blob - functions/stdio/rename.c

   1 /* $Id$ */
   2
   3 /* rename( const char *, const char * )
   4
   5    This file is part of the Public Domain C Library (PDCLib).
   6    Permission is granted to use, modify, and / or redistribute at will.
   7 */
   8
   9 #include <stdio.h>
  10
  11 #ifndef REGTEST
  12 #include <_PDCLIB_glue.h>
  13
  14 int rename( const char * old, const char * new )
  15 {
  16     /* TODO: Search open file list, flush and close file */
  17     return _PDCLIB_rename( old, new );
  18 }
  19
  20 #endif
  21
  22 #ifdef TEST
  23 /* TODO: Work around the following undef */
  24 #undef SEEK_SET
  25 #include <_PDCLIB_test.h>
  26
  27 #include <stdlib.h>
  28
  29 int main( void )
  30 {
  31     /* TODO: Extend to internal testing (buffer etc.) */
  32     char filename1[] = "touch testfile1";
  33     char filename2[] = "testfile2";
  34     /* check that neither file exists */
  35     TESTCASE( fopen( filename1 + 6, "r" ) == NULL );
  36     TESTCASE( fopen( filename2, "r" ) == NULL );
  37     /* rename file 1 to file 2 - expected to fail */
  38     TESTCASE( rename( filename1 + 6, filename2 ) == -1 );
  39     /* create file 1 */
  40     system( filename1 );
  41     /* check that file 1 exists */
  42     TESTCASE( fopen( filename1 + 6, "r" ) != NULL );
  43     /* rename file 1 to file 2 */
  44     TESTCASE( rename( filename1 + 6, filename2 ) == 0 );
  45     /* check that file 2 exists, file 1 does not */
  46     TESTCASE( fopen( filename1 + 6, "r" ) == NULL );
  47     TESTCASE( fopen( filename2, "r" ) != NULL );
  48     /* create another file 1 */
  49     system( filename1 );
  50     /* check that file 1 exists */
  51     TESTCASE( fopen( filename1 + 6, "r" ) != NULL );
  52     /* rename file 1 to file 2 - expected to fail, see comment in
  53        _PDCLIB_rename() itself.
  54     */
  55 #ifndef REGTEST
  56     TESTCASE( rename( filename1 + 6, filename2 ) == -1 );
  57 #else
  58     /* glibc rename() overwrites existing destination file. */
  59     TESTCASE( rename( filename1 + 6, filename2 ) == 0 );
  60 #endif
  61     /* remove both files */
  62     remove( filename1 + 6 );
  63     remove( filename2 );
  64     /* check that they're gone */
  65     TESTCASE( fopen( filename1 + 6, "r" ) == NULL );
  66     TESTCASE( fopen( filename2, "r" ) == NULL );
  67     return TEST_RESULTS;
  68 }
  69
  70 #endif