@@ 49,13 49,14 @@ prop_one_bytestring objs = monadicIO do
 main :: IO ()
 main =
   hspec $
-    parallel $
-      describe "Object" do
+    parallel do
+      describe "Binary instance" $
         it "decode . encode === id" $ property \obj ->
           obj === decode (encode (obj :: Object))
-        it "works in stream" $ property prop_normal
-        it "works in stream" $ property prop_single_bytes
-        it "works in stream" $ property prop_one_bytestring
+      describe "decodeStream . encodeStream === id" do
+        it "stream of bytestrings" $ property prop_normal
+        it "stream of bytes" $ property prop_single_bytes
+        it "stream of one large bytestring" $ property prop_one_bytestring
 
 data Object
   = ObjectNil