path: root/gcc/testsuite/ada/acats/tests/cxa/cxac003.a

-- 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;