                           (assoc :message_type "http://puppetlabs.com/inventory_request"
                                  :targets ["pcp:///server"]
                                  :sender "pcp://client01.example.com/test")
-                          (message/set-expiry 3 :seconds)
+                          (message/set-expiry 5 :seconds)
                           (message/set-json-data {:query ["pcp://client01.example.com/test"]}))]
           (client/send! client request)
           (let [response (client/recv! client)]

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

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