                           (assoc :sender "pcp://client01.example.com/test"
                                  :targets ["pcp://*/test"]
                                  :message_type "greeting")
-                          (message/set-expiry 3 :seconds)
+                          (message/set-expiry 5 :seconds)
                           (message/set-json-data "Hello"))]
           (client/send! client message)
           (let [message (client/recv! client)]

          (let [message (-> (message/make-message :sender "pcp://client02.example.com/test"
                                                  :message_type "test/sensitive"
                                                  :targets ["pcp://client01.example.com/test"])
                            (message/set-expiry 3 :seconds))]
            (client/send! client02 message)
            (let [received (client/recv! client01 1000)]
              (is (= nil received)))))))))

                                 :targets ["pcp://client02.example.com/test"]
                                 :destination_report true
                                 :message_type "greeting")
                          (message/set-expiry 5 :seconds)
                          (message/set-json-data "Hello"))]
          (client/send! sender message)
          (let [report  (client/recv! sender)
