Assert operation is successful.

AdaCore · Apr 26, 2023 · bf3c793 · bf3c793
1 parent d3adc00
commit bf3c793
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/testsuite/spawn/spawn_kill.adb b/testsuite/spawn/spawn_kill.adb
@@ -64,6 +64,7 @@ procedure Spawn_Kill is
 
             begin
                Self.Proc.Read_Standard_Output (Data, Last, Success);
+               pragma Assert (Success);
 
                exit when Last < Data'First;