tests/cxa/cxab001.a

27 --      Check that the operations defined in package Wide_Text_IO allow for
31 --      This test is designed to exercise the components of the Wide_Text_IO
37 --      additional subprograms found in package Wide_Text_IO are used in this
42 --      external Wide_Text_IO files.
50 with Ada.Wide_Text_IO;
55    Filter_File     : Ada.Wide_Text_IO.File_Type;
64                            "Wide_Text_IO allow for the input/output of "   &
71       -- An implementation that does not support Wide_Text_IO in a particular
73       -- Wide_Text_IO operations.  This block statement encloses a call to
78       Ada.Wide_Text_IO.Create (File => Filter_File,                 -- Create.
79                                Mode => Ada.Wide_Text_IO.Out_File,
84        when Ada.Wide_Text_IO.Use_Error | Ada.Wide_Text_IO.Name_Error =>
86              ( "Files not supported - Create as Out_File for Wide_Text_IO" );
111             Ada.Wide_Text_IO.Put (Filter_File, First_String (Pos));  -- Put.
114          Ada.Wide_Text_IO.New_Line (Filter_File);               -- New_Line.
120             Ada.Wide_Text_IO.Reset (Filter_File,                      -- Reset.
121                                     Ada.Wide_Text_IO.In_File);
123             when Ada.Wide_Text_IO.Use_Error =>
125                   ( "Reset to In_File not supported for Wide_Text_IO" );
131             Ada.Wide_Text_IO.Get (Filter_File, Current_Char);        -- Get.
152             Ada.Wide_Text_IO.Reset    (Filter_File,                   -- Reset.
153                                        Ada.Wide_Text_IO.Append_File);
156             when Ada.Wide_Text_IO.Use_Error =>
158                   ( "Reset to Append_File not supported for Wide_Text_IO" );
162          Ada.Wide_Text_IO.Put      (Filter_File, Second_String);     -- Put.
163          Ada.Wide_Text_IO.New_Line (Filter_File);               -- New_Line.
165          Ada.Wide_Text_IO.Put_Line (Filter_File, Third_String); -- Put_Line.
166          Ada.Wide_Text_IO.Close    (Filter_File);               -- Close.
191          Ada.Wide_Text_IO.Open (Filter_File,                       -- Open.
192                                 Ada.Wide_Text_IO.In_File,
202             Ada.Wide_Text_IO.Get (Filter_File, Current_Char);       -- Get.
211          Ada.Wide_Text_IO.Skip_Line (Filter_File);             -- Skip_Line.
215          Ada.Wide_Text_IO.Get       (Filter_File, TC_String2); -- Get.
216          Ada.Wide_Text_IO.Skip_Line (Filter_File);             -- Skip_Line.
217          Ada.Wide_Text_IO.Get_Line  (Filter_File,              -- Get_Line.
229          if not Ada.Wide_Text_IO.End_Of_File (Filter_File) then      -- EOF.
250       if Ada.Wide_Text_IO.Is_Open (Filter_File) then            -- Is_Open.
251          Ada.Wide_Text_IO.Delete (Filter_File);                 -- Delete.
253          Ada.Wide_Text_IO.Open (Filter_File,                    -- Open.
254                                 Ada.Wide_Text_IO.Out_File,
256          Ada.Wide_Text_IO.Delete (Filter_File);                 -- Delete.
260          Report.Failed ("Delete not properly implemented for Wide_Text_IO");