From 9b9cd5b2f25b39bf366e0487b723c2fa770fcd2c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 8 Jan 2026 21:01:24 +0100
Subject: Test: checks for extra call stack output

---
 src/Output.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/Output.hs b/src/Output.hs
index ca79dab..01c0b4b 100644
--- a/src/Output.hs
+++ b/src/Output.hs
@@ -193,6 +193,7 @@ testOutputLines otype@(OutputMatchFail (CallStack stack)) _ msg = concat
     [ [ T.concat [ outTestLabel otype, " ", msg ] ]
     , concat $ flip map stack $ \( sline, vars ) ->
         T.concat [ outTestLabel otype, "-line ", textSourceLine sline ] : showVars vars
+    , [ T.concat [ outTestLabel otype, "-done" ] ]
     ]
   where
     showVars =
-- 
cgit v1.2.3