| -- CXAC003.A |
| -- |
| -- Grant of Unlimited Rights |
| -- |
| -- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, |
| -- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained |
| -- unlimited rights in the software and documentation contained herein. |
| -- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making |
| -- this public release, the Government intends to confer upon all |
| -- recipients unlimited rights equal to those held by the Government. |
| -- These rights include rights to use, duplicate, release or disclose the |
| -- released technical data and computer software in whole or in part, in |
| -- any manner and for any purpose whatsoever, and to have or permit others |
| -- to do so. |
| -- |
| -- DISCLAIMER |
| -- |
| -- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR |
| -- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED |
| -- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE |
| -- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE |
| -- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A |
| -- PARTICULAR PURPOSE OF SAID MATERIAL. |
| --* |
| -- |
| -- OBJECTIVE: |
| -- Check that the correct exceptions are raised when improperly |
| -- manipulating stream file objects. |
| -- |
| -- TEST DESCRIPTION: |
| -- This test is designed to focus on Stream_IO file manipulation |
| -- exceptions. Several potentially common user errors are examined in |
| -- the test: |
| -- |
| -- A Status_Error should be raised whenever an attempt is made to perform |
| -- an operation on a file that is closed. |
| -- |
| -- A Status_Error should be raised when an attempt is made to open a |
| -- stream file that is currently open. |
| -- |
| -- A Mode_Error should be raised when attempting to read from (use the |
| -- 'Read attribute) on an Out_File or Append_Mode file. |
| -- |
| -- A Mode_Error should be raised when checking for End Of File on a |
| -- file with mode Out_File or Append_Mode. |
| -- |
| -- A Mode_Error should be raised when attempting to write to (use the |
| -- 'Output attribute) on a file with mode In_File. |
| -- |
| -- A Name_Error should be raised when the string provided to the Name |
| -- parameter of an Open operation does not allow association of an |
| -- external file. |
| -- |
| -- APPLICABILITY CRITERIA: |
| -- This test is applicable to all implementations capable of supporting |
| -- external Stream_IO files. |
| -- |
| -- |
| -- CHANGE HISTORY: |
| -- 06 Dec 94 SAIC ACVC 2.0 |
| -- 25 Feb 97 PWB.CTA Allowed for non-support of some IO operations |
| -- 02 Mar 01 PHL Check that Ada.Streams.Stream_IO.Stream raises |
| -- Status_Error if the file is not open. (DR 8652/ |
| -- 0056). |
| -- 15 Mar 01 RLB Readied for release. |
| --! |
| |
| with Ada.Streams.Stream_IO; |
| with Report; |
| |
| procedure CXAC003 is |
| |
| Stream_File_Object : Ada.Streams.Stream_IO.File_Type; |
| Stream_Access_Value : Ada.Streams.Stream_IO.Stream_Access; |
| Stream_Filename : constant String := |
| Report.Legal_File_Name ( Nam => "CXAC003" ); |
| Incomplete : exception; |
| |
| begin |
| |
| Report.Test ("CXAC003", "Check that the correct exceptions are " & |
| "raised when improperly manipulating stream " & |
| "file objects"); |
| |
| Test_for_Stream_IO_Support: |
| begin |
| -- If an implementation does not support Stream_IO in a particular |
| -- environment, the exception Use_Error or Name_Error will be raised on |
| -- calls to various Stream_IO operations. This block statement |
| -- encloses a call to Create, which should produce an exception in a |
| -- non-supportive environment. These exceptions will be handled to |
| -- produce a Not_Applicable result. |
| |
| Ada.Streams.Stream_IO.Create (Stream_File_Object, |
| Ada.Streams.Stream_IO.Out_File, |
| Stream_Filename); |
| |
| exception |
| |
| when Ada.Streams.Stream_IO.Use_Error | Ada.Streams.Stream_IO.Name_Error => |
| Report.Not_Applicable |
| ( "Files not supported - Create as Out_File for Stream_IO" ); |
| raise Incomplete; |
| |
| end Test_for_Stream_IO_Support; |
| |
| Operational_Test_Block: |
| begin |
| -- A potentially common error in a file processing environment |
| -- is to attempt to perform an operation on a stream file that is |
| -- not currently open. Status_Error should be raised in this case. |
| Check_Status_Error: |
| begin |
| Ada.Streams.Stream_IO.Close (Stream_File_Object); |
| -- Attempt to reset a file that is closed. |
| Ada.Streams.Stream_IO.Reset (Stream_File_Object, |
| Ada.Streams.Stream_IO.Out_File); |
| Report.Failed ("Exception not raised on Reset of closed file"); |
| exception |
| when Ada.Streams.Stream_IO.Status_Error => |
| null; |
| when others => |
| Report.Failed ("Incorrect exception raised - 1"); |
| end Check_Status_Error; |
| |
| -- A similar error is to use Ada.Streams.Stream_IO.Stream |
| -- to attempt to perform an operation on a stream file that is |
| -- not currently open. Status_Error should be raised in this case. |
| -- (Defect Report 8652/0046, as reflected in Technical Corrigendum 1.) |
| Check_Status_Error2: |
| begin |
| -- Ensure that the file is not open. |
| if Ada.Streams.Stream_Io.Is_Open (Stream_File_Object) then |
| Ada.Streams.Stream_Io.Close (Stream_File_Object); |
| end if; |
| Stream_Access_Value := |
| Ada.Streams.Stream_Io.Stream (Stream_File_Object); |
| Report.Failed ("Exception not raised on Stream of closed file"); |
| exception |
| when Ada.Streams.Stream_Io.Status_Error => |
| null; |
| when others => |
| Report.Failed ("Incorrect exception raised - 2"); |
| end Check_Status_Error2; |
| |
| -- Another potentially common error in a file processing environment |
| -- is to attempt to Open a stream file that is currently open. |
| -- Status_Error should be raised in this case. |
| Check_Status_Error3: |
| begin |
| -- Ensure that the file is open. |
| if not Ada.Streams.Stream_IO.Is_Open (Stream_File_Object) then |
| Ada.Streams.Stream_IO.Open (Stream_File_Object, |
| Ada.Streams.Stream_IO.In_File, |
| Stream_Filename); |
| end if; |
| Ada.Streams.Stream_IO.Open (Stream_File_Object, |
| Ada.Streams.Stream_IO.In_File, |
| Stream_Filename); |
| Report.Failed ("Exception not raised on Open of open file"); |
| exception |
| when Ada.Streams.Stream_IO.Status_Error => |
| null; |
| when others => |
| Report.Failed ("Incorrect exception raised - 3"); |
| end Check_Status_Error3; |
| |
| -- Another example of a potential error occurring in a file |
| -- processing environment is to attempt to use the 'Read attribute |
| -- on a stream file that is currently in Out_File or Append_File |
| -- mode. Mode_Error should be raised in both of these cases. |
| Check_Mode_Error: |
| declare |
| Int_Var : Integer := -10; |
| begin |
| |
| Reset1: |
| begin |
| Ada.Streams.Stream_IO.Reset (Stream_File_Object, |
| Ada.Streams.Stream_IO.Out_File); |
| exception |
| when Ada.Streams.Stream_IO.Use_Error => |
| Report.Not_Applicable |
| ( "Reset to Out_File not supported for Stream_IO - 1" ); |
| raise Incomplete; |
| end Reset1; |
| |
| Stream_Access_Value := |
| Ada.Streams.Stream_IO.Stream (Stream_File_Object); |
| Integer'Write (Stream_Access_Value, Int_Var); |
| |
| -- File contains an integer value, but is of mode Out_File. |
| Integer'Read (Stream_Access_Value, Int_Var); |
| Report.Failed ("Exception not raised by 'Read of Out_File"); |
| exception |
| when Incomplete => |
| raise; |
| when Ada.Streams.Stream_IO.Mode_Error => |
| null; |
| Try_Read: |
| begin |
| Reset2: |
| begin |
| Ada.Streams.Stream_IO.Reset |
| (Stream_File_Object, Ada.Streams.Stream_IO.Append_File); |
| exception |
| when Ada.Streams.Stream_IO.Use_Error => |
| Report.Not_Applicable |
| ( "Reset to Append_File not supported " & |
| "for Stream_IO - 2" ); |
| raise Incomplete; |
| end Reset2; |
| |
| Integer'Write (Stream_Access_Value, Int_Var); |
| -- Attempt read from Append_File mode file. |
| Integer'Read (Stream_Access_Value, Int_Var); |
| Report.Failed |
| ("Exception not raised by 'Read of Append file"); |
| exception |
| when Incomplete => |
| null; |
| when Ada.Streams.Stream_IO.Mode_Error => |
| null; |
| when others => |
| Report.Failed ("Incorrect exception raised - 4b"); |
| end Try_Read; |
| |
| when others => Report.Failed ("Incorrect exception raised - 4a"); |
| end Check_Mode_Error; |
| |
| -- Another example of a this type of potential error is to attempt |
| -- to check for End Of File on a stream file that is currently in |
| -- Out_File or Append_File mode. Mode_Error should also be raised |
| -- in both of these cases. |
| Check_End_File: |
| declare |
| Test_Boolean : Boolean := False; |
| begin |
| Reset3: |
| begin |
| Ada.Streams.Stream_IO.Reset (Stream_File_Object, |
| Ada.Streams.Stream_IO.Out_File); |
| exception |
| when Ada.Streams.Stream_IO.Use_Error => |
| Report.Not_Applicable |
| ( "Reset to Out_File not supported for Stream_IO - 3" ); |
| raise Incomplete; |
| end Reset3; |
| |
| Test_Boolean := |
| Ada.Streams.Stream_IO.End_Of_File (Stream_File_Object); |
| Report.Failed ("Exception not raised by EOF on Out_File"); |
| exception |
| when Incomplete => |
| null; |
| when Ada.Streams.Stream_IO.Mode_Error => |
| null; |
| EOF_For_Append_File: |
| begin |
| Reset4: |
| begin |
| Ada.Streams.Stream_IO.Reset |
| (Stream_File_Object, Ada.Streams.Stream_IO.Append_File); |
| exception |
| when Ada.Streams.Stream_IO.Use_Error => |
| Report.Not_Applicable |
| ( "Reset to Append_File not supported " & |
| "for Stream_IO - 4" ); |
| raise Incomplete; |
| end Reset4; |
| |
| Test_Boolean := |
| Ada.Streams.Stream_IO.End_Of_File (Stream_File_Object); |
| Report.Failed |
| ("Exception not raised by EOF of Append file"); |
| exception |
| when Incomplete => |
| raise; |
| when Ada.Streams.Stream_IO.Mode_Error => |
| null; |
| when others => |
| Report.Failed ("Incorrect exception raised - 5b"); |
| end EOF_For_Append_File; |
| |
| when others => Report.Failed ("Incorrect exception raised - 5a"); |
| end Check_End_File; |
| |
| |
| |
| -- In a similar situation to the above cases for attribute 'Read, |
| -- an attempt to use the 'Output attribute on a stream file that |
| -- is currently in In_File mode should result in Mode_Error being |
| -- raised. |
| Check_Output_Mode_Error: |
| begin |
| Reset5: |
| begin |
| Ada.Streams.Stream_IO.Reset (Stream_File_Object, |
| Ada.Streams.Stream_IO.In_File); |
| exception |
| when Ada.Streams.Stream_IO.Use_Error => |
| Report.Not_Applicable |
| ( "Reset to In_File not supported for Stream_IO - 6" ); |
| raise Incomplete; |
| end Reset5; |
| |
| Stream_Access_Value := |
| Ada.Streams.Stream_IO.Stream (Stream_File_Object); |
| String'Output (Stream_Access_Value, "User-Oriented String"); |
| Report.Failed ("Exception not raised by 'Output to In_File"); |
| exception |
| when Incomplete => |
| null; |
| when Ada.Streams.Stream_IO.Mode_Error => |
| null; |
| when others => |
| Report.Failed ("Incorrect exception raised - 6"); |
| end Check_Output_Mode_Error; |
| |
| -- Any case of attempting to Open a stream file with a string for |
| -- the parameter Name that does not allow the identification of an |
| -- external file will result in the exception Name_Error being |
| -- raised. |
| Check_Illegal_File_Name: |
| begin |
| if Ada.Streams.Stream_IO.Is_Open (Stream_File_Object) then |
| Ada.Streams.Stream_IO.Close (Stream_File_Object); |
| end if; |
| -- No external file exists with this filename, allowing no |
| -- association with an internal file object, resulting in the |
| -- raising of the exception Name_Error. |
| Ada.Streams.Stream_IO.Open(File => Stream_File_Object, |
| Mode => Ada.Streams.Stream_IO.Out_File, |
| Name => Report.Legal_File_Name(2)); |
| Report.Failed ("Exception not raised by bad filename on Open"); |
| exception |
| when Ada.Streams.Stream_IO.Name_Error => |
| null; |
| when others => |
| Report.Failed ("Incorrect exception raised - 7"); |
| end Check_Illegal_File_Name; |
| |
| exception |
| when Incomplete => |
| null; |
| when others => |
| Report.Failed ("Unexpected exception in Operational Test Block"); |
| |
| end Operational_Test_Block; |
| |
| Deletion: |
| begin |
| if Ada.Streams.Stream_IO.Is_Open (Stream_File_Object) then |
| Ada.Streams.Stream_IO.Delete (Stream_File_Object); |
| else |
| Ada.Streams.Stream_IO.Open (Stream_File_Object, |
| Ada.Streams.Stream_IO.Out_File, |
| Stream_Filename); |
| Ada.Streams.Stream_IO.Delete (Stream_File_Object); |
| end if; |
| exception |
| when others => |
| Report.Failed |
| ( "Delete not properly implemented for Stream_IO" ); |
| end Deletion; |
| |
| Report.Result; |
| |
| exception |
| when Incomplete => |
| Report.Result; |
| when others => |
| Report.Failed ( "Unexpected exception" ); |
| Report.Result; |
| |
| end CXAC003; |