refactor(runtime): move transport test to testsuite

src/runtime-prototype/stunt-double.cabal

@@ -62,6 +62,7 @@ test-suite test
     , tasty-hunit
 
   other-modules:
+    StuntDouble.EventLoop.TransportTest
     StuntDouble.EventLoopTest
     TastyDiscover
 

src/runtime-prototype/test/StuntDouble/EventLoop/TransportTest.hs

@@ -0,0 +1,18 @@
+module StuntDouble.EventLoop.TransportTest where
+
+import Control.Concurrent.Async
+import Test.HUnit
+
+import StuntDouble.EventLoop.Transport
+import StuntDouble
+
+------------------------------------------------------------------------
+
+unit_sendReceive :: IO ()
+unit_sendReceive = do
+  t <- namedPipeTransport "/tmp" (EventLoopName "a")
+  let e = Envelope RequestKind (RemoteRef "from" 0) (Message "msg") (RemoteRef "a" 1) 0
+  a <- async (transportSend t e)
+  e' <- transportReceive t
+  cancel a
+  e' @?= e