Fix Glib tests after API changes.

AdaCore · May 12, 2023 · 4d80ffb · 4d80ffb
1 parent eda1b9d
commit 4d80ffb
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/testsuite/spawn/spawn_glib_args_test.adb b/testsuite/spawn/spawn_glib_args_test.adb
@@ -78,9 +78,10 @@ procedure Spawn_Glib_Args_Test is
       is
          Data : Ada.Streams.Stream_Element_Array (1 .. 256);
          Last : Ada.Streams.Stream_Element_Count;
+         Ok   : Boolean := True;
 
       begin
-         Self.Process.Read_Standard_Error (Data, Last);
+         Self.Process.Read_Standard_Error (Data, Last, Ok);
 
          for X of Data (1 .. Last) loop
             Ada.Text_IO.Put (Character'Val (X));
@@ -96,9 +97,10 @@ procedure Spawn_Glib_Args_Test is
       is
          Data : Ada.Streams.Stream_Element_Array (1 .. 256);
          Last : Ada.Streams.Stream_Element_Count;
+         Ok   : Boolean := True;
 
       begin
-         Self.Process.Read_Standard_Output (Data, Last);
+         Self.Process.Read_Standard_Output (Data, Last, Ok);
 
          for X of Data (1 .. Last) loop
             Ada.Text_IO.Put (Character'Val (X));

diff --git a/testsuite/spawn/spawn_glib_test.adb b/testsuite/spawn/spawn_glib_test.adb
@@ -58,10 +58,11 @@ procedure Spawn_Glib_Test is
          use type Ada.Streams.Stream_Element_Offset;
          Data : Ada.Streams.Stream_Element_Array (1 .. 16);
          Last : Ada.Streams.Stream_Element_Count;
+         Ok   : Boolean := True;
       begin
          Ada.Text_IO.Put_Line ("Standard_Output_Available");
          loop
-            P.Read_Standard_Output (Data, Last);
+            P.Read_Standard_Output (Data, Last, Ok);
 
             exit when Last in 0;
 
@@ -95,9 +96,10 @@ procedure Spawn_Glib_Test is
             2 => Character'Pos ('K'),
             3 => 10);
          Last : Ada.Streams.Stream_Element_Count;
+         Ok   : Boolean := True;
       begin
          Ada.Text_IO.Put_Line ("Standard_Input_Available");
-         P.Write_Standard_Input (Data, Last);
+         P.Write_Standard_Input (Data, Last, Ok);
       end Standard_Input_Available;
 
       overriding procedure Started (Self : in out Listener) is