diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-15 20:20:25 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-15 20:20:25 +0200 |
| commit | 338ac0efb3d2e2a258d949268ed6b27b3ecae1a0 (patch) | |
| tree | d75471dbec089455c4f0c9539c0d38299cfe66c8 /src/Test.hs | |
| parent | be0e2017b46e981060b1f9f5fd764571ad2dc2a1 (diff) | |
Extra arguments for the spawned tool
Changelog: Added `args` parameter to `spawn` command to pass extra command-line arguments to the spawend tool
Diffstat (limited to 'src/Test.hs')
| -rw-r--r-- | src/Test.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Test.hs b/src/Test.hs index 198b7e6..ff51ebe 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -33,7 +33,7 @@ instance Monoid (TestBlock ()) where 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 + Spawn :: TypedVarName Process -> Either Network Node -> [ Text ] -> (Process -> TestBlock a) -> TestStep a SpawnShell :: Maybe (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 |