From 000209c13299f1c046dc60e3649c17e9520680de Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 13 Oct 2022 21:05:31 +0200
Subject: Fail test and start gdb session immediately on process crash

---
 src/Test.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Test.hs')

diff --git a/src/Test.hs b/src/Test.hs
index 6b04fac..836992c 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -1,6 +1,7 @@
 module Test (
     Test(..),
     TestStep(..),
+    Failed(..),
     SourceLine(..),
 
     MonadEval(..),
@@ -41,6 +42,9 @@ data TestStep = forall a. ExprType a => Let SourceLine VarName (Expr a) [TestSte
               | PacketLoss (Expr Scientific) (Expr Node) [TestStep]
               | Wait
 
+data Failed = Failed
+            | ProcessCrashed Process
+
 newtype SourceLine = SourceLine Text
 
 
-- 
cgit v1.2.3