- FILE * file;
- remove( testfile1 );
- remove( testfile2 );
- /* check that neither file exists */
- TESTCASE( fopen( testfile1, "r" ) == NULL );
- TESTCASE( fopen( testfile2, "r" ) == NULL );
- /* rename file 1 to file 2 - expected to fail */
- TESTCASE( _PDCLIB_rename( testfile1, testfile2 ) == -1 );
- /* create file 1 */
- TESTCASE( ( file = fopen( testfile1, "w" ) ) != NULL );
- TESTCASE( fputc( 'x', file ) == 'x' );
- TESTCASE( fclose( file ) == 0 );
- /* check that file 1 exists */
- TESTCASE( ( file = fopen( testfile1, "r" ) ) != NULL );
- TESTCASE( fclose( file ) == 0 );
- /* rename file 1 to file 2 */
- TESTCASE( _PDCLIB_rename( testfile1, testfile2 ) == 0 );
- /* check that file 2 exists, file 1 does not */
- TESTCASE( fopen( testfile1, "r" ) == NULL );
- TESTCASE( ( file = fopen( testfile2, "r" ) ) != NULL );
- TESTCASE( fclose( file ) == 0 );
- /* create another file 1 */
- TESTCASE( ( file = fopen( testfile1, "w" ) ) != NULL );
- TESTCASE( fputc( 'x', file ) == 'x' );
- TESTCASE( fclose( file ) == 0 );
- /* check that file 1 exists */
- TESTCASE( ( file = fopen( testfile1, "r" ) ) != NULL );
- TESTCASE( fclose( file ) == 0 );
- /* rename file 1 to file 2 - expected to fail, see comment in
- _PDCLIB_rename() itself.
- */
- TESTCASE( _PDCLIB_rename( testfile1, testfile2 ) == -1 );
- /* remove both files */
- remove( testfile1 );
- remove( testfile2 );