module Signet.Unstable.Exception.InvalidMessageTest where

import qualified Signet.Unstable.Type.Test as Test

spec :: (Monad tree) => Test.Test io tree -> tree ()
spec :: forall (tree :: * -> *) (io :: * -> *).
Monad tree =>
Test io tree -> tree ()
spec Test io tree
test = Test io tree -> String -> tree () -> tree ()
forall (io :: * -> *) (tree :: * -> *).
Test io tree -> String -> tree () -> tree ()
Test.describe Test io tree
test String
"Signet.Unstable.Exception.InvalidMessage" (tree () -> tree ()) -> tree () -> tree ()
forall a b. (a -> b) -> a -> b
$ do
  () -> tree ()
forall a. a -> tree a
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()