diff options
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Test.hs b/src/Test.hs index c2a35e8..b8c5049 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -11,6 +11,7 @@ import Data.Typeable import Network import Process import Script.Expr +import Script.Shell data Test = Test { testName :: Text @@ -33,6 +34,7 @@ data TestStep a where Subnet :: TypedVarName Network -> Network -> (Network -> TestBlock a) -> TestStep a DeclNode :: TypedVarName Node -> Network -> (Node -> TestBlock a) -> TestStep a Spawn :: TypedVarName Process -> Either Network Node -> (Process -> TestBlock a) -> TestStep a + SpawnShell :: TypedVarName Process -> Node -> ShellScript -> (Process -> TestBlock a) -> TestStep a Send :: Process -> Text -> TestStep () Expect :: SourceLine -> Process -> Traced Regex -> [ TypedVarName Text ] -> ([ Text ] -> TestBlock a) -> TestStep a Flush :: Process -> Maybe Regex -> TestStep () |