Runtimes and controllers

2026-08-20 22:34:01 +03:00
parent b3aa4c4991
commit 18e1d68a4f
5 changed files with 56 additions and 17 deletions
@@ -32,9 +32,6 @@ spec = describe "Bus" $ do
    channelHassEval bus (CallService svc)
    atomically (readTChan (busOutbound bus)) `shouldReturn` svc

-  it "channelHassEval leaves Pure untouched" $ do
-    bus <- newBus 0
-    channelHassEval bus (Pure 42) `shouldReturn` (42 :: Int)

  it "generates unique sequential call ids" $ do
    gen <- mkCallIdGen 0