WITH REPORT;
USE REPORT;
WITH TEXT_IO;
USE TEXT_IO;
PROCEDURE CE3303A IS
FILE : FILE_TYPE;
FIVE : COUNT := COUNT(IDENT_INT(5));
C : COUNT;
ITEM : CHARACTER := 'A';
BEGIN
TEST ("CE3303A" , "CHECK THAT SET_LINE_LENGTH, " &
"SET_PAGE_LENGTH, LINE_LENGTH, AND " &
"PAGE_LENGTH RAISE STATUS_ERROR " &
"WHEN APPLIED TO A CLOSED FILE");
BEGIN
SET_LINE_LENGTH (FILE, FIVE);
FAILED ("STATUS_ERROR NOT RAISED FOR SET_LINE_LENGTH - 1");
EXCEPTION
WHEN STATUS_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("OTHER EXCEPTION RAISED FOR SET_LINE_LENGTH " &
"- 1");
END;
BEGIN
SET_PAGE_LENGTH (FILE, FIVE);
FAILED ("STATUS_ERROR NOT RAISED FOR SET_PAGE_LENGTH - 1");
EXCEPTION
WHEN STATUS_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("OTHER EXCEPTION RAISED FOR SET_PAGE_LENGTH " &
"- 1");
END;
BEGIN
C := LINE_LENGTH (FILE);
FAILED ("STATUS_ERROR NOT RAISED FOR LINE_LENGTH - 1");
EXCEPTION
WHEN STATUS_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("OTHER EXCEPTION RAISED FOR LINE_LENGTH - 1");
END;
BEGIN
C := PAGE_LENGTH (FILE);
FAILED ("STATUS_ERROR NOT RAISED FOR PAGE_LENGTH - 1");
EXCEPTION
WHEN STATUS_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("OTHER EXCEPTION RAISED FOR PAGE_LENGTH - 1");
END;
BEGIN
CREATE (FILE, OUT_FILE);
PUT (FILE, ITEM);
CLOSE (FILE);
EXCEPTION
WHEN USE_ERROR =>
NULL;
END;
BEGIN
SET_LINE_LENGTH (FILE, FIVE);
FAILED ("STATUS_ERROR NOT RAISED FOR SET_LINE_LENGTH - 2");
EXCEPTION
WHEN STATUS_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("OTHER EXCEPTION RAISED FOR SET_LINE_LENGTH " &
"- 2");
END;
BEGIN
SET_PAGE_LENGTH (FILE, FIVE);
FAILED ("STATUS_ERROR NOT RAISED FOR SET_PAGE_LENGTH - 2");
EXCEPTION
WHEN STATUS_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("OTHER EXCEPTION RAISED FOR SET_PAGE_LENGTH " &
"- 2");
END;
BEGIN
C := LINE_LENGTH (FILE);
FAILED ("STATUS_ERROR NOT RAISED FOR LINE_LENGTH - 2");
EXCEPTION
WHEN STATUS_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("OTHER EXCEPTION RAISED FOR LINE_LENGTH - 2");
END;
BEGIN
C := PAGE_LENGTH (FILE);
FAILED ("STATUS_ERROR NOT RAISED FOR PAGE_LENGTH - 2");
EXCEPTION
WHEN STATUS_ERROR =>
NULL;
WHEN OTHERS =>
FAILED ("OTHER EXCEPTION RAISED FOR PAGE_LENGTH - 2");
END;
RESULT;
END CE3303A;