From dc2202f36f8ee220293cc6f230be604a19be8cbb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 7 Aug 2024 20:59:18 +0200
Subject: Replace first command (wait) with a builtin

---
 src/Parser.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index 4fd60b5..405622e 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -22,6 +22,7 @@ import Parser.Core
 import Parser.Expr
 import Parser.Statement
 import Test
+import Test.Builtins
 
 parseTestDefinition :: TestParser Test
 parseTestDefinition = label "test definition" $ toplevel $ do
@@ -55,7 +56,7 @@ parseTestFile path = do
     content <- TL.readFile path
     absPath <- makeAbsolute path
     let initState = TestParserState
-            { testVars = []
+            { testVars = map (fmap someVarValueType) builtins
             , testContext = SomeExpr RootNetwork
             }
     case evalState (runParserT (parseTestModule absPath) path content) initState of
-- 
cgit v1.2.3