From 7f35daac6a9b0c4e286f5b4bfc7010f074b52b57 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 3 Aug 2024 21:36:47 +0200
Subject: Test block expression type and statement

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

(limited to 'src/Run.hs')

diff --git a/src/Run.hs b/src/Run.hs
index a40641b..a69ba75 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -121,6 +121,10 @@ evalSteps = mapM_ $ \case
         forM_ value $ \i -> do
             withVar name i $ evalSteps inner
 
+    ExprStatement expr -> do
+        TestBlock steps <- eval expr
+        evalSteps steps
+
     Subnet name@(TypedVarName vname) parentExpr inner -> do
         parent <- eval parentExpr
         withSubnet parent (Just name) $ \net -> do
-- 
cgit v1.2.3