diff --git a/test/UnitTests/Application/NBB.Application.Mediator.FSharp.Tests/EventPipelineTests.fs b/test/UnitTests/Application/NBB.Application.Mediator.FSharp.Tests/EventPipelineTests.fs index a7c79cc8..24433f51 100644 --- a/test/UnitTests/Application/NBB.Application.Mediator.FSharp.Tests/EventPipelineTests.fs +++ b/test/UnitTests/Application/NBB.Application.Mediator.FSharp.Tests/EventPipelineTests.fs @@ -115,7 +115,7 @@ let ``EventHandler.append left identity law `` (f: SomeEvent->unit option) (req: run (empty ++ f') = run f' [] -let ``RequestHandler.append right identity law`` (f: SomeEvent->unit option) (req: SomeEvent) = +let ``EventHandler.append right identity law`` (f: SomeEvent->unit option) (req: SomeEvent) = let f' = f >> Effect.pure' let interpreter = createInterpreter() let run h = @@ -127,7 +127,7 @@ let ``RequestHandler.append right identity law`` (f: SomeEvent->unit option) (re run (f' ++ empty) = run f' [] -let ``RequestHandler.append associativity law`` (f: SomeEvent->unit option) (g: SomeEvent->unit option) (h: SomeEvent->unit option) (req: SomeEvent) = +let ``EventHandler.append associativity law`` (f: SomeEvent->unit option) (g: SomeEvent->unit option) (h: SomeEvent->unit option) (req: SomeEvent) = let f' = f >> Effect.pure' let g' = g >> Effect.pure' let h' = h >> Effect.pure'