WITH REPORT;
USE REPORT;
WITH TEXT_IO;
USE TEXT_IO;
PROCEDURE CE3602C IS
INCOMPLETE : EXCEPTION;
BEGIN
TEST ("CE3602C", "CHECK THAT MODE_ERROR IS RAISED BY GET FOR " &
"FILES OF MODE OUT_FILE");
DECLARE
FILE1, FILE2 : FILE_TYPE;
CH : CHARACTER;
ST : STRING (1 .. 5);
BEGIN
BEGIN
CREATE (FILE1, OUT_FILE);
EXCEPTION
WHEN USE_ERROR =>
NOT_APPLICABLE ("USE_ERROR RAISED ON TEXT CREATE " &
"FOR TEMPORARY FILE WITH " &
"OUT_FILE MODE");
RAISE INCOMPLETE;
WHEN OTHERS =>
FAILED ("UNEXPECTED EXCEPTION RAISED ON " &
"TEXT CREATE - 1");
RAISE INCOMPLETE;
END;
BEGIN
CREATE (FILE2, 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 - 2");
RAISE INCOMPLETE;
END;
BEGIN
GET (FILE1, CH);
FAILED ("MODE_ERROR NOT RAISED - GET CHAR UN-NAMED " &
"FILE");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - GET CHAR " &
"UN-NAMED FILE");
END;
BEGIN
GET (FILE2, CH);
FAILED ("MODE_ERROR NOT RAISED - GET CHAR NAMED FILE");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - GET CHAR " &
"NAMED FILE");
END;
BEGIN
GET (STANDARD_OUTPUT, CH);
FAILED ("MODE_ERROR NOT RAISED - GET CHAR " &
"STANDARD_OUTPUT");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - GET CHAR " &
"STANDARD_OUTPUT");
END;
BEGIN
GET (CURRENT_OUTPUT, CH);
FAILED ("MODE_ERROR NOT RAISED - GET CHAR " &
"CURRENT_OUTPUT");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - GET CHAR " &
"CURRENT_OUTPUT");
END;
BEGIN
GET (FILE1, ST);
FAILED ("MODE_ERROR NOT RAISED - GET STRING UN-NAMED " &
"FILE");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - GET STRING " &
"UN-NAMED FILE");
END;
BEGIN
GET (FILE2, ST);
FAILED ("MODE_ERROR NOT RAISED - GET STRING NAMED FILE");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - GET STRING " &
"NAMED FILE");
END;
BEGIN
GET (STANDARD_OUTPUT, ST);
FAILED ("MODE_ERROR NOT RAISED - GET STRING " &
"STANDARD_OUTPUT");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - GET STRING " &
"STANDARD_OUTPUT");
END;
BEGIN
GET (CURRENT_OUTPUT, ST);
FAILED ("MODE_ERROR NOT RAISED - GET STRING " &
"CURRENT_OUTPUT");
EXCEPTION
WHEN MODE_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("WRONG EXCEPTION RAISED - GET STRING " &
"CURRENT_OUTPUT");
END;
CLOSE (FILE1);
BEGIN
DELETE (FILE2);
EXCEPTION
WHEN USE_ERROR =>
NULL;
END;
EXCEPTION
WHEN INCOMPLETE =>
NULL;
END;
RESULT;
END CE3602C;