From bf3c793db6891c06625851762fb35bb7d2d34e66 Mon Sep 17 00:00:00 2001
From: Vadim Godunko <godunko@adacore.com>
Date: Wed, 26 Apr 2023 09:03:59 +0300
Subject: [PATCH] Assert operation is successful.

---
 testsuite/spawn/spawn_kill.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/testsuite/spawn/spawn_kill.adb b/testsuite/spawn/spawn_kill.adb
index caec9af..7955d20 100644
--- 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;