WITH REPORT;
USE REPORT;
WITH TEXT_IO;
USE TEXT_IO;
PROCEDURE CE3605C IS
INCOMPLETE : EXCEPTION;
BEGIN
TEST ("CE3605C", "MODE_ERROR RAISED BY PUT FOR IN_FILES");
DECLARE
FILE1 : FILE_TYPE;
BEGIN
BEGIN
CREATE (FILE1, OUT_FILE, LEGAL_FILE_NAME);
EXCEPTION
WHEN USE_ERROR =>
NOT_APPLICABLE ("USE_ERROR RAISED ON TEXT " &
"CREATE WITH OUT_FILE MODE");
RAISE INCOMPLETE;
WHEN NAME_ERROR =>
NOT_APPLICABLE ("NAME_ERROR RAISED ON TEXT " &
"CREATE WITH OUT_FILE MODE");
RAISE INCOMPLETE;
WHEN OTHERS =>
FAILED ("UNEXPECTED EXCEPTION RAISED ON " &
"TEXT CREATE");
RAISE INCOMPLETE;
END;
PUT (FILE1, 'A');
CLOSE (FILE1);
BEGIN
OPEN (FILE1, IN_FILE, LEGAL_FILE_NAME);
EXCEPTION
WHEN USE_ERROR =>
NOT_APPLICABLE ("USE_ERROR RAISED ON TEXT " &
"OPEN FOR IN_FILE MODE");
RAISE INCOMPLETE;
END;
BEGIN
PUT (FILE1, 'A');
FAILED ("MODE_ERROR NOT RAISED - 1");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - 1");
END;
BEGIN
PUT (STANDARD_INPUT, 'A');
FAILED ("MODE_ERROR NOT RAISED - 2");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - 2");
END;
BEGIN
PUT (CURRENT_INPUT, 'A');
FAILED ("MODE_ERROR NOT RAISED - 3");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - 3");
END;
BEGIN
PUT (FILE1, "STRING");
FAILED ("MODE_ERROR NOT RAISED - 4");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - 4");
END;
BEGIN
PUT (STANDARD_INPUT, "STRING");
FAILED ("MODE_ERROR NOT RAISED - 5");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - 5");
END;
BEGIN
PUT (CURRENT_INPUT, "STRING");
FAILED ("MODE_ERROR NOT RAISED - 6");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - 6");
END;
BEGIN
DELETE (FILE1);
EXCEPTION
WHEN USE_ERROR =>
NULL;
END;
EXCEPTION
WHEN INCOMPLETE =>
NULL;
END;
RESULT;
END CE3605C;