diff --git a/hbs2-core/test/TestAbstractDispatch.hs b/hbs2-core/test/TestAbstractDispatch.hs
index 38f5e1c6..2e7fd118 100644
--- a/hbs2-core/test/TestAbstractDispatch.hs
+++ b/hbs2-core/test/TestAbstractDispatch.hs
@@ -141,12 +141,12 @@ instance CookieGenerator Fake IO where
 
 instance IsEncoded Fake (PingPong p) where
   data instance Encoded Fake = PingPong p
-  encode = undefined
-  decode = undefined
+  encode = undefined -- WHAT
+  decode = undefined -- WHAT
 
 instance Messaging (Fabrique Fake) Fake (MessageWithCookie Fake) where
-  sendTo = undefined
-  receive = undefined
+  sendTo (Fabrique bus) = sendTo bus
+  receive (Fabrique bus) = receive bus
 
 instance HasTimeout (PingPong Fake) IO where
   timeoutFor _ = pure 0.1