diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-05 11:47:12 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-05 12:33:39 +0200 |
| commit | e06402099ce256405610d0be64760266f969dcd0 (patch) | |
| tree | 1c1e10ba0aa2f6dbf9ca04c77a9ad0b8122645ad /src/Test.hs | |
| parent | ad00b4534582c5ce94243f7dda3b76d7c0bba021 (diff) | |
Changelog: Added `killwith` clause to set a signal used to terminate `spawn`ed process.
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 2320d23..cfeaa2d 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -45,7 +45,7 @@ data TestStep a where CreateObject :: forall o. ObjectType TestRun o => Proxy o -> ConstructorArgs o -> TestStep () Subnet :: TypedVarName Network -> Network -> (Network -> TestStep a) -> TestStep a DeclNode :: TypedVarName Node -> Network -> (Node -> TestStep a) -> TestStep a - Spawn :: TypedVarName Process -> Either Network Node -> [ Text ] -> (Process -> TestStep a) -> TestStep a + Spawn :: TypedVarName Process -> Either Network Node -> [ Text ] -> Maybe Signal -> (Process -> TestStep a) -> TestStep a SpawnShell :: Maybe (TypedVarName Process) -> Node -> ShellScript -> (Process -> TestStep a) -> TestStep a Send :: Process -> Text -> TestStep () Expect :: CallStack -> SourceLine -> Process -> Traced Regex -> Scientific -> [ TypedVarName Text ] -> ([ Text ] -> TestStep a) -> TestStep a |