From f0d6957a0b1cbc0bf35d2d82225c4221f9c50927 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 7 Aug 2021 22:28:53 +0200
Subject: Test data type

---
 src/Test.hs | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 src/Test.hs

(limited to 'src/Test.hs')

diff --git a/src/Test.hs b/src/Test.hs
new file mode 100644
index 0000000..f26e67a
--- /dev/null
+++ b/src/Test.hs
@@ -0,0 +1,33 @@
+module Test (
+    Test(..),
+    TestStep(..),
+
+    ProcName(..), unpackProcName,
+    NodeName(..), unpackNodeName,
+) where
+
+import Data.Text (Text)
+import qualified Data.Text as T
+
+import Text.Regex.TDFA
+
+data Test = Test
+    { testName :: Text
+    , testSteps :: [TestStep]
+    }
+
+data TestStep = Spawn ProcName NodeName
+              | Send ProcName Text
+              | Expect ProcName Regex
+
+newtype ProcName = ProcName Text
+    deriving (Eq, Ord)
+
+unpackProcName :: ProcName -> String
+unpackProcName (ProcName tname) = T.unpack tname
+
+newtype NodeName = NodeName Text
+    deriving (Eq, Ord)
+
+unpackNodeName :: NodeName -> String
+unpackNodeName (NodeName tname) = T.unpack tname
-- 
cgit v1.2.3