TESTCASE( ( file1 = fopen( "testfile1", "w" ) ) != NULL );
TESTCASE( _PDCLIB_filelist == file1 );
TESTCASE( ( file2 = fopen( "testfile2", "w" ) ) != NULL );
TESTCASE( ( file1 = fopen( "testfile1", "w" ) ) != NULL );
TESTCASE( _PDCLIB_filelist == file1 );
TESTCASE( ( file2 = fopen( "testfile2", "w" ) ) != NULL );